携帯→2ch運用情報スレッド42

このエントリーをはてなブックマークに追加
522マァヴ ◆jxAYUMI09s
【メモ】サーバでクッキー処理を代行してもらって、携帯からクッキーを使えるようにする方法(^_^;)
--------------------------------------------------
[cookie] perlでcookieを使ったhttpリクエスト方法

$url(第一引数) には取得先のURLを渡す。
$cookiefile(第二引数) には保存先のファイルpathを指定する。

cookieを保存するときには自動でcookiefileに保存し、
cookiefileを指定したままアクセスすると、保存されている
cookieを使用してアクセスすることが出来る。

※perl modulesを使っている。(標準で組み込み)

#=================================================
#
#=================================================
sub HttpAccess
{
use LWP::UserAgent;
use HTTP::Request::Common qw(GET);
use HTTP::Cookies;

my $url = $_[0];
my $cookiefile = $_[1];

my $ua = LWP::UserAgent->new(
'timeout' => 5,
'agent' => 'm_cookie/1.0',
);

### クッキーの設定
my $cookie_jar = HTTP::Cookies->new(
'file' => $cookiefile,
'autosave' => 1,
'ignore_discard' => 1
);

### $ua に必要なクッキーを使わせる
$ua->cookie_jar($cookie_jar);

my $request = GET($url);
my $res = $ua->request($request);
return($res->content);
}
-----------------------------------------
こんな感じー(^_^;)
サンプル
http://minnie.mirv.net/cookie/output.cgi
IEでクッキーチェック http://minnie.mirv.net/cookie/check.cgi
IEのクッキー削除 http://minnie.mirv.net/cookie/output.cgi?d=1

携帯でクッキーを食わせる http://minnie.mirv.net/cookieDB/m_cookie.cgi
携帯でクッキーチェック http://minnie.mirv.net/cookieDB/m_cookie.cgi?check=1
携帯でくっきーの削除 http://minnie.mirv.net/cookieDB/m_cookie.cgi?delete=1