in reply to Re^6: how to read input from a file, one section at a time?
in thread how to read input from a file, one section at a time?
You need to provide a value to printf for example
but that gives you the length of the count value not the sequence. You need to calculate the sequence length before the value is changed by this counting regex $para =~ s/([A-Z])/ ++$prot{ $1 } /eg;printf $out_file "string length = %d\n",length($num) ;
Try making these changes
poj# Remove comment line(s) and white space $para =~ s/^\s*#.*//mg; $para =~ s/\s//g; # add my $seq_length = length($para); # add print "[$para]\n"; # optional . . printf $out_file "Number of proteins = %d\n",$num ; printf $out_file "String length = %d\n\n",$seq_length; # add
In Section
Seekers of Perl Wisdom