On 2019-10-09 7:21 p.m., 刘东 wrote:
hellow:
I have written a script, but it does not work, can you tell me what wrong with
me?
#! /usr/bin/perl
use strict;
use warnings;
use Getopt::Long;
my ($dir, $files, $file_name, $file_format, $file_dir, $file_main);
GetOptions ('dr=s' =>\$dir);
open
On 2019-10-09 7:21 p.m., 刘东 wrote:
hellow:
I have written a script, but it does not work, can you tell me what wrong with
me?
#! /usr/bin/perl
use strict;
use warnings;
use Getopt::Long;
my ($dir, $files, $file_name, $file_format, $file_dir, $file_main);
GetOptions ('dr=s' =>\$dir);
open
In addition to the comments made by David, it appears the line:
open FASEQ, "<", $files or die "can not read open $!";
is not needed. The file handle FASEQ is never used in an input operation.
You want to use the file name as noted by David.
Ken
On Thu, Oct 10, 2019 at 4:06 AM 刘东 wrote:
> he
The error message "FASEQ can not open" doesn't look like something
which could be output by the code you've provided.
*Either* you should get the "can not read open $!" message (where the
$! will be interpolated to the reason it failed), or the message is
coming from whatever the "usearch" tool
hellow:
I have written a script, but it does not work, can you tell me what wrong with
me?
#! /usr/bin/perl
use strict;
use warnings;
use Getopt::Long;
my ($dir, $files, $file_name, $file_format, $file_dir, $file_main);
GetOptions ('dr=s' =>\$dir);
open INF,"<",'sine.fa' or die "can't read
