Re: 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;
[download]

or, alternatively, you can do

die if not defined $a;
[download]

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;` [download] or: `die if not defined $r;` [download] (Also, you had a typo in your code: extra paren) When's the last time you used duct tape on a duct? --Larry Wall	[reply] [d/l] [select]