[linux] Perl version match string

[Peter Viskup]

Zdravím vás,
vie mi niekto vysvetliť toto správanie? Jediný rozdiel je poradie
"\d._-" vs. "\d.-_" v match reťazci.

viskup at debian:~$ ./match.pl 8.15.0_2-3
Matched version for 8.15.0_2-3
Matched optional version for 8.15.0_2-3
viskup at debian:~$ ./match.pl 8.15.0-2_3
Matched version for 8.15.0-2_3
Matched optional version for 8.15.0-2_3
viskup at debian:~$ grep print match.pl
print "Matched version for $version\n" if $version =~ m/^[\d._-]+$/;
print "Matched optional version for $version\n" if $version =~ m/^([\d._-]+)?$/;

viskup at debian:~$ ./match.pl 8.15.0_2-3
viskup at debian:~$ ./match.pl 8.15.0-2_3
viskup at debian:~$ grep print match.pl
print "Matched version for $version\n" if $version =~ m/^[\d.-_]+$/;
print "Matched optional version for $version\n" if $version =~ m/^([\d.-_]+)?$/;

Vďaka.

-- 
Peter Viskup