20 lines
436 B
Perl
20 lines
436 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
# Runs Aspera to pull down files
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use Getopt::Long;
|
||
|
|
|
||
|
|
my $source = undef;
|
||
|
|
my $dest = ".";
|
||
|
|
GetOptions( "source=s" => \$source,
|
||
|
|
"dest=s" => \$dest);
|
||
|
|
|
||
|
|
if ( !$source) {
|
||
|
|
print "Usage: runAspera.pl\n\t-source \t<ftp source>\n\t-dest \t\t<local destination; defaults to '.'>\n";
|
||
|
|
exit(1);
|
||
|
|
}
|
||
|
|
|
||
|
|
my $cmd = "ascp -i /opt/aspera/etc/asperaweb_id_dsa.putty -k2 -QTr -l2G -d -v $source $dest";
|
||
|
|
system($cmd);
|