Bonjour,

J'ai le même problème, mais je n'arrive pas à placer le "eval" de l'exemple de Djibril dans mon script

Voici le début de mon 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
17
18
19
20
21
22
#!/usr/bin/perl -w
use strict;
use warnings;
use File::Copy;
use File::Find;
use XML::DOM;
 
opendir(DIR, $SCRIPT_DIR) or die "Can't open $SCRIPT_DIR: $!";
my @xml_files = grep(/$SEARCH_FILE/,readdir(DIR));
closedir(DIR) or warn "Can't close $SCRIPT_DIR: $!";
 
foreach my $files (@xml_files)	{
	my $parser = new XML::DOM::Parser();
	my $doc = $parser->parsefile($files);
	my @tracks = $doc->getElementsByTagName("track");
	my @raw = $doc->getElementsByTagName("FileName");
	if (scalar @tracks && scalar @raw)	{
		foreach my $track (@tracks) { 
			...
		}
	}
}