
Tejas
User
Nov 28, 2013, 12:08 AM
Post #1 of 2
(1483 views)
|
Unable to compare a string from two files
|
Can't Post
|
|
Below is the data from first file 872292349118 872292765118 872292968118 872294069118 872294258118 872294305118 872294570118 872294791118 872294854118 872295250118 872295425118 872295545118 872295623118 872295926118 872296181118 872296490118 872297009118 872298093118 872298602118 872298912118 872299173118 872299177118 872299229118 And below is the data from secomd file 1000012916|24-OCT-2013|14|871254308118|67.16|CAD|7|89898989 1000013530|25-OCT-2013|14|871269021118|30.28|CAD|7|89898989 1000074161|24-OCT-2013|14|871591949118|30.5|CAD|7|89898989 10000806605|24-OCT-2013|14|871702542118|31.67|CAD|7|89898989 10000833805|23-OCT-2013|14|871724740118|32.19|CAD|7|89898989 10000833805|23-OCT-2013|14|871724742118|17.3|CAD|7|89898989 1000130760|24-OCT-2013|14|871877010118|33.57|CAD|7|89898989 1000150931|25-OCT-2013|14|871842114118|32.69|CAD|7|89898989 1000153070|22-OCT-2013|14|871200079118|84.13|CAD|7|89898989 1000166106|24-OCT-2013|14|871644443118|44.61|CAD|7|89898989 1000172020|18-OCT-2013|14|869881657118|96.6|CAD|7|89898989 1000182691|21-OCT-2013|14|870905290118|30.23|CAD|7|89898989 1000200031|23-OCT-2013|14|871554316118|16.27|CAD|7|89898989 1000210510|24-OCT-2013|14|871859589118|66.45|CAD|7|89898989 1000223401|24-OCT-2013|14|871877119118|10.91|CAD|7|89898989 1000226571|24-OCT-2013|14|871896726118|132.53|CAD|7|89898989 1000234276|03-OCT-2013|14|867872650118|36.18|CAD|7|89898989 1000240286|22-OCT-2013|14|870854852118|56.44|CAD|7|89898989 1000254906|23-OCT-2013|14|871758022118|32.52|CAD|7|89898989 1000319110|22-OCT-2013|14|871495120118|60.36|CAD|7|89898989 1000319110|22-OCT-2013|14|871495121118|188.54|CAD|7|89898989 10003304805|15-OCT-2013|14|870046641118|144.38|CAD|7|89898989 1000345026|08-OCT-2013|14|868897153118|10.34|CAD|7|89898989 1000345026|10-OCT-2013|14|869220263118|31.49|CAD|7|89898989 I need to check whether the 4th value of second file matcheds with the first files's value And i have to just save unmatched value in a new file Below are my trials use strict; use warnings; use Data::Dumper; our %hash; my $firstFile = $ARGV[0]; my $secondFile = $ARGV[1]; open FIRST, "< $firstFile" or die "could not open first file...\n"; while (my $line = <FIRST>) { my @elements = split '\|', $line; my $col3Val = $elements[3]; # Perl arrays are zero-indexed $hash{$col3Val} = 0; } close FIRST; open SECOND, "< $secondFile" or die "could not open second file...\n"; while (my $line = <SECOND>) { my $col0ValFromSecondFile = $line; if (defined $hash{$col0ValFromSecondFile}) { print "$col0ValFromSecondFile Matched"; } else { warn "We did not locate $col0ValFromSecondFile in hash table for second file's Col2 value...\n"; } } close SECOND; I suspect a big flaw in the hash ,which iam not ablt to find. Please help me , thanks in advance tejas
(This post was edited by Tejas on Nov 28, 2013, 1:07 AM)
|