ysk6406
2005-01-03 03:11:25 UTC
Win98SE で、ActivePerl 5.8.6 Build 811
を使っています。
以下は、ある条件に一致するファイル名を、指定パターンと連番のファイル名にリネームするスクリプトです。
print "Old pattern: ";
$opat = <STDIN>;
chop($opat);
print "New pattern: ";
$npat = <STDIN>;
chop($npat);
print "Starting #: ";
$i = <STDIN>;
chop($i);
@flist = glob("$opat");
foreach $old (@flist) {
　　$new = sprintf("$npat", $i);
　　print "Renaming $old --> $new\n";
　　rename($old, $new);
　　++$i;
}
print "Done.\n";
このスクリプトは正しく動作しているのですが、これの先頭に、
　　use encoding 'shiftjis';
を入れただけで、動かなくなってしまいます。
（rename にエラーチェックが入っていませんが、エラーチェックを追加すると、$old
が No such file or directory
となってしまいます。）
これは、なぜでしょうか？
ちなみに、perl -d
で調べようにも、-d
付きでこのスクリプトを呼んだだけで
Perl がクラッシュしてしまい、お手上げの状態です。
原因がおわかりの方、よろしくお願いします。
を使っています。
以下は、ある条件に一致するファイル名を、指定パターンと連番のファイル名にリネームするスクリプトです。
print "Old pattern: ";
$opat = <STDIN>;
chop($opat);
print "New pattern: ";
$npat = <STDIN>;
chop($npat);
print "Starting #: ";
$i = <STDIN>;
chop($i);
@flist = glob("$opat");
foreach $old (@flist) {
　　$new = sprintf("$npat", $i);
　　print "Renaming $old --> $new\n";
　　rename($old, $new);
　　++$i;
}
print "Done.\n";
このスクリプトは正しく動作しているのですが、これの先頭に、
　　use encoding 'shiftjis';
を入れただけで、動かなくなってしまいます。
（rename にエラーチェックが入っていませんが、エラーチェックを追加すると、$old
が No such file or directory
となってしまいます。）
これは、なぜでしょうか？
ちなみに、perl -d
で調べようにも、-d
付きでこのスクリプトを呼んだだけで
Perl がクラッシュしてしまい、お手上げの状態です。
原因がおわかりの方、よろしくお願いします。