关于数组的问题

jimhou

my @arr1;
my $inp;
while (chomp ($inp = <STDIN>)) {
        if ($inp eq "!") {
                last;
        }
        push (@arr1,$inp);
}

... ...

如何利用数组中的值和位置号，创建一个新的结构。

例如：

@arr1 = (1 2 3 5 3 1);

{
  [1]=>(0 5);
  [2]=>(1);
  [3]=>(2 4);
  [5]=>(3);
}

mcshell

1. my @arr1 = qw(1 2 3 5 3 1);
   
2. my $h;
   
3. push @{$h->{$arr1[$_]}},$_ for 0..$#arr1;
   
4. print "[$_]=>(@{$h->{$_}})\n" for sort keys %$h;

复制代码

jimhou

mcshell 发表于 2014-04-25 21:36

牛！感谢！

yinyuemi

回复 1# jimhou

1. 
   
2. my %hash;
   
3. my $index;
   
4. my $inp;
   
5. while (chomp ($inp = <STDIN>)) {
   
6.          if ($inp eq "!") {
   
7.                  last;
   
8.          }
   
9.         push ${$hash{$inp}},$index++;
   
10. }
    
11. use Data::Dumper;
    
12. print Dumper \%hash;
    

复制代码

yestreenstars

1. my @a = qw/1 2 3 5 3 1/;
   
2. my %h;
   
3. push @{ $h{$a[$_]} }, $_ for 0 .. $#a;
   
4. print "[$_]=>(@{$h{$_}});$/" for sort keys %h;

复制代码

104359176

$array->[$location] = ($index, $value);

substr函数

牛！感谢！