Parent Directory
|
Revision Log
|
Patch
revision 389 by boklm, Thu Feb 3 11:36:18 2011 UTC | revision 403 by boklm, Thu Feb 3 18:31:48 2011 UTC | |
---|---|---|
# | Line 10 while ($size) { | Line 10 while ($size) { |
10 | my $o; | my $o; |
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") { | print unpack("H*", $o); |
14 | print unpack("H*", $o); | $size--; |
$size--; | ||
} | ||
15 | } | } |
16 | close($rf); | close($rf); |
17 |
|
ViewVC Help | |
Powered by ViewVC 1.1.30 |