Discussion :

[tizef]

Salut,

Djibril je vais essayer ton script, mais pour le moment je pige pas grand chose, mais je veux apprendre, mais par rapport au bash ca en fait du code !!!
merci

[tizef]

essai concluant, j'ai remplacé la variable $mon_dir par mon repertoire "media"

reponse

repertoire vide:

/media/hdd
/media/hdb

repertoire avec fichier:

media/hdb/essai.tgz

c'est tout bon, reste plus cas lancer la commande pour detarer le tgz comment ?

merci

[djibril]

tu veux detarer tous les fichier tar qu'il trouve?

[tizef]

mon il y a un 1fichier.tgz dans 1 des 2 repertoires trouvés

[djibril]

remplace

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
 
sub verification { 
    my $dir = shift; 
    my $mon_rep = shift; 
    my $file = shift; 
    my $repertoire = "$mon_rep/$dir"; 
     if ( -d $repertoire && $repertoire !~ /^\.*$/) { 
       if ( $repertoire =~ /$file/i) { 
    print "repertoire : $repertoire\n"; 
       } 
       &premier_repertoire($repertoire, $file); 
     } 
     if ( -e "$mon_rep/$dir" && -f "$mon_rep/$dir") { 
         my $nom_fichier = $dir; 
   if ($nom_fichier =~ /$file/i) { 
       print "$mon_rep/$dir"."\n";       #on peut recuperer le fichier pour autre traitement 
        } 
     }  
}

par

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
 
sub verification { 
    my ($dir, $mon_rep, $file) = @_;
    my $repertoire = "$mon_rep/$dir";
     if ( -d $repertoire && $repertoire !~ /^\.*$/) {
       if ( $repertoire =~ /$file/i) { 
	 print "repertoire : $repertoire\n";
       }
       &premier_repertoire($repertoire, $file);
     }
     if ( -e "$mon_rep/$dir" && -f "$mon_rep/$dir") { 
      	my $nom_fichier = $dir;
	if ($nom_fichier =~ /$file/i) {
	  my $address_file = "$mon_rep/$dir";
  	  print $address_file."\n";    	#on peut recuperer le fichier pour autre traitement
  	  system ("tar xvfz $address_file -C /target") if ($address_file =~ /\.tgz$/);
     	}
     }  
}

tu pourras ainsi detarer tous les fichiers targz trouvés

[tizef]

peut on afficher un message pendant le detarage

[djibril]

affiché un message? c'est à dire?

[tizef]

Bravoooooo, ca fonctionne impec
pour le message c'est n'a rein a voir je me plante
quand je le lance le script sur une console je vois la reponse, peut ton comme dans bash renvoyer
vers /dev/null

[djibril]

peut ton comme dans bash renvoyer
vers /dev/null

c'est à dire?

[tizef]

ne pas voir les messages
repertoire : /media/hdd
repertoire : /media/hdb
/media/hdb/essai.tgz

[djibril]

bah .... il suffit de pas printer!!!!
exple;

Code :

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

 print "repertoire : $repertoire\n";

remplacé par:

Code :

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

# print "repertoire : $repertoire\n";

[tizef]

Merci Djibril

pour bien essayer il faut que je le fasse chez moi, donc je te tiens au courant dans la journéé
j'ai quand meme un petit doute au sujet de mon script!

mon script commence par
use strict;
use warnings;
my $g;
my $etc

donc ton morceau je le rajoute au dessus du mien, ya pas de probleme ?

[djibril]

mon script commence par
use strict;
use warnings;
my $g;
my $etc;

Bon un conseil va lire de la doc, car j'ai l'impression qu'il te manque des bases.

Code :

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

1
2
use strict;
use warning;

Ils servent à vérifier la syntaxe de ton programme perl et la déclaration correcte de tes variables. Ils se trouvent toujours en début de ton programme
La declaration de tes variables

Code :

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

1
2
my $g; 
my $etc;

tu le met où tu veux, tu les organises comme tu veux du moment que tu les déclare avant de les utiliser.
Regarde des exemples de codes sur le forum.

[tizef]

C'est vrai qu'il me manque des bases j'ai jamais touché a perl
Bon je vais apprendre

en tout cas Merci Djibril

@+

[djibril]

met un tag resolu s'il te plait
en bas de ta page à gauche tu click dessus

[tizef]

Bon je viens d'essayer en vrai, et ca fonctionne

Merci encore Djibril

@+