Tim Maher
tim@consultix-inc.com
[download]

Yes, I realized that a few minutes later and fixed it, a few minutes before you submitted your post. {grin}

-- Randal L. Schwartz, Perl hacker

Oops! Now I see that the original poster's sample assignment was not as simple as I had shown, because he had "B C" where I had "B" (multiple quoted words being treated as a single token, vs. my idea of a single word). This being the case, my suggestion of changing split's delimiters will obviously not work, so "nevermind"! 8-}

Tim Maher
tim@consultix-inc.com
[download]

Yes, let someone else write and debug the code.

use Text::ParseWords;
my @words = shellwords($_);
[download]

{grin}

-- Randal L. Schwartz, Perl hacker

My thanks,
JP

-- Alexander Widdlemouse undid his bellybutton and his bum dropped off --

Hmm. Not as impressive when you realize I left the quote marks on. {grin} A simple fix:

my @words = grep defined, /"([^"]*)"|'([^']*)'|(\S+)/g;
[download]

-- Randal L. Schwartz, Perl hacker

Heh, I thought the quotes being left in the @array was a "feature", so I:

foreach (@array) { s/"//g;  s/'//g; }
[download]

Thanks all for your help,

JP Hindin,

-- Alexander Widdlemouse undid his bellybutton and his bum dropped off --

Nope. Messes up on:

$_ = q{we "can't" 'say "this"?'};
[download]

-- Randal L. Schwartz, Perl hacker

somewhat silly to belabor the point, but why not just:

tr/'"//d for @array;
[download]

-Blake