perl+LWP包使用的问题，也说说我对perl的疑惑.

CODE:

#!/usr/bin/perl

use LWP::UserAgent;
use HTML::Form;

my $ua = new LWP::UserAgent(cookie_jar => {});
my $res = $ua->get('http://www.163.com');

# 1. 这里是获得当前网页中所有的form，如何在返回的forms里枚举所有的form，取出我要操作的那个form?
my $forms = HTML::Form->parse($res->content(), 'http://www.163.com');

# 2. 参考perldoc，如下调用返回forms的所有input元素。既然forms里面包含多个form，这里的forms又是哪一个?
my $inputs = $forms->inputs();

# 3. 下面就纯粹是测试用了，但是执行时提示错误：
# Can't call method "type" without a package or object reference， my $inputs = $forms->inputs();-〉inputs是这里的返回值啊

if($inputs->type eq "submit") {
    print "get submit type\n";
}
else {
    print "no submit type\n";
}
print "exit normally\n";

QUOTE:

@forms = HTML::Form->parse( $response )
@forms = HTML::Form->parse( $html_document, $base )
@forms = HTML::Form->parse( $html_document, %opt )
    The parse() class method will parse an HTML document and build up
    "HTML::Form" objects for each <form> element found. If called in
    scalar context only returns the first <form>. Returns an empty list
    if there are no forms to be found.

    The $base is the URI used to retrieve the $html_document. It is
    needed to resolve relative action URIs. If the document was
    retrieved with LWP then this this parameter is obtained from the
    $response->base() method, as shown by the following example:

        my $ua = LWP::UserAgent->new;
        my $response = $ua->get("http://www.example.com/form.html");
        my @forms = HTML::Form->parse($response->decoded_content,
                                      $response->base);
......

@inputs = $form->inputs
    This method returns the list of inputs in the form. If called in
    scalar context it returns the number of inputs contained in the
    form. See "INPUTS" for what methods are available for the input
    objects returned.
.....

QUOTE:

原帖由 NewCore 于 2007-8-29 16:11 发表
目的是实现对web页面的内容进行分析，代码列举如下：

QUOTE:

原帖由 royalzhang 于 2007-8-29 17:05 发表
被版主抢前面了

QUOTE:

原帖由 flw 于 2007-8-29 17:13 发表
再给楼主推荐一个很好用的内建模块：

perldoc Data:umper

我在使用陌生模块时，经常用它。

QUOTE:

原帖由 NewCore 于 2007-8-29 17:12 发表
LS说的是，是我看得不仔细了

第一次用perl做项目，碰到一些问题，有点发晕...见笑见笑了。归根结底，还是自己对perl掌握不扎实，不过本意也是想趁这个机会，把perl给学习一下。