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);

[download]

In reply to Data extraction with specific keywords by neeraj_kr

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • 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! —
  • 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:
    & &amp;
    < &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.