- 176 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/05/11(木) 21:42:43 ID:qI4BmaJy0]
- >>175
あるんじゃない？
私は自分でそういうの作って使ってる。
Perl が入ってるなら次のスクリプトでできるよ。
@keys = ('hoge', 'hero', 'moe');# 語句のリスト。
$dir = 'C:\hogehoge\';# 振り分け先フォルダ。フルパス推奨。
opendir DIR, './';# カレントディレクトリを開く。
@files = readdir DIR;
closedir DIR;
foreach $file (@files) {
foreach $key (@keys) {
if ($file =~ m/$key/) {
rename $dir . $file, $file;# 異なるドライブへの移動は不可。同名ファイルがあれば…上書きかも？
last;# 一致したら内側の foreach を抜け、次の $file を調べる。
}
}
__END__
今、即席で書いたので動作確認はしてないよ。
