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

QUOTE:

原帖由 NewCore 于 2007-8-29 17:21 发表
选择用perl主要出于两个原因，1是它是脚本语言，可以和应用程序分离，2是它资源多，开发快。对于我一个半生不熟的perler来说，确实暂时还没有体会到第2这个优点。但是出于项目整体的角度，我还是选择用perl来做 ...

QUOTE:

原帖由 NewCore 于 2007-8-29 17:43 发表
说的是，有问题还得多多请教。

CODE:

#!/usr/bin/perl                                                                    
                                                                                   
use strict;                                                                        
use LWP::UserAgent;                                                               
use HTML::Form;                                                                    
                                                                                   
my $url = "http://www.163.com";                                                   
                                                                                   
my $ua = new LWP::UserAgent(cookie_jar => {});                                    
my $res = $ua->get($url);                                                         
unless($res->is_success()) {                                                      
    print "cannot get content from", $url, "\n";                                   
    return;                                                                        
}                                                                                 
                                                                                   
my @forms = HTML::Form->parse($res->content(), $url);                              
                                                                                   
# enumerate every form in forms                                                   
foreach my $form (@forms) {                                                        
    if($form->find_input(undef, "submit") &&                                       
        $form->find_input("username") &&                                          
        $form->find_input("password")) {                                          
        print $form->dump();                                                      
        # ok, we will click button to submit our request.                          
        $form->value("username", "newcore22");                                    
        $form->value("password", "pwd");   
        # see if value of input boxes have been modified.                          
        print $form->dump();                                                      
                                                                                   
        # cuase form->click($name) method requires a parameter of control's name,  
        # but login button has no name. we use form->make_request() instead.      
#        $form->click("submit");                                                   
        my $req = $form->make_request();                                          
        # fire login request                                                      
        my $res2 = $ua->request($req);         
                                    
        # see what wo got from http server     
         if($res2->is_success()) {                                          
             print "\nlogin response from http server\n";                    
             print $res2->content();                                         
             # write to file                                                
             open fd, ">./web.html" || die "open file failed\n";            
             print fd $res2->content();                                      
             close fd;                                                      
         }                                                                  
         else {                                                              
             print "\nlogin failed with error ", $res2->status_line(), "\n";
         }                                                                  
         goto out;                                                           
     }                                                                       
     else {                                                                  
         print "fail to submit\n"                                            
     }                                                                       
}                                                                           
out:                                                                        
print "exit normally\n";                                                                                                     

CODE:

$form->find_input(undef, "submit")；

CODE:

my $res2 = $ua->request($req);   

CODE:

$res = $ua->request($req); or
$res=undef;
$res=$ua->request($req); or
要释放$res的内存先？

QUOTE:

  if($form->find_input(undef, "submit") &&                                       
        $form->find_input("username") &&                                          
        $form->find_input("password"))

QUOTE:

my @forms = HTML::Form->parse($res->content(), $url);   
@forms = grep $_->attr("id") eq "login", @forms;
die "No form named 'login' found" unless @forms;
$form = shift @forms;
下面继续