Travailler de façon vague et imprécise

Perl, comme tous les languages, est précis. Il fait ce qu'on lui demande, ni plus, ni moins. Pourtant, il est possible de rendre Perl vague et imprécis dans sa façon de de travailler, Perl va alors traiter seulement certaines entrées d'un tableau, lancer une fonction si cela lui chante et ne pas le faire.

Pour cela, on va utiliser le module vague . Ce module propose un grand nombre de fonctions, toutes ont des noms inquiétants pour le développeur : generally , most of ou encore almost .

use vague;

my @var = qw ( 1 2 3 4 5 6 7 8 9 0 );
my @some = some of @var;
my @most = most of @var;

&print_array(@some);
print "--\n";
&print_array(@most);

sub print_array {
        foreach my $list(@_) {
                print $list ."\n";
        }
}