batch_annotation_CDS.pl

#!/usr/bin/perl -w
#############################################
#Author: Jiang Li
#email:  riverlee2008@gmail.com
#Creat Time: Tue 23 Oct 2012 01:37:54 PM CDT
#Vanderbilt Center for Quantitative Sciences
#############################################
use strict;
use warnings;

=pod

=head1 SYNOPSIS

A wrap of genbank2gtf_CDS.pl to batch convert genbank format into gtf (only those CDS features)

=head1 USAGE

perl batch_annotation_CDS.pl

=head1 RESULTS

20 chrXX_CDS.gtf files

=cut

my @files=<*.gb>;
foreach my $f (@files){
	#print $f,"\n";
	my $chr=$f;
	$chr=~s/\.gb//g;
	$chr=~s/Chr/chr/g;
	print $chr,"\n";
	`perl genbank2gtf_CDS.pl  $f $chr>${chr}_CDS.gtf`;
}