Discussion :

[mobscene]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

J'ai testé cette méthode

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
sub bureautique
{
 my $fichier = shift;
 my $cmp = join("", @list),
 my $reponse = $fichier <=> $cmp;
 return $reponse;
}

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[nematoad]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
    my $fichier = 'toto.html';
    if( internet($fichier) ) {
        ....
    }

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

N