Perlスクリプトでコマンドを実行することができません

Question

まず、Perlを初めて使ったので、ファイルから文字列を削除する必要があります。

コードは、私が持っている：私は、私はあなたが私を助けることを願っていただきました！間違って見つけるカント

syntax error at nfs_test.sh line 9, near "pli -e " 
Execution of nfs_test.sh aborted due to compilation errors. 

：

#!/usr/bin/perl -w 

use warnings; 
use strict; 

my $server_a = 'xxx.test.ch'; 

print "$server_a\n"; 
perl -pli -e "s/$server_a//" '/Users/user/Downloads/exports'; 

私はこのスクリプトを実行すると、私はこのエラーを取得します。

Answer 1

#! /usr/bin/perl 
use warnings; 
use strict; 

@ARGV = '/Users/user/Downloads/exports'; 
$^I = '~'; 

my $server_a = quotemeta 'xxx.test.ch'; 
s/$server_a//, print while <>; 

@ARGV配列には引数が含まれており、ダイヤモンド演算子によって反復されます。

$^Iは、-iオプションに相当します。

サーバ名にドットで改行を意味するものではないので、おそらくquotemetaが必要です。