Regular expressions. How to cut the desired text?

Question

Perl

There is text like this:

<img id = "3" class="lazy" src="/media/a.jpg" data-original="/media/a.jpg" alt="text">

You need to cut everything except /media/a.jpg from data-original.
Not enough mind. You need to pull out about 2 thousand pictures from the site. Everything else has already been written.

Answer 1

You can look towards sed. In this way
You can get the data-original value from your string

Answer 2

Это будет быстрее и проще регулярных выражений:

tag = '<img id = "3" class="lazy" src="/media/a.jpg" data-original="/media/a.jpg" alt="text">'
pos1 = a.index('data-original="') + len('data-original="')
pos2 = tag.index('"', pos1)
link = tag[pos1:pos2]

Answer 3

use Mojo::DOM;

my $text = '<img id = "3" class="lazy" src="/media/a.jpg" data-original="/media/a.jpg" alt="text">';
my $data_original = Mojo::DOM->new( $text )->find( 'img' )->map( attr => 'data-original' );

print "$_\n" foreach @$data_original;

Answer 4

import re

reg = re.compile(r"data_original=\"([A-Za-z./]+\.jpg)\"")
print(reg.findall("<img id = \"3\" class=\"lazy\" src=\"/media/a.jpg\" data-original=\"/media/a.jpg\" alt=\"text\">"))

Answer 5

Сама регулярка:

echo '<img id = "3" class="lazy" src="/media/a.jpg" data-original="/media/a.jpg" alt="text">' | perl -lne '/data-original="([^"]+)/; print "$1";'