Fragen? Antworten! Siehe auch: Alternativlos
Stellt sich raus, daß das Newline am Ende von dem $-Match bei perl-regexen geschluckt wird. Da muss man kein Prophet sein, um da ein schlechtes Gefühl bei zu kriegen. Vielleicht kann man damit sogar irgendwelche Webapps aufmachen.#!/usr/bin/perl
$foo = "1-2-3\n";
if ($foo =~ m/^\d-\d-\d$/) {
print "match\n";
}