VPF::поиск - Форум программистов

Mlix

Дата 11.4.2007, 23:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 27.12.2006

Репутация: нет
Всего: нет

здравствуйте, помогите пожалуйста решить проблему

Код


#!usr/bin/perl -w
$text = "text.txt";

 open(TEXT,"$text");

 @text = <TEXT>; 

if ($msg =~ /^:(\S+)!(\S+)\@(\S+)\sNOTHING\s(\S+)\s:(\S.*)/ ) {

$end=grep /^$5$/, @text;
 
 if ($end==1) {
print "ok";


}
 }

почему-то, не ищется через grep...в чем может быть проблема?

korob2001

Дата 11.4.2007, 23:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 31
Всего: 61

Приведи несколко строк из файла и что пытаешься найти.

Это сообщение отредактировал(а) korob2001 - 12.4.2007, 00:00

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

nitr

Дата 11.4.2007, 23:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84

контекст понятен...

Код


my @text = qw(hello vasya vasyap pupkin);
my $end = grep /^vasya$/, @text;
 
if ($end == 1) {
  print "ok";
}

так что думаю надо ответить на вопрос многоуважаемого korob2001 smile

Это сообщение отредактировал(а) nitr - 11.4.2007, 23:50

--------------------

I love ArchLinux

Mlix

Дата 12.4.2007, 10:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 27.12.2006

Репутация: нет
Всего: нет

вообщем, я пишу ирк-бота, когда поступает мессага, которая тут имеет значение $5, бот должен прочитать мессагу и найти ее в массиве.

2korob2001
ну например:
hello
re

2nitr
мессаги разные
поэтому надо замутить именно с $5

извиняюсь, что сразу не описал полностью проблему

Это сообщение отредактировал(а) Mlix - 12.4.2007, 10:50

nitr

Дата 12.4.2007, 11:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84

Mlix, думаю у тебя просто $5 "пустое", я показал код, что должно работать, если $5 реально != ''
А ещё совет использовать модули, они полностью описывают и работают с протоколом IRC - смотрите
тут
там и боты уже готовые есть, достаточно настроить и "сказать что ему делать" ;)

--------------------

I love ArchLinux

Mlix

Дата 12.4.2007, 11:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 27.12.2006

Репутация: нет
Всего: нет

да не, в этом то и хрень, $5 полное, когда пишу print "$5" или $irc->send("PRIVMSG $chan :$5\r\n"), мне возвращается моя мессага...
спасибо, я знаю, просто хочется самому реализовать smile

nitr

Дата 12.4.2007, 11:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84

test.pl

Код

#!/usr/bin/perl
use strict;
use warnings;

my $textfile = 'text.txt';
my @text;

open my $flh, "< $textfile";
@text = <$flh>;
close $flh;

my $msg = ':user!user@user NOTHING chan :hello'; #приведи точное значение :)

if ( $msg =~ /^:(\S+)!(\S+)\@(\S+)\sNOTHING\s(\S+)\s:(\S.*)/ ) {
    my $end = grep /^$5$/, @text;

    if ($end == 1) {
        print "ok";
    }
}

text.txt

Цитата

hello vasya
re
hello
world

Результат

Цитата

D:\>test.pl
ok
D:\>

--------------------

I love ArchLinux

tishaishii

Дата 12.4.2007, 11:58 (ссылка)

(нет голосов)

Загрузка ...

Создатель

Профиль
Группа: Завсегдатай
Сообщений: 1262
Регистрация: 14.2.2006
Где: Москва

Репутация: 4
Всего: 8

v1.1:

Код

my$v5=$5;

v1.2:

Код

$str=~m{\Q$v5\E}

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »