Foro - Perl en Español

Estoy empezando con Perl pero ya estoy atascado, además de que hay algunas cosas que no sé muy bien cómo van o porqué fallan:

1-Intenté hacer un script en Windows que me copiara un directorio con todos sus datos. Instalé y compilé correctamente la extensión del CPAN, sin embargo el código parece no funcionar...



2- ¿Solo se pueden obviar los () en estas construcciones: 3+3 if 4>3;?

3- ¿Cómo puedo escribir el carácter ~?

4- Estoy intentando leer un archivo de texto con comentarios. Quiero ignorar las líneas con # al principio. Mi código es:



Y no me va.
Aunque también he probado con: /^#.*/

Por cierto, si alguien me pudiera aclarar qué hace el while <FILE> para el print(), mejor, es que no le veo el sentido, y los ().

5- Por lo que he visto el paso del _$ es automático en ciertas expresiones y contextos. Es un buen truco para ahorrar código, ¿hay más? ¿El _$ funciona independiente para cada bloque?

1- Intenté hacer un script en Windows que me copiara un directorio con todos sus datos. Instalé y compilé correctamente la extensión del CPAN, sin embargo el código parece no funcionar...

Intenta con.

- ¿Solo se pueden obviar los () en estas construcciones 3+3 if 4>3;?

De hecho Perl tiene varias formas de hacer las cosas, hay varias formas del if

3- Como puedo escribir el carácter ~.

~ en mi PC lo saco con Alt+126, pero no sé si es a eso a lo que te refieres ^^

4- Estoy intentando leer un archivo de texto con comentarios. Quiero ignorar las líneas con # al principio. Mi código es:

Bueno, lo que veo es que el código tiene algo raro; yo utilizaría if (!/^\#/) creo que se debe poner siempre \ antes de caracteres especiales a buscar en la expresión regular y el código finalmente sería algo así:

Y no me va. Aunque también he probado con: /^#.*/

Prueba con (!/^\#/)

por cierto, si alguien me pudiera aclarar qué hace el while <FILE> para el print(), mejor, es que no le veo el sentido, ¿y los ()?

Explorer te explicará mejor qué hace el <FILE>, para mi es un handler para el fichero; digamos que este contiene al fichero para que pueda puedas manipular los datos.

5-Por lo que he visto el paso del _$ es automático en ciertas expresiones y contextos. Es un buen truco para ahorrar código, ¿hay más? ¿el _$ funciona independiente para cada bloque?

Cosas lindas de Perl; dirás $_, no _$; bueno, toma el valor de la última variable leída, es supramente especial ^^ . Explorer te dará mejor explicación.

El $_ no es independiente para cada bloque... bueno, quiero decir que en cada bloque while(), for(), map() y grep() estamos haciendo uso de él de forma local, por lo que no podremos tener un valor "global" de $_, salvo si usamos la forma

my $_; # nuevo en Perl v5.10

Gracias, lo de la expresión ya me va.

Mi otra duda era con la sentencia print while <FILE>; dentro de otro while(). ¿Qué efecto tiene ese sub-while()?

Con lo de los bloques es a lo que tu te refieres. Cada for(), etc. ¿son esas 4 funciones, solo?

~ en mi PC lo saco con Alt+126, pero no sé si es a eso a lo que te refieres ^^

Era eso, pero ¿cómo escribo esto del alt 126?


Por último, el recursive copy sigue fallando.



Este es el código que uso ahora. Mire que era el tercer argumento y vi que era un buffer, he probado con o sin él, con el da errores raros.

El print() del dircopy() además da a entender que sí copia archivos:

2311Copy ok

pd: no me funciona la ruta relativa

open FILE, 'H:\aprogramacion\programacioTOTAL\llistasele\config.ini' or die $!;

Si solo pongo el nombre del archivo no lo encuentra. ¿No funciona como en otros lenguajes?

gerkrt escribiste:Mi otra duda era con la sentencia print while <FILE>; dentro de otro while(). ¿Qué efecto tiene ese sub-while()?

Pues igual que el primero: hacer un bucle por todo el fichero <FILE>, leyendo cada línea, y sacándola con el print(). En conjunto,
hace lo siguiente: va leyendo línea a línea del fichero <FILE>, y le quita el carácter de fin de línea a cada una, y no hace nada más con ella. Si la línea que está tratando no comienza por '#', volcará en pantalla el resto del fichero, por el efecto del segundo bucle(). Y terminarán los dos bucles while() (los dos marcarán como falso por haber llegado al final del fichero).

gerkrt escribiste:Con lo de los bloques es a lo que tu te refieres. Cada for(), etc. ¿son esas 4 funciones, solo?

No, en buena parte de las funciones. Más información en perlsyn, perlfunc y perlop.

Era eso, pero ¿cómo escribo esto del alt 126?

Supongamos que tienes, delante de ti, un teclado típico de PC. En él, verás que hay una tecla llamada 'Alt'. Normalmente estará a la izquierda de la barra espaciadora. Bien, ahora mantenla pulsada. Luego vas, con la otra mano, a la parte del teclado donde está el teclado numérico, y pulsas '126'. Ya puedes soltar la tecla 'Alt'. Más información en la Wikipedia. Esto no funciona en todos los sistemas operativos. En mi Linux no funciona, por ejemplo.

Hay otra alternativa, que es lo que yo uso. Mantengo pulsada la tecla 'alt gr' (la que está a la derecha de la barra de espacio) y luego pulso el '4' del teclado normal. En Linux no habría que hacer más, pero en los Windows quizás haya que pulsar, adicionalmente, la barra de espacio.

Por último, el recursive copy sigue fallando.

En Perl, es más sencillo escribir las rutas de los ficheros.
Perl ya sabe que estás en Windows, así que se puede usar '/' en lugar de '\'.

El print() del dircopy() además da a entender que sí copia archivos:

2311Copy ok

Entonces, funciona.

Todo solucionado, pues, excepto el recursive copy. Tras fijarme y testear, veo que sí copia los archivos, pero no el directorio...

¿O es que es así? ¿Lo copio con otra función?

¡Ah, sí!, se os ha pasado esto, creo:

pd: no me funciona la ruta relativa

open FILE, 'H:\aprogramacion\programacioTOTAL\llistasele\config.ini' or die $!;

Si solo pongo el nombre del archivo no lo encuentra. ¿No funciona como en otros lenguajes?

De vez en cuando, no estaría demás leerse el manual, aunque sea un poquito.

En la sección Emulating cp -rf dir1/ dir2/ explica las dos formas de funcionamiento de dircopy().

(no probado)


Ahora ya mete el directorio 'prova' dentro de 'we', junto con todos los contenidos de 'prova'.

En cuanto a
sí que se puede indicar solamente el nombre del fichero, siempre y cuando el programa se esté ejecutando en el mismo directorio de trabajo que el fichero. Si no es el mismo directorio, habrá que indicar la ruta completa, como se indica ahí, o entrar en el directorio con un chdir().

Me lo leí, y también el del dircopy(). Aunque esto se me había escapado.

Pues ya está claro. Al ser interpretado el binario que lo ejecuta está en otra carpeta, mientras que si es compilado se llama a sí mismo...

Pero bueno, esto ya me lo miraré yo. Pasa que va bien que te desatasquen un poco al principio, gracias.

Perdona, pero yo no veo nada que esté compilado... ni nada que esté interpretado

A lo que me refiero es a que si compilo un programa en C y lo ejecuto, si la ruta es relativa a la carpeta donde está el ejecutable, entonces tiene sentido.

En cambio, si interpreto un Perl la ruta relativa es donde esté el ejecutable de Perl y no el archivo de texto, ¿cierto?