hiroshi-manabe/randpick

## randpick
#!/usr/bin/perl -nl
use Getopt::Std;
BEGIN {
    getopt("n:" => \%o);
    $n = $o{"n"} ||= 10;
}
$t = $. <= $n ? $. - 1 : rand($.);
$r[$t] = $_ if $t < $n;
END {
    print for @r;
}
	#!/usr/bin/perl -nl
	use Getopt::Std;
	BEGIN {
	getopt("n:" => \%o);
	$n = $o{"n"} \|\|= 10;
	}
	$t = $. <= $n ? $. - 1 : rand($.);
	$r[$t] = $_ if $t < $n;
	END {
	print for @r;
	}