Login
Как вытащить ссылки из файла?
662 просмотров
Перейти к просмотру всей ветки
in Antwort PisAtel2006 13.08.10 23:50, Zuletzt geändert 14.08.10 01:06 (voxel3d)
Perl:
a.html:
<a href="http://www.google.com">Google</a>
<a href="http://www.apple.com">Apple</a>
ext.pl:
#!/usr/bin/perl
use strict;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$mech->get( $some_url );
my @links = $mech->links();
for my $link ( @links ) {
printf "%s, %s\n", $link->text, $link->url;
}
результат:
Google, http://www.google.com
Apple, http://www.apple.com
$some_url заменить на урл к файлу, если нужен файл, т.е. если виндовс и файл лежит в C:\a.html, то будет 'file:///C:/a.html'.
Dropbox - средство синхронизации и бэкапа файлов.