| Server IP : 65.108.144.40 / Your IP : 216.73.217.165 Web Server : Apache/2.4.52 (Ubuntu) System : Linux ubuntu-8gb-hel1-1 5.15.0-173-generic #183-Ubuntu SMP Fri Mar 6 13:29:34 UTC 2026 x86_64 User : dev ( 1000) PHP Version : 8.2.30 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /bin/ |
Upload File : |
#!/usr/bin/perl
use strict; use warnings;
die "usage: $0 <hmm> <model> <model> <etc>" unless @ARGV > 1;
my ($hmm, @file) = @ARGV;
my %model;
foreach my $file (@file) {
my $contents = `cat $file`;
my ($type) = $contents =~ /^(\S+)/;
$model{$type} = $contents;
}
open(IN, $ARGV[0]) or die;
while (<IN>) {
print;
last if /SEQUENCE_MODELS/;
}
while (<IN>) {
if (/^(\S+)/) {
my $type = $1;
if (defined $model{$type}) {
print $model{$type};
while (<IN>) {last unless /\S/}
} else {
print;
while (<IN>) {
print;
last unless /\S/;
}
}
}
print;
}