Simple split

[MoshiachNow]

HI,

How do I split all data build of two columns separated by multiple spaces ?

Data:

a d
c v
d e

Need to get @abc=(a,d,c,v,d,e)

Thanks

Long live king Moshiach !

http://www.7for70.com/

 

[stevexff]

use strict;
use warnings;

my @stuff;

while (<>) {
   chomp;
   push @stuff, split(/\s+/, $_);
}

print join("\n", @stuff);

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]

 

[MoshiachNow]

thanks

Long live king Moshiach !

http://www.7for70.com/

 

[ishnid]

The default split will do that (omitting leading null fields), so you could shorten that to:

while (<>) {
   chomp;
   push @stuff, split;
}