perlquestion
MVRS
<p>my code unable take the input from the User input $Strain my out put is
nareshmvr@ubuntu:~/Desktop/db/sampledb$ perl usr_connectdb.pl
Please Enter the Strain Name :
M18
ssnareshmvr@ubuntu:~/Desktop/db/sampledb$
</p>
<code>
#!/usr/bin/perl -w
#use Strict;
use DBI;
print "Please Enter the Strain Name : \n";
my $Strain = <>;
$dbh = DBI->connect('dbi:mysql:sampledb','root','******')
or die "Connection Error: $DBI::errstr\n";
$sql = "SELECT feature.fastaId,feature.contigId,feature.orfId,strain.strainName,sequence.ntseq,sequence.aaseq from feature left join strain on feature.id=strain.id left join sequence on feature.id=sequence.id where strainName ='$Strain';";
print "ss";
$sth = $dbh->prepare($sql);
$sth->execute
or die "SQL Error: $DBI::errstr\n";
while (@row = $sth->fetchrow_array) {
print "@row\n";
}
</code>