跳過文件的最後一行perl

Question

我正在嘗試使用基於dir列表的perl生成SQL查詢。

DATA

file_1.csv
file_2.csv
file_3.csv

---

CODE

$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++; 
} 

我的回覆sults

選擇ID，從Network_Location數據，其中Network_Location像
'％file_1.csv
％' OR
'％file_2.csv
％' OR
'％file_3.csv％' OR

期望的結果

選擇ID，從Network_Location數據，其中Network_Location像
'％file_1.csv％' 或
Network_Location LIKE '％file_2.csv％' 或
Network_Location LIKE '％file_3.csv％'

---

首先，我的 「％'」 越來越由於某種原因撞倒了一條線。我也不想在文件最後一行的末尾打印'OR'。我解析的目錄可能包含數百個文件。

任何幫助？我猜它與我的'$ 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"; 
}