Re: [問題] 請教兩個簡單的擷取問題...
※ 引述《loyuchu1539 (爆走原始人)》之銘言：
: 小弟是Perl 新手 由於工作需要，才開始學習perl 目前預到兩個問題
: 1.擷取文字黨片段到一陣列
: Ex: 文字檔(map.txt)如下
: Jack
: AA_map 1
: BB_map 1
: CC_map 0
: Michael
: AA_map 0
: CC_map 0
: DD_map 1
: Ruby
: DD_map 1
: EE_map 0
: .
: .
: 請問小弟該如何文字檔中的Michael至Ruby中間的三行取出，存至@map 呢?
蠻常處理這種狀況，拋磚引玉一下，希望有更好的做法可以學 XD
我的方法其實蠻直覺的，前提是格式內容要夠規律，不然就不適用了；
方法就是設一個變數去控制是否開始儲存txt的內容，然後如果符合要儲存的條件，
EX: Michael和Ruby中間，就把剛才存的 @temp 丟進去 @map 裡面，以下為程式碼:
my $sw = 0; my @map=(); my @temp=();
open inputF, "map.txt";
while(<inputF>){
chomp;
if($sw==0 && $_ eq "Michael"){
$sw=1; @temp=();
}elsif($sw==1 && $_ !~ /^\w+_\w+\s+\d+$/){
$sw=0; if($_ eq "Ruby"){ push @map, @temp;}
}elsif($sw==1){
push @temp, $_;
}
}
close inputF;
: 2.存一個龐大的文字檔案分類至一個hash
: 以上頭的文字檔為範例
: 小弟該如何將這個文字檔 以各別名字存為一個hash呢?
: 例如存成:
: $hash{Jack} =
: AA_map 1
: BB_map 1
: CC_map 0
: 另外一問..若從hash內叫出來 想要判斷內容，請問各位會如何撰寫呢?
: 比如說 判斷$hash{Jack} 內 AA_map 值是否為1 是則print出 AA_map,
: 若不是，則繼續判斷BB_Map 是否為1，印出 BB_map 直到判斷到某個XX_map 為1為止..
: 寫得有點智障...但希望看得懂得大大能指教一下@@...
綜合你要儲存跟判斷，我的做法的話用 reference 的方式把值(AA_map 1)存成 hash，
再把它塞進外圍的 %hash，這樣如果你要知道 Jack 的 AA_map 是 0 還是 1，
你可以用 $hash{'Jack'}{'AA_map'} 得到 1，以下為 code (其實只有小改上面的 code)
my %hash=(); my $name='';
open inputF, "map.txt";
while(<inputF>){
chomp;
if($_ =~ /^(\w+_\w+)\s+(\d+)$/){
my %temp = defined($hash{$name})? %{$hash{$name}}:();
$temp{$1} = $2;
$hash{$name} = \%temp;
}else{
$name = $_;
}
}
close inputF;
希望有幫助到原PO ^_^
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 150.117.56.246
※ 文章網址: https://www.ptt.cc/bbs/Perl/M.1460643087.A.7D0.html
※ 編輯: Rnsras (150.117.56.246), 04/15/2016 01:44:50
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章