BB_B10 BB_B29 BB_B18 BB_B13 BB_B14 BB_B12 BB_B04 BB_B16 BB_B22 BB_B17 BB_B27 BB_B19 BB_B07 BB_B23 BB_B09 BB_B02 BB_B28 BB_B24 BB_B03 BB_B05 BB_B06 #### /locus_tag="BB_B01" /db_xref="GeneID:1194411" CDS 46..324 /locus_tag="BB_B01" /note="catalyzes the hydrolysis of acylphosphate" /codon_start=1 /transl_table=11 /product="acylphosphatase" /protein_id="NP_046987.2" /db_xref="GI:364556794" /db_xref="GeneID:1194411" /translation="MYKQQYFISGKVQGVGFRFFTEQIANNMKLKGFVKNLNDGRVEI VAFFNTKEQMKKFEKLLNGNKYSNIKNIEKIVLDENYPFQFNDFKIYY" misc_feature 46..321 /locus_tag="BB_B01" /note="acylphosphatase; Provisional; Region: PRK14432" /db_xref="CDD:184678" gene complement 308..751 /locus_tag="BB_B02" /db_xref="GeneID:1194420" CDS complement 308..751 /locus_tag="BB_B02" /note="hypothetical protein; identified by Glimmer; putative" /codon_start=1 /transl_table=11 /product="hypothetical protein" /protein_id="NP_046988.1" /db_xref="GI:11497029" /db_xref="GeneID:1194420" /translation="MKIGPHYFFKKILKSNDNRTIYISYLYDRLASVKPAGEWLRIYF KDSKRGKKYFILFNRNSSNGSFISCSFLKTSCNCGLDIKFSDGNLNIFCRNRKSLEFL KFKVEHFFRTSVSCYKNNNSYVHNIKPKNKVKVLVKREASPNNKF" gene complement 837..2186 /locus_tag="BB_B03" /db_xref="GeneID:1194419" CDS complement 837..2186 /locus_tag="BB_B03" /note="hypothetical protein; identified by Glimmer; putative" /codon_start=1 /transl_table=11 /product="hypothetical protein" /protein_id="NP_046989.1" /db_xref="GI:11497028" /db_xref="GeneID:1194419" /translation="MPPKVKIKNDFEIFRKELEILYKKYLNNELSYLKLKEKLKILAE NHKAILFRKDKFTNRSIILNLSKTRKIIKEYINLSVIERIRRDNTFLFFWKSRRIKEL KNIGIKDRKKIEELIFSNQMNDEKSYFQYFIDLFVTPKWLNDYAHKYKIEKINSYRKE QIFVKINLNTYIEIIKLLLNQSRDIRLKFYGVLMAIGRRPVEVMKLSQFYIADKNHIR MEFIAKKRENNIVNEVVFPVFADPELIINSIKEIRYMEQTENLTKEIISSNLAYSYNR LFRQIFNNIFAPEESVYFCRAIYCKFSYLAFAPKNMEMNYWITKVLGHEPNDITTAFH YNRYVLDNLDDKADNSLLTLLNQRIYTYVRRKATYSTLTMDRLESLIKEHHIFDDNYI KTLIVIKNLMLKDNLETLAMVRGLNVKIRKAFKATYGYNYNYIKLTEYLSIIFNYKL" gene complement 2476..3798 /locus_tag="BB_B04" /db_xref="GeneID:1194410" CDS complement 2476..3798 /locus_tag="BB_B04" #### #!/usr/bin/perl -w use Text::CSV; my @arrayOfVals; open(my $tmp, "<", "/Users/bioinformatics/Desktop/NC_001903.gbk.txt") || die "Could not open $!"; while (<$tmp>) { chomp; push(@arrayOfVals, $_); } close($tmp); my @arrayFromCSV; open(my $tmpFile, "<", "/Users/bioinformatics/Desktop/cp26_diffexpr.txt") || die "Could not open $!"; while (<$tmpFile>) { chomp; push(@arrayFromCSV, $_); } close($tmpFile); foreach(@arrayFromCSV) { if ($_ eq "BB_B10") { print "MAtch!!\n"; } else {print "$_\n";} } my @wkArray = @arrayOfVals; my @secArrayFromCSV = @arrayFromCSV; while (my $matchCheck = shift @wkArray) { $csvVal = shift(@secArrayFromCSV); if ( $csvVal =~ /$matchCheck/) { my $geneValue = shift(@wkArray); print "$geneValue\n"; } else { print "no match"; } }