First page Back Continue Last page Overview Graphics

Perl 6: espressioni regolari

Perl6
rule date :i {
(\d\d) \/ (<[a-z]><3>) \/ (\d<4>)
\: (\d\d) \: (\d\d) \: (\d\d)
<sp> ( [<'+'>|<'-'>] \d<4> )
};
if($line ~~ /<date>/) { ... }

Notes:

Le regexp diventano “rule”, oggetti di prima classe come le funzioni (e la sintassi è simile alle sub)