dongsui0929 2012-07-02 20:51
浏览 108
已采纳

使用LWP登录JSP服务器

I'm trying to create a script to log into a JSP website using LWP (Library for WWW in Perl) and perform several actions. The website has some Ajax Elements (Widgets) That are rendered after logging in. I am able to get the frames with this code however the Ajax widgets fail to load.

#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
use HTTP::Cookies;

my $ua = LWP::UserAgent->new;
$ua->agent('Mozilla/8.0');
$ua->cookie_jar(
        HTTP::Cookies->new(
                file => 'mycookies.txt',
                autosave => 1
                )
        );
push @{ $ua->requests_redirectable } , 'POST';
$ua->max_redirect('3');
my $user="USER";
my $psw="PASSWORD";
my $req = POST 'http://somesite.../?cmd=login', ['userid'
 => $user , 'pwd' => $psw];
my $res = $ua->request($req);
if ($res->is_success){
print $res->content;}else { print $res->status_line . "
" . $res->content;}
exit 0;

I tried CURL and that failed in Ajax parts too. Can anyone help ? Is there any tools out there that does this ? [I've been told I need to create a virtual browser, but other than curl and lwp I dunno how ]

  • 写回答

1条回答 默认 最新

  • douchao1864 2012-07-02 21:02
    关注

    You need JavaScript-engine for AJAX, e.g. browser. See WWW::Mechanize::Firefox.

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

悬赏问题

  • ¥15 矩阵加法的规则是两个矩阵中对应位置的数的绝对值进行加和
  • ¥15 活动选择题。最多可以参加几个项目?
  • ¥15 飞机曲面部件如机翼,壁板等具体的孔位模型
  • ¥15 vs2019中数据导出问题
  • ¥20 云服务Linux系统TCP-MSS值修改?
  • ¥20 关于#单片机#的问题:项目:使用模拟iic与ov2640通讯环境:F407问题:读取的ID号总是0xff,自己调了调发现在读从机数据时,SDA线上并未有信号变化(语言-c语言)
  • ¥20 怎么在stm32门禁成品上增加查询记录功能
  • ¥15 Source insight编写代码后使用CCS5.2版本import之后,代码跳到注释行里面
  • ¥50 NT4.0系统 STOP:0X0000007B
  • ¥15 想问一下stata17中这段代码哪里有问题呀