perl:systemコマンドの実行結果は$?で判断する。

メモ:
system関数でOSで使用できるコマンドが実行できます。
その正常終了判定は$?変数で確認できます。

#!c:¥perl¥bin¥perl

$cmd = ‘copy.exe xx.txt yy.txt’;

system($cmd);

# 結果
if($? == 0){
print “($?) 正常終了¥n”;
}else{
print “($?) 異常終了¥n”;
}

但し、事前にDOS画面等で事前動作確認は必要。