Perl et trie

J'ai un ti probleme avec les trie :oops: , j'ai un hash

Code:

---

1 2 3 4 5 6

%fichiers = (     file => [ "supuer cool.doc", "rapport.html" ]   );

---

Je voudrais les envoyé chaque type de fichiers vers un programme dédié je voudrais utiliser un trie mais j'ai quelque problème avec :cry:

Code:

---

1 2	@list = qw( .doc, .ppt); @list2 = qw( .html .aspx);

---

J'ai testé cette méthode

Code:

---

1 2 3 4 5 6 7

sub bureautique { my $fichier = shift; my $cmp = join("", @list), my $reponse = $fichier <=> $cmp; return $reponse; }

---

Code:

---

1 2 3 4 5 6 7

sub internet { my $fichier1 = shift; my $cmp1 = join("", @list2), my $reponse1 = $fichier1 <=> $cmp1; return $reponse1; }

---

Le problème c'est que sa ne marche pas comme je voudrais , car le trie me renvoie 0 que sa corresponde ou pas :twisted:

Je ne vois pas ce que trier pourrait te donner ici. Il vaut mieux utiliser des hashes, pour tester la présence de l'extension en question. Quelque chose comme:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

{ my %bureautique = map { ($_, 1) } qw(.doc .ppt); sub bureautique { my ($ext) = ($_[0] =~ /(\..*?)$/); return exists $bureautique{$ext} ? 1 : 0; } }   { my %internet = map { ($_, 1) } qw(.html .aspx); sub internet { my ($ext) = ($_[0] =~ /(\..*?)$/); return exists $internet{$ext} ? 1 : 0; } }

---

Il suffira alors de dire :

Code:

---

1 2 3 4 5

my $fichier = 'toto.html'; if( internet($fichier) ) { .... }

---

Attention, pas de virgules dans les qw()...

N