Perl:RegExp

Fra CodeWiki

Regular expressions, regeluttrykk, er bygd inn i Perl som en integrert del av språket.

I Perl kan regexp brukes i vilkår, lagres i variabler, sendes som argument til funksjoner, de kan defineres ferdig under programmeringen eller de kan bygges dynamsik under kjøring.

my $aarstid = qr{ (Høst|Vinter|Vår|Sommer)(en)? }i;
if ( 'I løpet av sommeren 2008' =~ $aarstid ) {
   print "Fant: $1 \n";
}

Regeluttrykk blir fort så komplekse at det er behov for å sette dem opp strukturert og med kommentarer. Du kan gjøre det slik:

my $aarstid = qr{ 
                  (Høst|Vinter|Vår|Sommer) # en av Høst, Vinter, ...
                  (en)?                    # eventuelt i bestemt form
                }xi;                       # uansett store/små(i), tillat kommentarer(x)
if ( 'I løpet av sommeren 2008' =~ $aarstid ) {
   print "Fant: $1 \n";
}