2006년 11월 21일 화요일

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";
  }

댓글 없음:

댓글 쓰기