Discussion :

[tizef]

Bonjour à tous,

voila j'ai un script deja fait en perl, et je voudrais recuperer le point de montage du cdrom
qui contient des données qui doivent etre decompressées

pour le moment au debut j'ai inseré

system "tar xvfz /media/hdd/essai.tgz -C /target"

pour le moment ca fonctionne etant donner que je connais ou est mounté le cd "/media/hdd",

mais si 2 lecteurs de cdrom existe alors bien sur ya probleme bien sur!

en bash je saurais le faire mais la je bloque

quelqu'un pourrait me renseigner

merci

[djibril]

ton probleme est de savoir ou trouver tes fichiers à decompresser???

[tizef]

oui

[djibril]

voici un topic où tu trouvera comment parcourir un repertoire et sous repertoire. Ainsi, tu peux parcourir un repertoire precis afin de chercher un fichier dont tu connais biensur le nom. De là, tu pourras le decompresser.
http://www.developpez.net/forums/vie...er=asc&start=0
Si tu vux plus d'explication, pas de soucis.

[tizef]

merci djibril je vais essayer comme ca, si j'arrive pas je te relance

[tizef]

bien sur j'ai un probleme, je ne connais pas ou sera mounté le cdrom il faudrait faire un test
/media/hdd
/media/hdb
/media/hdc
/media/hde

[djibril]

tu peux mettre comme repertoire de base

Code :

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

/media

[tizef]

j'ai trouvé cela

my($repertoire) = "/media";
opendir (DIR, "$repertoire") || die ("can't open $repertoire");

mais apres

[djibril]

Bonjour à vous tous

Grâce à la suggestion et à l'initiative de 2Eurocents, j'ouvre ce post-it sur les snippets. Que sont les snippets ? Des petits morceaux de code bien astucieux qu'on utilise souvent dans nos programmes. Un exemple ? Lister dans un tableau les fichiers pl d'un répertoire :
Code:

my($repertoire) = "/path/de/mon/repertoire";
my(%mtime);
my(@ficpl);
opendir (DIR, "$repertoire") || die ("can't open $repertoire");
@ficpl = grep { /\.(pl)$/i && ($mtime{$_} = (stat ("$repertoire\\$_"))[9]);
}
readdir (DIR);
closedir DIR;
my(@ordered_pl_names) = @ficpl;


Donc, si vous désirez poster un morceau de code que vous utilisez souvent et dont vous pensez qu'il sera utile pour la communauté, n'hésitez pas !

remplace (pl) par (tgz) et test le script

[djibril]

utilise celui ci :
Lister le contenu d'un répertoire et ses sous-répertoires :
VERSION UNIX :

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
#!/usr/bin/perl 
 
use strict; 
my $nb_arg = @ARGV; 
if (($nb_arg > 1) or ($nb_arg <1)) { 
    print "\nNombre d'arguments incorrect."; 
    exit(1); 
} 
 
my $dir = $ARGV[0]; 
 
ListRep($dir); 
 
sub ListRep { 
    my ($dir) = @_; 
    if (! -e $dir ) { 
      print "Répertoire inconnu ($dir)."; 
      return undef; 
     } 
 
     if (! -d $dir ) { 
      print "$dir n'est pas un répertoire."; 
      return undef; 
     } 
 
     if (! opendir( DIR, $dir) ) { 
      print "Impossible d'ouvrir le répertoire $dir : $!."; 
      return undef; 
     } 
 
     my @files = grep !/(?:^\.$)|(?:^\.\.$)/, readdir DIR; 
     closedir DIR; 
     print "\nFICHIERS CONTENUS:\n"; 
     foreach(@files) { 
        print $_."\n"; 
     } 
     foreach(@files) {        
        if (-d $dir."/".$_) { 
            print "\n\nREPERTOIRE : ".$_."\n"; 
            ListRep($dir."/".$_); 
        } 
     } 
 
} 
 
1;

VERSION WINDOWS: changer le dernier 'foreach' par celui-ci.

Code :

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

1
2
3
4
5
6
7
 
     foreach(@files) {        
        if (-d $dir."\\".$_) { 
            print "\n\nREPERTOIRE : ".$_."\n"; 
            ListRep($dir."\\".$_); 
        } 
     }

_________________

[tizef]

ok j'essaie

[tizef]

j'ai pas d'erreur quand je le lance normal

[djibril]

t'as lancé lequel? t'es sur quel OS?

[tizef]

le dernier je suis sous linux

[djibril]

il te liste quelque chose?

[tizef]

non le premier

[tizef]

c'est bien celui la

my($repertoire) = "/path/de/mon/repertoire";
my(%mtime);
my(@ficpl);
opendir (DIR, "$repertoire") || die ("can't open $repertoire");
@ficpl = grep { /\.(pl)$/i && ($mtime{$_} = (stat ("$repertoire\\$_"))[9]);
}
readdir (DIR);
closedir DIR;
my(@ordered_pl_names) = @ficpl;

[djibril]

non mais c pas grave, celui que tu as teste te mets juste les nom de fichiers qu'il trouve dans le tableau @ordered_pl_names. a toi de voir ce qu'il y a dedans!!!

j'essaye de te faire un truc vite fait, mais regarde qd même
courage!!!

[tizef]

Bon merci djibril, je vais au dodo
si tu trouve quelque chose fait moi signe
merci

[djibril]

Ce script donne l'adresse complet d'un fichier ou repertoire cherché
exemple :

Code :

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

1
2
3
4
5
 
toto.pl gene
                 =>C:/Documents and Settings/perl/gene.tgz
                 =>C:/Documents and Settings/perl/files/gene.xml
                 =>repertoire : C:/Documents and Settings/gene

voilà le script, faut juste mettre le chemin d'un repertoire dans son script
dans $mon_dir

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
#!/usr/bin/perl -w 
 
#---------------------------------------------- 
# 
# ce script permet de parcourir un repertoire
# et affiche le chemin du fichier cherché. ou
# repertoire: nom du repertoire s'il en trouve
# -----------------------------------------------
 
 
use strict; 
use Carp; 
 
my $file = $ARGV[0];		#donne un bout de nom
my $mon_dir = "C:/Documents and Settings/Propriétaire/Mes documents/apprendre_progammation/perl";
&premier_repertoire($mon_dir, $file);
 
 
sub premier_repertoire {
	my $mon_rep = shift;
	my $file = shift;
	opendir (REP,$mon_rep) or die "Impossible d'ouvrir $mon_rep";
	my @dots = grep { /^\w+/ } readdir(REP);
	foreach  my $nom (@dots) {
	  &verification($nom, $mon_rep, $file); #recursivité et parcours du repertoire trouvé
	}
	closedir (REP);
}
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
     	}
     }  
}