Re: [問題] 請教兩個簡單的擷取問題...

看板Perl作者CindyLinz (Cindy Wang)時間9年前 (2016/04/15 15:27)推噓2(2推 0噓 2→)

留言4則, 3人參與討論串4/4 (看更多)

※ 引述《Rnsras (Rnsras)》之銘言： : ※ 引述《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; 我順便來複習一下 scalar context 的 range operator 的用法.. 如果每次執行這程式的時候, 這一段程式只會給一個檔案使用的話, while 的 body 裡面的判斷可以這樣子寫 if( $_ eq "Michael" ... $_ eq "Ruby" ){ push @map, $_; } 或是用 regex 寫成 if( /Michael/ ... /Ruby/ ) { push @map, $_; } 這樣 @map 裡面會有 Michael, 中間三行, Ruby, 這樣一共五行.. 迴圈結束後再把 @map 的頭尾去掉即可, 然後 $_ eq "Michael" ... $_ eq "Ruby" 這個東東為 true 的這幾次依此會 return 1 2 3 4 5E0 如果拿一個變數把它存下來, 判斷一下必須它 > 1 而且 substr(它, -2) ne 'E0' 也可以 : : 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), 來自: 112.121.78.5 ※ 文章網址: https://www.ptt.cc/bbs/Perl/M.1460705270.A.1A2.html ※ 編輯: CindyLinz (112.121.78.5), 04/15/2016 15:28:47