in reply to Returning Array
should look similar to that.sub findLines{ foreach $line (@data) { if ($line =~ /notice/) { if ($line =~ /rdy/) { $line =~ s/ /,/g; @L1 = split(/|notice|[[]|,mpmstats:,|[\t]|rdy,|bsy,|rd+,|wr,|k +a,|log,|dns,|cls,/, $line); } } } return @L1; }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Returning Array
by muba (Priest) on Jun 28, 2012 at 00:01 UTC |