annotate Roary/t/bin/dummy_segmasker @ 3:e95344f6dfc5 draft default tip

Uploaded
author dereeper
date Fri, 12 Nov 2021 16:32:26 +0000
parents c47a5f61bc9f
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;