meso-cacase/grep_gbff.pl

## grep_gbff.pl
#!/usr/bin/perl

# usage: zcat completeXXX.rna.gbff.gz ./grep_gbff.pl 'Homo sapiens'

use warnings ;
use strict ;

my $keyword = $ARGV[0] ;

$/ = "\n//\n" ;

while (<STDIN>){
	my $gbf = $_ ;
	($gbf =~ /^SOURCE\ +(.*?)\ *$/m) and ($1 =~ /^${ARGV[0]}$/) and
		print "$gbf" ;
}

exit ;
	#!/usr/bin/perl

	# usage: zcat completeXXX.rna.gbff.gz ./grep_gbff.pl 'Homo sapiens'

	use warnings ;
	use strict ;

	my $keyword = $ARGV[0] ;

	$/ = "\n//\n" ;

	while (<STDIN>){
	my $gbf = $_ ;
	($gbf =~ /^SOURCE\ +(.?)\ $/m) and ($1 =~ /^${ARGV[0]}$/) and
	print "$gbf" ;
	}

	exit ;