First page Back Continue Last page Overview Graphics
Perl 6: espressioni regolari
Perl5
if($line =~ m/
(\d\d) \/ ([a-z]{3}) \/ (\d{4})
: (\d\d) : (\d\d) : (\d\d)
\s ((?:\+|-)\d{4})
/ix) { ... }
Perl6
if($line ~~ m:i/
(\d\d) \/ (<[a-z]><3>) \/ (\d<4>)
\: (\d\d) \: (\d\d) \: (\d\d)
\s ( [<'+'>|<'-'>] \d<4> )
/) { ... }
Notes:
Ed ecco come si scrive in Perl6. Non ci sono grandissimi cambiamenti, se non che:
- /x è il default
- {3} diventa <3>
- le classi [a-z] diventano <[a-z]>
- (?:...) diventa [...]