http://www.perlmonks.org?node_id=1003698

redfieldp has asked for the wisdom of the Perl Monks concerning the following question:

Hello, I have a simple Perl script that scrapes some data from a web page, and then parses and writes it to a Mongo database. The script has been running fine on an Ubuntu 10.04 32 bit machine with Perl 5.10.1 However, I am now trying to run it on a Ubuntu 12.04 64 bit machine with Perl 5.14.2, and the script hangs. Specifically, when I create (not send) a post request. I put a print before and after the request, and the second print never happens. Any thoughts on why this might be occurring? The POST creation is below with the relevant websites removed.

my $req = (POST 'https://www.myurlgoeshere.com', ["request" => "top", "language" => "en", "country" => "us", "month" => $currentMonth, "day" => $currentDay, "departure" => $depart, "arrival" => $arrive, "seat" => "1", "fromTop" => "on", "next.x" => "39", "next.y" =>"10"]);

Replies are listed 'Best First'.
Re: Perl Hangs On New Machine
by MidLifeXis (Monsignor) on Nov 13, 2012 at 20:38 UTC

    Are you missing parts of your code above? Specifically, where is POST defined?

    --MidLifeXis

      POST is defined earlier in the file, as follows:

      use HTTP::Request::Common qw(POST);

      There is other content in the file (it's a sizeable script), but using print, I've determined this is where it hangs. Keep in mind that, as I mentioned, the same script runs fine on another box. Any thoughts would be much appreciated!

        Doesn't happen :) Although you could use perl -d:Trace prog.pl ...