X-Git-Url: http://source.jalview.org/gitweb/?a=blobdiff_plain;f=utils%2Fsplitstockholm.pl;h=a924c2d808da16bcffd69d5074c5e4a7485e26a5;hb=20b5e49eaffdbc56b9d0274200a12204e362d5b1;hp=965405751e37bb691c33543ca2b28382cfb56551;hpb=b2f9a8d7bce642ff4011bc6d49e02bb0569fbb11;p=jalview.git

diff --git a/utils/splitstockholm.pl b/utils/splitstockholm.pl
index 9654057..a924c2d 100644
--- 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.1)
-# Copyright (C) 2014 The Jalview Authors
+# Jalview - A Sequence Alignment Editor and Viewer ($$Version-Rel$$)
+# Copyright (C) $$Year-Rel$$ 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.
 ##
- 
-# 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 .= $_;
-	}
-    }
-}
+ 
+# 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 .= $_;
+	}
+    }
+}