root/paper-tape-project/trunk/perl-tools/byte-tester
| Revision 1, 177 bytes (checked in by sven, 4 years ago) |
|---|
| Line | |
|---|---|
| 1 | #!/usr/bin/perl |
| 2 | # |
| 3 | # Erzeugt aus Parametern (dezimal) Bytes und gibt diese auf stdout aus. |
| 4 | # keine größeren parameter als 64000 ;) |
| 5 | # |
| 6 | |
| 7 | foreach (@ARGV) { |
| 8 | print pack("C", $_); |
| 9 | } |
Note: See TracBrowser
for help on using the browser.
Powered by 
Expect where otherwise noted, content on this site is licensed under a