diff options
| -rwxr-xr-x | scripts/builders/pair-dataset-link.pl | 18 |
1 files changed, 7 insertions, 11 deletions
diff --git a/scripts/builders/pair-dataset-link.pl b/scripts/builders/pair-dataset-link.pl index a36d816..6b3e136 100755 --- a/scripts/builders/pair-dataset-link.pl +++ b/scripts/builders/pair-dataset-link.pl @@ -9,23 +9,19 @@ STDOUT->autoflush(1); my $sequence_dir; my $ab_dir; -my $dt; -my $wait; -my $buzz; +my $dt = 1; GetOptions ( - "sequence_dir" => \$sequence_dir, - "ab_dir" => \$ab_dir, - "dt" => \$dt, + "sequence_dir=s" => \$sequence_dir, + "ab_dir=s" => \$ab_dir, + "dt=i" => \$dt, ); -print $sequence_dir . "\n"; +print 'sequence_dir: ' . $sequence_dir . "\n"; +print 'ab dir: ' . $ab_dir . "\n"; if (! $sequence_dir || ! $ab_dir || ! -e $sequence_dir) { - print "usage: --sequence_dir ... --ab_dir ... --dt 1\n"; + print "usage: $0 --sequence_dir ... --ab_dir ... --dt 1\n"; exit(1); } -if (! $dt) { - $dt = 1; -} $sequence_dir .= "/"; $ab_dir .= "/"; |