Foro - Perl en Español

por **Eowyn** » 2013-02-26 06:32 @313

Hola,

estoy intentando instalar el módulo File::Copy en Debian pero no me deja. De hecho ya tengo problemas con la instalación de CPAN, porque a pesar de seguir los pasos de los tutoriales no parece instalarse bien. ¿Podría alguien por favor decirme desde el principio qué debo hacer?

Estoy siguiendo esto: http://rm-rf.es/como-instalar-modulos-de-perl-via-cpan/ pero ya sólo al escribir la primera línea no me sale nada igual a lo que se supone que debería salir.

Gracias.

Es muy extraño eso que dices... File::Copy debería estar instalado de base con Debian...

Comprueba a ver si ya está instalado:

perl -MFile::Copy -e 1

Si no sale errores, es que sí está instalado.

En Debian, hay un montón de paquetes de CPAN que ya están debianizados, por lo que no necesitas instalarlos desde CPAN.

En concreto, para instalar el File::Copy, te vale ejecutar esto como root:

apt-get install libfile-copy-perl

pero... no te va a funcionar por lo dicho antes: File::Copy ya está instalado de base con el paquete perl, en Debian. No existe como paquete libfile-copy-perl.

Mejor dicho: Debian tiene ese módulo y todos los principales en un paquete llamado perl-modules. Así que deberías entonces instalarlo con

apt-get install perl-modules

pero... debería estar ya instalado. Dudo mucho que un sistema Debian no funciona sin él.

Hace poco pusimos un tutorial en el foro de Formación: Instalación de módulos y bibliotecas en Perl

por **Eowyn** » 2013-02-27 04:58 @249

Vale, vale. Gracias.

Parece que eso en concreto está bien y he cometido un tremendo error.

Es que pretendo meter un archivo de texto mediante el teclado, guardar ese archivo y copiarlo entonces en otra variable. Me da error en el copy pero debe ser porque ni siquiera guarda el archivo en la variable.

por **explorer** » 2013-02-27 06:13 @300

Sin ver el código, es difícil de decir.

por **Eowyn** » 2013-02-27 06:26 @310

Aquí va:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use File::Copy;
 
print ("introducir nombre de archivo: \n");
my $fitxategia = <STDIN>;
open (FITX, $fitxategia) or die "Error";
while (my $line=<FITX>)
{
        print FITX $line;
}
close(FITX);
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2013-02-27 06:55 @330

A ver... esto es un lío...

declaras que quieres usar File::Copy en la línea 4, pero luego no lo usas en ninguna parte del programa
en la línea 8 abres un archivo en modo lectura, lo cual está bien porque luego lo vas a leer, línea a línea, pero en la línea 11, quieres escribir esas líneas en ese mismo manejador de archivos.

Eso no puede funcionar:

si el manejador FITX está abierto en modo de lectura, no puedes escribir en él, salvo que uses las marcas especiales de lectura/escritura simultánea en el open() (ver perldoc -f open)
no es recomendable leer y escribir en el mismo archivo, salvo que tengamos muy claro dónde lo estamos haciendo: si leemos una línea, el puntero de lectura/escritura se mueve al principio de la línea siguiente, por lo que si ahora mandamos escribir, lo hará sobre esa línea, no sobre la anterior.

Lo que realmente quieres hacer es:

abrir el archivo en modo lectura (open)
hacer un bucle por todas las líneas (while)
ir almacenando las líneas en una única variable ($archivo .= $linea)
después del bucle, ya tienes en $archivo todo el archivo

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
 
print ("Introducir nombre de archivo: ");
my $fitxategia = <STDIN>;
chomp $fitxategia;                   # quitamos carácter de nueva de línea
 
my $archivo;
open (FITX, $fitxategia) or die "Error: no puedo leer el archivo: $!\n";
while (my $line = <FITX>)
{
    $archivo .= $line;               # forma abreviada de "$archivo = $archivo . $line"
}
close(FITX);
# aquí ya tenemos el archivo en $archivo
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Otra forma más abreviada de hacerlo: decirle a Perl que no queremos hacer operaciones de lectura línea a línea, sino todo el archivo de golpe:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use autodie;                         # "Es mejor morir que regresar con deshonor. -Proverbio Klingon"
 
print ("Introducir nombre de archivo: ");
my $fitxategia = <STDIN>;
 
my $archivo;
open(my $FITX, $fitxategia);
{
    local $/;                        # activamos modo aspiradora
    $archivo = <$FITX>;              # ¡ssshhhuuuuup!
}
close $FITX;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

(ejemplo sacado de perldoc perlvar, sección Variables related to filehandles)

por **Eowyn** » 2013-02-28 16:38 @735

Muchísimas gracias. Tienes una paciencia increíble. Gracias.

Foro - Perl en Español

File::Copy

File::Copy

Publicidad

Re: File::Copy

Re: File::Copy

Re: File::Copy

Re: File::Copy

Re: File::Copy

Re: File::Copy

¿Quién está conectado?