Programmazione  »  Guide  »  Guida Perl 

Le espressioni regolari sono una sorta di linguaggio interno al perl, ma non solo (ad esempio si ritrovano in comandi come grep, sed awk). Comunque, non ci sono 2 programmi che hanno a che fare con le espressioni regolari le interpretano allo stesso modo.

Possiamo trovare le espressioni regolari racchiuse tra slash (/), sebbene questa sia più una convenzione che una regola, è comune infatti che non siano delimitate da caratteri oppure che siano racchiuse tra | o # o qualche altro carattere, per evitare di mettere il simbolo \ davanti a tutti i / in regexp.

Un'espressione regolare definisce un pattern che verrà cercato. Nelle espressioni regolari, i caratteri alfanumerici (dalla a alla z, dalla A alla Z, da 0 a 9 e _ ) hanno corrispondenza univoca, mentre altri caratteri hanno caratteristiche speciali.

Caratteri speciali

Un carattere backslash (\) seguito da un carattere non alfanumerico corrisponde esattamente a quel carattere; in particolare, \\ corrisponde a \.

Altri caratteri speciali sono quelli che delimitano l'espressione con l'inizio e la fine del testo

Qualche esempio chiarirà un po' le cose:

Quindi per cercare un carattere speciale (o, se volete, riservato) bisogna chiarire tramite il simbolo \ che si ricerca proprio quel carattere, e non il suo valore. E la stessa cosa per la ricerca con grep ma anche con editor (vi, ad esempio)

Ecco qualche altro esempio:

Altri caratteri speciali sono:

Ecco alcuni modi per applicarli:

Campi di ricerca e parentesi quadre

Se inseriamo tra parentesi quadre alcuni caratteri, indichiamo che ciascuno di quei caratteri può essere riconosciuto dall'espressione:

[caratteri] -- cerca ogni carattere che sia tra [ ]

Inoltre, un campo di ricerca può essere specificato con - , ad esempio [a-m] riconosce le lettere tra la a e la m.

Se il primo carattere tra parentesi quadre è ^, il significato è rovesciato (negato), e verrà cercato tutto ciò che NON è quello che è compreso tra [ ]

Quantificatori

I quantificatori determinano il numero minimo e massimo di volte che un determinato elemento deve ricorrere consecutivamente:

Ecco gli esempi:

Guardiamo questa espressione:

/^([^@ t]+@[^@ t])+s+([-.0-9]+)$/

Corrisponde ad una riga che inizia con un numero diverso da 0 di caratteri che non sono né @ né spazi né tabulazioni, poi una @, poi altri caratteri che non sono @ né spazi né tabulazioni, poi alcuni spazi e tabulazioni, poi qualsiasi mistura di '-', '.' e cifra. In parole povere, qualcosa di simile ad un indirizzo e-mail seguito da spazi e qualcosa che si può ragionevolmente pensare come un numero! In parole ancora più povere, una volta capito come funzionano le espressioni regolari, è più facile scriverle che spiegarle.

/^s*(d+).(d+).(d+).(d+)s*$/

Questo invece potrebbe corrispondere ad un indirizzo IP.

Sub-pattern e sostituzioni

Se il pattern ha dei sub-pattern, compresi tra parentesi tonde (), questi sono assegnati a variabili numerate, $1 per la prima, $2 per la seconda etc.

Riprendendo l'esempio dell'indirizzo IP abbiamo che:

"129.199.129.13" =~ /^s*(d+).(d+).(d+).(d+)s*$/;

$1 è 129, $2 è 199, $3 è 129, $4 è 13

Un pattern con sostituzione è scritto nella forma:

$variabile =~ s/pattern/replacement/;

Il pattern è sempre un'espressione regolare, ed il replacement è una normale stringa, tranne per il fatto che possiamo inserire al suo interno le variabili.

Nella maggior parte dei casi, si può aggiungere il carattere 'g' dopo il replacement, in modo che le parole che corrispondono al pattern siano tutte cambiate, non solo la prima.

$waitops{$c} =~ s/:${oldnick}:/:${newnick}:/g

La funzione split

Le espressioni regolari lavorano con la funzione split di perl, che prende come argomento un'espressione regolare , una variabile scalare e, volendo, un secondo scalare che specifica il numero massimo di campi in cui splittare il pattern.

@array = split(/pattern/, expression);

Nel caso più tipico, si può voler splittare una linea in parole, come segue:

@words = split(/s+/, $some_line);  
# se $some_line era "a b c", ora @words è ("a", "b", "c")

oppure

($val1, $val2) = split(/s+/, $whatever);
# assenga a $val1 il primo valore di $whatever e a $val2 il secondo
# Eventuali altri valori (terzo, quarto ecc.) vengono scartati

Altri articoli

Altre guide

Altre newsletter