Re: [PERL] Tjek for strengformat

[P <sslug@sslug>]

Christian Hemmingsen <sslug@sslug> writes:

> sig nogenlunde fornuftigt mht. locale. Det er f.eks. ikke lykkedes mig
> at matche et "å" med "\w" (?!), og "[a-å]" kan jeg heller ikke få til at
> virke.

Jeg mener at perl virker korrekt:

pma-20% LC_CTYPE=C perl -Mlocale -e'print "MATCH\n" if ("å" =~ /\w/)'
pma-20% LC_CTYPE=da_DK perl -Mlocale -e'print "MATCH\n" if ("å" =~ /\w/)'
MATCH
pma-20% LC_CTYPE=C perl -Mlocale -e'print "MATCH\n" if ("å" =~ /[[:alpha:]]/)'
pma-20% LC_CTYPE=da_DK perl -Mlocale -e'print "MATCH\n" if ("å" =~ /[[:alpha:]]/)'
MATCH
pma-20% LC_CTYPE=da_DK perl -Mlocale -e 'print "MATCH\n" if ("=" =~ /[<->]/)'  
MATCH
pma-20% LC_CTYPE=C perl -Mlocale -e 'print "MATCH\n" if ("=" =~ /[<->]/)'
MATCH
pma-20% 

Man skal skelne mellem tegnklasser og tegnrækker.

-- 
- P