URL: https://linuxfr.org/forums/programmation-perl/posts/parsage-sur-plusieur-fichier
Title: Parsage sur plusieur fichier
Authors: Henri
Date: 2015年04月13日T14:09:52+02:00
License: CC By-SA
Tags: 
Score: -3
Salut a tous,
j'ai un code me permetant le parsage d'un fichier mais j'aimerai qu'il soit la hauteur de me faire le parsage de disons par exemple 100 fichiers. quelqu'un pourrai m'aider. Merci. en voici mon code:
```perl
 use strict;
 use warnings;
 use XML::Twig; 
 my $file1 = $ARGV[0] || die 'No file1'; 
 my $FileResult = $ARGV[3] || 'result.txt'; 
 open( my $FhResult, '>', $FileResult ) or die("Unable to open file $FileResult\n$!");
 my $twig1= XML::Twig->new( 
 twig_handlers => { 
 'Parameter' => sub { 
 my $attr_value = $_->{'att'}->{'value'} || 'fault'; 
 print $FhResult $attr_name . ",";
 },
 },
 );
 print $FhResult( (split('_', $file1,2))[0] . ',' ); 
 $twig1->parsefile($file1); 
end
```
 
</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="httpS://linuxfr.org/forums/programmation-perl/posts/parsage-sur-plusieur-fichier.md">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="httpS://linuxfr.org/forums/programmation-perl/posts/parsage-sur-plusieur-fichier.md" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>