Foro - Perl en Español

Hola de nuevo,
Muchas Gracias por el código.

Desearía hacer otra pregunta: en el archivo yo tengo la línea siguiente, en el archivo fuente:

Código: Seleccionar todo

OD.W.x      2.0

pero en el archivo final ella debe cuadriplicarse y pasar a ser:

Código: Seleccionar todo

OD.W.1      2.0
OD.W.2      2.0
OD.W.3      2.0
OD.W.4      2.0

pero no sé cómo programar eso en Perl.

¿Cuál es la instrucción que me permite copiar y pegar?

Muchas Gracias de antemano.

Podrías copiar y pegar usando expresiones regulares. Pero creo que es más fácil hacerlo así: quitamos la parte final de ese campo y luego hacemos un bucle que vaya colocando números consecutivos:

Sale:

Código: Seleccionar todo

OD.W.1     2.0
OD.W.2     2.0
OD.W.3     2.0
OD.W.4     2.0

Lo que hace la expresión regular es quitarle, al primer campo, toda (+) su parte final ($) que no sea un punto ([^.]).

Naturalmente, esta es una de las múltiples soluciones al problema. Seguro que hay más.