Re: Re: Removing delimiters

[DaveH]

Hi.

Why do two splits, when one would do?

my ($first, $second) = split /::/, $readline, 3;

or more simply

my (@fields) = split /::/, $readline;

Cheers,

-- Dave :-)

---

$q=[split+qr,,,q,~swmi,.$,],+s.$.Em~w^,,.,s,.,$&&$$q[pos],eg,print

[JaWi]

Agreed, but the original post asked for either the first or the second; so I assumed that was all he wanted... In fact, if you don't want to use the list assignment you could do it also like this:

 my $first = ( split /::/, $readline, 2 )[ 0 ];

Many, many ways of doing the same... And how I love it ;-)

-- JaWi

"A chicken is an egg's way of producing more eggs."