如何打印第一個不同值的標量值

Question

下面的腳本將為每個鍵打印每個元素的所有標量值，以及如何僅打印哈希中每個元素的第一個標量值。

#!/usr/bin/perl
use warnings;
use strict;
use Tie::IxHash;    

my %KEY_VALUE;
tie %KEY_VALUE,'Tie::IxHash';


my %KEY_VALUE= (
    0 => ['A','A','C','B','D'],
    1 => ['C','C','C','F','E','E'],
    2 => ['Z','X','X','A','A','Y','Y'],
    3 => ['A','A','B','B'],
    4 => ['E','E','R','M','M'],
    5 => ['D','F','F','F','E','E'],
    );

 while (my ($k, $v) = each %KEY_VALUE) 
{
  print "KEY= $k  ";
  print scalar "VALUE= @$v\n"; #But this will print all the value
}

想要的輸出：

KEY= 0  VALUE:0 2 3 4   #The scalar value of first A C B D, start with 0
KEY= 1  VALUE:0 3 4     #The scalar value of first C F E
KEY= 2  VALUE:0 1 3 5   #The scalar value of first Z X A Y
KEY= 3  VALUE:0 2       #The scalar value of first A B
KEY= 4  VALUE:0 2 3     #The scalar value of first E R M
KEY= 5  VALUE:0 1 4     #The scalar value of first D F E

Answer 1

my @vals = qw( Z X X A A Y Y );

my %seen;
my @positions = grep { !$seen{ $vals[$_] }++ } 0..$#vals;

即使未對相同的字符串進行分組，此解決方案仍然有效。

Answer 2

更換

print scalar "VALUE= @$v\n"; #But this will print all the value

與

say "VALUE:0 ", join ' ', grep $v->[$_] ne $v->[$_ - 1], 1 .. $#$v;

• 總是打印零
• 僅顯示對應元素與上一個元素不同的索引

僅當同一字母從未出現在其首次出現的組之外時（例如，不會發生AABBA ）， AABBA 。 如果可能發生這種情況，請參閱ikegami的答案（帶有哈希值）以跟蹤已報告的字母。