Ron Grabowski wrote: > > I couldn't figure out why this was failing: > > my($cddbp_id, $total_seconds, @track_offsets) = > (split ' ',$strTOC)[2,-1,4..-2]; > > @track_offsets is always empty.
"If the left value is greater than the right value then it returns the empty array." Workaround: my @x = split / /, $strTOC; my ($ci, $ts, @to) = (@x)[2, -1, 4 .. ($#x-1)]; -- ,-/- __ _ _ $Bill Luebkert ICQ=162126130 (_/ / ) // // DBE Collectibles Mailto:[EMAIL PROTECTED] / ) /--< o // // http://dbecoll.tripod.com/ (Free site for Perl) -/-' /___/_<_</_</_ Castle of Medieval Myth & Magic http://www.todbe.com/ _______________________________________________ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs