hotkitty wrote:
> I'm trying to extract links from a website but get the following
> error:
>
> Global symbol "%Config" requires explicit package name at C:/Perl/lib/
> Errno.pm l
> ine 11.
> Global symbol "%Config" requires explicit package name at C:/Perl/lib/
> Errno.pm l
> ine 11.
> Global symbol "%Config" requires explicit package name at C:/Perl/lib/
> Errno.pm l
> ine 13.
> Global symbol "%Config" requires explicit package name at C:/Perl/lib/
> Errno.pm l
> ine 13.
> BEGIN not safe after errors--compilation aborted at C:/Perl/lib/
> Errno.pm line 12
> 9.
> Compilation failed in require at C:/Perl/lib/IO/Socket.pm line 17.
> BEGIN failed--compilation aborted at C:/Perl/lib/IO/Socket.pm line 17.
> Compilation failed in require at C:/Perl/site/lib/LWP/Simple.pm line
> 158.
>
>
> What am I doing wrong? Here's the script (which I got from a YouTube
> video...it seemed to work for him):
> Thanks in advance!
>
>
> #!/usr/bin/perl
> print "Content-type: text/html\n\n";
>
> use LWP::Simple;
> require HTML::Parser;
> require HTML::LinkExtor;
> require strict;
> use warnings;
>
>
> $Domain = "ageofempires.co.nz";
> $URL = get("http://www.ageofempires.co.nz";);
>
> mkdir "$Domain";
>
> $LinkExtor = HTML::LinkExtor->new(\&links);
> $LinkExtor->parse($URL);
>
> sub links
> {
> ($tag, %links) = @_;
> if ($tag = "a href" &&
> $links{href} =~ "$Domain") {
> $url = $links{href};
> $file = $url;
> $file =~ s/http:\/\/www\.//;
> $file =~ s/http:\/\///g;
> $file =~ tr/\//-/;
> mirror ($url, "$Domain/$file.html");
> print "Making $file.html\n";
>
>
> }
> }
>
> $url = "http://$Domain";;
> $file = $url;
> $file =~ s/http:\/\/www\.//;
> $file =~ s/http:\/\///g;
> $file =~ tr/\//-/;
> mirror ($url, "$Domain/$file.html");
> print "Making $file.html\n";
>
> exit;
You have a very odd Perl program there, but it still looks like it should work.
The errors you are getting show that Perl hasn't been installed properly, as
the Errno module is failing to load Config correctly, which is set up by the
installation process. Try this command line
perl -MErrno -e ""
and I expect you will get the same error, and if so you should arrange to
reinstall Perl. If not then I will have to think again!
HTH,
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
