Suche nach Zahlen

[ziegenmelker]

moin, moin,

kann mir jemand ein Beispiel geben, wie folgendes komfortabler geschrieben werden kann?

my $nmb="11";

if($nmb=~/^1$|^4$|^8$|^12$/) {
   print "Zahl ist 1, 4, 8 oder 12\n";
}
else {
   print "Zahl ist nicht 1, 4, 8 oder 12\n";
}

print $nmb=~/^1$|^4$|^8$|^12$/? "Zahl ist 1, 4, 8 oder 12\n":"Zahl ist nicht 1, 4, 8 oder 12\n"

Ist es das was Du suchst?
Achte darauf, alles gehört in eine Zeile.

cu,
ziegenmelker