binaries/src/ViennaRNA/Kinfold/Laplace/extract_data.pl

   1 #!/usr/bin/perl
   2 # -*-Perl-*-
   3 # Last changed Time-stamp: <2006-10-04 12:11:12 xtof>
   4 # $Id: extract_data.pl,v 1.1 2006/10/05 13:29:03 xtof Exp $
   5
   6 use strict;
   7
   8 while (<>) {
   9   next if m/^\#/;
  10   next if m/\)$/;
  11   next if m/\.$/;
  12   my @F = split;
  13   print "$F[-2] $F[-1]\n" if scalar @F > 3;
  14 }
  15
  16 __END__