Aimal Pashtoonmal wrote:
> Hello,
>
> I have the script below giving the folowing error meesages.
>
> =>Useless use of string in void context at
> extract_data_from_IPR_HMM_libs.pl
> line 12.
> =>Useless use of a constant in void context at
> extract_data_from_IPR_HMM_libs.pl line 13.
(Next time, tell us which lines are 12 and 13 instead of making us count :~)
>
> Even though the script works and I get the desired output, what is
> causing these messages?
You forgot "die" on those two lines.
>
> Also, does anyone know how I introduce a blank line. The script starts
> printing out beginning with NAME on the first line. I am trying to
> get a blank before every NAME line except the very for first.
Before the loop, initialize a variable like so:
my $sep = '';
Then, inside the loop:
print $sep; $sep = "\n";
>
> cheers.
>
> _SCRIPT_
> #!/usr/bin/perl -w
>
> use strict;
>
>
> my $infile = $ARGV[0];
> my $dataread;
> my $line;
> my $dbsize;
>
>
> open(INFILE, $infile) || "unable to open file $infile: $! \n";
> open(OFILE, ">$infile.HMMdata") || "couldnt open output file";
>
> while ($line = <INFILE>) {
> $dbsize++ if ( $line =~ /^HMMER/ );
> $dataread = 1 if ( $line =~ /NAME\s/ );
> $dataread = 0 if ( $line =~ /^HMM\s/ );
>
> print "$line" if $dataread;
> }
>
> print "Database size for $infile = $dbsize\n";
>
> close INFILE;
> close OFILE;
> exit;
> _END_
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
