Perl正则表达式示例不起作用

Question

我只是想测试一些我在杂志（Linux Shell Handbook）中看到的东西。我从来没有真正尝试过这样的事，但我知道这可能是有用的

的例子是

perl -n -e '/^The \s+(.*)$/ print "$1\n"' heroes.txt 

在heroes.txt它

Catwoman 
Batman 
The Tick 
Spider-Man 
Black Cat 
Batgirl 
Danger Girl 
Wonder Woman 
Luke Cage 
Ant-Man 
Spider-Woman 

，这应该显示刻度，但是我越来越

perl -n -e '/^The \s+(.*)$/ print "$1\n"' heroes.txt 
syntax error at -e line 1, near "/^The \s+(.*)$/ print" 
Execution of -e aborted due to compilation errors. 

我在哪里出错？

Answer 1

更好地做到这一点：

$ perl -lne 'print $1 if /^The\s+(.*)$/' heroes.txt 
Tick 

或

$ perl -lne '/^The\s+(.*)$/ && print $1' heroes.txt 
Tick 

您的原始命令一些错误：

perl -n -e '/^The \s+(.*)$/ print "$1\n"' heroes.txt 

• 这是一个语法错误，你可以” t使用m//（匹配
• 更好地使用if或&&（像我的2段）语句不打印不匹配的行
• \s已经是一个空间（：运营商，如果与/分隔符使用），其次是print的m不是强制性的或者空白字符），所以不重复这两个文字空间和\s

---

action if condition; 

是

if (condition) {action};