看板
[ Perl ]
討論串[問題] 將很像hash形式中的值相加？
共 5 篇文章
內容預覽:
if 少了 "}". perl5 還沒有這麼聰明能夠直接 keys %hash == keys %hash 唷。. 另外 while( keys %KV ) 實際上 while 需要的是一個 boolean context 和 for 是不. 一樣的。所以你在 keys %KV 的 key 並不會放
(還有351個字)
內容預覽:
不需要裝 package 呀。 qw( ) 的定義你查一下 perldoc. perldoc -f qw. 是用空白將字串分割成串列。. 所以當你用上面的作法，你實際上會得到. ('ks*5' , 12 , 'pp*5' , 3);. 我前面那段用的模組也只是 Data::Dumper::Simpl
(還有64個字)
內容預覽:
由於沒有裝package，所以打算把資料寫入@array去做. @array = qw{ks*5 12 pp*5 3};. my %h;. while (@array) {. my ($k,$v) = m/\w\w\*(\d)\s(\d)/;. $h{ $k } ||=0, $h{ $k }+=$v
(還有238個字)
內容預覽:
try this?. s/\w\w\*(\d)\s(\d)/ $h{$1}+=$2 /e while( <DATA> );. use Data::Dumper::Simple;. warn Dumper( %h );. __DATA__. VD*5 3. YY*3 4. Qv*5 2. pQ*3 1
(還有73個字)