#!/usr/bin/perl
use LWP::Simple;
use LWP::UserAgent;
use HTTP::Request::Common;
use Data::Dumper;

#declare
my @addressSave = ();
my $printCSZ = "";
my $printPO = "";
my $printADD = "";
my $printSuite = "";
my $i = 0;
my $poBoX = "";
my $data = "";
my $data1 = "";
my $city = "";
my $city1 = "";
my $state = "";
my $state1 = "";
my $zip = "";
my $zip1 = "";
my $address = "";
my @invalidAdd = ();

my $arrayLength = "";


#read in
my $filename = ('addresses.txt');

my $txtContent = "";
open(IN, '<', $filename);
while(my $line = <IN>){
    $txtContent    .= $line;
}
close(IN);




#split
my @addresses = split(m/[\r]+/, $txtContent);




my $addressL  = scalar(@addresses);
print $addressL . "\n";


#Save Address Elements to scalars
while($i < $addressL){   
    $address = @addresses[$i];
    
    
     
    
    if($address =~ /(\w+\s*\w*)\S\s(\w\w)\s(\d+)-*\d*/){
        $state = $2;
        $city = $1;
        $zip = $3;
        $city1 = $city;
        $state1 = $state;
        $zip1 = $zip;
    }
     
    elsif($address =~ /(po\sbox\s\d+)/i){
        $poBox = $1;
        $printPO = $poBox
    }
   
    elsif($address =~ /(\w*\D*\d+[\d\s\w.,#]+)/){
        my $addressNum = $1;
        $printADD .= $addressNum . "\n";      
    }
   
    elsif($address =~ /(\w+[\w\s]+)/i){
        $data = "$1\n";
        $data1 .= $data;
    }
   
     if($address =~ /(suite\s\d+)/i){
        $suite = $1;
        $printSuite = $suite;
    }
     
    if(($address =~ /(suite\s\d+)/i) && ($printSuite =~ /(suite\s\d+)/i)){
        $printSuite = "";
        
        
    }
   
    
    
    
    
    #Run if there are values
    if($city1 eq ""){
    }  
    else{
        
        
        while($city1 =~ s/[\s]+/+/){};        
        while($state1 =~ s/[\s]+/+/){};        
        while($zip1 =~ s/[\s]+/+/){};
        while($printPO =~ s/[\s]+/+/){};
        while($printADD =~ s/[\s]+/+/){};
        while($printSuite =~ s/[\s]+/+/){};
        while($data1 =~ s/[\s]+/+/){};
        
            
        my %address =(
            'City'       =>    "$city1",
            'State'      =>    "$state1",
            'Zip'        =>    "$zip1",
            'Address'    =>    "$printADD",
            'PoBox'      =>    "$printPO",
            'Suite'      =>    "$printSuite",
            'MiscData'   =>     "$data1");
        
        save(\%address, \@addressSave);
        
        
        
        #TASK
            #### Save scalar values to a hash
            #### save hash values to an array
            #### post hash values to USPS
            #### Verify 
            #### RED flag if address is not real
            #### Separate bad values from good values
            
        
        $printPO = "";
        $printADD = "";
        $printSuite = "";
        $city1= "";
        $state1 = "";
        $zip1 = "";
        $data1 = "";
       
    }
    

$i++;
}


#Verify if Values are correct

form(\@addressSave, \@invalidAdd);



#Write updated Database

$filename1 = ('addresssUpdate.txt');

open(IN, '>', $filename1);

$i = 0;
my $arrayLength = scalar(@addressSave);


while($i < $arrayLength){
    
       while($addressSave[$i]->{City} =~ s/[+]+/ /){};        
       while($addressSave[$i]->{State} =~ s/[+]+/ /){};
       while($addressSave[$i]->{Zip} =~ s/[+]+/ /){};
       while($addressSave[$i]->{Address} =~ s/[+]+/ /){};
       while($addressSave[$i]->{PoBox} =~ s/[+]+/ /){};
       while($addressSave[$i]->{Suite} =~ s/[+]+/ /){};
       while($addressSave[$i]->{MiscData} =~ s/[+]+/ /){};
         
        print IN "City = " . $addressSave[$i]->{City} . "\n";  
        print IN "State = " . $addressSave[$i]->{State} . "\n";
        print IN "Zip = " . $addressSave[$i]->{Zip} . "\n";
        print IN "Address = " . $addressSave[$i]->{Address} . "\n";
        print IN "Po Box = " . $addressSave[$i]->{PoBox} . "\n";
        print IN "Suite = " . $addressSave[$i]->{Suite} . "\n";
        print IN "Misc data = " . $addressSave[$i]->{MiscData} . "\n\n";

$i++;    
}
close(IN);






####Write invalid add


$i = 0;
my $filename2 = "invaildAddress";
$arrayLength = scalar(@addressSave);

open(IN2 , '>', $filename2);
print IN2 "Invalid Addresses:\n\n\n";
while($i < $addressL){
    
##########BROKE?
  
    print IN2 "City = " . $invalidAdd[$i]->{City} . "\n";  
    print IN2 "State = " . $invalidAdd[$i]->{State} . "\n";
    print IN2 "Zip = " . $invalidAdd[$i]->{Zip} . "\n";
    print IN2 "Address = " . $invalidAdd[$i]->{Address} . "\n";
    print IN2 "Po Box = " . $invalidAdd[$i]->{PoBox} . "\n";
    print IN2 "Suite = " . $invalidAdd[$i]->{Suite} . "\n";
    print IN2 "Misc data = " . $invalidAdd[$i]->{MiscData} . "\n\n";
    
$i++;
}

close(IN2);






####################################################SUBS####################################################SUBS




sub form{
    
    my ($addressSave, $invalidAdd) = @_;
    my $i = 0;
          
    
    my $arrayLength = scalar(@{$addressSave});    
        
            
    while($i < $arrayLength){
                
                
              
        my $city = $addressSave->[$i]->{City};  
        my $state = $addressSave->[$i]->{State};
        my $zip = $addressSave->[$i]->{Zip};
        my $add = $addressSave->[$i]->{Address};
        my $po = $addressSave->[$i]->{PoBox};
        my $suite = $addressSave->[$i]->{Suite};
        print "\n\n";

        
        

         my $url = "http://www.melissadata.com/lookups/addressverify.asp";
         my $agent               = new LWP::UserAgent;
         my $newPost             = new HTTP::Request('GET', $url);
            my $currentZipCode;

        $newPost->content_type('application/x-www-form-urlencoded');
        
        
        
        
        my $post = "name=&Company=&Address=$add+$po&city=$city&state=$state&zip=$zip" . $currentZipCode; 
        print "post = " . $post . "\n";
        $newPost->content($post);
        my $response = $agent->request($newPost);
    
        if ($response->is_success) {
             print "response success\n";
        }
        ##--Handle successful post data
        my $htmlResult = "Address NOT Verified";#($response->content);
    
        if($htmlResult =~ m/Address\sNOT\sVerified/i){
        print "address invalid";
            $addressSave->[$i] = $invalidAdd->[$i];
            $addressSave->[$i] = ();
        print "\n";
        }
        elsif($htmlResult =~ m/is\srequired\sto\sprocess\sthe\saddress/i){
            print "address invalid\n";
            $addressSave->[$i] = $invalidAdd->[$i];
            $addressSave->[$i] = ();
        print "\n";
            
        }
        else{
        print "Address Valid\n";
            
         }
        
    $i++;
    }


}



sub save{   
    
    my ($address, $addressSave) = @_;
      
    
    push(@{$addressSave}, $address);


  
    
}