1$verbose = 1;
2$verbose = 0;
3
4$acc = 'SRR053325';
5
6$cmd = "SRR053325=../data/no.json test-quality r $acc n";
7print "$cmd\n" if $verbose;
8`$cmd`; die if $?;
9
10$cmd = "SRR053325=../data/full.json test-quality r $acc f";
11print "$cmd\n" if $verbose;
12`$cmd`; die if $?;
13
14$cmd = "SRR053325=../data/dbl.json test-quality r $acc d";
15print "$cmd\n" if $verbose;
16`$cmd`; die if $?;
17
18$cmd = "prefetch $acc";
19`$cmd`; die if $?;
20
21$cmd = "test-quality $acc/$acc.sra";
22print "$cmd\n" if $verbose;
23`$cmd`; die if $?;
24