Что я делаю не так в этом Perl однострочном?

Question

У меня есть файл, который содержит много этих

"/watch?v=VhsnHIUMQGM"

, и я хотел бы вывести буквенный код, используя perl однострочныйПоэтому я пытаюсь

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

, но ничего не печатается.

Что я делаю не так?

Answer 1

Опция -n обрабатывает каждую строку, но ничего не печатает.Поэтому вам нужно добавить явное print, если вы успешно сопоставите.

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

Другой подход, если вы уверены, что каждая строка будет соответствовать, - это использовать параметр -p, который выводит значение$_ после обработки, например:

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

Answer 2

Ваше регулярное выражение в порядке. Вы не получаете вывод, потому что опция -n ничего не печатает. Он просто оборачивает цикл while (<>) { ... } вокруг вашей программы (запустите perl --help для краткого объяснения параметров Perl).

Следующее использует ваше регулярное выражение, но добавьте немного печати. В контексте списка регулярные выражения с параметром /g возвращают все записи. По сути, мы печатаем каждый снимок.

perl -nle 'print for m/\"\/watch\?v=(.*?)\"/g' data.dat

Answer 3

Вы можете разбить строку на "=" вместо соответствия:

perl -paF= -e '$_= @F[1]' filename.txt