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

前端之家收集整理的这篇文章主要介绍了我在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

猜你在找的Perl相关文章