Discussion :

[Greg01]

Bonjour,

Je débute en perl et je m'amuse à faire quelques prog sous WinXP. Et il y a un truc qui m'embête, c'est que unlink cause beaucoup trop !
Comment faire pour que unlink n'affiche pas de message dans la console DOS ? j'ai des messages du style :

unlink rep1/rep2/monficher.txt

Merci !

[GLDavid]

Peux-tu nous montrer la portin de code de ton unlink ainsi que la version d'Active Perl ?

@ ++

[Greg01]

Le code (trouvé sur le forum ;-)) :

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
19
20
21
22
23
sub effaceContenuRep    { 
 
    my $rep = shift @_; 
    my (@fichiers,$fic); 
 
    opendir(DIR,$rep) || return("Impossible d'ouvrir $rep\n");        
    @fichiers = readdir(DIR); 
    closedir(DIR); 
 
    foreach $fic (@fichiers) { 
 
        if (($fic ne ".") && ($fic ne "..")) { 
 
            if (-d "$rep/$fic") { 
                rmtree(["$rep/$fic"], 1, 1); 
            } 
            else { 
                unlink("$rep/$fic") || return("Impossible d'effacer $rep/$fic\n"); 
            } 
        } 
    } 
    return ''; 
}

Et pour ActivePerl : ActivePerl-5.8.4.810-MSWin32-x86.msi

Voilà !

[GLDavid]

Salut !

Bon, je viens de faire un premier essai sous Linux, ton code marche et ne m'a rien dit. Je vais essayer tout à l'heure sous Win avec un ActivePerl 5.6. Je te tiens au courant.

@ ++

[GLDavid]

Salut !

Sur mon ActivePerl 5.6, j'ai testé ton code ainsi :

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
19
20
21
22
23
24
25
26
27
 
sub effaceContenuRep    {
 
    my $rep = shift @_;
    my (@fichiers,$fic);
 
    opendir(DIR,$rep) || return("Impossible d'ouvrir $rep\n");       
    @fichiers = readdir(DIR);
    closedir(DIR);
 
    foreach $fic (@fichiers) {
 
        if (($fic ne ".") && ($fic ne "..")) {
 
            if (-d "$rep/$fic") {
                rmtree(["$rep/$fic"], 1, 1);
            }
            else {
                unlink("$rep/$fic") || return("Impossible d'effacer $rep/$fic\n");
            }
        }
    }
    return '';
}
 
$reponse = &effaceContenuRep("C:\\Temp");
printf("%s", $reponse);

Et franchement, il ne m'a rien dit. Toutefois, j'ai vu des choses bizarres sur d'autres scripts que je suis passé du 5.6 à 5.8.

@ ++

[Greg01]

Ok, je vais essayer avec la version 5.6 pour voir.

Merci de ton aide !