#!/usr/bin/perl -w
# Read Scansite batch output into variables.
# Call: parser.pl results.txt

# Check that an input file was specified
die "Please specify an input file.\n" if $#ARGV < 0;

my ($id, $motif, $family, $site, $score, $pct, $seq, $surf);
my (@idlist, @motiflist, @familylist, @sitelist, @scorelist,
    @pctlist, @seqlist, @surflist);
open(IN, "$ARGV[0]");
while(<IN>) {
    chomp;
    ($id, $motif, $family, $site, $score, $pct, $seq, $surf) = split(/\s+/);

    # Add data from each line to arrays (if desired)
    push @idlist, $id;
    push @motiflist, $motif;
    push @familylist, $family;
    push @sitelist, $site;
    push @scorelist, $site;
    push @pctlist, $pct;
    push @seqlist, $seq;
    push @surflist, $surf;
    $n++;

}
close(IN);

# Done
print "Succesfully loaded $n lines of data into variables.\n";