[Comm] Выдрать email

[Johnny]

В письме от 2 Октябрь 2002 09:32 Alexander Mayorov написал:
> А никто умный не скажет как это сделать из коммандной строки (что то
> типа awk)?
> Слабак я в этом, а времени изучать нет :((
> Вот и прошу о вспоможении..
#!/usr/bin/perl -w

use strict;
use HTML::LinkExtor;
my $p = HTML::LinkExtor->new( sub {
      my($tag, %links) = @_;
      map {print "$_\n" if /mailto:/} values %links if $tag eq "a";
        });
$p->parse_file("index.html");


-- 
			Johnny