Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: Split function

by bart (Canon)
on Dec 03, 2012 at 13:10 UTC ( #1006872=note: print w/ replies, xml ) Need Help??


in reply to Split function

If you can't have it die, you can make it do that if split splits into only one part.

(my ($s, $a, $c, $r) = split /[,\t]/) == 1 and die;
or, alternatively, you can do
die if not defined $a;
edit code fixed, thanks ColonelPanic


Comment on Re: Split function
Select or Download Code
Replies are listed 'Best First'.
Re^2: Split function
by ColonelPanic (Friar) on Dec 03, 2012 at 13:42 UTC

    If you are going to do error checking, why not do it properly? Check that all fields are present:

    (my ($s, $a, $c, $r) = split /[,\t]/) < 4 and die;
    or:
    die if not defined $r;

    (Also, you had a typo in your code: extra paren)



    When's the last time you used duct tape on a duct? --Larry Wall

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1006872]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (16)
As of 2015-07-29 17:40 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (266 votes), past polls