URL: https://linuxfr.org/forums/programmation-perl/posts/sortie-sur-plusieurs-fichiers
Title: sortie sur plusieurs fichiers
Authors: Henri
Date: 2015年10月26日T15:09:40+01:00
License: CC By-SA
Tags: 
Score: -3
salut a tous j'ai encore une question concenant les fichiers de sortie que j'aimerai a l'aide de mon perl-Script produire 
ligne 2 le nom que doit porter mon fichier 
ligne 3 le nom est ecrit sur le fichier et la valeur du parametre
ligne 6 nom des donnees et leurs valeurs sont ecrit sur le fichier.
quelqu'un ici peut il m'aider? 
```ruby
1 for my $k (keys %{$data}) {
2 print "----$k----\n"; # le nom que porte mon fichier 
3 print "$k: $param->{$k}\n"; # ecrit le nom dans le fichier et la valeur du parametre
4 for my $i (0.. $#{$data->{$k}}) {
5 if ($param->{$k} ne $data->{$k}->[$i]->[1]) {
6 print "$data->{$k}->[$i]->[0]: $data->{$k}->[$i]->[1]\n"; # noms des data et leurs valeurs
7 }
8 }
```
</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/sortie-sur-plusieurs-fichiers.md">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="httpS://linuxfr.org/forums/programmation-perl/posts/sortie-sur-plusieurs-fichiers.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>