Re^2: How do I remove the duplicates from the array?

Very good

But i need

 @output =  ( -20, , ,1, , , ,9,3, ,-4, 5, ,20); 
 @output1 = (  10, , ,9, , , ,1,3, , 5, 5, ,30);
 $#array==$#array1==$#output==$#output1
[download]

Comment on Re^2: How do I remove the duplicates from the array? Download Code

Replies are listed 'Best First'.
Re^3: How do I remove the duplicates from the array? by choroba (Cardinal) on Sep 26, 2013 at 07:30 UTC
Please, be more precise. Even if Perl can "do what you mean", sometimes you have to be careful. `@long = (1, 2, 3, 4, 5); @sparse = (1, , , 4, ); @short = (1, 4); print "Equals\n" if $#long == $#sparse; print "Shorter\n" if $#short == $#sparse;` [download] لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l]
Re^4: How do I remove the duplicates from the array? by parv (Parson) on Sep 26, 2013 at 07:49 UTC
Update: Never mind the below for farang had already showed that above. I /GUESS/ OP has a issue of keeping track of missing values and display of them. So, `undef` (ideally; else nothing, `''`) could be used for the missing values. Format the display with whitespace as needed.	[reply] [d/l] [select]
Re^3: How do I remove the duplicates from the array? by farang (Chaplain) on Sep 26, 2013 at 07:09 UTC
In that case you can add an else block to the code generating the arrays `@output` and `@output1` in choroba's code. `my (@output, @output1); for my $i (0 .. $#array) { if (exists $hash{ $array[$i] } and $array1[$i] == $hash{ $array[$i] }{highest}) { push @output, $array[$i]; push @output1, $array1[$i]; } else { push @output, ''; # or use spaces ' ' here push @output1, ''; # or whatever you want } }` [download]	[reply] [d/l]