Re^7: how to read input from a file, one section at a time?


Don't ask to ask, just ask
	PerlMonks

Re^7: how to read input from a file, one section at a time?

by poj (Abbot)

on Oct 21, 2019 at 10:35 UTC ( [id://11107755]=note: print w/replies, xml )

Need Help??

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

printf $out_file "string length = %d\n",length($num) ;
[download]

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;

Try making these changes

    # 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
[download]

poj