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/


Reply via email to