Need Help (Regular Expressions)

rcageot

hi

I've a got a problem
i must split a string (the split separator is a space)

Issue : spaces that should be taken into account are those which are not between quotes (")

example
$ligne = 0126878 "my name" "my_name_without_space" 12356 "a b c d e" "f g h i j"

after the split into @var, the result should be
$var[0] = 0126878
$var[1] = "my name"
$var[2] = "my_name_whithout_space"
$var[3] = 12356
$var[4] = "a b c d e"
$var[5] = "f g h i j"

i tried a lot of regexp but i'm a little bit confused at this point and can't get none of them working

if someone could help me, that would be great !

thanks

thurban

I know it's not very cool, but the following solution should work:

Expand|Select|Wrap|Line Numbers

 
my $line = '0126878 "my name" "my_name_without_space" 12356 "a b c d e" "f g h i j"';
 
# get the number in the format "0126878"

$line =~ s/(\d+)/\"\1\"/ig;
 
# replace the space " " separating the data with a ";"

$line =~ s/\"\s\"/\";\"/ig;
 
# now remove all of the "

$line =~ s/\"//ig;
 
# the line looks like this now:

# 0126878;my name;my_name_without_space;12356;a b c d e;f g h i j
 
# split it by the ;

my @var = split/;/,$line;

rcageot

thanks for the reply, but meanwhile i found the solution

my @var = ($ligne =~ m/("[^"]+"|\S+)/g);

Need Help (Regular Expressions)

re: Need Help (Regular Expressions)

re: Need Help (Regular Expressions)

Similar Perl bytes

/bytes/development

/bytes/it

/bytes/about