however, I can't now call $response_ in the main program... do I have to set it as a global variable...if so, how??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; }
In reply to Re: Re: Re: Re: Javascript in Perl and retrieving the HTML source.
by waiterm
in thread Javascript in Perl and retrieving the HTML source.
by waiterm
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |