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