Annotation of /gpg/random-passphrase

#!/usr/bin/perl -w
use strict;

my $size = 100;

binmode(STDOUT, ":utf8");

open(my $rf, '<', '/dev/random');
while ($size) {
    my $o;
    print STDERR "$size random bytes to read.\n";
    read $rf, $o, 1;
    if ($o ne "\n" && $o ne "\r") {
        print unpack("H*", $o);
        $size--;
    }
}
close($rf);

1	boklm	383	#!/usr/bin/perl -w
2			use strict;
3
4	boklm	389	my $size = 100;
5	boklm	383
6			binmode(STDOUT, ":utf8");
7
8			open(my $rf, '<', '/dev/random');
9			while ($size) {
10			my $o;
11			print STDERR "$size random bytes to read.\n";
12			read $rf, $o, 1;
13			if ($o ne "\n" && $o ne "\r") {
14	boklm	389	print unpack("H*", $o);
15	boklm	383	$size--;
16			}
17			}
18			close($rf);
19