Re: [問題] 關於字串
※ 引述《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)
推
09/28 01:53, , 1F
09/28 01:53, 1F
→
09/28 02:01, , 2F
09/28 02:01, 2F
→
09/28 02:01, , 3F
09/28 02:01, 3F
→
09/28 02:02, , 4F
09/28 02:02, 4F
推
09/28 09:24, , 5F
09/28 09:24, 5F
→
09/28 10:05, , 6F
09/28 10:05, 6F
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
