Wie PHP-Code in .cgi ausführen? - #148226 (Allgemeines zu Perl)

GwenDragon

2011-05-03 13:20

User since
2005-01-17
14848 Artikel
Admin1

1. Uh, peinlicher Quotingfehler bei dem PHP-unlink meinerseits. ;)
2. Umleitungsseite gekürzt.

gefixter Codeteil wegen Nichtlöschens und Umleitung:

Code (perl): (dl )

{ 
use Digest::MD5 qw(md5_hex); 
my $t = time; 
my $dig = md5_hex($t . $html . $$); 
 
if (!-e "$ENV{DOCUMENT_ROOT}/kresult/") { 
  mkdir("$ENV{DOCUMENT_ROOT}/kresult/"); 
} 
 
my $php_fname = "ks-$dig-$t.php"; 
my $outfh; 
open ($outfh, ">", "$ENV{DOCUMENT_ROOT}/kresult/$php_fname"); 
print $outfh $html;     # finally print the HTML page 
 
# --- PHP-Datei löschen nach Anzeige? Dann Kommentar entfernen!  
print $outfh 
        q|<?php @unlink("| 
        . qq|$ENV{DOCUMENT_ROOT}/kresult/$php_fname| 
        . q|"); ?>|; 
# --- 
 
close ($outfh); 
 
my $redirect_url = "/kresult/$php_fname"; 
 
print <<"HTML"; 
<html>
<head> 
<meta http-equiv="refresh" content="0; url=$redirect_url"> 
</head> 
</html> 
HTML
 
exit; 
}

Und gehts jetzt?

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten