|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : dimka kuvshinov 2:5020/400 22 Sep 2000 07:53:15
To : Alex Ptushkin
Subject : Re: имхо так больно криво
--------------------------------------------------------------------------------
> подскажите плиз, как сделать чтобы он находил не одно, а несколько
> слов по заданным условиям, открывая файл только лишь один раз.
> и как сделать так, чтобы он находил сначала файл, допустим 1.tic, затем
> 2.tic, а затем 3.tic и т.д.
кажется так:
#!/usr/bin/perl -wT
$file="/exp.tic";
$file2="/log";
@files=($file,$file2);
&search(@res);
@results=search(@res);
print @results;
sub search ($$){
my @res = ();
foreach $qqq(@files){
open AAA "$qqq";
@massive=<AAA>;
close AAA;
foreach $line(@massive){
if($line=~m/Area/){
push(@res, $&);
}
}
return @res;
}
по идее должно выводить все найденные слова. чтобы добавить файл, в котором
тоже
хочется поискать, нужно прописать его в массив @files...
не факт что заработает, но идея такая...
Hавигации!
Дима
--
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: имхо так больно криво 