подсчитывает, сколько раз слово происходит в файле, а также в каких строках?

Question

let to explain В текстовом файле «script.txt» мне нужно найти слово «foo», сколько раз это происходило и в каких строках я должен был перечислить эти строки.

Answer 1

Try, как следовать

my $total; 
my $lines; 
open my $fh,"<","file.txt"; 
while (<DATA>) 
{ 
    if(my $ech_count =() = /\bfoo\b/g) 
    { 
     $total+=$ech_count; 
     $lines.=$.."\n"; 
    } 

} 
print " Total count : $total\nLines are: \n $lines"; 

В вышеприведенном сценарии $ech_count хранит количество спичек в строках он является выполнить с помощью =() =.

$. Это специальная переменная perl inbuild, которая дает текущий номер строки.

Answer 2

Пожалуйста, попробуйте следующее:

use strict; 
use warnings; 

my @lines = <DATA>; 
my ($word_count, $total) = ''; 
foreach my $single(@lines) 
{ 
    if($single=~m/\bfoo\b/g) 
    { 
     $word_count = $single=~s/\bfoo\b/$&/g; 
     print "Line Matched: $single\n"; 
     $total = $total + $word_count; 
    } 
} 
print "Foo Count: $total\n";