Parent Directory
|
Revision Log
|
Patch
revision 385 by boklm, Thu Feb 3 00:11:58 2011 UTC | revision 389 by boklm, Thu Feb 3 11:36:18 2011 UTC | |
---|---|---|
# | Line 1 | Line 1 |
1 | #!/usr/bin/perl -w | #!/usr/bin/perl -w |
2 | use strict; | use strict; |
3 | ||
4 | my $size = 200; | my $size = 100; |
5 | ||
6 | binmode(STDOUT, ":utf8"); | binmode(STDOUT, ":utf8"); |
7 | ||
# | Line 11 while ($size) { | Line 11 while ($size) { |
11 | print STDERR "$size random bytes to read.\n"; | print STDERR "$size random bytes to read.\n"; |
12 | read $rf, $o, 1; | read $rf, $o, 1; |
13 | if ($o ne "\n" && $o ne "\r") { | if ($o ne "\n" && $o ne "\r") { |
14 | print $o; | print unpack("H*", $o); |
15 | $size--; | $size--; |
16 | } | } |
17 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.30 |