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$
#!/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 strai +n on feature.id=strain.id left join sequence on feature.id=sequence.i +d 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"; }
In reply to Perl -connecting to DB taking query input from user by MVRS
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |