Merhabalar arkadaşlar bugün sizlere Perl'de Bir örnek üzerinden İf-Else deyimini ve değişkenleri biraz göstermek istedim..
Video

<span style="color:#000080;"><strong>

CODE

Kod:
#!/usr/local/bin/perl
Kod:
#################################### 
# (C)oded by eL.Security 
# Web Page: www.forumexe.com 
# Send messages if you have problems
# mail:info@turkishsecurity.com 
# Hesap Makinesi v1.0
# Lesson 1
# greatz ; 
# Forumexe members
# and All my Friends... 
#################################### 


print("Lutfen 1.sayiyi giriniz \n");
$sayi1= <STDIN>;
chop ($sayi1);
print("Lutfen 2.sayiyi giriniz \n");
$sayi2= <STDIN>;
chop ($sayi2);


print("Lutfen islem numaranizi giriniz \n");
print ("Toplama=1 \nCikarma=2 \nCarpma=3 \nBolme=4 \n");


$islem= <STDIN>;
chop ($islem);


if ($islem == 1)
{
	$toplam = $sayi1 + $sayi2;
		print("Sonuc = $toplam");
}


elsif ($islem == 2)
{
	$cikar = $sayi1 - $sayi2;
		print("Sonuc = $cikar");
}


elsif ($islem == 3)
{
	$carp = $sayi1 * $sayi2;
		print("Sonuc = $carp");
}




elsif ($islem == 4)
{
	$bol = $sayi1 / $sayi2;
		print("Sonuc = $bol");
}