Foro - Perl en Español

Perfecto, esta opción es bastante cómoda, por decirlo de alguna manera, en un script.

Ahora tengo un último inconveniente: tenía la función renaming() y todo iba bien hasta que añadí la opción --force. Para trabajar en Linux ya lo resolví, pero en Windows me falla
porque ahora se generan dos tipos de archivos:
y no doy con el cambio en la línea para que solo capture test1-tmp- e ignore lo que va después. Una última ayuda con esto para cerrar (en forma definitiva) el tema.

Saludos,
Pablo

En el código que pones, no estás usando la captura $1 en ninguna parte, solo la $2.

Si sólo quieres capturar el número que está delante de .ppm, solo necesitas poner

/(\d+)\.ppm/

explorer escribiste:En el código que pones, no estás usando la captura $1 en ninguna parte, solo la $2.

Upss, tienes razón, publiqué una prueba que estaba haciendo... pero cambiando la línea a no funcionará en algunas ocasiones, me explico: los ficheros que quiero renombrar pueden tener las siguientes formas:
o o

explorer escribiste:Si solo quieres capturar el número que está delante de .ppm, solo necesitas poner
/(\d+)\.ppm/

Revisé perlretut.html#Extracting-matches pero no logro dar con la línea correcta.

Lo que deseo hacer es lo siguiente: si tengo un fichero con este nombre quiero dividirlo de la siguiente forma: en $1 guardar test-tmp- (donde test puede incluir números, espacio en blanco, _ o - y -tmp- ); en $2 guardar cambio (donde cambio puede tener cualquiera de las tres formas que muestro arriba) de forma más simple en $1 guardar $name-tmp- y en $2 guardar (cambio).ppm. En mi lógica debería funcionar, pero, sólo he tenido intentos fallidos.

Gracias por la pronta respuesta.
Pablo

Cambié las líneas a esto: y funciona de maravilla, no estoy seguro de que sea la mejor forma, pero, funciona.
Sólo me queda una pregunta y doy el asunto por cerrado, la opción -force del script genera todo lo que necesito, pero, me percato de lo siguiente: al usar -force crea y procesa una imagen extra, es decir si el script sin -force genera 4 imágenes, con -force creará 5, donde la imagen 4 y la 5 son iguales, esto no afecta el proceso ni el archivo final, sólo hace trabajo extra y por aprendizaje y curiosidad me gustaría saber porqué pasa esto.

Agradecido de los comentarios y ayuda brindada,
Pablo

pablgonz escribiste:no estoy seguro de que sea la mejor forma, pero, funciona.

Con el siguiente programa
Sale:

pablgonz escribiste:Sólo me queda una pregunta y doy el asunto por cerrado,

Lo dudo

pablgonz escribiste:al usar -force crea y procesa una imagen extra, es decir si el script sin -force genera 4 imágenes, con -force creará 5. Esto no afecta el proceso ni el archivo final, sólo hace trabajo extra y por aprendizaje y curiosidad me gustaría saber porqué pasa esto.

Tendrás que preguntárselo al programa... es decir, hacer una traza de sus operaciones. Lo puedes hacer con el truco del print() comentado antes.

explorer escribiste:

pablgonz escribiste:Sólo me queda una pregunta y doy el asunto por cerrado,

Lo dudo

jeje, tienes razón.

explorer escribiste:Tendrás que preguntárselo al programa... es decir, hacer una traza de sus operaciones. Lo puedes hacer con el truco del print() comentado antes.

Lo resolví, desde la última vez que escribí a la fecha, tenía un sub runFORCE(); extra (por eso generaba +1 ficheros).

Muchas gracias por la ayuda, aprender Perl del modo difícil (ensayo y error o sólo con tutoriales) es un poco complicado, sumado a eso las desventajas que tiene trabajar en Win32 para esto (con gedit y una consola se simplifica la vida por kilos), veré si me consigo un buen libro con algún amigo de la universidad para este verano, en todo caso, Perl está muy bien documentado, pero en español, solo este foro tiene la ayuda necesaria para un novato.

Sin más que desear una feliz navidad a todos, se despide,
Pablo.

Te olvidas de mencionar la traducción de la documentación de perldoc al español, que se coloca en CPAN como POD2::ES, aunque está un poco retrasado con respecto a la documentación que ya tenemos traducida.

P.D. PERL no existe. Se dice Perl o perl. Más información en la sección Nombre de la página Perl de la Wikipedia.

Tienes razón, es más, al actualizar a OpenSuse 12.1 me percaté que los warnings y demás, estaban en español, a diferencia de mi versión de Perl (ahora escrito de forma correcta) en Win32 (ActivePerl).

explorer escribiste:P.D. PERL no existe. Se dice Perl o perl. Más información en la sección Nombre de la página Perl de la Wikipedia.

La ortografía de PERL en mayúsculas es por eso usada como jerga para detectar a individuos ajenos a la comunidad. Sin embargo, se han sugerido varios retroacrónimos, incluyendo el cómico Pathologically Eclectic Rubbish Lister (Contabilizador de Basura Patológicamente Ecléctico).

lo tendré presente para la próxima

¿Puedes poner un ejemplo de warning de Perl, en español?

¿Qué versión de Perl es?

Upsss , warning no, de error sí. Me enredo entre lo que arroja Perl y lo que arroja cada sistema (en Win32 y OpenSuse 11.1 sistemas en español, lo da en inglés).