source:
projects/perl-tools/hex-meter
@
27
Last change on this file since 27 was 1, checked in by sven, 16 years ago | |
---|---|
File size: 147 bytes |
Line | |
---|---|
1 | #!/usr/bin/perl |
2 | # Udos kleines Lochstreifen-Meterband. |
3 | # |
4 | |
5 | for($x=0; $x < $ARGV[0]; $x++) { |
6 | for($y=0; $y<2**8; $y++) { |
7 | print pack('C', $y); |
8 | } |
9 | } |
Note: See TracBrowser
for help on using the repository browser.