我在Perl单行中做错了什么？

我有一个包含很多这些的文件

"/watch?v=VhsnHIUMQGM"

我想用perl one-liner输出字母代码.所以我试试

perl -nle 'm/\"\/watch\?v=(.*?)\"/g' filename.txt

但它不会打印任何东西.

我究竟做错了什么？

解决方法

-n选项处理每一行但不打印任何内容.因此,如果成功匹配,则需要添加显式打印.

perl -ne 'while ( m/\"\/watch\?v=(.+?)\"/g ) { print "$1\n" }' filename.txt

如果你确定每一行都匹配,另一种方法是使用-p选项,它在处理后打印出$_的值,例如：

perl -pe 's/\"\/watch\?v=(.+?)\"/$1//' filename.txt