初歩的な質問で恐縮です。

質問

プロの方にお願いです。
あらかじめファイルにテキストでファイル名を2列に記述しておきます。test1,TEST1 test2,TEST2・・・
そのファイル名を読み込んで2つのコマンドを実行します。
１、touch test1
２、mv test1 TEST1

そして、3番目に”もしファイルが存在しなくてエラーのメッセージが帰ってきたら終了する”

という実行をしたいのですが、どのように実現したらよいでしょうか？

回答No.2

Dpop

#1 です。終了させるのを忘れました(^^;)

open(IN, "filename");
while(<IN>) {
chop;
(@f) = split(/,/);
if (-f $f[0] && -f $f[1]) {
`touch $f[0]`;
`mv $f[0] $f[1]`;
}
else {
less (-f $f[0]) {
die "$f[0]がありません。";
}
else {
die "$f[1]がありません。";
}
}
}
close(IN);

回答No.1

Dpop

コマンドを実行する前に、予めファイルスイッチでチェックしてはどうでしょうか?

open(IN, "filename");
while(<IN>) {
chop;
(@f) = split(/,/);
if (-f $f[0] && -f $f[1]) {
`touch $f[0]`;
`mv $f[0] $f[1]`;
}
}
close(IN);

とか。