nicht angemeldet
hi Christoph
dank dir für deine Antwort (ich arbeite demnächst mit Linux und dann auch mit dem Apache 2.????).
Ich hab den Fehler gefunden. Ich hatte in einer Sub ein einzelnes " und dieses verursacht bei mir das sich perl aufhängt.
Ich habe das mal in anderen Scripten ausprobiert und dort klappt das auch (ich glaube ich kann morgen eine Kollegen ärgern ;-) ).
Warum gibt PERL keine Warnug aus?
Klappt das auch mit neueren Perlversionen? oder mit anderen OS?
__CODE__
#!perl.exe -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
" # <= Fehler!?
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">', "\n";
print "<html><head><title>Testausgabe</title>\n";
print "</head><body>\n";
my @test=("/tt/gg/tol.jpg",
"/tt/gg/tol.png",
"/tt/gg/tol.txt",
"/tt/gg/tol.gif");
print @test;
print "<br>""; # hier giibt es eine Warung aus
print "<br>";
map {/(^/.+?([^/.]+?.(jpg|png|gif)$))/ ? (
print "$2 ist eine Bilddatei. Der Path ist $1.<br>")
:-( # mal ein dummes gesicht machen :-)
print "war nichts<br>")} @test;
print "</body></html>\n";
__CODE__
bis bis roman
ss:( zu:) ls:} fo:) de:> va:) ch:] sh:( n4:° rl:( br:^ js:| ie:( fl:( mo:)
http://emmanuel.dammerer.at/selfcode.html