From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <johnny@mailru.com>
Content-Type: text/plain;
  charset="koi8-r"
From: Johnny <johnny@mailru.com>
Organization: MSU
To: community@altlinux.ru
Subject: Re: [Comm] =?koi8-r?b?99nE0sHU2A==?= email
Date: Wed, 2 Oct 2002 23:55:12 +0400
User-Agent: KMail/1.4.3
References: <200210020245.58986.fedex@bashnet.ru> <200210021744.17262.johnny@mailru.com> <200210021132.39076.fedex@bashnet.ru>
In-Reply-To: <200210021132.39076.fedex@bashnet.ru>
MIME-Version: 1.0
Content-Transfer-Encoding: quoted-printable
Message-Id: <200210022355.13003.johnny@mailru.com>
Sender: community-admin@altlinux.ru
Errors-To: community-admin@altlinux.ru
X-BeenThere: community@altlinux.ru
X-Mailman-Version: 2.0.13
Precedence: bulk
Reply-To: community@altlinux.ru
List-Unsubscribe: <http://www.altlinux.ru/mailman/listinfo/community>,
	<mailto:community-request@altlinux.ru?subject=unsubscribe>
List-Id: <community.altlinux.ru>
List-Post: <mailto:community@altlinux.ru>
List-Help: <mailto:community-request@altlinux.ru?subject=help>
List-Subscribe: <http://www.altlinux.ru/mailman/listinfo/community>,
	<mailto:community-request@altlinux.ru?subject=subscribe>
List-Archive: <http://www.altlinux.ru/pipermail/community/>
Archived-At: <http://lore.altlinux.org/community/200210022355.13003.johnny@mailru.com/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>

=F7 =D0=C9=D3=D8=CD=C5 =CF=D4 2 =EF=CB=D4=D1=C2=D2=D8 2002 09:32 Alexande=
r Mayorov =CE=C1=D0=C9=D3=C1=CC:
> =E1 =CE=C9=CB=D4=CF =D5=CD=CE=D9=CA =CE=C5 =D3=CB=C1=D6=C5=D4 =CB=C1=CB=
 =DC=D4=CF =D3=C4=C5=CC=C1=D4=D8 =C9=DA =CB=CF=CD=CD=C1=CE=C4=CE=CF=CA =D3=
=D4=D2=CF=CB=C9 (=DE=D4=CF =D4=CF
> =D4=C9=D0=C1 awk)?
> =F3=CC=C1=C2=C1=CB =D1 =D7 =DC=D4=CF=CD, =C1 =D7=D2=C5=CD=C5=CE=C9 =C9=DA=
=D5=DE=C1=D4=D8 =CE=C5=D4 :((
> =F7=CF=D4 =C9 =D0=D2=CF=DB=D5 =CF =D7=D3=D0=CF=CD=CF=D6=C5=CE=C9=C9..
#!/usr/bin/perl -w

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


--=20
=09=09=09Johnny