Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> зараза не метчит одинаковые стринги 
:(
    Опции темы
xtrasns
Дата 8.1.2008, 09:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



вот собсвенно скрипт. Все вроде сходится, а метча нет ....

при идее он должен писать Y, a он пишет 

здесь был код но я его удалил )

Это сообщение отредактировал(а) xtrasns - 8.1.2008, 23:40
PM MAIL   Вверх
sir_nuf_nuf
Дата 8.1.2008, 11:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



чем то похоже на спагетти =)

в твоем случае
url  -  'walw.ru/finpr/index.php?12'
link -  'walw.ru/finpr/index.php?12'

ты делаешь 
Код

if($link =~ /$url/)


т.е.
Код

if('walw.ru/finpr/index.php?12' =~ 'walw.ru/finpr/index.php?12')


конечно это не будет работать.

может тебе нужен простой  eq ? а не поиск по шаблону ?
например
Код

if($link eq $url) { 
    $occurance = 'Y'; print "Y\n"; 
} else { 
    print "N\n";
} 


Это сообщение отредактировал(а) sir_nuf_nuf - 8.1.2008, 11:32


--------------------
user posted image
user posted image
PM MAIL Jabber   Вверх
ginnie
Дата 8.1.2008, 11:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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



Уважаемый xtrasns, думаю, что
Код

warn $content

после 28-й строки многое прояснит.

Есть подозрение, что русские символы в запросе надо преобразовать в соответствии с rfc (как вариант, смотри URI::Escape) и указать кодировку запроса в функции get() (смотри LWP::UserAgent).


--------------------
Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)
PM MAIL Skype Jabber   Вверх
nitr
Дата 8.1.2008, 14:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



xtrasns, вам изначально сюда
http://forum.vingrad.ru/act-boardrules.html

Цитата(ginnie @  8.1.2008,  11:35 Найти цитируемый пост)
Есть подозрение, что русские символы в запросе надо преобразовать в соответствии с rfc (как вариант, смотри URI::Escape) и указать кодировку запроса в функции get() (смотри LWP::UserAgent).

это немного решалось в "соседнем" топике
http://forum.vingrad.ru/index.php?showtopic=190102


--------------------
PM   Вверх
xtrasns
Дата 8.1.2008, 19:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



я боюст что проблкма не в этом. Другой запрос прогамма хавает, а этот - нет ... Хотя обращаются к тому-же Яндексу. Не может - же яндекс выдавать на 2 хапроса разные кодировки 

И при чем тут правила форума ? Какой пункт я нарушил ?
PM MAIL   Вверх
ginnie
Дата 8.1.2008, 19:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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



Уважаемый xtrasns, странно, но мне казалось что http://go.mail.ru это совсем не Яндекс  smile

Если не сложно, опиши, что скрипт по твоему делает, тогда будет сильно проще тебе помочь, а так, разбираться в "своеобразном" коде нет особого желания  smile 


--------------------
Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)
PM MAIL Skype Jabber   Вверх
nitr
Дата 8.1.2008, 19:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



Попробуйте включить "логирование" и деббагер к библиотеке LWP.
Код
use LWP::Debug qw(+);

perldoc LWP::Debug
и "самопальный" лог тоже можно задействовать. Так будет проще находить ошибки в будущем.

[offtopic]
Цитата(xtrasns @  8.1.2008,  19:24 Найти цитируемый пост)
И при чем тут правила форума ? Какой пункт я нарушил ?

№1 и "негласный" smile что "то что вы пишите, должно отражать суть вопроса".

Это сложно понять, после того как вам ответили, возникают доп.вопросы smile Как считаете это верно?


--------------------
PM   Вверх
xtrasns
Дата 8.1.2008, 20:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Джинни,

скрпит делает запрос к яндексу. Если в выдаче есть опреденные сайты он их сравнивает с тами что указаны в скрипте.  В данном случае сайт - "http://walw.ru/finpr/index.php?12" есть в и в срипте и в яндексе, а меч не работает. Но  именно при это запросе. .при доугих работает.

Нуф нуф !!! А вот как раз работает 

Код

#!/usr/bin/perl

use locale;
use Encode;
use strict;

my $a = "c";


if($a =~ /c/){
    print "rabotaet \n";
}else{
    print "fig tebe \n";
}


nitr , буду вырахаться яснее ! )

PM MAIL   Вверх
nitr
Дата 8.1.2008, 21:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



xtrasns, ошибочка smile))
Код
#!perl
my $url = 'walw.ru/finpr/index.php?12';
my $link = 'walw.ru/finpr/index.php?12';
if( $link =~ /$url/ ) {
    print "ok";
}

Цитата
c:\>1.pl

c:\>


работает ваш код, но надо всё же вспомнить вам регеспы и т.п.
Код
#!perl
my $url = 'walw.ru/finpr/index.php?12';
my $link = 'walw.ru/finpr/index.php?12';
if( $link =~ /\Q$url\E/ ) {
    print "ok";
}

Цитата
c:\>1.pl
ok
c:\>

Экранировать надо!

Проверяйте!


--------------------
PM   Вверх
xtrasns
Дата 8.1.2008, 21:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



спасибо, заработало !!!
PM MAIL   Вверх
nitr
Дата 10.1.2008, 10:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



xtrasns, считаю что вас надо "предупредить" за такие действия!
Первое - топик потерял суть свою, второе - вы всё время это делаете, третье - и притом специально!

Это диструктивные действия по отношению к "форуму", к людям.


--------------------
PM   Вверх
korob2001
Дата 13.1.2008, 13:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

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



xtrasns - настоятельно тебя прошу, изменить название темы.


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

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


 




[ Время генерации скрипта: 0.0517 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.