#!/usr/bin/perl
# define the string used in printing
@digitword = ("", "one", "two", "three", "four", "five",
"six", "seven", "eight", "nine");
@digit10word = ("", "ten", "twenty", "thirty", "forty",
"fifty", "sixty", "seventy", "eighty", "ninety");
@teenword = ("ten", "eleven", "twelve", "thirteen", "fourteen",
"fifteen", "sixteen", "seventeen", "eighteen", "nineteen");
@groupword = ("", "thousand", "million", "bilion", "trillion",
"quadrillion", "quintillion", "sextillion", "septillion",
"octillion", "novillion", "decillion");
#
#
$inputline = <STDIN>;
chop ($inputline);
$inputline =~ s/[, \t]+//g;
if ($inputline =~ /[^\d]/) {
die ("Input must be a number.\n");
}
#
$inputline =~ s/^0+//;
$inputline =~ s/^$/0/; #
#
#
#
@digits = split(//, $inputline);
if (@digits > 36) {
die ("Number too large for program to handle.\n");
}
$oddlot = @digits % 3;
$grouping = (@digits-1) / 3;
#
$count = 0;
while ($grouping >= 0) {
if ($oddlot == 2) {
$digit1 = 0;
$digit2 = $digit[0];
$digit3 = $sigit[1];
$count += 2;
} elsif ($oddlot == 1) {
$digit1 = 0;
$digit2 = 0;
$digits = $digits[0];
$count == 1;
} else { #
$digit1 = $digits[$count];
$digit2 = $digits[$count+1];
$digit3 = $digits[$count+2];
$count += 3;
}
$oddlot = 0;
if ($digit1 != 0) {
print ("$digitword[$digit1] hundred ");
}
if (($digit1 != 0 || ($grouping == 0 && $count > 3)) &&
($digit2 != 0 || $digit3 != 0)) {
print ("and ");
}
if ($digit2 == 1) {
print ("$teenword[$digit3] ");
} elsif ($digit2 != 0 && $digit3 != 0) {
print ("$digit10word[$digit2]-$digitword[$digit3] ");
} elsif ($digit2 != 0 || $digit3 != 0) {
print ("$digit10word[$digit2]$digitword[$digit3] ");
}
if ($digit1 != 0 || $digit2 != 0 || $digit3 != 0) {
print ("$groupword[$grouping]\n");
} elsif ($count <= 3 && $grouping == 0) {
print ("zero\n");
}
$grouping--;
}
Ya, seperti tertulis pada judul post ini berisi mengenai Tutorial PERL 5 yang saya ambil dari buku "teach yourself PERL 5 in 21 days". Di liat dari judulnya & tebal bukunya yang sampe 870 halaman menurut saya ini judulnya salah :)) harusnya sih "teach yourself PERL 5 in 21 chapter"#!/usr/bin/perl $inputline = <STDIN>; print( $inputline );
$./program1_1.pl Ini adalah baris masukan Ini adalah baris masukan $
$./program1_1.pl Ini adalah baris masukan. Ini adalah baris masukan. $
$inputline = <STDIN>; #ini merupakan comment tambahan #ini merupakan baris comment
#!/usr/bin/perl #program ini mencetak #baris input $inputline = <STDIN> #baris ini merupakan baris input print( $inputline ); #baris ini mencetak kembali baris input
$./program1_2.pl Ini adalah baris masukan. Ini adalah baris masukan. $
$inputline = <STDIN>;jadi Statement ini terdapat 4 token yaitu "$inputline", "=", "<STDIN>", ";"
$inputline = <STDIN>; $inputline=<STDIN>; $inputline = <STDIN>;
$inputline = <STDIN> ;
#!/usr/bin/perl $inputline = <STDIN> print( $inputline );
Browser merupakan software utama untuk menjelajah halaman web. Ada banyak browser yang bisa Anda jadikan pilihan, misalnya Firefox, Opera, Google Chrome, Internet Explorer dan lain-lain. Tiap orang tentunya punya favorit sendiri-sendiri.
Untuk orang yang sering berpindah-pindah tempat dalam melakukan akses internet (misalnya kadang di kantor, sekolahan, warnet, dll) adalah tidak mesti di tempat (di komputer) tersebut selalu tersedia browser favorit Anda.
Salah satu solusi untuk mengatasi hal tersebut adalah dengan menggunakan portable browser. Dengan menggunakan portable browser yang sudah diinstall di flash disk Anda, Anda tetap bisa menggunakan browser favorit di komputer mana pun Anda melakukan koneksi internet.
Salah satu keuntungan lagi –terutama untuk pengguna portable firefox– adalah Anda bisa menginstall add ons dan themes ke dalam portable firefox tersebut.
Berikut ini adalah link untuk download empat browser yang paling banyak digunakan:
Artikel Kumpulan Portable Browser ini dipersembahkan oleh Klik-Kanan.com. Kunjungi Klik-Kanan.com untuk informasi seputar komputer dan internet.
| Afrikaans Albania Arab Bahasa Indonesia Belanda Bulgar Byelorusia Cek Dansk | Esti Farsi Galisia Hindi Ibrani Inggris Irlandia Islan Italia | Jepang Jerman Katalana Korea Kroat Latvi Lituavi Magyar Makedonia | Malta Mandarin Melayu Norsk Pilipino Polski Portugis Prancis Rumania | Rusia Serb Sloven Slowakia Spanyol Suomi Swahili Swensk Thai | Turki Ukraina Vietnam Wales Yiddi Yunani |
