Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

comment on

( #3333=superdoc: print w/replies, xml ) Need Help??
Your homepage says you're new to programming, so I thought I'd add some missing bits of code (in bold) in case you were not aware that they should be there.
NB I have not changed/fixed the logic of your code.
---------------------------------------------------------------------
#!usr/bin/perl -w
use strict;
use warnings;

open(IN,"/home/maize/sequence-ID.txt") || die $!;
open(OUT,">abc.txt") || die $!;
open(OUT1,">blastresults.txt") || die $!;

while(my $id=<IN>)
{
    $id=~s/\n|\r//g;
    open(BLAST,"output/$id") || die $!;
        
    while(my $file=<BLAST>)
    {
        if ($file=~ m/No hits found/)
        {
            print OUT "$id \n";
        }
    }
    close(BLAST) || die $!;
}
close(IN) || die $!;
close(OUT) || die $!;
close(OUT1) || die $!; 
---------------------------------------------------------------------
If you prefer you can use normal Perl variables instead of file handles
eg
---------------------------------------------------------------------

    open(my $blast,"output/$id") || die $!;
        
    while(my $file=<$blast>)
    {
        if ($file=~ m/No hits found/)
        {
            print OUT "$id \n";
        }
    }
    close($blast) || die $!;

---------------------------------------------------------------------


If you're looking for some good books, I can highly recommend these 3 books which form a 3 part series:
Learning Perl: Making Easy Things Easy and Hard Things Possible
Intermediate Perl: Beyond The Basics of Learning Perl
Mastering Perl: Creating Professional Programs with Perl

I just happened to notice this. I have no idea what it it like, but it might be just what you want:
Mastering Perl for Bioinformatics

In reply to Re: how do i obtain blast result from the given file by zork42
in thread how do i obtain blast result from the given file by bingalee

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":



  • Are you posting in the right place? Check out Where do I post X? to know for sure.
  • Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
    <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
  • Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
  • Want more info? How to link or or How to display code and escape characters are good places to start.
Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (3)
As of 2022-05-25 20:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you prefer to work remotely?



    Results (90 votes). Check out past polls.

    Notices?