Perl中匹配的字符数

perldoc -f index

use strict;
use warnings;
use English qw<$INPUT_LINE_NUMBER>;

open my $fh, '<', '/path/to/file/I/want' or die "Could not open file!";
while ( <$fh> ) {
    printf "Line %d: %d\n",  $INPUT_LINE_NUMBER, index( $_, 'CHI' );
}
close $fh;

这里发布的索引解决方案很好, 但为了学习,你也可以 使用正则表达式,例如:

...

while( <$fh> ){
    /CHI/g && print "Line $.: $-[0]\n" 
}

...

会打印出你想要的输出。这甚至会使一个花哨的一行:

$> perl -lne '/CHI/g && print "Line $.: $-[0]"' data.txt

当做