1
Perl / ПОмогите!!!
« : 18 Июля 2003, 10:28:14 »
Теперь:
$file = "file.txt"; # Файл
$search = "Слово"; # Слово для поиска
open(FILE,"$file)
or die("Cannot open file!");
while( ){
$input=readline(*FILE);
if(/$search/i){
print $input}
}
close(FILE);
Выводит только первую строку где есть "Слово"...Что делать?Надо все..
$file = "file.txt"; # Файл
$search = "Слово"; # Слово для поиска
open(FILE,"$file)
or die("Cannot open file!");
while(
$input=readline(*FILE);
if(/$search/i){
print $input}
}
close(FILE);
Выводит только первую строку где есть "Слово"...Что делать?Надо все..