GöTz Verdieck wrote:
> 
> Hi,

Hello,

> I'm looking for a solution for the following problem:
> 
> This is the list I have : $kommalist ="20,21,22,23,24,25,27,28,31,32,33";
> 
> And I want to convert it into : $newlist ="20..25,27,28,31..33";
> 
> So, I only want to combine the elements if there are more than two like
> 20,21,23
> 
> Any hint or code will help.

Perhaps this will help:

$ perl -le'
use Set::IntSpan;
my $kommalist = "20,21,22,23,24,25,27,28,31,32,33";
my $set = new Set::IntSpan $kommalist;
my $newlist = Set::IntSpan::run_list $set;
print $newlist;
'
20-25,27-28,31-33



John
-- 
use Perl;
program
fulfillment

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to