• Publicidad

Mejorar funciones de leer archivos

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Mejorar funciones de leer archivos

Notapor BigBear » 2013-12-17 16:44 @739

Hola, tengo esta función para leer archivos en una variable string final pero quería preguntaros por qué no anda bien o cómo podía hacerlo más fácil.

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. print savewords("test.txt");
  2.  
  3. sub savewords {
  4.     my @words;
  5.     my $r;
  6.     open( FILE, $_[0] );
  7.  
  8.     @words = <FILE>;
  9.     close FILE;
  10.  
  11.     for (@words) {
  12.         $r .= $r + $_;
  13.     }
  14.  
  15.     return ($r);
  16. }
  17.  
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4


¿ Alguien me puede ayudar ?
Última edición por explorer el 2013-12-17 16:51 @743, editado 1 vez en total
Razón: Formateado de código con Perltidy
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818

Publicidad

Re: Mejorar funciones de leer archivos

Notapor explorer » 2013-12-17 16:54 @746

Perdón, pero no acabo de ver claro lo que quieres hacer.

Según el código, por cada línea, concatenas lo que había antes con el resultado de la suma numérica de lo que había antes más el valor de la línea actual.

Humm... me suena que algo está mal.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Mejorar funciones de leer archivos

Notapor BigBear » 2013-12-17 16:55 @746

Resumiendo, necesito una función que capture todo el contenido de un archivo de texto en una variable string.
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818

Re: Mejorar funciones de leer archivos

Notapor explorer » 2013-12-17 17:44 @780

Activando el modo aspiradora, como se puede ver en alguna de mis últimas respuestas.

Otra opción es usar File::Slurp, desde luego.

Finalmente, recordar que en Perl no existen las variables de "tipo string". Solo hay escalares, array o hash.

Más información en tu propio ordenador en perldoc perldata, y en la Web (traducido al español).
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Mejorar funciones de leer archivos

Notapor BigBear » 2013-12-17 17:53 @786

No conocía el método aspiradora. Gracias por la ayuda.
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818

Re: Mejorar funciones de leer archivos

Notapor explorer » 2013-12-17 19:42 @863

¿No lo conocías?

Pero si te lo conté para tu proyecto Joiner... :)
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 12 invitados