→ dryman:Data::Dumper好方便XD 09/28 09:46
推 sqrt1089:GJ 09/28 16:48
推 sqrt1089:不過你這個可以改造成我只要wu(可變)，他就印出hunry嗎? 09/28 17:30
推 salagadoola:print join(',', @{$hash{'wu'}}), "\n"; 10/27 07:03
※ 引述《kornelius (c9s)》之銘言：
: ※ 引述《dryman (dryman)》之銘言：
: : 概念很簡單：弄一個hash of arrays
: : 要把hash value當成array，只要用@{$my_hash{key}}就可以了
: : 所以strs的第一個值就當key，第二個值推入array中
: : #!/usr/bin/perl
: : while(<>){
: : @strs=split;
: : push @{ $name_hash{$strs[0]}}, $strs[1];
: : }
: : print $_ . "\n" for @{ $name_hash{'lee'}};
: 短些的。 :)
: my %hash = map { chomp; split } <DATA>;
: use Data::Dumper; warn Dumper( \%hash );
: __DATA__
: 213 abc
: bb cc
map{split; push @{ $hash{$_[0]} }, $_[1]} <DATA>;
use Data::Dumper; warn Dumper( \%hash );
==================
$VAR1 = {
'wu' => [
'hunry'
],
'wang' => [
'steve'
],
'lee' => [
'David',
'eric'
]
};
XD
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.112.4.199