Hallo,
ich versuche mich jetzt seit ~3 Tagen in Perl und bin grade dabei für meinen Server ein Script zu schreiben, welches 3-4 php-files auf Existenz überprüfen soll :)Per Google habe ich gefunden wie man den Header auslesen kann, ich hab das "umgecoded", aber das geht nicht :(
Ich habe die Veriablen $url und $dir ...
my $agent = LWP::UserAgent->new();
my $request = HTTP::Request->new('index.php' => $url);
my $response = $agent->request($request);
print $response->{_headers}->{server}, "\n";
In diesem Fall möchte ich, dass "index.php" gecheckt wird.
Im Moment kommt die Meldung: "Use of uninitialized value in print at E:\Programmieren\Perl\test017.pl line 49."
Am besten wäre es, wenn das file quasi "angepingt" werden würde und dann ein positiver oder negativer Wert in die Variable $file01 o.ä. gespeichert werden würde. Anschliessend würde ich gerne je nachdem ob vorhanden
Index.php: vorhanden
oder
Index.php: nicht vorhanden
ausgeben lassen.
Wie kann ich von extern testen, ob die php-files verfügbar sind und wie kann ich die als 'vorhanden' oder als 'nicht vorhanden' ausgeben lassen? Evtl. per If und Else ?
Vielen Dank für hilfreiche Antworten :)
mfg, kiefer
Datum: 24.01.2008-17:20
PHP files überprüfen?!
