rayken1

kindly help me to get out the error of " Use of uninitialized Value $_ in substitution. my code is..... #!/usr/bin/perl use warnings; use strict; open (TEXT_FILE1,'C:\Documents and Settings\rnjenga\Muguga.embl'); # open file for reading my ($line1, $nextline1 ,$line2,$newline ); my ($find1, $find2); #Get required line from file while ($line1 = …

use warnings; use strict; open (TEXT_FILE,'C:\Documents and Settings\rnjenga\sawa3.txt'); my ($line, $nextline); while ($line = <TEXT_FILE>) { if ($line =~ /FT\s*\Wnote.+\w+:/){ $nextline = <TEXT_FILE> ; print ("$line $nextline \n"); } if ($line =~ /FT\s*\Wnote.+none/){ $nextline = <TEXT_FILE> ; print ("$line $nextline \n"); } } close (TEXT_FILE); I have written the above …

FT CDS complement(join ( 14006...14068, 19351..20068)) FT /locus_tag= TP01_0004” FT /note=”go function: nutrient reservoir activity [goid FT 0045889] The above statement is been read as a string and I would a REGEX as follows: /^FT \s CDS \s \ / complement[0-9]/ # search line 1 /^FT \s .* \ / …

open(FILE, "<", "numb.txt" ) || die "Unable to open numb.txt <$!>\n"; while ( <FILE> ) { chomp; $fileHash{$_} = $i++; } close(FILE); open(FILE, "<", "num.txt" ) || die "Unable to open num.txt<$!>\n"; while( <FILE> ) { chomp; if( exists $fileHash{$_} ) { } else { print "$_\n"; } } close(FILE); …

/transcript_id="XM_760437.1" FT /db_xref="GI:71031776" FT /db_xref="GeneID:3502673" [B][U]FT CDS complement(join(18028..18116,19351..20668)) FT /locus_tag="TP01_0004" FT /note="go_function: nutrient reservoir activity [goid FT 0045735]"[/U][/B] FT /codon_start=1 FT /protein_id="XP_765531.1" Hi all, I need a code that reads the whole segment as a string in per. I need to select only the highlighted area and copy it to …