Perl Öğreniyoruz - 3

0
cayfer
2. bölümün sonunda bu hafta "listeler"den söz edeceğimi söylemiştim.

Listeler (arrays) Perl'in çok güçlü olduğu konulardan birisidir. Perl'de bir listeden söz ederken değişken adının başına bir @ işareti koymalısınız. (Hatırlıyorsanız sayıl (scalar) değişkenlerin adı $ işareti ile başlardı).

Örneğin @aylar isimli bir değişken adı görür görmez hem siz hem de Perl yorumlayıcısı, bir listeden söz edildiğini anlamalısınız.

Listeler sıfırdan başlayan indekslerle adreslenir. Yani, bir listenin ilk elemanından söz ederken @liste[0], üçüncü elemanından söz ederken ise @liste[2] kullanılır.

Bir başka önemli konu da şu: bir listenin üçüncü elemanından söz ettiğinizde, aslında bir sayıl'dan söz ediyorsunuz. Bu nedenle bir çok eski Perl programcısı, örneğin @aylar listesinin ikinci elemanından söz ederken @aylar[1] yerine $aylar[1] yazar. Doğrusu da aslında bu ama şimdi hatırlayamadığım bir sürümden sonrası Perl yorumlayıcılarında her iki notasyon da kullanılabilmektedir. Benim önerim liste elemanlarında söz ederken $ notasyonunu kullanmanızdır.

Listelerin deklare edilmesi isteğe bağlıdır. Bir listeyi deklare etmek istediğinizde (ya da use strict; kullandığınızda mecbur olduğunuz için)

    my @aylar;
yazmanız yeterlidir. Dikkat ederseniz listenin kapasitesi, yani içine alabileceği eleman sayısı hakkında bir bilgi deklare etmeye gerek yok. Yani "Dimension" belirtmeye gerek yok.

Perl'de bir listeye bilgisayarınızın belleğinin izin verdiği kadar eleman tıkalayabilirsiniz. Elemanları yerleştirirken indekslerin ardışık olması da gerekmez.

Örneğin:

    $aylar[0] = "Ocak";
    $aylar[1] = "Şubat";
    $aylar[3] = "Nisan";
veya
    @aylar = ("Ocak", "Şubat", undef, "Nisan");
komutlarından sonra @aylar listesinin üçüncü elemanı tanımsız olacak ve değeri undef olacaktır ama @aylar listesi kusursuz bir şekilde tanımlı olacaktır.

Şimdi sıkı durun! Perl'de bir listenin elemanlarının hepsinin aynı tipte olması gerekmez. Aslında zaten Perl'de "tip" diye bir kavram da yok.

Yani bir listeyi doldururken

    $aylar[0] = "Ocak";
    $aylar[1] = 31;
    $aylar[2] = ("Şubat", 20000, "işte öyle bir şey", -123.456);
gibi değişik tipte değerler kullanabilirsiniz. Hatta yukardaki örnekte göreceğiniz gibi listenin bir elemanı bir başka liste bile olabilir.

Listelerle uğraşmış programcılar bilirler: en çok lazım olan değerlerden biri bir listenin eleman sayısıdır. Perl'de bir listenin eleman sayısını bulmak biraz garip gelecek şimdi size!

    @aylar = ("Ocak", "Şubat", "Mart", "Nisan");
    $n = @aylar;
deyimlerinden sonra @aylar dört elemanlı bir liste, $n değişkeninin değeri de 4 olacaktır. Perl'de bir listeyi olduğu gibi bir sayıl değişkene atarsanız, sayıl değişkene listenin eleman sayısı atanmış olur. Bir listenin kopyası lazım olduğunda bir döngü kurup elemanları teker teker kopyalamanız gerekmez.
    @kopyasi = @aylar;
gibi bir deyim iş görür.

Perl'de bir listeye eleman eklemek istediğinizde ilk boş indeksin kaç olduğunu bilmenize gerek yoktur. Listenin sonuna eleman eklemek istediğinizde

    @liste = (1, 2, 3, 4);
    push(@liste, "A");
    print "@liste
";
yapısını kullanabilirsiniz. Yukardaki örnekte push deyiminden sonra @liste listesi (1, 2, 3, 4, "A") olacaktrır.

Bir listenin başına eleman eklemek istediğinizde

    @liste = (1, 2, 3, 4);
    unshift(@liste, "A");
    print "@liste
";
yapısını kullanabilirsiniz. Yukardaki örnekte unshift deyiminden sonra @liste listesi ("A", 1, 2, 3, 4) olacaktrır.

Bu push ve unshift fonksiyonları, pop ve shift fonksiyonlarının da olması gerektiğini gösteriyor, değil mi?

pop fonksiyonu bir listenin sonundaki elemanı çekip almak için; shift fonksiyonu da başındaki elemanı çekip almak için kullanılır.

Örneğin:

    @liste = (1, 2, 3, 4, 5);
    $son = pop(@liste);
den sonra $son değişkenin değeri 5 olacak ve @liste listesi de (1, 2, 3, 4) kalacaktır.

Benzeri şekilde

    @liste = (1, 2, 3, 4, 5);
    $ilk = shift(@liste);
den sonra $ilk değişkenin değeri 1 olacak ve @liste listesi de (2, 3, 4, 5) kalacaktır.

Deneyimli okuyucular bu push-pop ve shift-unshift fonksiyonlarının yığıt (stack) ve kuyruk (queue) modellemesinde ne denli kolaylık sağlayacağını farketmiştir sanırım.

Kod yazarken çok sık karşılaşacağınız bir işlem dizisi de bir listedeki tüm elemanlar için tekrarlanması gereken işlemler olacaktır. Yani:

    print "Listenin elemanları:
";
    $n = @liste;
    for ($i=0, $i < n, $i++) {
        print "$liste[i]
";
    }
gibi birşeylerden söz ediyorum.

Yukardaki kodu Perl'de aynen kullanabilirsiniz ama bu Perlce olmaz. Ben olsam aynı işi

    print "Listenin elemanları:
";
    foreach $eleman ( @liste ) {
       print "$eleman
";
    }
hatta
    print "Listenin elemanları:
";
    foreach ( @liste ) {
       print;
    }
diye yazardım.

foreach $sayil ( @liste ) { ... } deyim yapısı "@liste listesinin elemanlarını sırayla $sayil değişkenine yerleştir ve { ...} arasındaki kodu her eleman için tekrarla" diye okunabilir.

Bir sonraki "foreach ( @liste ) { ... }" yapısı ise "@liste listesinin tüm elemanları için tekrarla, her seferinde seçilen eleman $_ değişkeninde olsun!" diye okunabilir.

Bu ikinci formda, print deyiminde neyin print edileceğini söylemediğimiz için $_ sistem değişkeninin içeriği basılacaktır.

Vurucu darbeyi de indirip bu haftalık bitireyim:

    open (D, "/tmp/plakalar");
    @araclar = ;
    @sirali = sort(@araclar);
    @ters_sirali = reverse(@sirali);
    print @ters_sirali;
    print "
";
Bu kod "/tmp/plakalar" dosyasını açıyor, dosya tanımlayıcısı bir listeye atandığı için dosyadaki satırlarının her biri bir liste elemanı olacak şekilde @araclar listesini dolduruyor. @araclar listesini alfabetik olarak sıralayıp @sirali listesini oluşturuyor. Son olarak da @sirali listesini ters çevirip @ters_sirali listesini oluşturuyor.

Yukardaki işleri

    open (D, "/tmp/plakalar");
    print reverse(sort());
    print "
";
koduyla da yapabilirdik elbette.

Haftaya çağrışımlı listelerde buluşmak üzere...

Görüşler

0
elrond
Malesef ne zamandır Fazla mesami ayırıpta buraya bağlanamıyordum. Yukarı daki gibi bir yazı görünce gerçekten çok heyecanlandım. Eline ayağına sağlık `cayfer` ne diyim.
0
petkutin
Ugur hocam,

sanirsam kod ornekleriniz HTML''in gazabina ugramis. tarayiciya(IE) hic basilmiyor, HTML kodunda olmasina ragmen. Galiba dogru basilmis hali soyle olacak:


open (D, /tmp/plakalar);
@araclar = ;
@sirali = sort(@araclar);
@ters_sirali = reverse(@sirali);
print @ters_sirali;
print  ;

---------

open (D, /tmp/plakalar);
print reverse(sort());
print  ;

saygilar...

0
petkutin
hoppala...benimkileride yuttu. halbuki Onizleme sirasinda hersey gayet guzel gozukuyordu. Onizleme ile Gonderilen yorum arasinda bir fark olmamasi lazim, hele Eski Duz Yazi gonderirken hic yapmamasi lazim... <D>
0
petkutin
bir kez daha deniyorum...

open (D, /tmp/plakalar);
@araclar = <D> ;
@sirali = sort(@araclar);
@ters_sirali = reverse(@sirali);
print @ters_sirali;
print   ;

---------

open (D, /tmp/plakalar);
print reverse(sort(<D>));
print  ;


0
cayfer
Uyariniz ve duzeltme icin tesekkurler.

Ugur
Görüş belirtmek için giriş yapın...

İlgili Yazılar

Perl Öğreniyoruz - 1

butch

Haydi millet toplanın. Perl öğrenmeye başlıyoruz :) Bundan sonra düzenli olarak bu köşede Can Uğur Ayfer tarafından hazırlanan Perl Öğreniyoruz makaleleri yayınlanacak. Bu makalelerde, klasik yöntemle, basit problemleri adım adım çözerek beraberce Perl öğreneceğiz. Buyrun ilk derse...

(Can Uğur Ayfer, Kim Korkar Unix`den, Perl ve MySQL ile Cgi Programlama gibi kitapların yazarı, 1973 yılından beri ülkemizde bilgisayar sektörünün duayenlerinden birisidir. Halen aktif olarak çalışmakta öğrenmeye, öğretmeye aynı coşku ile devam etmektedir. Kendisine sonsuz teşekkürler)

Perl ile insanları dans ettirebilir misiniz?

FZ

Perl programlama dili ile doğaçlama program yapıp bunun sonuçlarını dinleyen insanların dans etmesini sağlayabilir misiniz? Alex Mclean, Hacking Perl in Nightclubs başlıklı fantastik makalesinde bu soruya olumlu yanıt verip işin nasıl yapılacağını anlatıyor.

Aklıma 1960´lı yıllarda tüm zamanların en fantastik müzikal deneyimlerine imza atan, IBM 7090 kullanarak müzik üreten Xenakis geliyor…

Kaynak: http://ileriseviye.org/blog/index.php?p=113

Perl için FMOD Kütüphanesi

mustafa_

Fmod for Perl, FMOD müzik ve ses efektleri sistemleri kütüphanesine erişmek için geliştirilmiş bir Perl eklentisidir.

Perl: Engellilere Yardım Eden Programlama Dili

FZ

Perl'ü hemen her şey için kullanıyoruz; Web geliştirimi, veri işleme, sistem yönetimi hatta biyolojik araştırmalar için. Çoğumuz Perl'ü bu işlerden birisi için kullandık. Ancak sadece bir kaç kişi Perl'ü grafik arabirimli (GUI) son-kullanıcı programları oluşturmak için kullanmıştır ve bildiğim kadarıyla, bu dünyada sadece iki kişi Perl'ü engellilerin hayatını kolaylaştırmak için kullandı: Jon Bjornstad ve ben. Bazı insanlar, bizim Perl'ü kullanma şeklimizi özel bir durum olarak görebilirler fakat benim hikayem size, yazılım geliştirebilen herhangi bir babanın, çocuğu için yapacağını yaptığımı gösterecek.

Visual Perl, Visual Python

gencbeyin

Microsoft Visual Studio .NET için editör, grafik arındırıcı, dil deyimleri (regular expression) kontrolü ve XML Web servisleri programlama gibi özellikleri bulunan Visual Perl ve Visual Python 22.Ekim'de Los Angeles'da Active State'in kurucusu Dick Hardt tarafından Microsoft Professional Developers Conference'da ilan edildi. Yazıldıktan sonra her türlü platformda kullanılabilecek türden kod oluşturan geliştirme ortamı ilk üçüncü parti programlama dili paketi olarak nitelendirildi.