Utilisation d'eval avec XML::DOM

Version imprimable

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:

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

Attention, lorsque vous analysez des fichiers XML, vous devez tenir compte des messages d'anomalies retournés.

Pour utiliser l'eval, il intervient dans la boucle.

Code:

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
#!/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;
eval { $doc = $parser->parsefile($files); };
   if ($@) {
     warn $@;
     next;
   }	
	my @tracks = $doc->getElementsByTagName("track");
	my @raw = $doc->getElementsByTagName("FileName");
	if (scalar @tracks && scalar @raw)	{
		foreach my $track (@tracks) { 
			...
		}
	}
}

25/09/2011, 18h16
Sethenssen

Parfait ! :ccool:

Merci Djibril

Quand on voit la réponse ça parait tellement simple après 8-)