perl - perl スクリプトを使用してコマンドを実行する

Question

私はUnixのような簡単なコマンドを持っています

cat myfile.txt >&mytemp.txt&

上記のコマンドは、ファイル myfile.txt のコピーを作成するだけです。コマンドラインでコマンドを実行すると、次のようなプロセス ID が返されます。

> cat myfile.txt > & mytemp.txt &
[1] 769
>

perl スクリプト内で同じコマンドを作成し、以下のように system で呼び出しています。

my $cmd="cat myfile.txt>&mytemp.txt&";
my $info = system("$cmd");

しかし、system コマンドは次のエラーメッセージで失敗します。

sh: mytemp.txt: bad number

>andをエスケープしてみました&が、エラーメッセージに変化はありません。この理由がわかりますか?ここでどこが間違っていますか?

score 1 · Accepted Answer

これで末尾を使用することはできないと確信しています&。コマンドの実行中にプログラムを続行する場合forkは、子プロセスに呼び出しを実行させてから終了します。exec私は以前に出力リダイレクトでそれを試したことがありませんが、おそらくこれを行うことができます...

score 0 · Accepted Answer

メッセージが示すように、それは有効なshコマンドではありません。もしかしてcshコマンドですか？

system('csh', '-c', $cmd);

score -1 · Accepted Answer

これを試して：

perl -e "`cat myfile.txt>&mytemp.txt&`;"

コマンドを実行し、コマンド出力を返します。したがって、次のことが可能です。

#!/usr/bin/perl
my $content = `cat /etc/passwd`;
print $content;

コードを perl スクリプトに入れる場合:

cat-test.pl

#!/usr/bin/perl

use strict;
use warnings;

my $res = `cat myfile.txt>&mytemp.txt&`;

3 に答える 3