Как однострочить этот поиск?

Question

У меня очень длинная строка, где я хотел бы найти все ссылки, когда за ними следует class="filelink"

Ссылка может выглядеть следующим образом

<a href="https://example.com/@api/files/123/=2008.pdf" class="filelink"

Как этотакая проблема написана как Perl one-liner?

Обновление

Если я сделаю

echo '<a href="https://example.com/@api/files/123/=2008.pdf" class="filelink"' > test
perl -pe 's/href="(.*)" class="filelink"/\1/g' test

, тогда я получу

<a https://example.com/@api/files/123/=2008.pdf

где бы я ожидал

https://example.com/@api/files/123/=2008.pdf

Answer 1

Решение с надежным парсером HTML вместо регулярного выражения:

<input_long_line.html perl -MWeb::Query=wq -ne '
    wq($_)
    ->find("a.filelink")
    ->each(sub {
        printf "URL %s\t text %s\n", $_[1]->attr("href"), $_[1]->text
    })'

Я обернул его для удобства чтения, он отлично работает как однострочный.

Answer 2

perl -nE'say for m/<a\s+href="([^"]+)"\s+class="filelink"[^>]*>/g;'

Answer 3

Альтернативный подход с использованием HTML::TreeBuilder::XPath, который я считаю довольно хорошим:

M=HTML::TreeBuilder::XPath; \
perl -M$M -le 'print $_->attr("href") for ' \
           -e "$M->new_from_content(<STDIN>)->" \
           -e 'findnodes(q(//a[@class="filelink"]))' < input-file