Nathanel2

Danke! Es funktioniert! Du hast mir sehr geholfen (ich habe bevor ich das hier schrieb schon 6 h lang nach dem Fehler gesucht)! Kann geclosed werden. mfg Nathanel2

Hallo und danke für deine Antwort baba007! Stimmt...den Bug hatte ich ja schon mal... Hier ist eine überarbeitete Version, die aber auch nicht funktioniert: #!/usr/bin/perl use locale; %Ausfuerer = ("Adresse", "keine Angabe"); print "Bitte einen gültigen Term angeben!\n"; $Ausfuerer{"Adresse"} = <STDIN>; #Variable eingeben lassen while ($Ausfuerer{"Addresse"} !~ /[^@]/){ #wiederhohlte Aufforderung, bis der Term passt. print "Bitte einen gültigen Term angeben!\n"; $Ausfuerer{"Adresse"} = <STDIN>;#Variable eingeben lassen }Jetzt akzeptiert das Programm den Term nie, egal,ob ein @ entahlten ist oder nicht. mfg Nathanel2

Ich habe ein Perlprogramm geschrieben, aber es funktioniert nicht so wie es soll. #!/usr/bin/perl use locale; %Ausfuerer = ("Adresse", "keine Angabe"); print "Bitte einen gültigen Term angeben!\n"; $Ausfuerer{"Adresse"} = <STDIN>; #Variable eingeben lassen while ($Ausfuerer{"Addresse"} =~ /[^@]/){ #wiederhohlte Aufforderung, bis der Term passt. print "Bitte einen gültigen Term angeben!\n"; $Ausfuerer{"Adresse"} = <STDIN>;#Variable eingeben lassen }Dieses Programm soll solange nach einen gültigen Term, der ein @ enthält verlangen bis es eingegeben wurde, doch er akzeptiert jeden Term. Danke schon mal für die Hilfe! mfg Nathanel2