1 package Profile::Generic;
13 Reads in a generic profile, where each position is represented by a line, and each piece of information is white space deliminated.
21 =head2 $obj->read($filehandle)
23 Reads in the profile contained in the file.
31 $self->add_pos(split);
35 =head2 $obj->write($filehandle);
37 Writes WS seperated profile, with each position on each line.
44 while ((my @data = $self->get_pos) > 1) {
45 print $fh " ".join(" ", @data), "\n";