Re: Re: expanding the functionality of split

Sorry Abigail, I can't get your neat solution to work for me, could you explain what I am doing wrong?

#! perl -slw
use strict;

sub mysplit (\@;@) {
    local $" = "|"; #"
    split "@{+shift}" => @_;
}

my @array = (':','::','\s+');
my $string = "a:b::c  d";

my @chunks = mysplit @array => $string;

print @chunks;
__END__
C:\test>218759.pl
1
[download]

Okay you lot, get your wings on the left, halos on the right. It's one size fits all, and "No!", you can't have a different color.
Pick up your cloud down the end and "Yes" if you get allocated a grey one they are a bit damp under foot, but someone has to get them.
Get used to the wings fast cos its an 8 hour day...unless the Govenor calls for a cyclone or hurricane, in which case 16 hour shifts are mandatory.
Just be grateful that you arrived just as the tornado season finished. Them buggers are real work.

Comment on Re: Re: expanding the functionality of split Download Code

Replies are listed 'Best First'.
Re: expanding the functionality of split by Abigail-II (Bishop) on Dec 10, 2002 at 17:20 UTC
Blasted prototyping in Perl. The second argument to `split` is taken to be in scalar context, hence the `@_` becomes equivalent to `1`. Abigail	[reply] [d/l] [select]