從字符位置獲取行號

Question

如何找到文件中字符n所在的行？

例如，如何知道字符5347在給定文件中的位置？

Answer 1

如果您正在使用線輸入運算符逐行讀取文件句柄，則特殊變量$.會給出當前行。

以下是一些示例代碼：它讀取一個文件行，用$pos對字符進行計數。

#!/usr/bin/env perl 

use v5.12; 
use strict; 

open my $fh, '<', 'file.txt'; 

my $reference = 5347; 
my $pos  = 0; 

do { 
    $pos += length <$fh>; 
} while ($pos < $reference); 

say $.; 

Answer 2

這輕輕測試的代碼似乎對我做的工作：

my $desired = 5347; 
my $char_count = 0; 
while (<$fh>) { 
    $count += length; 
    if ($count >= $desired) { 
     print $. . $/; 
     last; 
    } 
} 

當然它假定$fh是尚未從尚未閱讀已經打開的文件句柄。

另請注意，它計數的字符，而不是字節，這是你所說的，但可能不是你的意思。