HILFE!!! Wie führt man eine .pl Datei aus?
Verfasst: 23.10.2005, 18:19
Hallo,
versuche verzweifelt seit ÜBER 5 Stunden ein Programm auf meinem server zum laufen zu bekommen. Ich schätze, das mein Serverpfad falsch ist.
Habe eine Datei (pfad.pl) , mit der ich laut anbieter den richtigen serverpfad herausbekommen kann.
Meine (newbie) Frage: Wie führe ich denn diese .pl datei aus. Brauch ich da ein programm oder einfach über den browser den Pfad eigeben?
In der pfad.pl seht das drin:
#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "Der Pfad zu den HTML-Dokumenten ist: ";
print $ENV{'DOCUMENT_ROOT'};
print '<br>';
print $ENV{'SCRIPT_NAME'};
print '<br>';
print $ENV{'PATH_INFO'};
print '<br>';
print "Der Pfad zum script lautet: ";
print $ENV{'SCRIPT_FILENAME'};
print '<br>';
$Teststr = &PrintVariables(*ENV);
print "$Teststr";
print "Die IP-Nummer ist: ";
print $ENV{'REMOTE_ADDR'};
sub PrintVariables {
local (*in) = @_ if @_ == 1;
local (%in) = @_ if @_ > 1;
local ($out, $key, $output);
$output = "\n<dl compact>\n";
foreach $key (sort keys(%in)) {
foreach (split("\0", $in{$key})) {
($out = $_) =~ s/\n/<br>\n/g;
$output .= "<dt><b>$key</b>\n <dd>:<i>$out</i>:<br>\n";
}
}
$output .= "</dl>\n";
return $output;
}
exit (0);
Ich verzweifle, habe mich schon wundprobiert
... kann jemand helfen, wie ich die verdammte datei ausführten kann, damit es mir den Pfad anzeigt.
(Mein Host hat mir den serverpfad genannt, funkt nicht. Auch alle rechte sind richtig gesetzt funkt nicht.)
Danke
doc
versuche verzweifelt seit ÜBER 5 Stunden ein Programm auf meinem server zum laufen zu bekommen. Ich schätze, das mein Serverpfad falsch ist.
Habe eine Datei (pfad.pl) , mit der ich laut anbieter den richtigen serverpfad herausbekommen kann.
Meine (newbie) Frage: Wie führe ich denn diese .pl datei aus. Brauch ich da ein programm oder einfach über den browser den Pfad eigeben?
In der pfad.pl seht das drin:
#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "Der Pfad zu den HTML-Dokumenten ist: ";
print $ENV{'DOCUMENT_ROOT'};
print '<br>';
print $ENV{'SCRIPT_NAME'};
print '<br>';
print $ENV{'PATH_INFO'};
print '<br>';
print "Der Pfad zum script lautet: ";
print $ENV{'SCRIPT_FILENAME'};
print '<br>';
$Teststr = &PrintVariables(*ENV);
print "$Teststr";
print "Die IP-Nummer ist: ";
print $ENV{'REMOTE_ADDR'};
sub PrintVariables {
local (*in) = @_ if @_ == 1;
local (%in) = @_ if @_ > 1;
local ($out, $key, $output);
$output = "\n<dl compact>\n";
foreach $key (sort keys(%in)) {
foreach (split("\0", $in{$key})) {
($out = $_) =~ s/\n/<br>\n/g;
$output .= "<dt><b>$key</b>\n <dd>:<i>$out</i>:<br>\n";
}
}
$output .= "</dl>\n";
return $output;
}
exit (0);
Ich verzweifle, habe mich schon wundprobiert

(Mein Host hat mir den serverpfad genannt, funkt nicht. Auch alle rechte sind richtig gesetzt funkt nicht.)
Danke
doc