Lunux에서 CPAN을 사용한 자동 모듈 설치

Using CPAN. Otherwise you'll want to use CPAN to install the modules by performing the following steps:

From the root prompt on your server, invoke the CPAN shell:

# perl -MCPAN -e shell

Once the Perl interpreter has loaded (and been configured), you can install modules by issuing the command install MODULENAME.

The first thing you should do is upgrade your CPAN:

cpan> install Bundle::CPAN

Once it's done, type:

cpan> reload cpan

Now, enter the following command to retrieve all of the required modules:

cpan> install DBI
cpan> install DBD::mysql
cpan> install Bundle::DBI ( 2008.4.16 추가 )
cpan> install Digest::MD5
cpan> install Digest::SHA1
cpan> install Image::Size
cpan> install MIME::Lite
cpan> install MIME::Words
cpan> install Compress::Zlib
cpan> install MIME::Base64
cpan> install URI::URL
cpan> install HTML::Tagset
cpan> install HTML::Parser
cpan> install LWP::Simple
cpan> install LWP::UserAgent
cpan> install GD
cpan> install Mail::Address
cpan> install Unicode::MapUTF8
cpan> install Storable
cpan> install Time::HiRes
cpan> install IO::WrapTie

And likewise for the optional modules:

cpan> install Net::SMTP
cpan> install GD::Graph
cpan> install Proc::ProcessTable
cpan> install RPC::XML
cpan> install SOAP::Lite
cpan> install XML::RSS
cpan> install String::CRC32

Win32::IE::Mechanize 사용한 form 내용 확인

  use Win32::IE::Mechanize;

  my $url = "http://";    
  $ie->get( $url );

  # form의 정보 조회
  @webforms = $ie->forms;
  my $f = $webforms[0] or die "Couldn't get first form!\n";
  my @items = $f->inputs;
 
  #    or die "Couldn't get items in first form!\n";
  #
  ## iterate through items, prompt user, commit actions
  foreach my $item (@items) {
      # show item info
      my $sender = $item->name;
      print "$sender";
      print "\n";
  }