URL: https://linuxfr.org/forums/programmation-perl/posts/hash-de-array
Title: hash de array
Authors: Nicolas Boulay
Date: 2008年10月29日T13:15:36+01:00
Tags: 
Score: -1
J'ai un petit soucis. 
 
Je cherche à compléter un hash composé d'un array de clef qui pointe vers des valeurs. (en gros, c'est des macro #define C qui pointe vers le nom de fichier de définition de la macro en question ) 
 
open H, "<$dir/$file" &#124;&#124; die "$!"; 
 
@tmp= ; 
@tmp= grep { s/\#define //} @tmp; # keep only #define lines 
@tmp= map { /(^\S+)\s.*/} @tmp; # keep only keys not value 
@$data{@tmp} = ($file) x @tmp; 
 
close H; 
 
L'intérêt est de pouvoir faire des grep sur les "keys" et d'utiliser la clef pour pouvoir faire le bon include automatiquement. 
 
Maintenant cela se corse, j'ai besoin de la valeur à coté du nom de fichier à inclure. 
@value = map { /^\S+\s+(\S[\s\S]*\S).*$/ } @tmp; 
 
Je cherche maintenant à avoir un hash qui pointe sur un array de taille 2 qui contient le nom du fichier et la valeur. 
 
J'ai tenté un 
@$data{@tmp} = [($file) x @tmp,@value]; 
sans succès ! 
 
Les perfs sont importantes @$data fait 100 000 lignes. 
 
Vous avez une idée ?
</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/hash-de-array.md">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="https://linuxfr.org/forums/programmation-perl/posts/hash-de-array.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>