1 2 3 4 5 6 7
#!/bin/env perl open MIOFILE, 'file_name'; while ($riga = <MIOFILE>) { $numero_righe++; } print "$numero_righe\n";