Mercurial > repos > labis-app > galaxy_proteomics

comparison cat_2.pl @ 0:ba070efb6f78 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload commit 13e72e84c523bda22bda792bbebf4720d28542d5-dirty
author labis-app
date Tue, 03 Jul 2018 17:34:13 -0400
parents
children f3fa21cda5f5
comparison
equal deleted inserted replaced
-1:000000000000 0:ba070efb6f78
1 #!/usr/bin/perl -w
2 # Developed by Flavia Vischi Winck and Mateus Bellomo_2014 (flaviavw[at]gmail.com)
3 # usage : perl cat_2.pl <FASTA file1> <FASTA file2> <outputfile>
4
5 open FILE1, "<", $ARGV[0] or die $!;
6 my @file1 = <FILE1>;
7
8 open FILE2, "<", $ARGV[1] or die $!;
9 my @file2 = <FILE2>;
10
11
12 open SEL, '>', $ARGV[2] or die $!;
13 foreach (@file1) {
14 print SEL $_;
15 }
16
17 foreach (@file2){
18 print SEL $_;
19 }
20
21 close SEL;
22