belajar asas perl

1.

#!/usr/bin/perl


$a = "\nmencuba\n";
$b = '\nmencuba\n';

print "saya mahu $a";
print "\n";
print 'saya mahu $b';
print "\n";

2.

#!/usr/bin/perl


$nama = "try";
$asal = "terengganu";
$cita2 = "penganggur\n";
$hobi = "tdo";



print "nama : $nama";
print "\nasal : $asal \n";
print "cita-cita : $cita2";
print "hobi : $hobi";

3.

#!/usr/bin/perl


$beza = "pembuka kata";
$nombor = 1;

print "beza pembolehubah nombor dan huruf ialah\n";
print "huruf kne ade $beza\n";
print "nombor plak trus je tulis $nombor";
print "\nsekian terima kasih";

4.

#!/usr/bin/perl

print "Masukkan Nama : "; # Keluarkan perkataan "Masukkan Nama"
$nama = ; # # = Input
print "Nama Anda : $nama\n"; # Keluarkan paparan daripada "$nama"

5.

#!/usr/bin/perl

print "Masukkan Nama : "; # Keluarkan perkataan "Masukkan Nama"
$nama = ; # # = Input

if ($nama == 'try') #Check jika masukkan nama try
{
print "Anda memasukkan nama try"; #Jika masukkan nama try akan keluar ini
}
else
{
print "Anda masukkan nama selain nama try iaitu : $nama"; #Paparan $nama selain try
}

installer activeperl boleh didownload di sini :

http://downloads.activestate.com/ActivePerl/Windows/5.10/?C=N;O=D