First page Back Continue Last page Overview Graphics
Perl 6: espressioni regolari
127.0.0.1 - - [13/Mar/2003:13:58:01 +0100] "GET / HTTP/1.1" 200 1885
Perl5
if($line =~ m/
(\d\d) \/ ([a-z]{3}) \/ (\d{4})
: (\d\d) : (\d\d) : (\d\d)
\s ((?:\+|-)\d{4})
/ix) { ... }
Notes:
Cos'è quella riga là sopra? Qualcuno forse l'avrà riconosciuta, è una riga di log di apache. E la regexp perl5 sotto cerca una data formattata secondo come apache scrive nei log.