ПОмогите!!!

[Morgan Megan]

Проблема такова - надо вытащить из файла строку,затем из неё определенное слово или символ.Просьба высылать с коментариями.Заранее спасибо!

[Chs]

perldoc -f open
perldoc -f close
perldoc perlop в части <>
perldoc perlre

[Morgan Megan]

Что нибудь более конкретное...?

[Morgan Megan]

Нашёл такое решение:
$file = "file.txt"; # Файл
$search = "Слово"; # Слово для поиска

open(FILE,"<$file");
while( ){
   if(/$search/i){
   print $search;
   }
}
close(FILE);
Но выдаётся "Слово", а мне надо всю строку...

[Morgan Megan]

Теперь:
$file = "file.txt"; # Файл
$search = "Слово"; # Слово для поиска

open(FILE,"$file)
or die("Cannot open file!");
while( ){
$input=readline(*FILE);
if(/$search/i){
print $input}
}
close(FILE);
Выводит только первую строку где есть "Слово"...Что делать?Надо все..

[Xander]

Что "все" тебе нужно?
вобще-то так:

open(FILE,"$file) or die("Cannot open file!");
while( ){
if(/$search/i) print $input; //(/$search/i) равнозначно ($_=~m/$search/)
}
close(FILE);

P.S. [off]я тоже люблю "Меч и Радугу" ;-)[/off]