Perl: Array nach Elementwert neu anordnen

Question

Was wäre der effizienteste Weg, um die Array-Elemente neu anzuordnen, so dass sie mit dem entsprechenden Indexwert (minus eins) geordnet sind &? Die Variable $ dat ist die maximale Anzahl von Elementen (die im Array niemals überschritten wird, aber möglicherweise vorhanden ist oder nicht vorhanden ist).

$dat = 14; 
my @array = (1, 12, 14, 7, 8, 4) 

Mit anderen Worten:

my @new_array = (1, undef, undef, 4, undef, undef, 7, 8, undef, undef, undef, 12, undef, 14); 

*** EDIT **** Fuller Code-Schnipsel:

foreach $auth (keys %activity) { 
my @value = @{ $activity{$auth} }; 
@value = uniq @value; 
@value = sort @value; 
s/^0// for @value; 

my $count = scalar(grep $_, @value); 
my $dat = max(@value); 
@{$activity{$auth}} = @value; 
} 

Answer 1

Sie können mit einem neuen Array erstellen:

for (my $i = @array; $i--;) { 
    my $j = $array[$i]-1; 
    if ($i < $j) { 
     $array[$j] = $j+1; 
     $array[$i] = undef; 
    } 
    elsif ($i > $j) { 
     @array[$i, $j] = @array[$j, $i]; 
     redo; 
    } 
} 

---

In-place (Duplikate im ursprünglichen auftreten können) alle Werte, die nach dem Finden des Maximalwerts in der ersten definiert sind, und dann in dieser neuen Matrix jeden Wert löschen, der nicht in der ersten ist:

use strict; 
use warnings; 
use Data::Dumper; 


my @array = ('1', '4', '3'); 
my $max = (sort { $b <=> $a } @array)[0]; #should be 4 

print Dumper(\@array); 

my @new_arr; 
foreach my $index (0 .. ($max - 1)) { 
    $new_arr[$index] = ($index + 1);  
     #Array should be fully populated, @new_arr = ('1', '2', '3', '4'); 
    $new_arr[$index] = 'undef' unless (grep {$_ eq $new_arr[$index]} @array); 
     #Values not in the original array should be set to undef 

} 
# @new_arr should be (''1', 'undef', '3', '4') 

print Dumper(\@new_arr); 

Output

:

$VAR1 = [ 
      '1', 
      '4', 
      '3' 
     ]; 

$VAR1 = [ 
      1, 
      'undef', 
      3, 
      4 
     ]; 

Answer 2

Einfache und schnelle (Duplikate im ursprünglichen auftreten können):

my @new_array; 
$new_array[$_ - 1] = $_ for @array; 

---

In-place (Duplikate nicht in Original erlaubt):

for (my $i = @array; $i--;) { 
    my $j = $array[$i]-1; 
    if ($i < $j) { 
     $array[$j] = $j+1; 
     $array[$i] = undef; 
    } 
    elsif ($i > $j) { 
     if ($array[$j] == $j+1) { 
     $array[$i] = undef; 
     } 
     else { 
     @array[$i, $j] = @array[$j, $i]; 
     redo; 
     } 
    } 
} 

pop(@array) while @array && !defined($array[-1]);