gfsm/gfsm/src/libgfsm/tests/asciigen.perl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/usr/bin/perl -w

@ascii = (ord('A')..ord('Z'),
	  ord('a')..ord('z'),
	  ord('!')..ord('/'),
	  ord('0')..ord('9'),
	  ord(':')..ord('?'));

foreach $c (@ascii) {
  print chr($c);
}
print "\n";

foreach $c (161..255) {
  printf("\\%o", $c);
}
print "\n";