在perl中按换行符划分数组内容

Question

我想逐行使用数组中存储的内容。

但我无法将其拆分为 '\n'。 你能指导我吗？

请注意，数组内容来自 SQL 表的 Text 列上的选择查询。

@somearray="SELECT column from table where condition=something" (column type is "Text")
foreach $line(@somearray)
{
   if($line=~/match-anything-here/) 
   {
       //The match is done on whole array contents and not line by line  
       print $line;
   }
}

Answer 1

代码可能如下所示：

@somearray = <"SELECT column from table where condition=something">

foreach $line (@somearray)
{
   next unless $line =~ /match-anything-here/;

   foreach (split(/\n/, $line))
   {
       print "line: $_; ";
   }
}