Foro - Perl en Español

por **Skull118** » 2013-04-18 09:15 @427

Buenos días, maestros de Perl. Hoy acudo a ustedes debido a que no he encontrado lo que necesito. Tal vez me puedan orientar de mejor manera.

Básicamente lo que necesito es saber cuándo es una línea vacía dentro de un archivo .txt. Algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

linea 1

linea 2

linea 4

linea 5

linea 6

linea 8Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Lo que necesitaría es detectar en este caso que la línea 3 y la 7 está vacía. La lectura del archivo línea por línea ya la tengo. Lo único que no he logrado hacer es detectar cuándo una línea está vacía. La linea la leo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$l=@archivo[$r]
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

He utilizado el buscador de esta página, sin resultados que me favorezca. De antemano les agradezco la ayudada.

No nos dices si las líneas que lees contienen el/los caracteres de nueva línea, o no.

Una cosa antes: lees mal las líneas. Lo correcto es así:

$l = $archivo[$r];

El signo '$' es importante, pues indica que estamos recuperando solo un elemento de dentro de @archivo.

Podrías hacer una comparación para localizar esa líneas:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if ($l eq "\n") {              # ver si la línea solo contiene el carácter de nueva línea
    ...;
}
 
if ($l eq "") {                # ver si la línea realmente no contiene nada
    ...;
}
 
if ($l =~ /^$/) {              # otra forma de comprobarlo: usamos un patrón que dice que no hay nada
    ...;                       # entre el principio (^) y el final ($) de la línea
}
 
if (length($l) == 0) {         # no hay nada de nada
    ...;
}
 
if (not length $l) {           # que no, que no hay nada...
    ...;
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Skull118** » 2013-04-18 09:42 @446

Gracias compañero, el proceso de lectura del archivo línea por línea sí me funciona, intentaré aplicar lo que me sugeriste, el proceso de lectura lo tengo de esta manera, la cual funciona como lo necesito, y de nuevo, muchas gracias.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open(A, "$na") || die "No pude leer el archivo: $!";            
  @archivo=<A>;
  for($r=1; $r<=@archivo; $r++){
        $l=@archivo[$r];
  }
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2013-04-18 09:51 @452

Pues no, está mal. Tienes que cambiar la '@' por el '$'.

Y en el bucle debes comenzar por el índice 0. Los arrays, en Perl, comienzan por el indice 0. Y por lo tanto, debes también cambiar '<=' por un '<', porque si no, estarás leyendo una línea demás. Quedaría así:
for($i = 0; $i < @archivo; $i++) {

Otra forma de leer el archivo (de las muchas que hay):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open(my $ARCHIVO, '<', $na)  or  die "No pude leer el archivo $na: $!\n";
 
while (my $linea = <$ARCHIVO>) {
    chomp $linea;                         # quitamos el carácter de nueva línea
 
    ...;                                  # procesamos la $linea
}
 
close $ARCHIVO;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Skull118** » 2013-04-18 09:55 @454

Muchas gracias, explorer. Con la expresión siguiente realicé lo que necesitaba

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open(NA "> resultado.txt");
if (not $l eq "\n"){
  print(NA "$l");
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2013-04-18 10:48 @492

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open(my $ENTRADA, '<', $na)              or  die "No pude leer el archivo $na: $!\n";
open(my $SALIDA,  '>', 'resultado.txt')  or  die "No pude escribir el resultado.txt: $!\n";
     
while (my $linea = <$ENTRADA>) {
 
    if ($linea ne "\n") {                 # si la línea es distinta de una línea vacía
        print $SALIDA $linea;             # la imprimimos
    }
}
 
close $ENTRADA;
close $SALIDA
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Esto se puede realizar incluso desde la línea de comandos:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

$ perl -n -E  'print if $_ ne "\n"' na.txt > resultado.txt
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **carlitos_30** » 2013-04-26 10:03 @460

Hola.

Hay que considerar que a lo mejor la línea tiene espacios (" "), también.

¿Entonces no quedaría mejor usando expresiones regulares?

m/^\s*$/ :idea:

por **explorer** » 2013-04-26 13:59 @624

Según el título de este hilo (línea en blanco), sí, habría que contemplar esa posibilidad.

Pero en el primer mensaje, Skull118 habla de línea vacía, así que eso es lo que he tomado en cuenta...

Realmente, esas líneas no están vacías del todo, sino que, como mínimo, contendrán el carácter o caracteres de nueva línea.

por **pvaldes** » 2013-04-28 05:23 @266

Alternativamente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if (/^\s?$/){
             print "aquí hay una línea vacía (o con espacios únicamente)";
             }
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Es algo más portátil porque no todos los sistemas operativos usan el "\n".

por **explorer** » 2013-04-28 06:42 @321

pvaldes escribiste:Es algo más portátil porque no todos los sistemas operativos usan el "\n".

Perl sabe lo que significa "\n" en cada sistema operativo, así que es perfectamente válido usarlo en un programa, sin importar en qué sistema operativo estés.

Extraído de perlport:

PROBLEMAS
Nuevas líneas
En la mayor parte de los sistemas operativos, las líneas en los archivos terminan con caracteres de nueva línea. Lo que se define como "nueva línea" es lo que varía entre los sistemas. Tradicionalmente, en Unix se usa "\012", en los sistemas de la familia DOS se usa "\015\012", y el Mac OS usa "\015".

Perl usa "\n" para representar la nueva línea "lógica", donde lo que significa lógica puede depender de la plataforma que se esté usando. En MacPerl, "\n" siempre significa "\015". En los perl de los sistemas DOS, "\n" normalmente significa "\012", pero cuando se accede a un archivo en modo "texto", perl usa la capa ":crlf" que lo traduce a (o desde) "\015\012", dependiendo de si está leyendo o escribiendo. Unix hace lo mismo en las tty en modo canónico.

...

Foro - Perl en Español

Cómo detectar una línea en blanco

Cómo detectar una línea en blanco

Publicidad

Re: Cómo detectar una línea en blanco

Re: Cómo detectar una línea en blanco

Re: Cómo detectar una línea en blanco

Re: Cómo detectar una línea en blanco

Re: Cómo detectar una línea en blanco

Re: Cómo detectar una línea en blanco

Re: Cómo detectar una línea en blanco

Re: Cómo detectar una línea en blanco

Re: Cómo detectar una línea en blanco

¿Quién está conectado?