git://source.jalview.org
/
jpred.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
JPRED-2 Add sources of all binaries (except alscript) to Git
[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";