HTMLpointHTMLpoint HTMLpoint.com


 F.A.Q. su PERL


20. ¿Se puede contar el número de líneas presentes en un archivo para evitar que éste crezca demasiado?


Claro que sí, pero recordad que el número de líneas de un archivo no indica nunca las dimensiones: un archivo de 1000 líneas puede ser mucho más pequeño que uno con una sola.

En cualquier caso, para hacerlo hay que contar el número de caracteres de newline presentes en el archivo:

$lines = 0;
open(FILE, $filename) || die "Imposible abrir `$filename': $!";
while (sysread FILE, $buffer, 4096) {
$lines += ($buffer =~ tr/\n//);
}
close FILE;


[ Índice ]     [ Siguiente ]
  Vuelve a principio de página