nicht angemeldet
Hallo Jörk, liebe Forumer,
---zum Testen---
Vergleiche....
$var = @ARGV[0]; # 0 oder 1 eingeben
if ($var){
$text = "a";
$text2 = "Auto";
}
else{
$text = "aAAab=C";
$text2 = "a+B=c";
}
print "---mein Vorschlag----\n";
if( $text =~ /$text2/i){print "Gleich\n";} else{print "Nicht gleich!\n";}
print "---calocybes Vorschlag---\n";
if( $text =~ /^$text2$/i){ print "Gleich\n";}else{print "Nicht gleich!\n";}
print "-----joerks Vorschlag-----\n";
if( $text =~ /^\Q$text2\E$/i){ print "Gleich\n";} else{print "nicht gleich\n";}
print "---Franks Vorschlag----\n ";
if (lc $text eq lc $text2) { print "gleich"; } else{print "Nicht gleich!\n";}
---ende---
Also Deine (Jörk) und Franks Lösung sind OK.
Meine Hausaufgaben werd ich machen :-)
Literatur:
http://www.phy.uni-bayreuth.de/~btpa25/perl/perl_inhalt.html
Herzliche Grüße an Alle und ein schönes Wochenende, Rolf