私はいくつかの Perl スクリプトといくつかの Perl ワンライナーを含むシェル スクリプトを持っています。シェル スクリプトのほとんどの Perl スクリプトには、最初に oneliner がありますsystem
。これらのスクリプトとワンライナーは、共通の入力を受け取る必要があります。では、シェルスクリプトのコマンドラインで引数値を与える方法はありますか???
#!/bin/sh
perl test.pl
perl -ne 'print if/XXXX/ig../ZZZZZ/ig' abc.l > def.l
perl trial.pl
perl qwerty.pl
ここで、たとえばabc.l
、oneliner で使用されるファイルがtest.pl
およびの共通入力でtrial.pl
ある場合、引数値を使用して、シェル スクリプトの必要なコードで使用されるようにコマンド ラインで指定できますか????
Perl ワンライナーに引数を割り当てようとしましたが、入力が受け入れられませんでした。
私のtest.pl
コードは次のとおりです
system( q( perl -ne '/^.QQQ/ig && print' abc.l > data1.l) );
system( q( perl -ne '/.SSS/ig && print' data1.l > data2.l) );
open(fh,"<data3.l");
open(fh1,">>data31.l");
while (my $string =<fh>)
{
...
..
..
私の test.pl も同じ入力を取りますabc.l
。
誰でもこれについて私を助けることができますか?
- PerlのワンライナーでARGVを使用するにはどうすればよいですか???
- シェルスクリプトの実行中にコマンドラインで入力するにはどうすればよいですか???
前もって感謝します。