adulau/dotfiles
1
0
Fork 0
mirror of https://github.com/adulau/dotfiles.git synced 2024-12-22 08:46:01 +00:00
Code Issues Projects Releases Packages Wiki Activity

bookmarks my submissions from HN

Browse source
This commit is contained in:
Alexandre Dulaunoy 2011-04-24 12:36:19 +02:00
parent 7bf6347b1b
commit 320014e157
1 changed files with 40 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
bin/hn2bookmarks.pl Normal file
View file

@ -0,0 +1,40 @@
#!/usr/bin/perl
#
# http://news.ycombinator.com/submitted?id=adulau
use Scrappy;
my $spidy = Scrappy->new;
my $url = "http://news.ycombinator.com/submitted?id=adulau";
my @bookmarks;
sub hnfetch {
my $url = shift;
print STDERR "Fetching ".$url."\n";
$spidy->crawl( $url,
{
'table td a'=> sub {
if ($_[0]->{href} =~ m/^http/) {
push (@bookmarks, $_[0]->{href});
}
if ($_[0]->{text} =~ m/^More$/) {
my $nextpage = "http://news.ycombinator.com".$_[0]->{href};
hnfetch($nextpage);
last;
}
},
}
)
}
hnfetch($url);
print @bookmarks;