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 :

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);
	}
 
}
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.

Merci de votre aide.