Numeric Scalar
Dibawah ini adalah contoh implementasi Numeric Scalar pada program:
#Nama File: numeric_scalar.pl $integer = 200; $negative = -300; $floating = 200.340; $bigfloat = -1.2E-23; # 377 octal, same as 255 decimal $octal = 0377; # FF hex, also 255 decimal $hexa = 0xff; print "Bilangan Integer = $integer\n"; print "Bilangan Negative = $negative\n"; print "Bilangan Floating = $floating\n"; print "Bilangan Bigfloat = $bigfloat\n"; print "Bilangan Octal = $octal\n"; print "Bilangan Hexa = $hexa\n";Jika Anda jalankan program diatas, maka akan menghasilkan output berikut ini:
C:\>perl d:\perl\numeric_scalar.pl integer = 200 negative = -300 floating = 200.34 bigfloat = -1.2e-023 octal = 255 hexa = 255
String Scalar
Di bawah ini adalah contoh implementasi String Scalar pada program:
#Nama File: string_scalar.pl $var = "Ini adalah sebuah contoh string scalar"; $quote = 'String di dalam single quote - $var'; $double = "String di dalam double quote - $var"; $escape = "Contoh penggunaan escape character -\tHello, World!"; print "var = $var\n"; print "quote = $quote\n"; print "double = $double\n"; print "escape = $escape\n";Jika progam diatas Anda jalankan, maka akan menghasilkan output berikut ini:
C:\>perl d:\perl\string_scalar.pl var = Ini adalah sebuah contoh string scalar quote = String di dalam single quote - $var double = String di dalam double quote - Ini adalah sebuah contoh string scalar escape = Contoh penggunaan escape character - Hello, World!
Operasi Pada Data Scalar
Anda dapat melakukan operasi pada data scalar seperti operasi aritmatika (penjumlahan, pengurangan, pembagian, dan perkalian), operasi penggabungan (concatenation), dan lain sebagainya.
Dibawah ini contoh program implementasi operasi aritmatika dan penggabungan data scalar.
#Nama File: scalar_operation.pl $str = "Belajar" . "Perl"; # Menggabungkan dua string. $add = 5 + 10; # operasi penambahan. $multiply = 4 * 5; # operasi perkalian. $mix = $str . $add; # menggabungkan string dan number. print "str = $str\n"; print "add = $add\n"; print "multiply = $multiply \n"; print "mix = $mix\n";Jika program diatas Anda jalankan, maka akan menghasilkan output sebagai berikut:
C:\>perl d:\perl\scalar_operation.pl str = BelajarPerl add = 15 multiply = 20 mix = BelajarPerl15
Sekian tutorial singkat tentang Pengenalan Data Scalar Pada Perl. Semoga bermanfaat & Happy Learning.
EmoticonEmoticon