Opened by perlbeg at 2007-05-30 22:12
User since
2006-06-28
14 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-06-28
14 Artikel
BenutzerIn
Hallo,
mein Perl-Programm läuft im Internet, nicht jedoch auf meinem lokalen Apache-System.
Ich habe inzwischen die neueste Apache-Version eingespielt, aber es hat sich nichts getan.
An der unten im Programm markierten Stelle wird laufend ein weiteres perl.exe gestartet (bis ich abbreche oder der Speicher überläuft), allerdings nur, wenn die Datei "nichtda.inc" nicht vorhanden ist.
Ist sie vorhanden, läuft das Programm korrekt. Ist die URL http://www.example.com nicht vorhanden, so läuft es ebenfalls richtig (und bringt die erwartete Fehlermeldung).
---
Modedit Gwendragon: Code-Tags eingefügt; Link verbessert
---\n\n
<!--EDIT|GwenDragon|1180553850-->
mein Perl-Programm läuft im Internet, nicht jedoch auf meinem lokalen Apache-System.
Ich habe inzwischen die neueste Apache-Version eingespielt, aber es hat sich nichts getan.
An der unten im Programm markierten Stelle wird laufend ein weiteres perl.exe gestartet (bis ich abbreche oder der Speicher überläuft), allerdings nur, wenn die Datei "nichtda.inc" nicht vorhanden ist.
Ist sie vorhanden, läuft das Programm korrekt. Ist die URL http://www.example.com nicht vorhanden, so läuft es ebenfalls richtig (und bringt die erwartete Fehlermeldung).
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
# .........
my $url = "http://www.example.com/nichtda.inc";
my $agent = LWP::UserAgent->new();
my $req = HTTP::Request->new("GET" => $url); # neuer Request
my $res = $agent->request($req); # Bei diesem Befehl hakt es
my $seite = $res->content();
if ( $res->is_success() )
{
print $seite;
}
else
{
print qq(kein Zugriff auf Seite "$url");
}
}
---
Modedit Gwendragon: Code-Tags eingefügt; Link verbessert
---\n\n
<!--EDIT|GwenDragon|1180553850-->