[PERL] cosa fa questo codice?

[Dark867]

Ciao, premetto che non so nulla di perl (nè sono particolarmente interessato a saperne..-.-), tuttavia devo usare uno script scritto in questo linguaggio e bene o male tramite internet sono riuscito a capirlo a grandi linee, tranne questa parte:

while($var1 =~ m/[^:]+:\s+(\d+)/g) { 		
push @vararr, $1; 	}

Da quel che ho capito cerca una stringa che è in un certo formato e, se lo è, mette qualcosa in coda all'array...la stringa di formato in esame però è per me puro arabo! Mi dite se quel che ho detto è corretto e mi fate un'esempio di stringa che rispetta quel formato?

[jarm]

Ciao, spero possa esserti d'aiuto.

Dunque vediamo...

m/[^:]+:\s+(\d+)/g

si puo tradurre in:

m/exp/g esegui il match in modo global (tutte le occorrenze nella riga terminata da una newline "\n")

[^:]+ fai il match di uno o piu' caratteri che non siano ':'

: fai il match di un singolo ':'

\s+ fai il match di uno o piu' caratteri whitespace

(\d+) fai il match di uno o piu' caratteri numerici. In piu' le parentesi indicano di conservare
il risultato del match (la stringa matchata) in $1, che verra' usata: 'push @vararr, $1;'.

Perdonami se non sono stato abbastanza esaustivo, spero possa aiutare.

Ciao

[Dark867]

In effetti non ci ho capito molto...mica mi puoi fare un esempio pratico? Prendi una stringa che rispetta quel format e mi dici che cosa salvo.

[jarm]

Okay, beh in pratica quella espressione regolare farebbe il match di stringhe come:

'foo1000: 123451'

oppure

'213d: 234234'

oppure

'1d: 23'

Edit: Salvi l'ultima parte, quella numerica (dopo gli spazi centrali).

[Dark867]

Quindi una stringa in cui a sinistra c'è un una cifra alfanumerica e a destra un numero?

[jarm]

Si esatto.

[Dark867]

Grazie mille mi 6 stato di grande aiuto!