I am trying to write a Perl code to extract specific keywords from a large data file. I have created an array where those specific keywords were stored. I was trying to read that large file line by line and extract matching keywords and want to store them in a new file. I am pasting my code here as it's not working properly. Help will be appreciated. Thank you.
$a=`head -1 $ARGV[0]`;
@arr=split(/\t/,$a);
$col=$#arr;
$c=0;
@arr1 = ("91:", "86:", "184:", "430:", "391:", "254:", "121:", "192:",
+ "404:", "12:", "87:", "638:", "417:", "129:", "549:", "548:", "122:"
+, "443:", "378:", "365:", "665:", "148:", "185:", "88:", "629:", "6
+37:", "149:", "625:", "635:", "627:", "650:", "468:", "92:", "618:",
+"212:", "85:", "628:", "171:", "649:", "15:", "61:", "169:", "104:",
+"202:", "523:", "60:", "672:", "291:", "658:", "59:", "547:", "491:",
+ "234:", "411:", "620:", "581:", "414:", "14:", "412:", "416:", "345:
+", "626:", "457:", "72:", "384:", "371:", "9:", "580:", "436:", "356:
+", "385:", "58:", "669:", "388:", "386:", "390:", "636:", "619:", "16
+:", "413:", "17:", "524:", "579:", "624:", "90:", "471:", "410:", "55
+1:", "289:", "387:", "531:", "64:", "166:", "211:", "467:", "415:", "
+232:", "550:", "362:", "375:", "401:", "359:", "372:", "398:", "360:"
+, "364:", "399:", "403:", "373:", "377:", "18:", "118:", "585:", "427
+:", "424:", "586:", "469:", "425:", "429:", "13:", "423:", "500:", "6
+2:", "109:", "19:", "539:", "499:", "532:", "400:", "63:", "361:", "3
+74:", "73:", "449:", "175:", "426:", "89:", "507:", "397:", "389:", "
+582:", "475:", "20:", "22:", "541:", "492:", "503:", "555:", "595:",
+"596:", "450:", "23:", "611:", "509:", "3:", "485:", "24:", "438:", "
+442:", "440:", "484:", "117:", "32:", "437:", "31:", "663:", "339:",
+"535:", "21:", "470:", "439:", "525:", "172:", "40:", "65:", "487:",
+"50:", "517:", "597:", "545:", "516:", "402:", "347:", "614:", "540:"
+, "613:", "346:", "67:", "363:", "583:", "376:", "428:", "71:", "615:
+", "332:", "271:", "5:", "508:", "74:");
#print "$m\n";
print $arr[2],"\n";
for($i=1;$i<=$#arr+1;$i++)
{
foreach $ar(@arr1)
{
if ($arr[$i] == $ar)
{
$c[$j]=$i;
$j++;
# print $j;
}
#print $arr[1],"\n";
}
}
open(fh,"$ARGV[0]");
while(<fh>)
{
chomp $_;
@arr2=split(/\,/,$_);
foreach $ar(@c)
{
# print $arr2[$ar],"\t";
}
#print "\n";
}
close(fh);
