跳过文件的最后一行 perl

Question

我正在尝试使用基于目录列表的 perl 生成 SQL 查询。

数据

file_1.csv
文件_2.csv
文件_3.csv

---

代码

$count = 1;
$files = qr/^.*?$/;
print "select id,Network_Location from data where Network_Location like\n";
while (<>)
{
if ( $_ =~ $files ) {
print "'%".$_."%' OR Network_Location like"."\n";
}
$count++;
}

我的结果

从 Network_Location 喜欢的数据中选择 id,Network_Location
'%file_1.csv
%' 或
'%file_2.csv
%' 或
'%file_3.csv%' 或

期望的结果

从 Network_Location 喜欢的数据中选择 id,Network_Location
'%file_1.csv%' 或
Network_Location like '%file_2.csv%' OR
Network_Location like '%file_3.csv%'

---

首先，我的“%'”由于某种原因被撞到了一条线上。我也不想在文件最后一行的末尾打印“或”。我正在解析的目录可能包含数百个文件。

有什么帮助吗？我猜这与我的“$count”变量有关，但我不能指望它。至于“%'”被连续撞倒，我不知道。

Answer 1

$files = qr/^.*?$/;
my @matches;
while (<>)
{
  chomp; # remove end of line characters
  if ( $_ =~ $files ) {
    push @matches, $_; # store match in @matches array
  }
}
if( @matches ) {
   print 
     "select id, Network_Location from data where\n",
     join( " OR\n", map { "Network_Location like '%$_%'" } @matches ),
     "\n";
}