for (glob("log*.txt")) { my $old_name = $_; s/(^.+)([0-9][0-9][0-9][0-9])([0-9][0-9])([0-9][0-9]).txt/$1-$2-$3-$4.txt/; my $new_name = $_; rename $old_name, $new_name; } 参考:Perlでファイル名を変更(リネーム)するにはrename
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く