http://qs321.pair.com?node_id=293517


in reply to Re: Re: Javascript in Perl and retrieving the HTML source.
in thread Javascript in Perl and retrieving the HTML source.

I have not used the Javascript module before, so I am not sure how it works. Check out jeffa's reply at 293164. I agree with jeffa that the table is not being generated with Javascript, so I don't see why you can't just download the page and parse the HTML. The only Javascript code on that page is only there to manipulate the images on the page, and I am not even sure that it does anything at all (it looks like MacroMedia Dreamweaver puts MM_ functions into everything it makes.)

  • Comment on Re: Re: Re: Javascript in Perl and retrieving the HTML source.

Replies are listed 'Best First'.
Re: Re: Re: Re: Javascript in Perl and retrieving the HTML source.
by waiterm (Acolyte) on Sep 24, 2003 at 22:39 UTC
    I've managed to fix the problem with the following code: 
    sub get  {

    $date_ = $mm." ".$year;
    my $SendObject=Win32::OLE->new('microsoft.XMLhttp');
    $SendObject->open("GET", "http://212.53.74.34/pages6068/availabili
+ty2.cfm?propref=".$RRETid."&date_month=".$mon."&date_year=".$year."",
+ "false");
    $SendObject->setRequestHeader("Content-type", "text/plain");
    $SendObject->send();
    my $response_ = $SendObject->responseText;
    $response_ =~ s/\s/ /g;
    @dat = split(/$date_/,$response_); $response_ = $dat[1];
    @dat = split(/<\/Table>/i,$response_); $response_ = $dat[0];
    open(LOG,">C:/tmp/RRET/RREThtml.txt"); print LOG $response_; close
+ LOG;

}

    [download]
    however, I can't now call $response_ in the main program... do I have to set it as a global variable...if so, how??
[reply]
[d/l]

      Just return it from the sub.

[reply]

In Section Seekers of Perl Wisdom