ebiDownload.pl

#! /usr/bin/perl

use warnings;
use strict;

if (scalar @ARGV !=1){print "\nebiDownload <acc_list>\n\n"; exit;}

open F, $ARGV[0] or die;
while(<F>){
	chomp;
	my $sample = $_;
	if (length($sample) == 9){
		my $dir1 = substr($sample,0,6);
		print "ftp://ftp.sra.ebi.ac.uk/vol1/fastq/$dir1/$sample/${sample}_1.fastq.gz\n"; #SRR833/SRR833067/SRR833067_1.fastq.gz
		print "ftp://ftp.sra.ebi.ac.uk/vol1/fastq/$dir1/$sample/${sample}_2.fastq.gz\n";
	} elsif (length($sample) == 10){
		my $dir1 = substr($sample,0,6);
		my $dir2 = "00".substr($sample,9,1);
		print "ftp://ftp.sra.ebi.ac.uk/vol1/fastq/$dir1/$dir2/$sample/${sample}_1.fastq.gz\n";		
		print "ftp://ftp.sra.ebi.ac.uk/vol1/fastq/$dir1/$dir2/$sample/${sample}_2.fastq.gz\n";
	}
}