Foro - Perl en Español

por **gerkrt** » 2010-11-22 21:56 @956

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...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use warnings;
use strict;
use File::Copy::Recursive;
 
 
my $file1='C:\Users\we\Documents\dosprog\';
my $file2='C:\Users\we\';
File::Copy::Recursive::dircopy $file1, $file2 or die "Copy failed: $!";
print 'Copy ok';
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

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:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

while (<FILE>) {
        chomp;
        if (! /^#/)  {
                print "$_" while <FILE>;
                }
                
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

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?

use File::Copy::Recursive qw(fcopy rcopy dircopy fmove rmove dirmove);
 
  dircopy($orig,$new[,$buf]) or die $!;
 
my $file1='C:\Users\we\Documents\dosprog\';
my $file2='C:\Users\we\';
  dircopy($file1, $file2) or die "Copy failed: $!";
print 'Copy ok';
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

- ¿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

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print"gato"if 4 >3;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

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í:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

while (<FILE>) {
        chomp;
        if (! /^\#/)  {
                print "$_" while <FILE>;
                }
                
} 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

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.

por **explorer** » 2010-11-23 07:21 @348

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

while(<FILE>){# Mientras no lleguemos al final del fichero, leemos una línea

nextif/^#/;# Saltar a la siguiente línea si la actual es un comentario

print;# Pintamos la línea
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

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

por **gerkrt** » 2010-11-23 16:20 @722

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.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use File::Copy::Recursive qw(fcopy rcopy dircopy fmove rmove dirmove);
my $orig='F:\prova\\';
my $new='C:\\Users\\we\\';
my $buf=2000;
  print (dircopy($orig,$new) or die $!);
 
my $file1='C:\\Users\\we\\Documents\\dosprog\\';
my $file2='C:\\Users\\we\\';
  print dircopy($file1, $file2) or die "Copy failed: $!";
print 'Copy ok';
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

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?

por **explorer** » 2010-11-23 17:37 @775

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,

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

while(<FILE>){
chomp;
if(!/^#/){
print"$_"while<FILE>;
}
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

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.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use File::Copy::Recursive 'dircopy';
my $orig = 'F:/prova/';
my $new  = 'C:/Users/we/';
my $n    = dircopy($orig,$new) or die "ERROR: $!\n";
print "$n\n";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

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.

por **gerkrt** » 2010-11-24 21:16 @928

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?

por **explorer** » 2010-11-25 05:50 @285

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)

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use File::Copy::Recursive 'dircopy';
my $orig = 'F:/prova';
my $new  = 'C:/Users/we';
 
mkdir $new; # Primero hay que asegurarse que el directorio destino existe
 
$File::Copy::Recursive::CPRFComp = 1;   # activamos compatibilidad con cp -rf
 
my $n = dircopy($orig,$new) or die "ERROR: $!\n";
print "$n\n";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

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

En cuanto a

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open FILE,'H:\aprogramacion\programacioTOTAL\llistasele\config.ini'ordie$!;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

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().

por **gerkrt** » 2010-11-25 08:42 @404

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.

por **explorer** » 2010-11-25 12:13 @551

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

por **gerkrt** » 2010-11-25 15:09 @673

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?

Foro - Perl en Español

[RESUELTO]Varias dudas de novato

[RESUELTO]Varias dudas de novato

Publicidad

Re: Varias dudas de novato

Re: Varias dudas de novato

Re: Varias dudas de novato

Re: Varias dudas de novato

Re: Varias dudas de novato

Re: Varias dudas de novato

Re: Varias dudas de novato

Re: [RESUELTO]Varias dudas de novato

Re: [RESUELTO]Varias dudas de novato

¿Quién está conectado?