无法在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，因为您并不是指服务器名称中的点“除了换行符之外的任何内容”。