Foro - Perl en Español

por **ricky_jr** » 2009-08-20 15:32 @689

GRACIAS. ESTUVO bien LO QUE PUSIERON. ME SIRVIÓ MUCHÍSIMO. SÍ SALE Y LE ENTENDÍ... GRACIAS A TODOS.

haaaa Solo otra cosita más: ya lo hice y apliqué otras cositas para que quede bien pero no entiendo algo. La parte del while() porque tuve que ponerlo para que funcionara y el que ustedes colocaron no lo tenía y creo que tengo una teoría, no sé si esté bien, por el arreglo @linea=split;. Bueno, espero me puedan explicar, gracias.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl 
 
$file='/cliente/serverconfesp';
open(FILE,"$file") or $msg = "File error";
while(<FILE>) {
    @linea=split;
    $sharp = "$linea[0]"; # esto es porque el # estaba al principio...
    if (($sharp!~/\#/) && ($sharp==/^\n/))    # no imprime los saltos de línea 
    {
        print "$_";
    }
}  
close (FILE);
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **Leo_Gutierrez** » 2009-08-20 23:04 @003

No dices bien qué es lo que hay que hacer con tu código.
Prueba así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
my $file= 'file.txt';
open(FILE,"<$file") or die("File error\n");;
while(<FILE>)
{
if((!/\#/) && (!/^\n/))
{
print;
}
}
close (FILE);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2009-08-21 05:23 @266

ricky_jr escribiste:La parte del while() porque tuve que ponerlo para que funcionara y el que ustedes colocaron no lo tenía

No puse while() porque no me hizo falta para leer todas las líneas del fichero que cumplían con la condición. Las tengo almacenadas en @fichero.

El split() es para dividir un cadena de caracteres por un cierto separador.

Ejemplo: si tenemos $x = "Hola:qué:tal:estás", podemos hacer @y = split ":", $x; y @y contendrá 4 elementos, cada uno de los cuales será cada palabra de $x que estaban separadas por ':'.

Foro - Perl en Español

Sacar información de un archivo

Re: Sacar información de un archivo

Publicidad

Re: Sacar información de un archivo

Re: Sacar información de un archivo

Re: Sacar información de un archivo

¿Quién está conectado?