2010-05-20 リストのシャッフル perl use List::Util; @e=(0..99); @e=List::Util::shuffle(@e); print join( " ",@e),"\n";