[perl] espressioni regolari

[higor]

Ciao a tutti,

stavo facendo unop sriptino quando sono incappato in un problemuccio con le espressioni regolari, ho una stringa e devo confrontarla con una cosa del tipo: tutto esclusa la stringa o tutto esclusa una coppia di numeri.
Per farlo con un solo numero uso:

[^0-9]*

ma se devo prendere tutto quello che non è una coppia di numeri o adiruttura una stringa del tipo " [A-Z]{2} " come facio?

Grazie

[Mich_]

In qualche caso conviene invertire il test, cioe` negare tutto il test, anziche` i singoli caratteri:
esempio:
if(str ~= /[^0-9]/)
e` equivalente a:
if(! str ~= /[0-9]/)

Comunque la risposta puntuale alla domanda e`:
/[^0-9]{2}/
cioe` due caratteri che NON sono numerici.
Equivalente anche a:
/\D{2}/


PS: se ti serve una discussione piu` concreta, posta l'esempio della stringa che deve passare e che deve fallire il test.

[crystal82]

Ciao, mi attacco qui perchè l'argomento è lo stesso!

Io ho una lista di parole così:

la la PQFS-----------
scoperta scoperto A-FS-----------
delle di E-FX-----------
bellezze bellezza S-FX-----------
culturali culturale A-NX-----------

e con una espressione regolare devo ottenere una cosa del tipo:

la_PQFS
scoperto_A-FS
di_E-FX
bellezza_S-FX
culturale_A-NX

in pratica devo ottenere una lista con la seconda parola undersore e la terza parola... Avete qualche idea di come si possa fare?

Grazie!

[shishii]

$str =~ /\b(\w+)\b(\w+)\b(\w{4})/;

$risultato = $2."_".$3;