#!/usr/bin/perl -- use strict; use warnings; use WWW::Scripter; my $w = WWW::Scripter->new; $w->use_plugin('JavaScript'); #~ http://www.w3schools.com/JS/js_cookies.asp #~ http://www.w3schools.com/JS/tryit.asp?filename=tryjs_cookie_usernam +e #~ http://www.w3schools.com/JS/tryit_view.asp?filename=tryjs_cookie_us +ername $w->set_prompt_function( sub { 'teh usernaem ' } ); $w->get('http://www.w3schools.com/JS/tryit_view.asp?filename=tryjs_coo +kie_username'); print $w->cookie_jar->as_string, "\n\n"; print $w->document->body->as_text; __END__ Set-Cookie3: ASPSESSIONIDCARTDDCR=EFEIMDHAHLJNFCHKOGLODEKM; path="/"; +domain=www.w3schools.com; path_spec; discard; version=0 Set-Cookie3: username=teh%20usernaem%20; path="/JS"; domain=www.w3scho +ols.com; expires="2012-03-15 16:43:55Z"; version=0
In reply to Re^7: WWW Mechanize and JavaScript Cookie
by Anonymous Monk
in thread WWW Mechanize and JavaScript Cookie
by saintex
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |