Perl: Diziler
Perl için diziler @ işareti ile başlar. Veri okumak için ise $ ile başlayan değişkenin sonuna [] eklenerek içerisine indis yazılır. C dillerindeki sıradan bir yapı.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
#!/usr/bin/perl -w my @array=("bir","iki", "uc","dort"); # uzunlugu print scalar(@array)."\n"; # degerleri foreach my $value(@array) { print $value."\n"; } # veya for(my $i=0;$i<scalar(@array);$i++) { print $array[$i]."\n"; } |
dizi ile ilgili yapılabilecek diğer işlemler
kopya almak
1 |
my @array1=@array |
boş dizi oluşturmak
1 |
my @empty_array=(); |
dizinin boyutunu almak
1 2 3 4 5 |
# first way my $size1=scalar(@array); # second way my $size2=$#array; |
dizinin sonuna eleman ekleyerek genişletmek
1 2 3 4 5 6 |
# first way push(@array,"dort"); push(@array,("bes","alti")); #second way $array[$#array+1]="dort"; |
diziden eleman silmek
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
my @array=("bir","iki","uc","dort"); # ilk eleman (first value) # splice(ARRAY ,OFFSET,LENGTH) splice(@array,0,1); # bir # or splice(@array,0,3); # bir, iki, uc # or splice(@array,1,3); # iki, uc, dort |