8.6 ファイルからランダムに行を取り出す

  • randと$.(現在の行番号)を使用して、どの行を取り出すか決める。
srand;
rand($.) < 1 && ($line = $_) while <>;
# $lineにランダムに取り出された行が格納される。