2008-03-16 8.6 ファイルからランダムに行を取り出す Perl Cookbook randと$.(現在の行番号)を使用して、どの行を取り出すか決める。 srand; rand($.) < 1 && ($line = $_) while <>; # $lineにランダムに取り出された行が格納される。