Perl/Espressioni regolari (contesto)
Contesto modifica
Finora abbiamo visto l'operazione di match "fine a se stessa" cioè atta ad individuare se una certa stringa "corrisponde o no" a certi criteri.
Tuttavia se l'espressione regolare invece che in un contesto scalare ( all'interno di un if vuol dire "true" o "false" ) la si assegna ad un array , tutti i valori corrispondenti vengono assegnati all'array (in un'unica istruzione !). Vediamo questo esempio :
$stringa = "questo testo è composto di parole";
@parole = $stringa =~ /([^\s]+)/g;
print "la frase è composta dalle parole:\n";
print join("\n" , @parole)."\n";
che produce:
la frase è composta dalle parole:
questo
testo
è
composto
di
parole
NOTA : si è usato [^\s] al posto di \w perché i caratteri accentati non rientrano fra i caratteri "a-zA-Z_0-9".
Vediamo questo altro esempio :
$data = "2007/03/27";
($anno , $mese, $giorno) = $data =~ m%(\d+)/(\d\d)/(\d\d)%g;
print "la data è composta da:\n";
print join("\n" , $anno , $mese , $giorno)."\n";
che produce:
la data è composta da: 2007 03 27
Scorciatoie (lettera in fondo) modifica
Vediamo aggiungendo una (o più) lettera in fondo alla sintassi /<espressione regolare>/ che possibilità offrono in più le espressioni regolari.
Non fermarti alla prima occorrenza modifica
Con la lettera "g" si intende di non fermarsi alla prima occorrenza ma di cercare per tutta la "stringa".
Vediamo questo esempio :
$data = "2007/03/27;2006/02/26";
@el = $data =~ m%(\d{4,4})/(\d\d)/(\d\d)%g;
print "I dati raccolti :\n";
print join( "\n" , @el )."\n";
che produce:
I dati raccolti : 2007 03 27 2006 02 26