Array splitting with regex - regex

Question

I have an array that holds only one string, it's hash's value:
%hash = ("key"=>["Value1 unit(1), Value2 unit(2), Value3 unit"])
How to split the " unit"-s from the value of the hash and save it to an array?
The new array should be like this:
#array=["Value1", "Value2", "Value3"]
I've tried this way:
#array=split(/\s\w\(\w\)\,/, $hash{key});

Answer 1

Split the string on comma, then strip off the unit at the end.
map(s/\s.*$//, #array = split(/,\s*/, $hash{'key'}[0]));

Answer 2

Here's another option:
use strict;
use warnings;
use Data::Dumper;
my %hash = ("key"=>["1567 I(u), 2070 I(m), 2.456e-2 V(m), 417 ---, 12 R(k),"]);
my #array = $hash{'key'}->[0] =~ /(\S+)\s+\S+,?/g;
print Dumper \#array;
Output:
$VAR1 = [
'1567',
'2070',
'2.456e-2',
'417',
'12'
];

Answer 3

And another option:
my %hash = ("key"=>["Value1 unit(1), Value2 unit(2), Value3 unit"]);
my $i;
my #array = grep { ++$i % 2 } split /,?\s/, $hash{key}->[0];
$, = "\n";
print #array;

Answer 4

You can do it with a single relatively straightforward regex:
#array = $hash{'key'}[0] =~ m/\s*(\S+)\s+\S+,?/g;
The important thing to know is that with the /g flag, a regex matcher returns all the captured ($1, $2, etc.) groups from matching globally against the string. This regex has one such group.
My assumptions are:
The "Value1", "Value2" parts are just chunks of non-whitespace
The "unit(1)", "unit(2)", parts are also just chunks of non-whitespace
If these aren't valid assumptions, you can replace the two \S+ parts of the regex with something more specific that matches your data.