2009-01-26 テスト用にファイルを大量にコピーする Perl ワンライナー Perl perl -MFile::Copy -e "for (1..31) {copy('alert.log',sprintf(\"alert.log_200901%02d-010101\",$_));}"