diff options
Diffstat (limited to 'gfsm/gfsm/src/libgfsm/tests/asciigen.perl')
-rwxr-xr-x | gfsm/gfsm/src/libgfsm/tests/asciigen.perl | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/gfsm/gfsm/src/libgfsm/tests/asciigen.perl b/gfsm/gfsm/src/libgfsm/tests/asciigen.perl new file mode 100755 index 0000000..1cabeb9 --- /dev/null +++ b/gfsm/gfsm/src/libgfsm/tests/asciigen.perl @@ -0,0 +1,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"; |