Wie lese ich eine Datei auf meinem Webserver von meinem Perl-CGI-Skript und drucke dann die Daten?

Ich habe eine Datei "a.cpm" auf meinem Webserver. Ich habe einen Handler, der, wenn du zu asdasd.com/a.cpm gehst, das CGI-Perl-Skript startet. Ich habe versucht, die Datei zu lesen und dann die Daten zu drucken, aber es tut nichts.Wie lese ich eine Datei auf meinem Webserver von meinem Perl-CGI-Skript und drucke dann die Daten?

#!/usr/bin/perl 
print "Content-type:text/html\r\n\r\n"; 
print "test string"; 
print "<br>"; 
$filepath = $ENV{'PATH_TRANSLATED'}; 
open FILE, $filepath or die $!; 
my @lines = <FILE>; 
while (my $line = <FILE>) 
{ 
print $_; 
}

Quelle

2010-11-28 liamzebedee

Haben Sie Ihr Webserver Fehlerprotokoll überprüft? Haben Sie ein Hello World CGI-Skript (ohne den Dateizugriff) ausprobiert? – cjm

Liam, hast du das testen können? – Philar

Wenn Ihr Handler einwandfrei funktioniert und Sie die Dateiberechtigungen chmod a+x Ihres CGI-Skripts geändert haben, schlage ich vor, das CGI-Modul wie im folgenden Code gezeigt zu verwenden.

#!/usr/bin/perl 
use CGI qw(:standard); 
print <<HTML; 
Content-type: text/html 

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> 
<html> 
<head><title>Path Translated</title></head> 
<body> 
HTML 

$filepath = $ENV{'PATH_TRANSLATED'}; 
open FILE, $filepath or die $!; 
my @lines = <FILE>; 
while (my $line = <FILE>) 
{ 
    print $_; 
} 

print <<HTML; 
</body> 
</html> 
HTML

EDIT: Taint Überprüfung, auf die Warnungen drehen und strenge verwenden, sind gute Praxis, um so mehr für Web-Anwendungen.

#!/usr/bin/perl -wT 
use strict;

Quelle

2010-11-28 09:22:59 Philar

Wenn Sie die Taint-Prüfung aktivieren, müssen Sie '$ ENV {'PATH_TRANSLATED'}' entstellen, bevor Sie damit eine Datei öffnen können. – cjm

Haben Sie auch brian d foy ‚s How can I troubleshoot my Perl CGI script? und mit seinen Vorschlägen gefolgt durch?

Quelle

2010-11-28 08:51:52 cjm

Für die nächste Zeit: http://stackoverflow.com/questions/2165022/how-can-i-troubleshoot-my-perl-cgi-script – daxim

@daxim, danke. Ich dachte, er hätte das nach SO geschafft, aber ich konnte es nicht finden. – cjm

Die akzeptierte Antwort funktioniert nicht aus der Box - hier ist eine leichte Variation, das tut - nur den Pfad zu file.txt einstellen:

#!/usr/bin/perl 
use CGI qw(:standard); 
print <<HTML; 
Content-type: text/html 

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> 
<html> 
<head><title>Path Translated</title></head> 
<body> 
HTML 

open FILE, "file.txt" or die "could not open filename"; 
while(<FILE>) { 
    print $_; 
} 
close FILE; 

print <<HTML; 
</body> 
</html> 
HTML

Quelle

2014-04-27 22:06:23 lawlist

Wie lese ich eine Datei auf meinem Webserver von meinem Perl-CGI-Skript und drucke dann die Daten?

Antwort

Verwandte Themen