Re: [問題] 關於字串

[kornelius (c9s)]

※ 引述《dryman (dryman)》之銘言：
: ※ 引述《petertc (PTC)》之銘言：
: 概念很簡單：弄一個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

--

qr{Cornelius|c9s};

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.233.154.6
※ 編輯: kornelius       來自: 118.233.154.6        (09/28 01:36)
※ 編輯: kornelius       來自: 118.233.154.6        (09/28 01:39)
推 CindyLinz:用 warn 輸出是哪招.. ╮(￣▽￣)╭
→ kornelius:因為打比較少字...
→ kornelius:print 五個字元 warn 四個字元... XD
→ kornelius:其實我很想用 say 但是要打 use feature ':5.10';
推 dryman:可是這樣會沒辦法做出Lee->David, Eric 耶XD
→ kornelius:喔 我以為他只要 lee => David ... XD