画像振り分けソフトを語ろう！2枚目

画像振り分けソフトを語ろう！2枚目 at SOFTWARE

176:名無しさん＠お腹いっぱい。
06/05/11 21:42:43 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__

今、即席で書いたので動作確認はしてないよ。

次ページ

続きを表示

1を表示