[bcn-pm] Expresiones regulares.

["Juan J. Merelo Guervós"]

TooManySecrets wrote:

>Buenas.
>
>Como buen "algo" que no llega ni a neófito con Perl, me encuentro con un
>problema que me gustaría poder solucionar con "éste nuestro lenguaje".
>Para ello, necesito realizar una búsqueda sobre un archivo, linea por
>linea, pero que en lugar de leer de izquierda a derecha, lo haga al
>revés; de derecha a izquierda.
>
>Mirando con perldoc en el perlrequick, y el perlre, veo que (según me
>parece a mí), se trata de poner el símbolo "$" en la cadena (/$), osea,
>algo así como:
>
>($pass, $login, $direc, $ape, $nom) = ($linea =~/*/$)
>
>Espero me perdoneis si estoy diciendo un disparate, pero... parto, no de
>cero, sino de cero absoluto... :-/
>
>Gracias!!
>
>  
>

No lo había visto nunca, la verdad; $ me suena que es para indicar final 
de cadena o de línea. De todas formas, siempre puedes imvertir la cadena:

  DB<1> $kk = 'estoesunacadena'
 
  DB<2> print join( "", reverse split(//,$kk))
anedacanuseotse

y aplicar la expresión regular sobre la cadena invertida.

JJ