WebCodez

<STDIN>Operatörünü Perl programımıza girdi yapmak için kullanırız.
$girilen = <STDIN>; Satırı ile Klavyeden girdiğimiz bilgi $girilen değişkenine atanmaktadır.
Ancak veriyi girip Enter tuşuna bastıktan sonra Perl $girilen değişkeninin içindeki veriye "\n" (newline) değerini ekler. Bundan kurtulmak için ise imdadımıza chomp() fonksiyonu yetişir. chomp() fonksiyonu $girilen değişkenindeki "\n" karakterini atar. chomp() fonksiyonu sadece değişkendeki en son "\n" karakterini atar. Yani değişken içinde iki adet "\n\n" karakteri varsa bunlardan sadece string sonundaki atılacaktır. Eğer değişkenin içinde "\n" karakteri olmazsa chomp() fonksiyonu değişkenin içerdiği bilgiye zarar vermez. Aşağıda girilen sayıyı kontrol eden basit bir program bulunmakta.


#!/usr/bin/perl

print "Bir numara girin: ";
chomp($girilen = <STDIN>);

if($girilen > 10) {
print "Ondan buyuk bir deger girdiniz\n";
}elsif($girilen < 10) {
print "Ondan ufak bir deger girdiniz\n";
}


Programın çıktısı ise böyle olacak.