Sort question 1

[PerlElvir]

Hi all, this forum help me a lot of time I hope now will be same )

Ok I have in one row name with few value so I want that value become for that name one by one

exampl:

Cris 25 13 12

and I want to have

Cris 25
Cris 13
Cris 12

 

[PaulTEG]

@data=split / /, $line;
$title=pop @data;
foreach (@data) {
  print "$title\t$_\n";
}

HTH
--Paul

Spend an hour a week on CPAN, helps cure all known programming ailments ;-)

 

[PaulTEG]

Just after copping the sort requirement.

forget pop, use shift, and after shifting sort the array if needs be.

Caffeine deficiencies should be avoided at all costs ;-)

Spend an hour a week on CPAN, helps cure all known programming ailments ;-)

 

[PerlElvir]

Sorry dude, but I didnt explain well this situation, but thanx on replay

Look this, I have 4 variables
$Cris, $var1, $var2, $var3 and now I want to have in my insert in database :

1row - $Cris(field1), $var1(field2)
2row - $Cris(field1), $var2(field2)
3row - $Cris(field1), $var3(field2)

 

[KevinADC]

What Paul meant:

@data = split / /, $line;
$title = shift @data;
for (sort {$b <=> $a} @data) {
  print "$title\t$_\n";
}

or a bit shorter:

my ($title,@numbers) = split / /, $line;
for (sort {$b <=> $a} @numbers) {
  print "$title\t$_\n";
}

 

[PerlElvir]

Thx all

 

[stevexff]

Neat solution, Kevin. Have a star...

 

[KevinADC]

Thanks stevexff