Sometimes i just like to take out the bigger hammer, or the chainsaw if you like

use strict; use warnings; 
  use LWP;
  use HTML::Entities            qw/decode_entities/;
  use Data::Dumper; 


  my $ua; 
  $ua = new LWP::UserAgent(keep_alive=>1
                          ,agent =>"Mozilla/5.0 (Windows NT 5.1; rv:51
+.0) Gecko/20100101 Firefox/51.0"
#                          ,ssl_opts => { verify_hostname => 0
#                                       , SSL_verify_mode => 'SSL_VERI
+FY_NONE' 
#                                       }
#                          ,timeout=>$timeout
                          );

#  use HTTP::Cookies::Mozilla;
#  $cookie_jar_obj = HTTP::Cookies::Mozilla->new(file=>$cookie_file);
#  $ua->cookie_jar( $cookie_jar_obj );

  my $response;
  my $response2;
  my $reuse1=0; 
  my $reuse2=0; 
  if ($reuse2) {$reuse1=1}; 
  unless ($reuse1) { 
      $response=getter('http://www.appaloosa.com/web/mbrverify.aspx');
+ saver('mbrverify.txt',$response); 
      } 
  else { $response=unsaver('mbrverify.txt'); } 

#print Dumper($response);
  unless ($reuse2) { 
      my $res=form_parser1($response); 
#      print Dumper($res);

      my $form=$res->[0]; 
      my $mynumber=0; # id number 
      $form->{pairs}{txtMemNumA}=$mynumber; 
#      print Dumper($res);
      $response2=backer($response,$form); saver('mbrverify2.txt',$resp
+onse2); 
      } 
  else{
      $response2=unsaver('mbrverify2.txt'); 
      } 

#print Dumper($response2);

exit; 

sub getter { 
  my $uri=shift; 
  my $args=shift; # array ref of args
  my $page = URI->new($uri);
  if ($args) { $page->query_form( @$args); } 

  my $req = new HTTP::Request (GET => $page); 
  my $response = $ua->request ($req);

  unless ($response->is_success) {
     die $response->status_line; 
     } 
  return $response;  
} # getter 

sub poster { 
  my $uri=shift; 
  my $vars=shift; # array ref of args
  my $page = URI->new($uri);
  $response = $ua->post( $page, $vars); 
  unless ($response->is_success) {
      die $response->status_line; 
      } 
  return $response;
  }  # poster 


sub form_parser1 { 
  my $response=shift; 
  my $page=decode_entities($response->decoded_content); 
  my @forms=$page=~m!(<form.+?</form.*?>)!msg; 
  my $res=[]; 
  for my $form (@forms){ 
    my ($fid)=$form=~m!(<form.+?>)!msg; 
    my $fh={}; 
    ($fh->{method})=$fid=~m!method="(.*?)"!ms; 
    ($fh->{action})=$fid=~m!action="(.*?)"!ms; 
  
    my @inputs=$form=~m!(<input.+?/>)!msg; 
    my $infields=[]; 
    my $inhash={}; 
    $fh->{pairs}=$inhash; 
    for my $input (@inputs) { 
      my ($name)=$input=~m!name="(.+?)"!i; 
      my ($value)=$input=~m!value="(.+?)"!i; 
      $inhash->{$name}=$value; 
      push @$infields,$name;
      } # input
    $fh->{infields}=$infields; 
    push @$res,$fh; 
    } # form 
  return $res; 
  } # parser 


sub backer { 
# only handles post and get 
  my $responseto=shift; 
  my $form=shift; 
#  my $base=$responseto->base;  # gives Can't locate object method "sc
+heme" via package "URI::http"
  my $base=${$responseto->{_request}{_uri}};
  my $page = URI->new_abs($form->{action},  $base);
  my $response; 

  my $vars=[]; 
  my $hash=$form->{pairs}; 
  for my $id (@{$form->{infields}}) { 
    push @$vars,$id,$hash->{$id}; 
    } 

  if (uc($form->{method}) eq 'POST') { 
      return poster($page,$vars); 
      } # post  
  else{ 
      return getter($page,$vars); 
      } # get 
  return $response; 
} # backer

sub saver { 
  my $fn=shift; 
  my $response=shift; 
  open (my $rep,'>',$fn); 
  binmode $rep, ":encoding(UTF-8)"; 
  local $Data::Dumper::Deepcopy=1;
  local $Data::Dumper::Purity=1;
  local $Data::Dumper::Sortkeys=1;
  local $Data::Dumper::Indent=1; 
  print $rep Dumper($response);
  close $rep; 
  } #saver 

sub unsaver { 
  my $fn=shift; 
  open (my $rep,'<',$fn); 
  binmode $rep, ":encoding(UTF-8)"; 
  my $stuff=do { local $/;<$rep>};  
  close $rep; 
  { 
    no strict;
    return eval ($stuff) ; 
  }
  } # unsaver
[download]

This saves the returned data to files in Data::Dumper form that you can view with an editor, and it can reuse parts so you dont have to start at the beginning each time. But i used the big hammer rather than HTML::Form too.

I left in some commented stuff i might have otherwise used as comments. If you were logged in via firefox using cookies may pass you by the verification stage. What i got back changed based on my agent. If it were https and not passing CA check my bigger hammer method is to bypass checking.

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.