Estoy conociendo el Perl ya que me lo recomendaron ampliamente, pero soy totalmente nuevo en este lenguaje.
Tengo un trabajo pendiente que me ha costado resolver. El problema es el siguiente: tengo 1 archivo de texto (llamado DSK061204MEX.txt) que contiene 14 registros con la siguiente estructura:
- Código: Seleccionar todo
061204AJUSTES 00000001234567
061204INTERF 00000007895412
Ahora quiero incluir los 3 últimos caracteres del nombre del archivo al principio de cada registro es decir :
- Código: Seleccionar todo
MEX061204AJUSTES 00000001234567
MEX061204INTERF 00000007895412
Ya programé un dir a la ruta donde reside este archivo y lo dejo en otra ruta donde se guarda el dato (se preguntaran porque hago esto, es porque el nombre cambia de acuerdo a la fecha, es variable):
- Código: Seleccionar todo
DSK061204MEX.txt
Otra modificación pendiente es agregar un punto (.) a la cantidad que aparece al final del archivo, ya que no está formateado el dato y representa enteros con 2 decimales; lo que busco es esto:
- Código: Seleccionar todo
MEX061204AJUSTES 000000012345.67
MEX061204INTERF 000000078954.12
Espero haber sido claro con mi narración y gracias por las atenciones que sirvan tener con su servidor.
Saludos