Perl Dilinin Temelleri 2
Skaler Degisken Tipi
Birçok programlama dilinde oldugu gibi Perl'de de fakli degisken tipleri mevcuttur. Bunlardan en temel olani skaler degisken türüdür ve bu degisken de tekil veri tutabilir. Örnegin bir sayi veya bir metin skaler degiskende tutulabilir.
merhaba4.pl
#!/usr/bin/perl -w
$metin = "Merhaba dunyali biz dostuz!\n"; #yaziyi, metin isimli degiskene atadik
print $metin; #degiskenin içinde yer alan veri ekrana yazilacak
$metin = "Merhaba "; # metin isimli degiskene yeni bir yazi atadik
$kacKere = 3; #3 sayisini kacKere isimli degiskene atadik
print $metin x $kacKere; # $metin icinde tutulan veri $kacKere kez ekrara yazdiriliyor
C:\Perl\mysamples>merhaba4.pl
Merhaba dunyali biz dostuz!
Merhaba Merhaba Merhaba
Son örnegimizde 2 farkli skaler degiskene farkli türde veri atamalari yaptik. Görüldügü gibi Perl'de bir degiskene atanacak verinin türü( tamsayi, metin vs.) önemli degildir. Aslolan tekil verinin atanabilmesidir. Ayrica Perl dilinde skaler degiskenlerden önce mutlaka $(dolar) isareti kullanilmalidir.
STDIN ile Girdi Alimi
Sira geldi programimiz ile kullaniciyi etkilestirmeye. Perl'de klavyeden bir satirlik girdi alinabilmek için <STDIN> yapisini kullanabiliriz. Asagidaki örnek ile <STDIN>'in kullanimini açiklamaya çalisalim.
girdi.pl
#!/usr/bin/perl -w
print "Merhaba, lutfen adinizi giriniz: ";
$isim = <STDIN>; # Klavyeden gelecek metin isim skalerine atanacak
print "Lutfen soyadinizi giriniz: ";
$soyisim = <STDIN>; # Klavyeden gelecek metin soyisim skalerine atanacak
print "Hosgeldiniz : ".$isim." ".$soyisim;
C:\Perl\mysamples>girdi.pl
Merhaba, lutfen adinizi giriniz: hamdi
Lutfen soyadinizi giriniz: kavak
Hosgeldiniz : hamdi
kavak
Yukaridaki örnekte <STDIN> yapisi ile klavye girdileri alinip skalerlere ataniyor, sonrasinda ise bu skalerlerde tutulan veriler ekrana yazdiriliyor. Ekran çiktisinda ilk dikkat çeken kisim ad ve soyadin ayni satirda gözükmemesidir. Bunun nedeni Perl'in girdilerle beraber 'yeni satir karakter sabitini'(\n) de eklemesidir. Örnegin isim kisminda "hamdi" yazilmasina ragmen bu metin $isim skaleri üzerinde "hamdi\n" biçiminde tutulur. Bu karakterden kurtulmak için Perl'ün chomp fonksiyonundan yararlanabiliriz. Bu fonksiyon kendisine gönderilen metnin sonunda yer alan "\n" karakterini hiçbir atamaya gerek kalmadan budar. Bundan sonraki programlarimizda chomp fonksiyonuna sikca rastlayacagiz.
girdi2.pl
#!/usr/bin/perl -w
print "Merhaba, lutfen adinizi giriniz: ";
$isim = <STDIN>; # Klavyeden gelecek metin isim skalerine atanacak
chomp($isim); # isim degiskenini budadik
print "Lutfen soyadinizi giriniz: ";
$soyisim = <STDIN>; # Klavyeden gelecek metin soyisim skalerine atanacak
chomp($soyisim); # soyisim degiskenini budadik
print "Hosgeldiniz : ".$isim." ".$soyisim;
C:\Perl\mysamples>girdi.pl
Merhaba, lutfen adinizi giriniz: hamdi
Lutfen soyadinizi giriniz: kavak
Hosgeldiniz : hamdi kavak
Bir önceki örnekte kullanmadigimiz budama fonksiyonu chomp'u klavye girdilerinden sonra kullanarak ("\n") karakterinden kurtulduk. Böylelikle ekran çiktisi ayni satirda gösterilebildi.
<< Önceki Ders |
