作者cutecpu (可爱中央处理器)
看板perl
标题Re: [问题] 请问取出全部字母与其对应关系的问题~ …
时间Thu Jun 8 02:32:25 2006
#!/usr/bin/perl
%hash=(
a=>['b','c'],
b=>['d'],
c=>['a'],
e=>['a','d'],
f=>['g']
);
print join("\n",@{$hash{a}}),$/;
※ 引述《soniagarden (。Goodnight Moon。)》之铭言：
: 写程式遇到一个瓶颈想恳请各位板大帮帮忙~ T__T
: 就是我有以下资料，每两个都是他的对应关系~
: a b
: a c
: b d
: c a
: e a
: e d
: f g
: 要怎麽取出每个不同的字母呢? 就是只计算一次~
: (之前遇到这状况是用unix直接处理档案 T_T)
: 而且要怎麽样才能取得他的对应关系，
: 本来想用hash存，但是比方说a就同时对应到b和c，
: 如果用hash然後value用@的话，取值的时候又有点麻烦，
: 请问各位板大有没有更好的方法，请教教我~ 感激不尽!!! <(_ _)>
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.63.246.28
1F：推 soniagarden:可是有很多很多笔这样的对应，无法手动输入耶~ 06/08 23:54
2F：→ soniagarden:如果用push的话他却说只能push到@不能是hash element 06/08 23:55
3F：推 LiloHuang:其实是可以PUSH的 push(@{$hash{a}},'x''); 06/09 01:14
4F：→ LiloHuang:不过建议这种建议问题使用Graph or Tree来做比较完整 06/09 01:14