JAL-1645 Version-Rel Version 2.9 Year-Rel 2015 Licensing glob

[jalview.git] / utils / splitstockholm.pl

diff --git a/utils/splitstockholm.pl b/utils/splitstockholm.pl
index 65e6644..dd13a52 100644 (file)
--- a/utils/splitstockholm.pl
+++ b/utils/splitstockholm.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 ##
-# Jalview - A Sequence Alignment Editor and Viewer (Version 2.8.2)
-# Copyright (C) 2014 The Jalview Authors
+# Jalview - A Sequence Alignment Editor and Viewer (Version 2.9)
+# Copyright (C) 2015 The Jalview Authors
 # 
 # This file is part of Jalview.
 # 
@@ -17,33 +17,33 @@
 # You should have received a copy of the GNU General Public License along with Jalview.  If not, see <http://www.gnu.org/licenses/>.
 # The Jalview Authors are detailed in the 'AUTHORS' file.
 ##
- \r
-# Splits a concatenated set of Stockholm Files into several individual files.\r
-\r
-use strict;\r
-use FileHandle;\r
-my $ac;\r
-my $lns="";\r
-my $fh;\r
-while (<>) {\r
-    if ($_=~m!^//!) {\r
-       $fh->print("//\n");\r
-       $fh->close();\r
-       $ac = undef;\r
-       $lns = "";\r
-    } else {\r
-       if ($_=~/GF\s+AC\s+([0-9.RPF]+)/) { \r
-           $ac=$1; \r
-           ($fh=new FileHandle)->open(">$ac.stk") or die("Couldn't open file '$ac.stk'"); \r
-           $lns=~/^. STOCKHOLM 1.0/ or $fh->print("# STOCKHOLM 1.0\n");\r
-       };\r
-       if (defined($fh)) {\r
-           if (defined $lns) { \r
-               $fh->print($lns); $lns=undef; }\r
-           \r
-           $fh->print($_);\r
-       } else {\r
-           $lns .= $_;\r
-       }\r
-    }\r
-}\r
+ 
+# Splits a concatenated set of Stockholm Files into several individual files.
+
+use strict;
+use FileHandle;
+my $ac;
+my $lns="";
+my $fh;
+while (<>) {
+    if ($_=~m!^//!) {
+       $fh->print("//\n");
+       $fh->close();
+       $ac = undef;
+       $lns = "";
+    } else {
+       if ($_=~/GF\s+AC\s+([0-9.RPF]+)/) { 
+           $ac=$1; 
+           ($fh=new FileHandle)->open(">$ac.stk") or die("Couldn't open file '$ac.stk'"); 
+           $lns=~/^. STOCKHOLM 1.0/ or $fh->print("# STOCKHOLM 1.0\n");
+       };
+       if (defined($fh)) {
+           if (defined $lns) { 
+               $fh->print($lns); $lns=undef; }
+           
+           $fh->print($_);
+       } else {
+           $lns .= $_;
+       }
+    }
+}