在perl中换行换行数组内容

时间:2011-10-22 11:34:10

标签: mysql sql perl

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

但我无法将其拆分为'\n'。 你可以指导我吗?

请注意,数组内容来自SQL表的Text列上的select查询。

@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;
   }
}

1 个答案:

答案 0 :(得分:1)

代码可能如下所示:

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

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

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