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