A better way? Remove empty slices from array. 1

[travs69]

working code

for $line (@data) {
 if ($line ne "") {
  push @data2, $line;
 }
}

Is there a better (more effecient) way?

Thanks


~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those Who Say It Cannot Be Done Are Usually Interrupted by Someone Else Doing It; Give the wrong symptoms, get the wrong solutions;

 

[KevinADC]

this might be a little more efficient:

@data2 = grep {$_ ne ""} @data;

------------------------------------------
- Kevin, perl coder unexceptional!

 

[travs69]

Thanks Kevin..

If you guys haven't noticed I'm on a bit of learning kick. Trying to figure out different and better ways to do the same old things.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those Who Say It Cannot Be Done Are Usually Interrupted by Someone Else Doing It; Give the wrong symptoms, get the wrong solutions;