Help for this page

Select Code to Download


  1. or download this
    my $checksize1 = qq{<html><head></head><body>Huge wad of html</body></
+html>};

...
      #       doing things this way assumes that ax.pl is
      #        happy to take info on STDIN
my @results = qx{ ./cgi-local/axis/ax.pl < $checksize1 };
  2. or download this
    $checksize1 = qx{ ./cgi-local/axis/ax.pl < $checksize1 };
  3. or download this
    my $checksize1 = qq{<html>\n<head>\n</head>\n<body>\nHuge wad of html\
+n</body>\n</html>};

...
$body = qx{./cgi-local/axis/ax.pl < $body};

$checksize1 = qq{$head<body>\n$body</body>$foot};
  4. or download this
    open(FILE, "> blah.shtml") or die "$!";
print FILE $checksize1;
...
my $res = qx{./cgi-local/axis/ax.pl blah.shtml};

if($res ....){}  # don't forget to ensure that ax.pl worked.