nicht angemeldet
hi Christoph
ich habe mir das hier gebastelt und es funk bei mir :-))
ich habe versucht die erste if abfrage druch zuersetzen:
$begriff ? $text = "$begriff existiert in folgenden Dateien" : $text = "Formular wurde leer gelassen";
hat aber leider nicht gefunk. :-((
#!D:\Perl\bin\perl.exe
use strict;
use CGI::Carp qw(fatalsToBrowser);
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 $begriff="mal";
#my $begriff="mall";
my $string="Hallo erstmal Schoenes WE";
my $text;
if($begriff){
$text = "$begriff existiert in folgenden Dateien";
}
else{
$text = "Formular wurde leer gelassen";
}
if (!($string =~ /$begriff/)) {
$text ="$begriff konnte nirgends gefunden werden";
}
print $text;
print "</body></html>\n";
bis bis roman