Re: [問題] 關於字串
※ 引述《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
→
09/28 09:46, , 1F
09/28 09:46, 1F
推
09/28 16:48, , 2F
09/28 16:48, 2F
推
09/28 17:30, , 3F
09/28 17:30, 3F
推
10/27 07:03, , 4F
10/27 07:03, 4F
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
