view cat_2.pl @ 0:ba070efb6f78 draft

planemo upload commit 13e72e84c523bda22bda792bbebf4720d28542d5-dirty

#!/usr/bin/perl -w
# Developed by Flavia Vischi Winck and Mateus Bellomo_2014 (flaviavw[at]gmail.com)
# usage : perl cat_2.pl <FASTA file1> <FASTA file2> <outputfile>

open FILE1, "<", $ARGV[0] or die $!;
my @file1 = <FILE1>;

open FILE2, "<", $ARGV[1] or die $!;
my @file2 = <FILE2>;


open SEL, '>', $ARGV[2] or die $!;
foreach (@file1) {
    print SEL $_;
}

foreach (@file2){
    print SEL $_;
}

close SEL;