無法在Perl腳本中執行命令

Question

首先，我完全不熟悉Perl，我需要從文件中刪除字符串。

代碼，我有：

#!/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'; 

當我執行這個腳本我得到這個錯誤：

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

我找不到什麼是錯的，我希望你能幫助我。

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，因爲您並不是指服務器名稱中的點「除了換行符之外的任何內容」。