Limpiar Cadenas

[MeXiCaN]

Hola tengo este código:

#! C:\strawberry\perl\bin\perl.exe

sub limpiar_contenido{
local (*cadena) = @_;
substr($cadena,24); #Corto la linea a partir del caracter 24
if ($cadena == "comparacion") # si la cadena es igual a comparación no devuelvo nada
{
return;
}
else
{
$cadena >> "fichero salida"; #si la cadena es diferenta a comparación la añado en un fichero de salida.
}
return;
}

my $file = "fichero a abrir";
open(ENTRADA, "<$file") || die "no se puede abrir el archivo\n";
while ($linea =<ENTRADA>) {
limpiar_contenido(*linea);
}
close(DATA);

Sin embargo no hace nada y tampoco me da ningún tipo de error. ¿Alguien ve el error? (Soy novato con perl)

Saludos y gracias.

[jferrero]

El operador '>>' es propia del C++, no de Perl.

[abcdefghi]

La verdad que tampoco te va a funcionar esa cosa que hiciste, entre otros, para comparar cadenas, perl no utiliza == o != sino eq y ne respectivamente, probá con esto:

Código PHP:

  my $file = "fichero a abrir"; 
my $save = "fichero a guardar"; 
open(ENTRADA, "<$file") || die "$!\n"; 
open(SALIDA, ">$save") || die "$!\n"; 
while (<ENTRADA>) { 
    next if /^.{24}comparacion/o; 
    print SALIDA; 
} 
close(ENTRADA); 
close(SALIDA);  
   

[Libras]

Iniciado por jferrero

El operador '>>' es propia del C++, no de Perl.

El >> se usa para mandar la informacion al archivo pero que escriba lo nuevo al final del archivo y que la informacion que tenia el archivo siga estando disponible

Saludos!

[jferrero]

Iniciado por Libras

El >> se usa para mandar la informacion al archivo pero que escriba lo nuevo al final del archivo y que la informacion que tenia el archivo siga estando disponible

Ese significado es válido en entornos Shell, pero no en Perl, que es lo que MeXiCaN había escrito.

'>>' no es un operador para agregar al final del fichero, ni siquiera escribiéndolo como se usa en C++, si no que realiza el desplazamiento de bits dentro de un entero (igual que en el lenguaje C). Y eso, me parece, no es lo que quería hacer MeXiCaN.

Hay que prestar atención al lenguaje del que estamos hablando, solo eso.

Perl tiene estructuras de muchos lenguajes, pero "no exactamente igual".

Saludos.

[mayanmaster]

Mexican el código no está bien....

primero para comparar no se usa == en perl tal como te lo han dicho los colegas, se usa eq, equivalente a equal, igual... el otro sería ne, o not equal.... osea eq - == y ne equivale a !==

lo otro es que acá

$cadena >> "fichero salida"; #si la cadena es diferenta a comparación la añado en un fichero de salida.

debiera ir la operación para abrir, escribir y cerrar el archivo pero no la ti enes, la tienes fuera, podrías modificarlo para ponerla en ése lugar o utilizar una llamada a subrutina.

Y finalmente la parte donde "escribes" en el archivo está mal también.

my $file = "fichero a abrir";
open(ENTRADA, "<$file") || die "no se puede abrir el archivo\n";
while ($linea =<ENTRADA>) {
limpiar_contenido(*linea);
}
close(DATA);

debiera ser algo así:

open(FILE,">nombredetuarchivo");
flock(FILE,2);
print FILE "loquequieresgrabar";
close(FILE);

y listo. El > es para crear y escribir comenzando de cero. El >> hace lo mismo pero APPEND, osea que cada vez que escribes AGREGA info.

Suerte