use warnings;
use strict;
+use Data::Dumper;
use Maasha::Filesys;
use Maasha::Biopieces;
while ( $line = <$data_in> )
{
+ chomp $line;
+
if ( $skip )
{
$skip--;
next;
}
- next if $line =~ /^#|^$/; # skip comment lines beginning with # and skip empty lines.
+ next if $line =~ /^$/; # skip empty lines.
- chomp $line;
+ if ( $line =~ /^#.+/ and not defined $options->{ 'keys' } )
+ {
+ $line = substr $line, 1;
+
+ $options->{ 'keys' } = [ split /$options->{'delimit'}/, $line ];
+
+ next;
+ }
undef $record;
undef @fields2;