Discussion :

[Jedai]

J'ai un peu généralisé le script, dans ton cas en particulier, ça se serait utilisé comme ça :

Code :

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

copy_rec.pl home/USER/Desktop/TEST/dossier1 home/USER/Desktop/TEST/dossier2 '\\.(?:JPG|an.*)$'

Mais tu peux aussi intégrer directement ces valeurs dans le script.

--
Jedaï

[petibonohm]

je ne vois pas ce que l'on doit faire avec ton dernier code ???

tu m'as complêtement perdu, déjà que...

[Jedai]

Le dernier "CODE" que je t'ai donné est juste une commande en ligne de commande, si tu as mis le dernier script que je t'ai donné dans "copy_rec.pl". L'idée est qu'ainsi copy_rec.pl pourra être réutilisé sans modification du code dans un autre cas. Il suffira de lui donner d'autres arguments.
Si tu veux mettre tes valeurs en dur dans mon code, ça donnerait :

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
#!/usr/bin/perl
use strict; use warnings;
use File::Copy; use File::Find;
use File::Spec;
 
my $from = File::Spec->rel2abs( 'home/USER/Desktop/TEST/dossier1' );
my $to = File::Spec->rel2abs( 'home/USER/Desktop/TEST/dossier2' );
my $rx = qr/\.(?:JPG|an.*)$/;
 
find( \&copy_files_by_type, $from);
 
sub copy_files_by_type {
    if( -f $_ and m/$rx/ ) {
        (my $dest_dir = $File::Find::dir) =~ s/\Q$from\E/$to/;
 
        if( not -e $dest_dir ) {
            mkdir $dest_dir
                or die "Couldn't create $dest_dir as a directory : $!\n";
        }
 
        copy($_, "$dest_dir/$_")
            or warn "$_ n'a pas été copié : $!\n";
    }
}
 
__END__

--
Jedaï

[petibonohm]

Merci bcp Jedaï et au forum !!

ça fesait pas mal de temps que je planchais sur ces problèmes (pas en perl)

tout marche nikel !!

la recherche vous remercie...