Help for this page

Select Code to Download


  1. or download this
    if ($csv_line =~ /SEQ/) { # If the line contains 'SEQ' anywhere in it 
    +this will be true
        print "header\n";
    } elsif ($csv_line =~ /^(\w)\t(\w)\t/) { # This will match a word char
    +acter at the beginning of a line followed by a tab, another word char
    +acter, and another tab
        print "Amino Acid:$1\nPrediction:$2\n";
    }