ЗС
Злой Смайл
Код находит строки, содержащие тег в Perl, как сделать так, чтобы выводилась только часть с атрибутом src? Спасибо
use strict;
use warnings;
my @words;
sub main
{
my $file = 'index.html';
open(FH, $file) or die("File $file not found");
my $number = 0;
# my $vimg = "";
while(my $String = )
{
if($String =~ /img/)
{
print "$String \n";
$number++;
}
}
print "THIS WORD APPEARED $number TIMES";
print "\n";
close(FH);
}
main();