in reply to Re: file header change
in thread file header change
use strict;
use warnings;
sub read_file
{
my( $filename ) = <STDIN>;
my @lines;
sub read_file
{
my( $filename ) = <STDIN>;
my @lines;
open( FILE, "< $filename" ) or die "Can't open $filename : $!";
{
if( @line =~ />contig_(\d+)\s/ ) { print ">$1\n"; }
else { print "$line\n"; }
}
In Section
Seekers of Perl Wisdom