Bonjour à tous,

Je dois actuellement reprendre un code déjà existant en perl et quelques lignes me posent des problèmes...

sub Header {

my ($v,$fichier,$clef)= @_;
my $header = $clef."_profile.header";
my $ch = "!(/^\\($v/ .. /^\\)/)";
system (" perl -ne 'print if $ch' $fichier > $header");
}
Je dois préciser que $v est un fichier comportant une suite de nombres.

Pouvez-vous m'éclairer sur la signification de la ligne en rouge et m'expliquer un peu chaque terme?

Et est ce que if (@champ == 2) correspond à verifier si le tableau champ est de taille 2?

Merci beaucoup