Rayado con problema PERL

Question

Rayado con problema PERL

4eVaH 05 sep 2007 10:22

Chaos everywhere

3.857 mensajes
desde jul 2006
en Mas a la Izquierda.

Buenas, estoy aqui practicando 1 poco de programación perl (lo necesito para el tratamiento de expresiones regulares) y llegando al apartado de manejo de ficheros me aparece la siguiente dura...

El ejercicio en sí consiste en crear un programa [acumula.pl].

Acumula.pl suma los números de un fichero de texto.

Nota: Cada número está en una línea distinta
NOTA:La función chomp(CADENA) suprime, si existe, el último \nde CADENA

Hago lo siguiente

#acumula.pl

$entrada="acumula.in";

open(IN,$entrada) or die("No puedo abrir la entrada: $entrada");

$num;

while($linea = <IN>)
{
        $num = $num + chomp($linea);
}

print "La suma de los numeros de $entrada es $num \n";

Pero nada, por la salida solo aparece el primer número del fichero de entrada...

¿Alguien me dice que falla? llevo un buen rato probando y nada...

2 respuestas

Answer 1 · 2007-09-06T17:29:46+00:00

Utiliza chomp solo para la entrada por defecto y problema solucionado.

while ($linea = )
{
chomp;
$num = $num + $linea;
}

Saludos

!MäryKêìt 06 sep 2007 22:56 Adicta **241** mensajes desde **mar 2006** · Answer 2 · 2007-09-06T21:56:54+00:00

Me huele que estás estudiando ALFA

(ETSII de Sevilla) ¿¡No me digas que la estás estudiando para septiembre con lo fácil que es!? [tomaaa]

Salu2 y ánimo.