VPF::Mechanize & Storable - Форум программистов

od0201

Дата 23.6.2016, 18:38 (ссылка)

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

Загрузка ...

Шустрый

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

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

Код


sub test{
    use WWW::Mechanize;
    use HTTP::Cookies;
    use Storable;
    
    my $cookies = new HTTP::Cookies (file => "object/test", autosave => 1, ignore_discard => 1);
    my $mech = WWW::Mechanize->new();
    $mech->agent($ENV{HTTP_USER_AGENT});
    $mech->cookie_jar($cookies); 
    $url="http://www.top.ucoz.ru/";
    my $step=1;
    print "step $step<br>";
    if ($step==1){
        $resp = $mech->get($url);
        store $resp, "object/test.txt";
    }
    if ($step==2){
        $resp = retrieve('object/test.txt');
    }
    $content=$resp->decoded_content;
    print $content;
exit;
}

Сериализация $resp проходит удачно, но с сериализацией $mech я постиг неудачу. Есть ли способ сериализировать такой объект как $mech?

arto

Дата 26.6.2016, 18:10 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата

The Storable package brings persistence to your Perl data structures containing SCALAR, ARRAY, HASH or
REF objects, i.e. anything that can be conveniently stored to disk and retrieved at a later time.

Добавлено через 3 минуты и 43 секунды
btw, можно попробовать $Storable::Deparse = 1 ; $Storable::Eval = 1

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