WSTester updated to work plus hopefully all the other changes that need to go into...

[jabaws.git] / binaries / src / ViennaRNA / Kinfold / Laplace / extract_data.pl

diff --git a/binaries/src/ViennaRNA/Kinfold/Laplace/extract_data.pl b/binaries/src/ViennaRNA/Kinfold/Laplace/extract_data.pl
new file mode 100644 (file)
index 0000000..9c9f423
--- /dev/null
+++ b/binaries/src/ViennaRNA/Kinfold/Laplace/extract_data.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+# -*-Perl-*-
+# Last changed Time-stamp: <2006-10-04 12:11:12 xtof>
+# $Id: extract_data.pl,v 1.1 2006/10/05 13:29:03 xtof Exp $
+
+use strict;
+
+while (<>) {
+  next if m/^\#/;
+  next if m/\)$/;
+  next if m/\.$/;
+  my @F = split;
+  print "$F[-2] $F[-1]\n" if scalar @F > 3;
+}
+
+__END__