WebCodez

Unless eğer verilen şart false ise işlem yapar. Kısaca parantez içersindeki şart false dönüyorsa unless bloğundaki kod işlenir. Aşağıda yazdığım kodlara bakacak olursak.


#!/usr/bin/perl

print "Giris: ";
chomp($str = <STDIN>);
unless($str eq "webcodez")
{
print "webcodez girmelisin\n";
}else {
print "Merhaba.\n";
}


Burada eğer klavyeden webcodez girersek program Merhaba yazacak. webcodez dışında klavyeden ne girilirse "webcodez girmelisin" yazacaktır. Çünkü ifade false dönmektedir.


Program iki kere çalıştıktan sonra elde ettiğim çıktı.