Prendre le premier élément d'un tableau

Utiliser la fonction shift :

#!/usr/local/bin/perl

use strict;

my @tab = qw(un deux);

foreach my $tmp(@tab)
{
	print "$tmp\n";
}

shift(@tab);

foreach my $tmp(@tab)
{
	print "$tmp\n";
}

Dans l'exemple ci-dessus, on voit qu'en prenant la fonction shift a pris la première valeur du tableau et l'a supprimé. La fonction shift retourne la valeur prise dans le tableau.

Plus de documentation :

• perldoc -f shift