git://source.jalview.org
/
jpred.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
a159cf23c3dbf3f582e1be17fb6ff0b383f0822f
[jpred.git]
/
sources
/
pairwise
/
Pairwise
/
t
/
foo.pl
1
#!/usr/bin/perl
2
3
use strict;
4
use warnings;
5
6
use Pairwise;
7
use blib;
8
9
open my $f, "../tests/input" or die $!;
10
my ($number, @distance) = Pairwise::pairwise($f);
11
my @ids = splice @distance, 0, $number;
12
13
print "$number, @ids, @distance\n";