Perl ile 2 temel uygulama

#---------------------------------------------
#Dizi uzerinde gezinerek,dizi elemanlarinin toplamini bulma 

@dizi = ("1","2","3","4","5","6","7","8","9","10");
$boyut=@dizi;
$toplam;
foreach $dizi (@dizi){
print "$dizi\t";
$toplam+=$dizi;
}

print "\nBoyut : $boyut\tToplam : $toplam\n";


#---------------------------------------------
#Belirtilen degerin faktoriyelini hesaplama

$fact=1;
for $i (1..6){

$fact=$fact*$i;
print "$fact\t";
#ufak bir if kosulu
if($fact=="24"){
print "yirmidort";
}
}
print "\nFact : $fact\t";


Kaynak Kod