#! /usr/bin/perl 
 
my $pwd = `pwd`; 
chomp($pwd); 
my $clr_txns= "$pwd/File1.txt"; 
my $temp_file = "$pwd/File2.txt"; 
my $final_output= "$pwd/Final_List.txt"; 
open (FIRST,"< $clr_txns")or die "could not open $clr_txns $!"; 
open (SECOND,"< $temp_file")or die "could not open $cto_txns $!"; 
open (MATCH,"> $final_output")or die "could not open $final_output$!"; 
 
my %hash  = (); 
my %hash1 = (); 
while (my $line = <FIRST>) { 
        my @elements = split ',', $line; 
        my $key = $elements[0]; 
        print "$key\n"; 
                $hash{$key} = 1; 
                $hash2{$key} = $line; 
} 
#open SECOND, "< $secondFile" or die "could not open second file...\n"; 
while (my $line = <SECOND>) { 
                 my @elements = split ',', $line; 
                my $key = $elements[0];  # Perl arrays are zero-indexed 
                if ($hash{$key}) { 
                         #print "($hash{$key} \n"; 
                        print MATCH "$line"; 
                        $hash{$key} = 0; 
                } 
                else { 
                        print MATCH "$line" ;  #Also Print unmatched, as we need all the txns from both the files 
                } 
} 
        while( my( $key, $value ) = each %hash2 ){ 
                     if($hash{$key} != 0)    { 
                        print MATCH "$value";   # Print the values of other files, and eliminate the matched ones 
                } 
         
 
} 
 
close (FIRST); 
close (SECOND);

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use Cwd; 
 
my $cwd          = getcwd(); 
my $clr_txns     = "$cwd/File1.txt";  
my $temp_file    = "$cwd/File2.txt"; 
my $final_output = "$cwd/Final_List.txt"; 
 
open my $in_fh1, '<', $clr_txns or die "could not open $clr_txns <$!>"; 
open my $in_fh2, '<', $temp_file or die "could not open $temp_file <$!>"; 
open my $out_fh, '<', $final_output or die "could not open $final_output <$!>"; 
 
# Since I don't know what your data represents, I can't come up with a better name 
# so I kept your hash name 
my %hash; 
 
while (my $line = <$in_fh1>) { 
    my $key = (split /,/, $line)[0]; 
    $hash{$key} = $line; 
} 
close $in_fh1; 
 
while (my $line = <$in_fh2>) { 
    my $key = (split /,/, $line)[0]; 
    $hash{$key} = $line; 
} 
close $in_fh2; 
 
foreach my $value (values %hash) { 
    print $out_fh $value; 
} 
close $out_fh;

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use DBI; 
use DBD::CSV; 
use Data::Dumper; 
 
# connect to "csv database" using default parameters 
my $dbh = DBI->connect("DBI:CSV:") or die $DBI::errstr; 
 
# prepare and execute select statement to fetch 1 row 
my $sth = $dbh->prepare("select * from file1.csv limit 1") or die $dbh->errstr(); 
$sth->execute; 
 
# fetch the row 
my @row = $sth->fetchrow_array; 
 
# dump out the row (array) 
print Dumper \@row; 
 
# disconnect from the "csv database" 
$dbh->disconnect;

$VAR1 = [ 
          '28045281', 
          '1', 
          '19', 
          'DAD', 
          '12701012015', 
          '0', 
          '-261.02', 
          '01-AUG-14', 
          '01-AUG-14', 
          '1' 
        ];

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use Cwd; 
 
my $cwd          = getcwd(); 
my $clr_txns     = "$cwd/File1.txt"; 
my $temp_file    = "$cwd/File2.txt"; 
my $final_output = "$cwd/Final_List.txt"; 
 
open my $in_fh1, '<', $clr_txns or die "could not open $clr_txns <$!>"; 
open my $in_fh2, '<', $temp_file or die "could not open $temp_file <$!>"; 
open my $out_fh, '>', $final_output or die "could not open $final_output <$!>"; 
 
my %Unbal_Hash; 
 
while (my $line = <$in_fh1>) { 
    my $key = (split /,/, $line)[0]; 
    $Unbal_Hash{$key} = $line; 
} 
close $in_fh1; 
 
while (my $line = <$in_fh2>) { 
my ($key,$balance) = (split /\t/, $line)[0,7]; 
        if (exists $Unbal_Hash{$key} && $balance == 0 ) 
        { 
                print "$Unbal_Hash{$key}\n"; 
                delete $Unbal_Hash{$key}; 
        } 
        else 
        { 
                $Unbal_Hash{$key} = $line; 
        } 
} 
close $in_fh2; 
 
foreach my $value (values %Unbal_Hash) { 
    print $out_fh $value; 
} 
close $out_fh;

   if (exists $Unbal_Hash{$key} && $balance == 0 )  
        {  
                print "$Unbal_Hash{$key}\n";  
                delete $Unbal_Hash{$key};  
        }  
        else  
        {  
                $Unbal_Hash{$key} = $line;  
        }

sub compare { 
	my ($curr, $prev) = @_; 
	my $curr_key = (split /,/, $curr)[0]; 
	my $prev_key = (split /,/, $prev)[0]; 
	return 1 if $curr_key eq $prev_key; 
	return 0; 
}

sub compare { 
	my ($curr_key, $prev_key) = (split /,/, $_)[0] for @_; 
	$curr_key eq $prev_key ? 1 : 0; 
}

my $previous_line = ""; 
while (my $line = <$FH_IN>) { 
	chomp $line; 
	if (compare($line, $previous_line)) { 
		# this line is a duplicate 
		print $FH_DUPL $line, "\n"; 
	} else { 
		print $FH_OUT $line, "\n"; 
	} 
	$previous_line = $line; 
}

sub compare2 {  
	my ($curr_key, $prev_key) = (split /,/, $_)[0] for @_;  
	return $curr_key cmp $prev_key;  
}

my $ligne1 = <$IN1>; 
my $ligne2 = <$IN2>; 
die "One of the input files is empty\n" unless defined $ligne1 and defined $ligne2; 
chomp ($ligne1, $ligne2); 
while ( 1 ) { 
	my $comparison = compare2($ligne1, $ligne2); 
    if ($comparison > 0) { 
        print $ORPH2 $ligne2, "\n"; 
        $ligne2 = <$IN2>; 
        last unless defined $ligne2; 
        chomp $ligne2; 
    } else { 
    if ($comparison < 0) { 
        print $ORPH1 $ligne1, "\n"; 
        $ligne1 = <$IN1>; 
        last unless defined $ligne1; 
        chomp $ligne1; 
    } else { 
        print $OUT1 $ligne1, "\n"; 
        print $OUT2 $ligne2, "\n"; 
        $ligne1 = <$IN1>; 
        $ligne2 = <$IN2>; 
        last unless defined $ligne1 and defined $ligne2; 
        chomp ($ligne1, $ligne2); 
        } 
    } 
}     
print $ORPH2 $ligne2 if defined $ligne2; 
print $ORPH2 $ligne2 while $ligne2 = <$IN2>; 
print $ORPH1 $ligne1 if defined $ligne1; 
print $ORPH1 $ligne1 while $ligne1 = <$IN1>;