Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re: Removing delimiters

by JaWi (Hermit)
on Feb 04, 2003 at 08:18 UTC ( [id://232491]=note: print w/replies, xml ) Need Help??


in reply to Removing delimiters

You could use the following: 
 my $readline = "perl::monk";
 my ( $first, $second );

 # this will get the first item...
 ( $first, undef ) = split /::/, $readline, 2;

 # or the second one...
 ( undef, $second ) = split /::/, $readline, 2;

[download]
Untested code, but hope it helps,

Update: removed the type in the second rule... I need more coffee...

-- JaWi

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

Replies are listed 'Best First'.
Re: Re: Removing delimiters
by DaveH (Monk) on Feb 04, 2003 at 08:28 UTC

    Hi.

    Why do two splits, when one would do?

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

    [download]
    or more simply 
    my (@fields) = split /::/, $readline;

    [download]

    Cheers,

    -- Dave :-)

    $q=[split+qr,,,q,~swmi,.$,],+s.$.Em~w^,,.,s,.,$&&$$q[pos],eg,print
[reply]
[d/l]
[select]
      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 ];

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

      -- JaWi

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

[reply]
[d/l]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://232491]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others chanting in the Monastery: (4)
As of 2024-04-18 03:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found