Thanks#!/usr/bin/perl -w use HTML::Parser; use WWW::Mechanize; my $mech = WWW::Mechanize->new(); $p = HTML::Parser->new(); @sites="http://www.frozenhosting.com"; for( $i=1; $i<100000; $i++) { $mech->get( $sites[$i] ); $mech->content()=$html; $mech->find_all_links(); $link->url_abs()=@sites; open(FILE,">/crawled/$i.txt"); $p->parse($html); print FILE "$sites[$i]\n"; print FILE "$html"; close(FILE); }
In reply to Module's .pm errors
by mkurtis
in thread Module's .pm errors
by mkurtis
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |