Well.. something's funky;
this relatively simple script:
#!perl -w
$| = 1;
use strict;
print "Downloading...";
{
use LWP::UserAgent;
my($user, $pass) = qw(user pass);
my $response;
my $request_URL = 'http://some.site.com/adminstuff/file.asp';
my $ua = LWP::UserAgent->new;
my $request = HTTP::Request->new('GET', $request_URL);
$request->authorization_basic($user, $pass);
$response = $ua->request($request, 'localfile.html.bak');
die "failed get", $response->error_as_HTML unless $response->is_success;
}
print "Successful!\nProcessing...";
{
open INFILE, "<localfile.html.bak" or die "$!";
open OUTFILE, ">localfile.html" or die "$!";
while (<INFILE>)
{
s/\012//; # un-dos-ify the file
next if /^\s$/; # skip blank lines entirely
s/\t//g && die "TAB _ $_"; # report tab chars as error
print OUTFILE $_;
}
close INFILE;
close OUTFILE;
}
print "Done!";
gives me this, under the new one (and yes I updated it with the special
download):
panic: realloc.
Compilation failed in require at Primus 8.5GB:Applications:MacPerl 5.6.1a4
Ÿ:lib:DynaLoader.pm line 22.
Compilation failed in require at Primus 8.5GB:Applications:MacPerl 5.6.1a4
Ÿ:lib:HTML:Parser.pm line 16.
Compilation failed in require at Primus 8.5GB:Applications:MacPerl 5.6.1a4
Ÿ:lib:HTML:Entities.pm line 79.
Compilation failed in require at Primus 8.5GB:Applications:MacPerl 5.6.1a4
Ÿ:lib:HTML:HeadParser.pm line 70.
BEGIN failed--compilation aborted at Primus 8.5GB:Applications:MacPerl
5.6.1a4 Ÿ:lib:HTML:HeadParser.pm line 70.
Compilation failed in require at Primus 8.5GB:Applications:MacPerl 5.6.1a4
Ÿ:lib:LWP:Protocol.pm line 47.
Compilation failed in require at Primus 8.5GB:Applications:MacPerl 5.6.1a4
Ÿ:lib:LWP:UserAgent.pm line 103.
BEGIN failed--compilation aborted at Primus 8.5GB:Applications:MacPerl
5.6.1a4 Ÿ:lib:LWP:UserAgent.pm line 103.
Compilation failed in require at Primus 8.5GB:Applications:MacPerl
Ÿ:NaliCity:ratings:(1) requestall_maplist_db line 7.
BEGIN failed--compilation aborted at Primus 8.5GB:Applications:MacPerl
Ÿ:NaliCity:ratings:(1) requestall_maplist_db line 7.
what other information can I give you?
--
Scott R. Godin | e-mail : [EMAIL PROTECTED]
Laughing Dragon Services | web : http://www.webdragon.net/