Help for this page

Select Code to Download


  1. or download this
    use strict;
use XML::DOM;
...
use CGI qw/:standard/;
my $zipcode =  param( "zipcode" ) || "27613";
my $searchTerm =  param( "query" ) || "pizza";
  2. or download this
    Can't call method "getNodeValue" on an undefined value at /Library/Web
+Server/CGI-Executables/WebYahoo.pl line 54.
[Wed Apr 26 16:46:44 2006] [error] [client 24.106.190.114] Premature e
+nd of script headers: /Library/WebServer/CGI-Executables/WebYahoo.pl
  3. or download this
            $title = $result->getElementsByTagName('Title')->item(0)->getF
+irstChild->getNodeValue;
        $addr = $result->getElementsByTagName('Address')->item(0)->get
+FirstChild->getNodeValue;
        $phone = $result->getElementsByTagName('Phone')->item(0)->getF
+irstChild->getNodeValue;