Perlゴルフ大好き
もう解答編が出てしまったが、結城浩さん出題の「ランダム・アルバイト・クイズ」への答案。
perl -ne'$r[$.<=5?$.:1+rand$.]=$_;END{map print,@r[1..5]}' <応募者が1行ずつ並んでいるファイル>
以前たほいやの嘘をシャッフルするのに使ったone linerと原理は似ている。
もう解答編が出てしまったが、結城浩さん出題の「ランダム・アルバイト・クイズ」への答案。
perl -ne'$r[$.<=5?$.:1+rand$.]=$_;END{map print,@r[1..5]}' <応募者が1行ずつ並んでいるファイル>
以前たほいやの嘘をシャッフルするのに使ったone linerと原理は似ている。