Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Сообщения - Morgan Megan

Страницы: [1]
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);
Выводит только первую строку где есть "Слово"...Что делать?Надо все..

2
Perl / ПОмогите!!!
« : 18 Июля 2003, 10:09:33 »
Нашёл такое решение:
$file = "file.txt"; # Файл
$search = "Слово"; # Слово для поиска

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

3
Perl / ПОмогите!!!
« : 18 Июля 2003, 10:01:17 »
Что нибудь более конкретное...?

4
Perl / ПОмогите!!!
« : 18 Июля 2003, 08:43:21 »
Проблема такова - надо вытащить из файла строку,затем из неё определенное слово или символ.Просьба высылать с коментариями.Заранее спасибо!

Страницы: [1]