Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re: www::mechanize executable

by Anonymous Monk
on Oct 18, 2012 at 07:05 UTC ( #999689=note: print w/ replies, xml ) Need Help??


in reply to www::mechanize executable

Hi fixon,
it does not execute, i.e does not create the excel file

How are you using pp(PAR Packager) to make your executable? Using pp like so works for me:

pp -o perlscript.exe perlscript.pl


Comment on Re: www::mechanize executable
Download Code
Re^2: www::mechanize executable
by fixon (Initiate) on Oct 18, 2012 at 16:25 UTC

    I did exactly that for the pp to create the .exe package

    Here is my code, please take a quick look if you see anything that might be causing the problem when creating the .exe. Thank you very much

    use strict; use Spreadsheet::WriteExcel; use WWW::Mechanize; # Create a new instance of Mechanize my $bot = WWW::Mechanize->new(); $bot->agent_alias( 'Windows Mozilla' ); # Connect to the login page my $response = $bot->get( 'https://anyURLwithCredentials.com' ); # Get the login form. You might need to change the number. $bot->form_number(3); # Enter the login credentials. $bot->field( username => 'username' ); $bot->field( password => 'password' ); $response = $bot->click(); my $outfile = "out.txt"; open(OUTFILE, ">$outfile"); print OUTFILE $response->decoded_content; close(OUTFILE); open(FILE,$outfile); my @releasesAU; my @releasesAU3G; while (<FILE>) { chomp; my $lineDATA = $_; if(index($lineDATA, "H") != -1){ if( $lineDATA =~ /">([_+\w]*)<\/a>/){ print $1, "\n"; push(@releasesAU3G,$1); } } if(index($lineDATA, "H+") != -1){ if( $lineDATA =~ /">([_+\w]*)<\/a>/){ print $1, "\n"; push(@releasesAU,$1); } } } close(FILE); my $row = 0; my $col=0; my $workbook = Spreadsheet::WriteExcel->new("test.xls"); my $worksheet = $workbook->add_worksheet(); $worksheet->write($row, $col, "Releases H"); $worksheet->write($row, $col+1, "Releases H+"); $row=2; foreach my $SOP (@releasesAU){ $worksheet->write($row, $col, $SOP); $row = $row+1; } $row =2; foreach my $SOP (@releasesAU3G){ $worksheet->write($row, $col+1, $SOP); $row = $row+1; } $workbook->close();

      Have you inspected whether LWP::Protocol::https (and other dynamically loaded prerequisites of your script) are included in the generated executable?

        I have tried adding what you suggested use LWP::Protocol::https to my code, but nothing has changed How can I verify allthe automatically generated dependencies for my code? Maybe the problem is only that... thank you

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://999689]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (9)
As of 2014-09-30 20:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (383 votes), past polls