2008-11-10から1日間の記事一覧
バッククォートで呼ぶとエラーが起きたどうか分からないのでsystem関数を使う。 my $cmd = 'ls test_dir'; if( (system "$cmd") != 0){ die "Error detected\n"; } エラーが起きたらdieする関数 sub run_cmd{ my ($cmd) = @_; print "$cmd\n"; if( (system "…
バッククォートで呼ぶとエラーが起きたどうか分からないのでsystem関数を使う。 my $cmd = 'ls test_dir'; if( (system "$cmd") != 0){ die "Error detected\n"; } エラーが起きたらdieする関数 sub run_cmd{ my ($cmd) = @_; print "$cmd\n"; if( (system "…