nicht angemeldet
hi Christoph,
ich habe mich heute noch mal kurz mit der abfrage beschäfftigt und hier ist mal mein einzeiler :-)) (der übersichtlichkeit halber habe ich den einzeiler aus kommentiert und auf mehrere zeilen verteilt)
ich begine diese abfrageart zulieben in perl und JS kann ich damit gut "zaubern".
bis bis roman
--
P.S. manchmal wundere ich mich schon über die postings (fragen u. antworten) die man hier geboten bekommt(meine eigenen [leider] mit eingenommen)
=> ich denke mir meinen teil und ziehe das beste daraus :-)
#!perl.exe # man lernt ja nie aus :-)
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 $string="Hallo erstmal bis bis";
my $text;
#$begriff?($string=~/$begriff/?($text="$begriff existiert in folgenden Dateien"):($text ="$begriff konnte nirgends gefunden werden")):($text="Formular wurde leer gelassen");
$begriff?
($string=~/$begriff/?
($text="$begriff existiert in folgenden Dateien")
:
($text ="$begriff konnte nirgends gefunden werden"))
:
($text="Formular wurde leer gelassen");
print $text;
print "</body></html>\n";
P.S. manchmal wundere ich mich schon über die postings (fragen u. antworten) die man hier geboten bekommt(meine eigenen [leider] mit eingenommen)
=> ich denke mir meinen teil und ziehe das beste daraus :-)
#!perl.exe # man lernt ja nie aus :-)
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 $string="Hallo erstmal bis bis";
my $text;
#$begriff?($string=~/$begriff/?($text="$begriff existiert in folgenden Dateien"):($text ="$begriff konnte nirgends gefunden werden")):($text="Formular wurde leer gelassen");
$begriff?
($string=~/$begriff/?
($text="$begriff existiert in folgenden Dateien")
:
($text ="$begriff konnte nirgends gefunden werden"))
:
($text="Formular wurde leer gelassen");
print $text;
print "</body></html>\n";