Contoh Program Looping dalam Perl

artikel ini gw tulis berdasarkan pengalaman gw sendiri, awalnya dapet tugas pemrograman Perl, susah banget nyari contoh soal di om google..so, gw terinspirasi buwat nulisin source code perl ini di blog. siapa tau ada yang senasib ama gw..he...

ini contoh salah satu penggunaan fungsi looping untung membuat output berupa bintang yang membentuk ketupat. berikut source code dan penjelasannya....:

#!usr/bin/perl
#perl selalu di mulai dengan ini

use strict;
use warnings;

#pendeklarasian variabel
# variabel yang digunakan
my $jumlah_baris; # var untuk input
my $baris; # var untuk looping sebanyak data yang dinputkan
my $bintang; # var untuk looping mencetak bintang
my $space; # var untuk looping mencetak spasi

#kita menggunakan standar input(STDIN) dari keyboard
print "Masukkan banyaknya bintang : "; $jumlah_baris=;

#menggunakan perulangan for untuk mencetak bintang
#sampai (baris = jumlah yang diinputkan)
#menggunakan teknik ascending
for ($baris = 1; $baris<=$jumlah_baris; $baris++)



{
for ($bintang=1; $bintang<=$baris; $bintang++)



{
if ( $bintang==1)
{
for ( $space=$jumlah_baris-$baris; $space>=1; $space--){
print " "; # mencetak spasi
}
}
print "* "; # mencetak bintang dengan spasi }
print "\n"; # enter
}
# menggunakan perulangan for untuk mencetak bintang
#sampai jumlah yang diinputkan-1 s/d bintang yg dicetak = 1
# menggunakan teknik descending
for ( $baris = $jumlah_baris-1; $baris >= 1; $baris-- ) {
for ( $bintang = $baris; $bintang >= 1 ;$bintang-- ) {
if ( $bintang == $baris ) {
for ( $space = 1; $space <= $jumlah_baris-$baris; $space++ )



{
print ' '; #mencetak spasi
}
}
print "* "; # mencetak bintang dengan spasi
}
print "\n";
# paragraf baru
}
nah klo berhasil jadinya seperti gambar dibawah.oh iya, jangan lupa save file menggunakan ekstensi ".pl" (tanpa tanda petik) .contoh keren.pl


ok deh silahkan di tes aja bro..!! semoga bermanfaat tutorialnya..