[Perl] LWP::UserAgent
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);my $url = 'http://xxxxxxx/xxx/';
my %formdata = ('user' => 'hogehoge', 'password' => 'password');
my $request = POST($url, [%formdata]);my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)");
my $res = $ua->request($request);
print $res->as_string;
2007-03-25
今日、購入した書籍
電車で読む用
ハッカーズ その侵入の手口 奴らは常識の斜め上を行く ケビン・ミトニック ウィリアム・サイモン 峯村 利哉 |
時事ネタ
ヤマト運輸がWinnyに流失した個人情報を完全に削除出来たらしい
http://blog.livedoor.jp/dqnplus/archives/945342.html
===========================================================
外山恒一氏もおもしろいが、これもおもしろいな。
2007-03-24
今の環境では、自分のやりたいことができなくなってきたかもしれない。
身の振り方を考えたいと思う。
Javaに触れる機会が多かったが、Script言語に触れていきたい。
etc
人名を検索ワードとするのは悪趣味だとは思うが、自分のならいいやと自分の名前で検索してみた。学生時代の論文と共にひっかかった。懐かしいや。