comparison runAssembly_cDNA_wrapper.pl @ 2:2d86d5b112e8

Uploaded
author edward-kirton
date Thu, 14 Jul 2011 22:14:07 -0400
parents
children bf1f8bc4abe6
comparison
equal deleted inserted replaced
1:368a6ebebdde 2:2d86d5b112e8
1 #!/usr/bin/env perl
2
3 use warnings;
4 use strict;
5 use File::Copy;
6
7 # EXPECT 23 FILE HANDLES, SOME OF WHICH MAY BE 'None'
8 die("Missing arguments; expected at least 23, got ".scalar(@ARGV)."\n") unless @ARGV >= 23;
9 my $outdir=shift @ARGV;
10 my $newbler_metrics=shift @ARGV;
11 my $read_status=shift @ARGV;
12 my $trimmed_reads_fasta=shift @ARGV;
13 my $trimmed_reads_qual=shift @ARGV;
14 my $alignment_info=shift @ARGV;
15 my $all_contigs_fasta=shift @ARGV;
16 my $all_contigs_qual=shift @ARGV;
17 my $contigs_ace=shift @ARGV;
18 my $contigs_consed_ace=shift @ARGV;
19 my $contig_graph=shift @ARGV;
20 my $pair_align=shift @ARGV;
21 my $pair_status=shift @ARGV;
22 my $scaffolds_fasta=shift @ARGV;
23 my $scaffolds_qual=shift @ARGV;
24 my $scaffolds_agp=shift @ARGV;
25 my $tag_pair_align=shift @ARGV;
26 my $trim_status=shift @ARGV;
27 my $isotigs_ace=shift @ARGV;
28 my $isotigs_fasta=shift @ARGV;
29 my $isotigs_qual=shift @ARGV;
30 my $isotigs_agp=shift @ARGV;
31 my $isotigs_layout=shift @ARGV;
32
33 # REMOVE PARAMETERS FOR OPTIONAL FILES WHICH WERE NOT PROVIDED
34
35 my @cmd=removeUnusedOptions(@ARGV);
36
37 # RUN COMMAND
38 # NOTE: FIRST ARG EXPECTED TO BE EXECUTABLE
39 my $stderr;
40 eval { $stderr=`@cmd 2>&1`; };
41 if ( $@ ) {
42 print STDERR "Newbler ERROR: $stderr\n";
43 `cat $outdir/assembly/454NewblerProgress.txt 1>&2`;
44 die($@);
45 }
46
47 get_outfile("$outdir/454NewblerMetrics.txt", $newbler_metrics);
48 get_outfile("$outdir/454ReadStatus.txt", $read_status);
49 get_outfile("$outdir/454TrimmedReads.fna", $trimmed_reads_fasta);
50 get_outfile("$outdir/454TrimmedReads.qual", $trimmed_reads_qual);
51 get_outfile("$outdir/454AlignmentInfo.tsv", $alignment_info);
52 get_outfile("$outdir/454AllContigs.fna", $all_contigs_fasta);
53 get_outfile("$outdir/454AllContigs.qual", $all_contigs_qual);
54 get_outfile("$outdir/454Contigs.ace", $contigs_ace);
55 get_outfile("$outdir/consed/edit_dir/454Contigs.ace.1", $contigs_consed_ace);
56 get_outfile("$outdir/454ContigGraph.txt", $contig_graph);
57 get_outfile("$outdir/454PairAlign.txt", $pair_align);
58 get_outfile("$outdir/454PairStatus.txt", $pair_status);
59 get_outfile("$outdir/454Scaffolds.fna", $scaffolds_fasta);
60 get_outfile("$outdir/454Scaffolds.qual", $scaffolds_qual);
61 get_outfile("$outdir/454Scaffolds.txt", $scaffolds_agp);
62 get_outfile("$outdir/454TagPairAlign.txt", $tag_pair_align);
63 get_outfile("$outdir/454TrimStatus.txt", $trim_status);
64 get_outfile("$outdir/454Isotigs.ace", $isotigs_ace);
65 get_outfile("$outdir/454Isotigs.fna", $isotigs_fasta);
66 get_outfile("$outdir/454Isotigs.qual", $isotigs_qual);
67 get_outfile("$outdir/454Isotigs.txt", $isotigs_agp);
68 get_outfile("$outdir/454IsotigsLayout.txt", $isotigs_layout);
69 exit;
70
71 # EVERY 'None' ARG AND IT'S PRECEEDING OPTION TAG ARE DISCARDED
72 sub removeUnusedOptions {
73 my @cmd=();
74 my $prev;
75 foreach (@_) {
76 unless ($_ eq 'None') {
77 push @cmd, $prev if defined($prev);
78 $prev=$_;
79 } else {
80 $prev=undef;
81 }
82 }
83 push @cmd, $prev if defined($prev);
84 return @cmd;
85 }
86
87 sub get_outfile {
88 my ($src, $dest)=@_;
89 # make sure dest defined and src exist; skip if dest is 'None'
90 if ( $dest and $dest ne 'None' and $src and -f $src ) {
91 move($src,$dest);
92 }
93 }
94
95 __END__