#!/usr/bin/perl use strict; use Data::Dumper; my @data = (); open (IN, "<", "./seqdb/db454_hvir_celera_v01") || die "$!"; my %keyhash = (); $keyhash{'db454_hvir_celera_v01_8887'} = 1; my ($seq,$header,$lock) = ('','',0); while (){ chomp; if (/>/){ my @array =split(' ',$_); $array[0]=~s/>//; #print Dumper(\%keyhash); push(@data,"$header\n$seq\n") if $lock == 1; if ($keyhash{$array[0]}){ $header = $_; $lock = 1; } else{ $lock = 0; } } elsif ($lock == 1){ $seq .=$_; } } close IN; print "Content-type:text/html\r\n\r\n"; print ""; print ""; print "Checkbox - Third CGI Program"; print ""; print ""; foreach (@data){ print $_; } print ""; print "";