Foro - Perl en Español

por **Norther** » 2007-11-10 10:52 @494

Buenas, estoy intentando hacer un programa muy sencillo que lea líneas en un fichero buscando emails, y en caso de encontrar uno lea la siguiente línea para ver si contiene un 1 (enviado) o un 0 (no enviado), pero no consigo hacer un simple salto de línea; este es el programa que tengo hasta el momento:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl 

$Lista='C:\Documents and Settings\Usuario Autorizado\Escritorio\invitation.txt';
$Lista2='C:\Documents and Settings\Usuario Autorizado\Escritorio\invitationnueva.txt';

print"Empezando programa\n";
open(FILE,$Lista)||die"No se puede abrir el archivo\n";

while(<FILE>){
if($_=~'@'){
if(($_+1)=~'0'){

                        alasaca($_);
}
}
}
close(FILE);

sub alasaca 
{
open(FILE2,">>$Lista2")||die"No se puede abrir el archivo\n";
print FILE2 "$_[0]\n";
close(FILE2);
}Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

Y el problema es que al hacer $_ + 1 estoy haciendo que $_ sea igual a 1 en vez de hacer que salte a la siguiente línea.

Muchas gracias por la ayuda.

#!/usr/bin/perl 

$Lista='C:\Documents and Settings\Usuario Autorizado\Escritorio\invitation.txt';
$Lista2='C:\Documents and Settings\Usuario Autorizado\Escritorio\invitationnueva.txt';

print"Empezando programa\n";
open(FILE,$Lista)||die"No se puede abrir el archivo\n";

while(<FILE>){
if($_=~'@'){
<FILE>;
printf$_;
if($_=~'1'){

                        alasaca($_);
}
}
}


sub alasaca 
{
open(FILE2,">>$Lista2")||die"No se puede abrir el archivo\n";
print FILE2 "$_[0]\n";
close(FILE2);
}Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Y el $_ no me avanzó ninguna línea.

por **creating021** » 2007-11-10 15:10 @674

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if($_=~m/^\w+@[a-zA-Z0-9]\.\w+/){
print$_,"\n";
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

O algo así, pero no creo que algo como

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if($_=~'@'){...}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Sirva para lo que quieres... perldoc perlregex:
http://perldoc.perl.org/perlrequick.html

por **explorer** » 2007-11-10 16:07 @713

Norther tenía razón. Cometí un fallo. Ya está arreglado en mi anterior comentario. Había que hacer bien la lectura de la línea.

Y en cuanto a creating021, sí que se puede hacer una comparación con

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if($_=~'@'){...}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

aunque yo preferiría hacerlo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if(/@/){...}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Norther** » 2007-11-11 01:10 @090

Muchas gracias por las respuestas, funciono perfectamente, ahora solo tengo un problema, os dejo el código actual y os explico:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl 

$Lista='C:\Documents and Settings\Usuario Autorizado\Escritorio\invitation.txt';
$Lista2='C:\Documents and Settings\Usuario Autorizado\Escritorio\invitationnueva.txt';

print"Empezando programa\n";
open(FILE,$Lista)||die"No se puede abrir el archivo\n";
while(<FILE>){
if($_=~'@'){
$we=<FILE>;
$wa=<FILE>;
if($we!=~"1"){
if($wo!=~"1"){

                                alasaca($_);
}
}
}
}


sub alasaca 
{
open(FILE2,">>$Lista2")||die"No se puede abrir el archivo\n";
print FILE2 "$_[0]\n";
close(FILE2);
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Pues bien lo que quiero ahora (antes estaba equivocado) es mirar si aparece un 1 en las dos siguientes lineas a la encontrada con @, y de no ser asi que me la envíe a la función alasaca().

Con el código que puse arriba funciona menos por un detalle, al hacer $variable = <FILE>; lee la siguiente línea perfectamente, pero cuando vuelve al bucle while ya considera esa linea leída, y se la salta, y en el archivo que tengo a veces esta en formato

email
enviado=0
sent=0
email
enviado=1
email
etc

Por lo que al considerar esa línea y saltarsela en el bucle puede estar saltandose una línea vital con @. Dicha esta parrafada, tengo alguna forma de hacer que lea las dos líneas siguientes como hasta ahora, pero que en el bucle continue desde la ultima leida en el bucle en si (el while)?

Muchas gracias de nuevo

por **explorer** » 2007-11-11 07:51 @368

Creo que lo más fácil es que te leas todo el fichero, línea a linea, en un array. Así, jugando con los índices, podrás ir hacia adelante y hacia atrás.

O usar un tie. O un autómata de estados. O...

por **Norther** » 2007-11-11 13:23 @599

Voy a ver si como algo y pruebo con un array

Luego comento cómo me fue.

por **Norther** » 2007-11-11 14:22 @640

Llevo un rato ya probando (me confundo todo el tiempo por que intento hacerlo como lo haria en C) y al final así es como me quedo el código que sigue sin funcionar, os pongo el código y los errores que me dio a ver que se os ocurre por que la verdad ya no se que mas intentar para solucionar dichos errores.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl 

my@datos;

my$Lista='C:\Documents and Settings\Usuario Autorizado\Escritorio\invitation.txt';
my$Lista2='C:\Documents and Settings\Usuario Autorizado\Escritorio\invitationnueva.txt';

open(FILE,$Lista)||die"No se puede abrir el archivo\n";
@datos=<FILE>;

for($i=0;$i<=@datos;$i++){
if(@datos($i)=~'@'){
if(@datos($i+1)=~'claimed')&&if(@datos($i+2)=~'claimed) {

                        alasaca(@datos($i));

                }

        }

}

print "terminado\n";

sub alasaca 

{

open(FILE2, ">>$Lista2") || die "No se puede abrir el archivo\n";

print FILE2 "$_[0]\n";

close (FILE2);

} Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Errores:

Código: Seleccionar todo: syntax error at je.pl line 12, near "@datos(" Can't find string terminator """" anywhere before EOF at je.pl line 13.

Muchas gracias

por **explorer** » 2007-11-11 14:35 @649

Falta una comilla en 'claimed'.

Foro - Perl en Español

Saltar a la siguiente línea

Saltar a la siguiente línea

Publicidad

¿Quién está conectado?