Re: [PERL] "\W" og "\w"?

[Jacob Sparre Andersen <sslug@sslug>]

Peter:

> og bruger "use locale;" i perl-script'et:

Ahhh. Så Perl kan altså ikke håndtere sprog/sted-tilpasning
med mindre man indsætter et "use locale;" i sit program.

> -------------------------------------------------
> sslug@sslug:~$ echo "Eksempler: At skriver. At tænker." | perl -pe 'use
> locale; s/(\W(at|vil|ville|kan|kunne|skal|skulle|må|måtte)
> \w+)r(\W)/$1$3/gi'
> Eksempler: At skrive. At tænke.
> -------------------------------------------------

Virker også fint hos mig. Jeg har nu sat:

alias nutids-r "perl -pe 'use locale;
s/(\W(at|vil|ville|kan|kunne|skal|skulle|må|måtte)
\w+)r(\W)/"'$1$3'"/gim'"

ind i "${HOME}/.tcshrc".

> "Locale" ligner noget man skal have brug for før man gider
> sætte sig ind i det!

Man har brug for det lige så snart man skal behandle tekst
på andre sprog end engelsk og latin, men det ser da ud til
at "use locale;" typisk vil være nok til at få Perl til at
fungere som der står i brugsanvisningen.

Jacob
-- 
"simply because no one had discovered a cure for the
universe as a
 whole - or rather the only one that did exist had been
abolished"