Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
29 lines (25 sloc) 458 Bytes
#!/usr/bin/perl -w
foreach $fn (@ARGV)
{
unless( -r $fn )
{
print STDERR "\nFile $fn is not readable. Skipping this one.\n";
next;
}
open( INF, "<$fn" );
open( OUF, ">$fn.spans" );
open( NOR, ">$fn.mapped" );
while( $line = <INF> )
{
if( $line =~ /^@/ )
{ next; }
@cols = split " ", $line;
if( defined $cols[5] && length($cols[5]) > 3 )
{ print OUF $line; }
else
{ print NOR $line; }
}
close(INF);
close(OUF);
close(NOR);
}
Jump to Line
Something went wrong with that request. Please try again.