| 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 : /usr/bin/X11/ |
Upload File : |
#!/usr/bin/perl
use strict; use warnings;
my %Feature = (
'Exon' => 'CDS',
'Einit' => 'CDS',
'Eterm' => 'CDS',
'Esngl' => 'CDS',
);
print "##gff-version 3\n";
my $seq;
my %H;
while (<>) {
if (/^>(\S+)/) {
print "#region $1\n";
$seq = $1;
} else {
my @f = split;
if (@f == 4) {
my $strand = $f[1] < $f[2] ? '+' : '-';
if ($strand eq '-') {($f[1], $f[2]) = ($f[2], $f[1])}
print join("\t", $seq, 'snap', $Feature{$f[0]}, $f[1], $f[2], '.',
$strand, "Name=$f[3]"), "\n";
} elsif (@f == 9) {
print join("\t", $seq, 'snap', $Feature{$f[0]}, $f[1], $f[2], '.',
$f[3], "Name=$f[8]"), "\n";
} else {die "input does not appear to be ZFF"}
}
}
__END__