#!/usr/bin/perl use strict; my ($buffer, @pairs, $pair, @data, $name, $value, %FORM, %keyhash, $da +tabase); # Read in text $ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/; if ($ENV{'REQUEST_METHOD'} eq "POST"){ read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } # Split information into name/value pairs @pairs = split(/&/, $buffer); foreach $pair (@pairs){ ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%(..)/pack("C", hex($1))/eg; $FORM{$value} = $name; $database = $name; } # HTTP Header print "Content-type:text/html\r\n\r\n"; print ""; print ""; print "Checkbox - Third CGI Program"; print ""; print ""; print "It stops here"; ####################################### #retrieve sata from the database my @arraydata =(); foreach my $request (keys %FORM){ my @array =split('!-!',$request); $keyhash{$array[0]}=1; push (@arraydata, $array[0]); } open (IN, "<", "./seqdb/$database") || die "$!"; my ($seq,$header,$lock) = ('','',0); while (){ chomp; if (/>/){ my @array =split(' ',$_); $array[0]=~s/>//; 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; foreach (@data){ print $_; } print ""; print ""; #### foreach (@data){ print $_; } #### #!/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 "";