perlquestion
George_Sherston
I just swept aside the dense curtain of cobwebs over the entrance to my cell and looked round the room I used to know so well but which I haven't for so long.. and my eye lighted on the [Name Space] node which I indexed ages ago. I wrote a script then to update the index and it worked fine. But now when I run it I get<BR><BR>
<code>Prototype mismatch: sub main::head vs ($) at ns.pl line 6</code><BR><BR>
I think this is an LWP::Simple prob... but it's a complete new one on me. Has something change when I was in my Rip Van Winkle sleep? <BR><BR>If any kind monk can put me straight I'd be most grateful, and doubly glad because then I could update the wretched index.
The bit of the script that (I think) is breaking down is
<code>
#!/usr/bin/perl -w
use strict;
use lib '/home/httpd/lib';
use CGI qw/:standard :cgi-lib/;
use LWP::Simple;
my $text = get 'http://www.perlmonks.net/index.pl?node_id=110166';
my %names = (George_Sherston => 110166);
while ($text =~ s#<a HREF="/index\.pl\?node_id=(\d+)">.+?</a><BR> by <a HREF="/index\.pl\?node_id=(\d+)">(.+?)</a> on \w{3} \d{1,2}, \d{4} at# #) {
unless (defined $names{$3}) {
$names{$3} = $1;
}
}
</Code>
Many thanks - it's lovely to be back in the hallowed halls.
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-103111">
<br><br>§ <A HREF="http://www.sprogress.com">George Sherston</A>
</div></div>