Recherche:

Avec encodage de départ et d'arrivée paramétrables :


#! /usr/bin/perl
use strict;
use warnings;


## Initialisations

S'il s'agit seulement de compter le nombre de lignes, il est préférable de slurper le fichier puis d'utiliser l'opérateur tr// pour compter le nombre de fin de ligne, c'est plus rapide parce que perl...

Notez bien que les snippets sont censés être utiles, pas de simples exercices de programmation : le code ci-dessus n'a donc pas vraiment sa place ici car find ou le module correspondant fait la même...

Un idiome pratique pour ignorer des valeurs dans une affectation :


my (undef, $seconde_valeur, undef, $quatrieme_valeur) = @tableau ;

:D

--
Jedaï