Foro - Perl en Español

Amigos del foro, estoy adaptando un script que funciona en Linux a Windows (para que trabaje en ambos). Tengo todo ok, pero me he topado con el siguiente problema:

Dentro del script hago una llamada al sistema operativo para que ejecute convert: donde $name-$imgNo.ppm ya está creado. En Linux, ningún problema: el archivo $name-$imgNo.ppm es creado por pdftoppm que está disponible en Linux y Windows, pero con una pequeña gran diferencia: al correrlo en Linux genera:
pero al correrlo en Windows genera:Es decir, los archivos generado por Linux y Windows sólo difieren en la cantidad de ceros que agrega antes del contador $imgNo.

Aquí es donde empieza mi consulta: ¿qué línea debo agregar en la llamada de sistema, para que ignore los ceros después del segundo guion hasta que llegue al contador? Algo así:

donde $noceros$ es un comodín (no sé cuál es la manera de llamarlo) que funciona sólo si existe estos benditos ceros.

De antemano, muchas gracias.

Si pones un comodín, entonces lo será para el shell que system() va a lanzar.

En situaciones normales, valdría con un '*', pero entonces convert puede interpretarlo como que quieres realizar la conversión de múltiples ficheros. Puedes intentar con otros comodines, pero pasará lo mismo: el shell los expandirá y pasará todos los ficheros, de golpe, a convert.

Otra solución sería hacer un recorrido por el directorio, por todos los ficheros *.ppm que hay dentro del directorio:

my @ficheros_ppm = <$imageDir/*.ppm>;

y ya tenemos todos los nombres de los ficheros, en $ficheros_ppm[0], $ficheros_ppm[1], etc.

Incluso se puede hacer más restrictivo:

my @ficheros_ppm = <$imageDir/$name-tmp-*.ppm>;

Otra solución... si sabes que el comportamiento es muy distinto entre sistemas operativos, puedes preguntarle a la variable especial $^O en qué sistema estás, y mostrar un comportamiento según sea.

explorer escribiste:Otra solución sería hacer un recorrido por el directorio, por todos los ficheros *.ppm que hay dentro del directorio:
my @ficheros_ppm = $imageDir/*.ppm;
...
my @ficheros_ppm = $imageDir/$name-tmp-*.ppm;

Lo intenté, pero, me lanza el mensaje de Bareword in... (lo volveré a revisar con más calma).

explorer escribiste: Otra solución... si sabes que el comportamiento es muy distinto entre sistemas operativos, puedes preguntarle a la variable especial $^O en qué sistema estás, y mostrar un comportamiento según sea.

También lo pensé. De hecho, lo haría desde la línea de comandos batch de win32, pero tratar de renombrar de esa manera en Windows... hasta la fecha no lo he logrado (de hecho pienso que no es posible), ¿no podría renombrar los archivos name-tmp-0000$imgNo.ppm dentro del script? Si es Linux, no hará nada (ya tendrán el nombre como corresponde) Si es win32 ¿aplicaría los cambios?

Agradecido por tus comentarios, seguiré intentando.
Pablo

pablgonz escribiste:

explorer escribiste:Otra solución sería hacer un recorrido por el directorio, por todos los ficheros *.ppm que hay dentro del directorio:
my @ficheros_ppm = $imageDir/*.ppm;
...
my @ficheros_ppm = $imageDir/$name-tmp-*.ppm;

Lo intenté, pero, me lanza el mensaje de Bareword in... (lo volveré a revisar con más calma).

No has puesto los '<' y '>'.

pablgonz escribiste:

explorer escribiste: Otra solución... si sabes que el comportamiento es muy distinto entre sistemas operativos, puedes preguntarle a la variable especial $^O en qué sistema estás, y mostrar un comportamiento según sea.

También lo pensé. De hecho, lo haría desde la línea de comandos batch de win32, pero tratar de renombrar de esa manera en Windows... hasta la fecha no lo he logrado (de hecho pienso que no es posible), ¿no podría renombrar los archivos name-tmp-0000$imgNo.ppm dentro del script? Si es Linux, no hará nada (ya tendrán el nombre como corresponde) Si es win32 ¿aplicaría los cambios?

Con la función rename(), en Perl, puedes renombrar (y en algún caso, hasta mover) ficheros, aunque depende un poco del sistema operativo en que estés. Por eso, se recomienda el uso de la función move() del módulo File::Copy.

explorer escribiste:No has puesto los '<' y '>'.

¡upss!, viejas costumbres... lo borré. Ahora que ya tengo los nombres de cada archivo .ppm, ¿cómo los llamo usando system()?
no me funciona, no los llamo en forma correcta o no he capturado sus nombres o my @ficheros_ppm = $imageDir/$name-tmp-*.ppm; no guarda lo que necesito.

explorer escribiste: Con la función rename(), en Perl, puedes renombrar (y en algún caso, hasta mover) ficheros, aunque depende un poco del sistema operativo en que estés. Por eso, se recomienda el uso de la función move() del móduloFile::Copy.

El módulo File::Copy está cargado. Leí los temas http://perlenespanol.com/foro/usar-la-funcion-rename-t682.html y http://perlenespanol.com/foro/funcion-rename-regresa-error-permission-denied-t5047.html y al parecer debo abrir el directorio para luego hacer los cambios en el nombre de los benditos ficheros ppm, pero no sé cómo hacerlo.

¡Ahaaa!, explorer, ¿podrías mover el tema a http://perlenespanol.com/foro/script-perl-pst2pdf-y-pdftex-t5369.html? Al final es una duda que tengo después de modificar ese script.

Gracias por todo.
Pablo

Vamos a suponer que estamos trabajando en un directorio por encima de $imageDir.

Lo que queremos, es convertir los ficheros ppm a png.

Entonces, podemos hacer esto:

De esta manera, no nos preocupa cómo sean los nombres de los ficheros.
Simplemente, cogemos el nombre del fichero ppm, y le cambiamos la extensión

Después de darle vueltas un rato, y revisando otros post del foro, recordé algo de suma importancia... no necesito llamar a convert si estoy en Windows, solo llamo a convert dentro del script si estoy en Linux, con una variable especial, y en Linux no me da problemas...

Con renombrar a los ficheros.ppm eliminando los ceros basta, luego ocupo así evito el problema de convert, ahora solo debo renombrar todos los name-tmp-00001.ppm a name-tmp-1.ppm y se acaba el problema.

Revisaré lo que escribiste arriba y comento cómo me va.

Gracias.

Probé con la línea pero no me funcionó.

Creo que ya he acotado el problema y éste se reduce ha renombrar los archivos .ppm eliminando los ceros. Tengo dos ideas que podrían servir:
1.- Utilizar una llamada a sistema con «perl una línea» tipo: utilizando una expresión regular para cambiar los nombres, pero, no sé si va a funcionar, como está cargado File::Copy rename se comportará igual a la función en ren en Windows .
2.- Renombrar los archivos adaptando esto (es una idea adaptada de Google y el foro)
pero lo de abrir directorios está sobre mis capacidades Perl (por el momento). A mi parecer, creo que la segunda opción (más complicada) se podría adaptar a lo que necesito puesto que la llamada a system() ya no es necesaria (ya que dispongo de mogrify) para renombrar los archivos cuando estamos en win32 es la prioridad. Renombrado los archivo .ppm el problema estaría a un 99% solucionado y el script funcionará en win32 y Linux sin problemas.

Esperando sus comentarios.
Pablo

Después de leer la documentación de opendir y revisar lo que está en el foro creo tener una solución parcial a mi problema... solo necesito la expresión regular para eliminar los ceros. Va así:

Lo adapté del hilo usar-la-funcion-rename-t682.html. Ahora debo restringir rename, para que solo coja los .ppm y elimine los ceros que me dan problemas. Así como está toma el último valor de $IMGno y se los agrega a todos los ficheros .ppm, arrojando el error «Inappropriate I/O control operation».

Debo reiniciar el contador pero no sé cómo hacerlo. Lo del error creo que es por donde hago substr, no sé si es la mejor manera, pues cuando terminé el ciclo, volverá tomar el primer archivo tratará de repetir la operación.

Esperando su ayuda para eliminar los bendito ceros... se despide.
Pablo.

Creo que este es otro avance, ahora con el contador $var incluido
Pero aún me arroja el error «Inappropriate I/O control operation». En teoría debería renombrar y avanzar al siguiente archivo. La primera vez que corro el script (con el directorio de $imageDir vacío) funciona, pero si lo vuelvo a correr, vuelve renombrar los archivos que ya estaban dentro del directorio, es decir sigue el ciclo con todo lo que pille .ppm, ¿qué es lo que estoy definiendo mal? Sigo pensando que estoy capturado mal el nombre de los ficheros que deseo renombrar y como los estoy renombrando en forma cíclica, me arroja el error I/O. Si alguien puede ayudarme con este dilema, se lo agradezco.

Pablo