Foro - Perl en Español

por **ausias** » 2008-05-13 09:09 @423

Hola

¿Sabéis si hay alguna función de Perl que nos diga el número de líneas que tiene un fichero .txt pasado como argumento?

Por ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$numerolineas= numero_de_lineas('fichero.txt')Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Si el fichero tuviera, por ejemplo 251 líneas, la variable $numerolineas valdría 251.

Muchas gracias

#!/bin/perl

use strict;

our$count=1;

sub print_LOG {
my$message=$_[0];
print($message);
$count+=($message=~tr/\n/\n/);
}

print"===================\n";


print_LOG("prova\n");

print_LOG("a 2u hf\n\n");

print_LOG("mes\n");

print"\n";
print"===================\n";
print"Te $count linies\n";

exit0Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Gracias a todos:)
Por mi puede cerrarse el hilo.

Foro - Perl en Español

Número de líneas de un fichero .txt

Número de líneas de un fichero .txt

Publicidad

¿Quién está conectado?