source:
projects/perl-tools/byte-tester
@
1
Last change on this file since 1 was 1, checked in by sven, 16 years ago | |
---|---|
File size: 177 bytes |
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 repository browser.