Help for this page

Select Code to Download


  1. or download this
    a=shift;$a=~s/\\//g;$a=glob($a);$_=`cat $a`;print"Content-type: text/h
+tml\n\n"
;while(/<!--#exec cgi="([^"]*)"-->/){$a=`$1`;$a=~s/\n/<br>\n/g;
s/<!--#exec cgi="([^"]*)"-->/$a/}print;
  2. or download this
    my $a= shift @ARGV;
$a =~ s#\\#/#g;
$a= glob($a);
$_= `cat $a`;
  3. or download this
    $_= do { local($/); <> };
  4. or download this
    print "Content-type: text/html\n\n";
while(  /<!--#exec cgi="([^"]*)"-->/  ) {
    my $a= `$1`;
...
    s/<!--#exec cgi="([^"]*)"-->/$a/
}
print;
  5. or download this
    while(  $_ =~ /<!--#exec cgi="([^"]*)"-->/  ) {
    my $a= `$1`;
    $a =~ s/\n/<br>\n/g;
    $_ =~ s/<!--#exec cgi="([^"]*)"-->/$a/;
}
print $_;