Merhaba arkadaşlar, bu makalemde sizlere Perl Dili'nden Liste konusunu sizlere anlatmaya çalışacağım.Öncelikle tanımlamalardan başlayıp daha sonra da örneklere değinelim.
Liste : Birden fazla scalar değişkeni ayırmak ve bu değişkenleri programda işlemek için kullanılan bir veri türüdür.Bu tip verilere ait değişkenleri tanımalma ve programda işlemek için başlarına @(et diye okunur) işareti kullanılarak programa tanıtılır.
Listede yer alan her değişkenin aynı zamanda bir değeri vardır.istelerde her değişken 0'dan başlayarak indexlenir.Perl'de, listelerin bir çok kullanım amacı ve alanı vardır.Bunları ileride yazacağımız programlarda daha net görebileceğiz.
Örnek boş bir listenin tanımı aşağıdaki gibi olmalıdır;
Başka bir dizi veya liste örneği verecek olursak eğer;
şeklinde örneklerimizi çopaltabiliriz.Burada dizinin ilk elemanı nedir diye soracak olursak; domates dersiniz, son elemanı ise karpuz olur.
Bu örneği perl programında yazarak daha iyi bir şekilde gösterelim;
Örnek : Bir dizi tanımlayın, içerisine meyve çeşitlerini girin ve daha sonra ise bunların yerleri "şu"dur şeklinde yorumlayınız;
Burada listenin toplam eleman sayısını veren $#meyveler değişkeni @meyveler dizisindeki son eleman sayısını verir.Buna 1 eklersek toplam sayıyı bulmuş oluruz.
Programımızın ekran çıktısı aşağıdaki gibi olacaktır
Örnek : 5'den 10'a ve 1'den 5'e kadar olan sayıları tek bir dizi şeklinde gösteren programı yazınız ;
Bu programın ekran çıktısı da aşağıdaki gibi olacaktır;
Buradaki mantık şöyledir; öncelikle iki adet dizi tanımlıyoruz ve bu dizileri birleştirerek başka bir diziye atıyoruz ve daha sonra ise bunları ekrana basıyoruz.
(5..10) : buradaki mantık ise herhangi iki sayı arasındaki sayıları ekrana yazdırmak istiyorsak araya iki nokta koyulur.Örnek : (ilksayi..ikincisayi) gibi...
Örnek : 1'den 5'e kadar olan sayıları dizi[0] = "", dizi[1] = "" şeklinde ekrana elemanları yazdıran programı yazınız ;
#hepsini bir olarak da yazdırabiliriz veya aşağıdaki gibi dizinin 1., 2., 3., ...elemanı şudur şeklinde de yadırabiliriz.
Bu programın ekran çıktısı da aşağıdaki gibi olacaktır;
Bir dizideki elemanın sıra numarasını vererek o elemanı bulabiliriz.Bunu da değişkene köşeli parantez içinde sıra numarasını yazarak erişebiliriz.Kullanım şekli aşağıdaki gibidir;
şeklindedir.Tekrar belirtmek gerekirse Perl, 1'den değil 0'dan başlayarak sayma yapar.
Örnek : Bir değişken tanımlayınız ve o değişkenin yerini bulan programı yazınız ;
Bu programın ekran çıktısı da aşağıdaki gibi olacaktır;,
3
Bu arada Perl Dili sizleri kesinlikle zaman zaman şaşırtacak bir dildir aslında.Perl ters düzende sıra elemanlarına erişmek için size olumsuz yani negatif sayıları kullanarak bu verilere rahatlıkla erişmenizi sağlar.
Örnek : 1'den 5'e kadar bir dizi tanımlayınız ve bu sayıları ters bir şekilde yukarıdan aşağıya doğru ekrana yazdıran programı yazınız ;
Bu programın ekran çıktısı da aşağıdaki gibi olacaktır;
NOT : Array listesinde @array[0, 1, 2, 3, 4] ile @array(0..4) arasında hiçbir fark yoktur.
Liste : Birden fazla scalar değişkeni ayırmak ve bu değişkenleri programda işlemek için kullanılan bir veri türüdür.Bu tip verilere ait değişkenleri tanımalma ve programda işlemek için başlarına @(et diye okunur) işareti kullanılarak programa tanıtılır.
Listede yer alan her değişkenin aynı zamanda bir değeri vardır.istelerde her değişken 0'dan başlayarak indexlenir.Perl'de, listelerin bir çok kullanım amacı ve alanı vardır.Bunları ileride yazacağımız programlarda daha net görebileceğiz.
Örnek boş bir listenin tanımı aşağıdaki gibi olmalıdır;
Kod:
@bosliste();Başka bir dizi veya liste örneği verecek olursak eğer;
Kod:
@meyveler = ("domates", "patates", "elma", "armut", "karpuz");şeklinde örneklerimizi çopaltabiliriz.Burada dizinin ilk elemanı nedir diye soracak olursak; domates dersiniz, son elemanı ise karpuz olur.
Bu örneği perl programında yazarak daha iyi bir şekilde gösterelim;
Örnek : Bir dizi tanımlayın, içerisine meyve çeşitlerini girin ve daha sonra ise bunların yerleri "şu"dur şeklinde yorumlayınız;
Kod:
#!/usr/bin/perl
@meyveler = ("domates","patates","elma","armut","karpuz");
#dizinin toplam eleman sayısını bulabilmemiz için ayrı bir değişken tanımlamamız gerekmektedir.
$sayi = "$#meyveler";
$topla = $sayi + 1;
print "$meyveler[0] Listenin Ilk Elemanidir.\n";
#Ekrana ilk eleman olan domatesi yazacaktır.
print "$meyveler[4] Listenin 4. Elemanidir.\n";
#Ekrana listede bulunan 4. elemanı yazdırır.
print "Listede Toplam $topla Adet Meyve Bulunmaktadir. \n";Burada listenin toplam eleman sayısını veren $#meyveler değişkeni @meyveler dizisindeki son eleman sayısını verir.Buna 1 eklersek toplam sayıyı bulmuş oluruz.
Programımızın ekran çıktısı aşağıdaki gibi olacaktır
Örnek : 5'den 10'a ve 1'den 5'e kadar olan sayıları tek bir dizi şeklinde gösteren programı yazınız ;
Kod:
#!/usr/bin/perl
@ilkdizi = (5..10);
@ikincidizi = (1..5);
@buyukdizi = (@ilkdizi , @ikincidizi);
print "@buyukdizi \n";Bu programın ekran çıktısı da aşağıdaki gibi olacaktır;
Kod:
5 6 7 8 9 10 1 2 3 4 5Buradaki mantık şöyledir; öncelikle iki adet dizi tanımlıyoruz ve bu dizileri birleştirerek başka bir diziye atıyoruz ve daha sonra ise bunları ekrana basıyoruz.
(5..10) : buradaki mantık ise herhangi iki sayı arasındaki sayıları ekrana yazdırmak istiyorsak araya iki nokta koyulur.Örnek : (ilksayi..ikincisayi) gibi...
Örnek : 1'den 5'e kadar olan sayıları dizi[0] = "", dizi[1] = "" şeklinde ekrana elemanları yazdıran programı yazınız ;
Kod:
#!/usr/bin/perl
@sayilar = (1..5);
print "Dizinin Eleman Sayilari Asagidaki Gibidir.\n";
print @sayilar;#hepsini bir olarak da yazdırabiliriz veya aşağıdaki gibi dizinin 1., 2., 3., ...elemanı şudur şeklinde de yadırabiliriz.
Kod:
print "\n";
print @sayilar[0];
print "\n";
print @sayilar[1];
print "\n";
print @sayilar[2];
print "\n";
print @sayilar[3];
print "\n";
print @sayilar[4];
print "\n";Bu programın ekran çıktısı da aşağıdaki gibi olacaktır;
Kod:
1 2 3 4 5
1
2
3
4
5Bir dizideki elemanın sıra numarasını vererek o elemanı bulabiliriz.Bunu da değişkene köşeli parantez içinde sıra numarasını yazarak erişebiliriz.Kullanım şekli aşağıdaki gibidir;
Kod:
$degisken[siranumarasi]şeklindedir.Tekrar belirtmek gerekirse Perl, 1'den değil 0'dan başlayarak sayma yapar.
Örnek : Bir değişken tanımlayınız ve o değişkenin yerini bulan programı yazınız ;
Kod:
#!/usr/bin/perl
$sira = 2;
@dizi = (1..5);
print $dizi[$sira];
print "\n";Bu programın ekran çıktısı da aşağıdaki gibi olacaktır;,
3
Bu arada Perl Dili sizleri kesinlikle zaman zaman şaşırtacak bir dildir aslında.Perl ters düzende sıra elemanlarına erişmek için size olumsuz yani negatif sayıları kullanarak bu verilere rahatlıkla erişmenizi sağlar.
Örnek : 1'den 5'e kadar bir dizi tanımlayınız ve bu sayıları ters bir şekilde yukarıdan aşağıya doğru ekrana yazdıran programı yazınız ;
Kod:
#!/usr/bin/perl
@dizi = (1..5);
print "Dizideki Elemanlar : @dizi \n";
print "\n";
print $dizi[-1];
print "\n";
print $dizi[-2];
print "\n";
print $dizi[-3];
print "\n";
print $dizi[-4];
print "\n";
print $dizi[-5];
print "\n \n";Bu programın ekran çıktısı da aşağıdaki gibi olacaktır;
NOT : Array listesinde @array[0, 1, 2, 3, 4] ile @array(0..4) arasında hiçbir fark yoktur.
Son düzenleme:
