annotate Roary/t/bin/dummy_segmasker @ 0:c47a5f61bc9f draft

Uploaded
author dereeper
date Fri, 14 May 2021 20:27:06 +0000
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
1 #!/usr/bin/env perl
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
2 use Moose;
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
3 use Getopt::Long;
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
4 my($output_filename,$dbtype,$in,$logfile,$parse_seqids,$mask_data,$infmt,$outfmt);
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
5 GetOptions(
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
6 'o|out=s' => \$output_filename,
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
7 'i|in=s' => \$in,
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
8 'infmt=s' => \$infmt,
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
9 'outfmt=s' => \$outfmt,
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
10 'mask_data=s' => \$mask_data,
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
11 );
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
12
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
13 system("touch $output_filename");
c47a5f61bc9f Uploaded
dereeper
parents:
diff changeset
14 1;