Re: Dealing with split

my $foo = 'c:\temp\source\test\test.c@@main\com\etc c:\temp\source\tes
+t\test1.c@@main\com\test c:\temp\source\test\test3\test2.c@@main\com\
+etc\test';
my @bits = split /\@\@.*?(?: c:\\temp|$)/, $foo;
print "$_\n" for @bits;
[download]

Updated as per GrandFather's correction.

Caution: Contents may have been coded under pressure.

Comment on Re: Dealing with split Download Code

Replies are listed 'Best First'.
Re^2: Dealing with split by GrandFather (Saint) on Feb 22, 2006 at 22:33 UTC
Doesn't trim off the trailing junk for the last entry: `c:\temp\source\test\test.c c:\temp\source\test\test1.c c:\temp\source\test\test3\test2.c@@main\com\etc\test` [download] DWIM is Perl's answer to Gödel	[reply] [d/l]
Re^3: Dealing with split by perl_99_monk (Novice) on Feb 22, 2006 at 22:58 UTC
Thank you all for the suugetions.... It helped me a lot.	[reply]