нажать кнопку.WWW::Mechanize::Firefox

 
0
 
Perl
ava
burakov | 26.03.2013, 01:58
Добрый день

подскажите можно ли при помощи WWW::Mechanize::Firefox нажать кнопку и установить в нужное положение переключатель радиобутон.
нужно установить на яндекс маркете значение в настройках "не учитывать регионы"
вот с этой странички

http://market.yandex.ru/settings.xml

пишу вот такой код


my $mech = WWW::Mechanize::Firefox->new ();
$mech->agent('Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.16) Gecko/20110319 Firefox/3.6.16');
$mech -> autoclose_tab (0);    #автоматическое закрытие вкладок (если 0 то не закрывает)


        my $url = 'http://market.yandex.ru/settings.xml';

    $mech->add_header (
        'Accept' => 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8',
        'Accept-Language' => 'ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3',
        'Accept-Charset' => 'windows-1251,utf-8;q=0.7,*;q=0.7',
    );
    
    my $result = $mech->get($url);    
    if ($mech -> success ()) {
    

    
    }


в хелпе написано

       $mech->click_button( name => 'go' );
       $mech->click_button( input => $mybutton );

но ниче его не понял. имени у моей кнпоки нету.
и кроме того крыжик радио кнопки нужно тоже установить в "не учитывать регионы"...

подскжите пожалуйста как кликнуть.?


Kommentare (1)
ava
burakov | 26.03.2013, 11:22 #
Друзья! не бросайте меня в трудный час ! smile.


    my $url = 'http://market.yandex.ru/settings.xml?from=http%3A%2F%2Fmarket.yandex.ru%2F';
    my $result = $mech->get($url);    
    if ($mech -> success ()) {
        
        $mech->click ({ xpath => './/*[@id=\'settings-form\']/table/tbody/tr[2]/td[2]/table/tbody/tr[1]/td[2]/label[2]'});
        $mech->click ({ xpath => './/*[@id=\'settings-form\']/table/tbody/tr[4]/td[2]/span/input'});
    }



вот накопал, что
        $mech->click

кликает вместе с xpath нормально!. но гад. кликает только по одной кнопке и замирает.
либо радиобутон значение устанавливает, либо кнопку "сохранить параметры"
а вот так вместе как мне нужно . не хочет .

кто уже делал. ? отзовитесь. очень нужно.

спасибо.
Registrieren Sie sich oder melden Sie sich an, um schreiben zu können.
Unternehmen des Tages
Вы также можете добавить свою фирму в каталог IT-фирм, и публиковать статьи, новости, вакансии и другую информацию от имени фирмы.
Подробнее
Mitwirkende
  burakov
advanced
Absenden