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ı.

#!/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

my @array1=@array

boş dizi oluşturmak

my @empty_array=();

dizinin boyutunu almak

# first way
my $size1=scalar(@array);

# second way
my $size2=$#array;

dizinin sonuna eleman ekleyerek genişletmek

# first way 
push(@array,"dort");
push(@array,("bes","alti"));

#second way
$array[$#array+1]="dort";

diziden eleman silmek

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
Share