Perl的幾個子字元(串)尋找例子代碼

1) 如何在一個字串中尋找某個字元出現的次數？
原文出處：http://www.perl.com/doc/FAQs/FAQ/oldfaq-html/Q4.24.html
如果你想在一個字串中尋找字元(X)出現的次數，你可以用tr///這個函數、配合下面的方法來實現：
$string = “ThisXlineXhasXsomeXx’sXinXit”:$count = ($string =~ tr/X//);print “There are $count Xs in the string”;
2) 如何在一個字串中尋找某個子字串出現的次數？
上面的代碼對於你只尋找單個字元來說，是非常有效。然而，如果你試圖計算多個字元組成的子字串、在一個大字串中出現的次數，函數tr///就不起作用了。這個時候，我們就需要加一個while迴圈了：
$string = “-9 55 48 -2 23 -76 4 14 -44″;$count++ while $string =~ /-\d+/g;print “There are $count negative numbers in the string”;
3）Perl裡查詢某一個檔案裡某一個字串出現了多少行、以及包含該字串的行的內容
原文出處：http://www.perlmonks.org/?node_id=650671
我們可以用如下代碼實現，子過程retriver()進行讀檔案、尋找等操作。
use strict;use warnings;sub retriver();my @lines;my $lines_ref;my $count;$lines_ref = &retriver();@lines =@$lines_ref;$count = @lines;print “Count :$count\nLines\n”;print join “\n”,@lines;sub retriver(){    my [...]