http://qs321.pair.com?node_id=700645


in reply to split line

You're trying to split on a separator that is literally a space between quote marks. Instead, you want to split on any amount of consecutive whitespace: 

my @config = split /\s+/, $line

[download]

Note that you have leading spaces in your string; you may want to strip those out before splitting.

Replies are listed 'Best First'.
Re^2: split line
by lil_v (Sexton) on Jul 28, 2008 at 21:15 UTC
    this works except for the first element, the first element still gets blank. Is there any way to chomp the begining?
[reply]

      dwm042's answer below does this but there's a shortcut specifically for this kind of thing. Try this: 

      my $line = "  0 10  9  4  1  0  0  0  2  2  1  1  0";
my @config = grep /\S/, split / /, $line;
# or even
my @config = grep /\A\d+\z/, split / /, $line;

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

      [download]

      The second will only pass through numbers (well, positive integers and zero) so something like "6a" will be skipped.

[reply]
[d/l]
[reply]
[d/l]

In Section Seekers of Perl Wisdom