CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
INDEX
Search Posts SEARCH
POSTS
Who's Online WHO'S
ONLINE
Log in LOG
IN

Home: Perl Programming Help: Beginner: Re: [geneclicker] Help with DNA sequence software: Edit Log



Laurent_R
Enthusiast / Moderator

Sep 28, 2012, 6:02 AM


Views: 1162
Re: [geneclicker] Help with DNA sequence software

Hi,

you should tell on which line you get your error message.

This code:


Code
 my @params = ();   
while ( my $param = shift ) {
push @params, $param;
}
unless ( scalar @params == 4 ) {
print "$0 <input fasta file> <block size> <block label> <output file>\n";
exit;
}
my ( $inputFile, $blockSize, $blockLabel, $outputFile ) = @params;
print "Input seems to be valid. Now I will try reading the contents of $inputFile...";


coluld be simplified as follows:


Code
 print "$0 <input fasta file> <block size> <block label> <output file>\n" and die unless $ARGV == 4;  
my ( $inputFile, $blockSize, $blockLabel, $outputFile ) = @ARGV;



(This post was edited by Laurent_R on Sep 28, 2012, 6:16 AM)


Edit Log:
Post edited by Laurent_R (Enthusiast) on Sep 28, 2012, 6:16 AM


Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives