perl - 在 Perl 中查找在大字符串中找到子字符串的行号

Question

在 perl 字符串中搜索子字符串的行号的最佳方法是什么？例如:在

中搜索“escape”

"How to Format
► put returns between paragraphs
► for linebreak add 2 spaces at end
► _italic_ or **bold**
► indent code by 4 spaces
► backtick escapes `like _so_`
► quote by placing > at start of line
► to make links
<http://foo.com>
[foo](http://foo.com)"

应该给 6 作为行号。

Answer 1

想到了另一种解决方案。在最近的 Perls 中，您可以打开字符串上的文件句柄，然后只需使用特殊的 $. 变量来自动跟踪行号:

open my $handle, '<', \$str;
my $linenum;

while (<$handle>) {
    $linenum = $., last if /escape/;
}

close $handle;

if (defined $linenum) {
    print "Found match on line $linenum\n";
} else {
    print "No match found\n";
}