Mercurial > repos > mingchen0919 > statonlab_fasta_splitter

diff split.pl @ 2:38435c74e795 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
working version
author mingchen0919
date Mon, 09 Apr 2018 14:20:42 -0400
parents 3918528c19b4
children
line wrap: on
line diff
--- a/split.pl	Mon Apr 09 13:32:55 2018 -0400
+++ b/split.pl	Mon Apr 09 14:20:42 2018 -0400
@@ -24,7 +24,7 @@
 
  for($i = 1; $i <= $numOfFiles; $i++){
 	print "$i\n";
-	open FILE, ">".$homfile.".".$i || die "Can't open file";
+	open FILE, ">".$homfile.".".$i.".fasta" || die "Can't open file";
 	print FILE $lineIn;
 	$seqs = 1;
         $lineIn = <IN>;
@@ -40,7 +40,7 @@
 	close FILE;
  }
  $i = $i -1;
- open FILE, ">>".$homfile.".".$i;
+ open FILE, ">>".$homfile.".".$i.".fasta";
  while ($lineIn = <IN>){
 	print FILE $lineIn;
  }