Perl'lerde flip flop operatörü

Question

Bir değişkenin ilk oluşumu için döngü içinde bir deyim yürütmem gereken bir gereksinimim var. Örneğin

: dizisi Verilen benim @rand_numbers = qw(1 2 1 2 3 1 3 2); ben dizideki mevcut sadece 3 değerleri olduğunu biliyoruz
(bu durumda 1,2 yani ve 3)
şey yazdırmak (veya bir şey yapmak) istediğiniz üzerine her değerin ilk karşılaşması (sadece ilk karşılaşmada ve asla karşılık gelen değerin ardışık karşılaşması için tekrar etmeyiniz).

ardından $came_across_x gibi hiçbir değişkenle yukarıdaki sonuca ulaşmak için bir yol var mı bir yaklaşım

my @rand_numbers = qw(1 2 1 2 3 1 3 2); 
my $came_across_1=0, $came_across_2=0, $came_across_3=0; 

for my $x(@rand_numbers) { 
    print "First 1\n" and $came_across_1=1 if($x==1 and $came_across_1==0); 
    print "First 2\n" and $came_across_2=1 if($x==2 and $came_across_2==0); 
    print "First 3\n" and $came_across_3=1 if($x==3 and $came_across_3==0); 
    print "Common op for -- $x \n"; 
} 

mı? [Yani ? Flip-flop operatör yardımıyla]

teşekkür, Ranjith

Answer 1

Bu gerçek yaşam durumu için çalışmayabilir, ama senin numune için çalışır ve size bir fikir verebilir:

my %seen; 
for my $x (@rand_numbers) { 
    print "First $x\n" unless $seen{$x}++; 
    print "Common op for -- $x\n" 
} 

Answer 2

Sadece bir hash değerini @Chris'in önerileriyle kullanın.

my %seen; 
for (@rand_numbers) { 
    print "$_\n" if $_ == 1 && !$seen{$_}++ .. $_ == 1; 
    print "$_\n" if $_ == 2 && !$seen{$_}++ .. $_ == 2; 
    print "$_\n" if $_ == 3 && !$seen{$_}++ .. $_ == 3; 
}