indietro

Un modo efficente ed elegante è quello di contare i caratteri di ritorno a capo nel file. Il seguente programma usa una caratteristica di tr///, come viene documentata in perlop. Se le righe del vostro file di testo non terminano con il ritorno a capo, il file non è propriamente un file di testo, quindi il programma potrebbe restiruire meno righe di quello che vi aspettereste.

    $linee = 0;
    open(FILE, $nomefile) or die "Non posso aprire '$nomefile': $!";
    while(sysread FILE, $buffer, 4096) {
        $linee += ($buffer =~ tr/\n//);
    }
    close FILE;

Questo presuppone che non si facciano giochetti con l'uso di tr sul ritorno a capo.

vedi in inglese