Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: Re: Re: Re: Javascript in Perl and retrieving the HTML source.

by waiterm (Acolyte)
on Sep 24, 2003 at 22:39 UTC ( #294032=note: print w/replies, xml ) Need Help??


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

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; }
however, I can't now call $response_ in the main program... do I have to set it as a global variable...if so, how??
  • Comment on Re: Re: Re: Re: Javascript in Perl and retrieving the HTML source.
  • Download Code

Replies are listed 'Best First'.
Re: Re: Re: Re: Re: Javascript in Perl and retrieving the HTML source.
by bunnyman (Hermit) on Sep 25, 2003 at 14:23 UTC

    Just return it from the sub.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (5)
As of 2022-10-06 08:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My preferred way to holiday/vacation is:











    Results (26 votes). Check out past polls.

    Notices?