ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Michael Poliakov 2:5020/400 13 Oct 2000 15:13:15
To : All
Subject : Re: подсчитать количество вхождений слова
--------------------------------------------------------------------------------
On Thu, 12 Oct 2000 15:53:53 +0400, Timur Sabirzyanov
<Timur.Sabirzyanov@p197.f197.n5080.z2.fidonet.org> wrote:
>Как сделать сабж? Есть файл и нужно узнать сколько раз в нем упоминается слово
>'некое слово'.
1) print `grep -cw slovo file`; # :-))
2)
open(FD, $file) or die;
undef $/;
$txt = <FD>;
while ($txt =~ /\bslovo\b/g) {$count++}
print $count;
Michael Poliakov
--- ifmail v.2.15dev5
* Origin: Nizhniny Novgorod Information Networks (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
