Bonjour tout le monde,
J'ai un problème avec un script que je viens d'écrire. Je souhaiterais copier des images dans un repertoire à l'exception de certains fichiers que j'exclus à l'aide d'une expression rationnelle. Voici le script :
Je ne comprends pas pourquoi la commande "cp" n'est pas éxécutée... De plus quand j'éxécute le script, il m'affiche les noms des fichiers alors que je ne lui précise pas de le faire.
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 #! /bin/perl use warnings; my @test = "ls -l /var/www/pdf/image | awk '{print \$8}'"; $resultat = system(@test); foreach my $ligne (@resultat) { if ((!($ligne =~ /label/i)) && (!($ligne =~ /processes/i)) && (!($ligne =~ /logged/i))) { system("cp /var/www/pdf/image/".$ligne." /var/www/pdf/imageFiltree/".$ligne); } }
Merci de votre aide.
Partager