Добро пожаловать,
Гость
. Пожалуйста,
войдите
или
зарегистрируйтесь
.
Не получили
письмо с кодом активации
?
1 час
1 день
1 неделя
1 месяц
Навсегда
Новости:
Начало
Помощь
Поиск
Календарь
Вход
Регистрация
Forum Webscript.Ru
»
Программирование
»
Perl
»
ПОмогите!!!
« предыдущая тема
следующая тема »
Печать
Страницы: [
1
]
Вниз
Автор
Тема: ПОмогите!!! (Прочитано 3004 раз)
0 Пользователей и 1 Гость просматривают эту тему.
Morgan Megan
Заглянувший
Новичок
Сообщений: 4
+0/-0
0
ПОмогите!!!
«
:
18 Июля 2003, 08:43:21 »
Проблема такова - надо вытащить из файла строку,затем из неё определенное слово или символ.Просьба высылать с коментариями.Заранее спасибо!
Записан
Chs
Perl программер
Глобальный модератор
Ветеран
Сообщений: 1108
+0/-0
2
ПОмогите!!!
«
Ответ #1 :
18 Июля 2003, 09:29:50 »
perldoc -f open
perldoc -f close
perldoc perlop в части <>
perldoc perlre
Записан
2B OR NOT 2B = FF
Morgan Megan
Заглянувший
Новичок
Сообщений: 4
+0/-0
0
ПОмогите!!!
«
Ответ #2 :
18 Июля 2003, 10:01:17 »
Что нибудь более конкретное...?
Записан
Morgan Megan
Заглянувший
Новичок
Сообщений: 4
+0/-0
0
ПОмогите!!!
«
Ответ #3 :
18 Июля 2003, 10:09:33 »
Нашёл такое решение:
$file = "file.txt"; # Файл
$search = "Слово"; # Слово для поиска
open(FILE,"<$file");
while(
){
if(/$search/i){
print $search;
}
}
close(FILE);
Но выдаётся "Слово", а мне надо всю строку...
Записан
Morgan Megan
Заглянувший
Новичок
Сообщений: 4
+0/-0
0
ПОмогите!!!
«
Ответ #4 :
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);
Выводит только первую строку где есть "Слово"...Что делать?Надо все..
Записан
Xander
санитар леса
Глобальный модератор
Ветеран
Сообщений: 1780
+0/-0
2
ПОмогите!!!
«
Ответ #5 :
18 Июля 2003, 15:16:30 »
Что "все" тебе нужно?
вобще-то так:
open(FILE,"$file) or die("Cannot open file!");
while(
){
if(/$search/i) print $input; //(/$search/i) равнозначно ($_=~m/$search/)
}
close(FILE);
P.S. [off]я тоже люблю "Меч и Радугу" ;-)[/off]
Записан
Jah\'d never let us down!
Печать
Страницы: [
1
]
Вверх
« предыдущая тема
следующая тема »
Forum Webscript.Ru
»
Программирование
»
Perl
»
ПОмогите!!!
Sitemap
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28