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";
   }
 
댓글 없음:
댓글 쓰기