如何将文件中的数组与sql数据库查询进行比较？ [复制]

Question

我试图从我的数据库表中选择与文件中数组中的行相同的所有列。例如：

TABLE:
id name
1 A
2 B
3 C

FILE:
A
B

我只想选择 A 和 B。

我的来源：

use DBI;
use CGI;    
my $file = '.\input.txt';       # Name the file
    open(FILE, $file) or die("Unable to open file");
    my @data = <FILE>;
    foreach my $line (@data)
    {
      #print $line;
      my $sth = $dbh->prepare("SELECT columnA FROM table WHERE columnA LIKE '%$line%'");
      $sth->execute;
      my $result = $sth->fetchall_arrayref;


      foreach my $row ( @$result ) {
      print "- ";
      print "@$row\n";
      print "<BR />";
      }

     }

但它只写了 select hmmm 的最后一行...

OUTPUT I GET

B

OUTPUT I WANT TO GET

A
B

我试过了：

INPUT:
bengalske_stehno
cesnakova_polievka
drzkova_polievka
kuraci_spiz
polievka_fazulova
polievka_mrkvova
polievka_rybacia

DATABASE:
fasirky
cesnakova_polievka
chlebicek_biskupsky
drzkova_polievka
polievka_fazulova
polievka_mrkvova
polievka_rybacia
bengalske_stehno 

OUTPUT:
- polievka_rybacia 

Answer 1

从输入文件读取后，您似乎忘记了chomp $line。换行符不在文件的最后一行，这就是它起作用的原因。