Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

Re: tblastn unix

by kevbot (Priest)
on Jun 28, 2017 at 07:12 UTC ( #1193763=note: print w/replies, xml ) Need Help??

in reply to tblastn unix

Hello Nicpetbio23!,

The following example uses a couple CPAN modules (Path::Tiny, and Capture::Tiny). The syntax of your tblast command does not seem to be quite right. Detailed descriptions for tblastn command line arguments can be obtained with tblastn -help. I modified your tblastn command based on my reading of the help output.

This code assumes that there are fasta query files in the current directory with .fa file extensions. For each fasta file found, an output file will be generated (with a .txt extension).

NOTE: I did not test this code thoroughly. I commented out the call to system to be sure that the intended $cmd string is generated, but I did not run the tblastn commands.

#!/usr/bin/env perl use strict; use warnings; use Path::Tiny; use Capture::Tiny ':all'; my @paths = path('./')->children( qr/\.fa$/ ); foreach my $file_path (@paths){ my $query_file = $file_path->stringify; my $output_file = path( $file_path->parent, $file_path->basename( '.fa' ).'_output.txt' )->stringify; my $cmd = "tblastn -query $query_file -db genome.db". " -out $output_file"; print "Query file: $file_path\n"; print "\t $cmd\n"; my ($stdout, $stderr, $exit) = capture { system( $cmd ); }; if ($exit != 0){ die "Error: command failed"; } } exit;

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1193763]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (4)
As of 2022-09-29 15:33 GMT
Find Nodes?
    Voting Booth?
    I prefer my indexes to start at:

    Results (125 votes). Check out past polls.