July 2014

Array di perl ditandai dengan @ , array merupakan kumpulan dari veriabel variabel yang bertipe sama. Cara pengaksesannya menggunakan index mulai dari nol. Berikut contohnya :

@hallo = (10,20,30,40,50);

KLIK iklan dibawah untuk langganan Materi Jaringan di web ini !!

Artinya kita mempunyai array dengan nama hallo yang mana terdapat 5 elemen yang semuanya bertipe numeric , yaitu index ke nol [0] adalah 10 , index ke satu [1] adalah 20 dan seterusnya.
Index ke nol array hallo[0] menyimpan nilai 10
Index ke satu array hallo[1] menyimpan nilai 20
Index ke dua array hallo[2] menyimpan nilai 30
Index ke tiga array hallo[3] menyimpan nilai 40
Index ke empat array hallo[4] menyimpan nilai 50
Contoh yang array bertipe string : 

 @family = (“bapak”,”ibu”,”kakak”,”adik”);

Index ke nol array family[0] menyimpan nilai string bapak
Index ke satu array family[1] menyimpan nilai string ibu
Index ke dua array family[2] menyimpan nilai string kakak
Index ke tiga array family[3] menyimpan nilai string adik
Keistimewaan array di perl, array dapat bertipe campuran yaitu string dan numeric. Berikut contohnya :
@campur = (12,4500,”mahal”,7600,”murah”,”hemat”);
@enak = (“makan”,”minum”,1000,2500,3000,”rupiah”);
 
Selain itu dapat juga digabungkan 2 array atau lebih, berikut contohnya :

@a = (1,2,3,4); @b = (“satu”,”dua”,”tiga”,”empat”); @c = (@a,5,@b,” lima ”);

Dengan demikian array @c berisi 1,2,3,4,5,”satu”,”dua”,”tiga”,”empat”,”lima”. Untuk mengetahui panjang suatu array gunakan perintah $#nama_array, misalnya :
@a = (1,2,3,4);
print “ $#a \n”;
 
Berikut contoh program yang menggunakan array :

#!/usr/bin/perl
# contoh penggunaan array di perl
# nama program : array.pl
@a=(1,2,3,4);
@b=("satu","dua","tiga","empat");
@c=(@a,5,@b,"enam"); 
print "index ketiga dari array a adalah @a[3]\n";
print "index pertama dari array a adalah @a[1]\n";
print "index kedua dari array a adalah @a[2]\n";
print "index ke-nol dari array a adalah @a[0]\n";

print "\n"; # spasi 
print "index ke-nol dari array b adalah @b[0]\n";
print "index ketiga dari array b adalah @b[3]\n";
print "index pertama dari array b adalah @b[1]\n";
print "index kedua dari array b adalah @b[2]\n";
print "\n";
print "panjang dari array c adalah $#c \n";
print "\n";

print "index ke-nol dari array c adalah @c[0]\n";
print "index pertama dari array c adalah @c[1]\n";
print "index kedua dari array c adalah @c[2]\n";
print "index ketiga dari array c adalah @c[3]\n";
print "index ke-empat dari array c adalah @c[4]\n";
print "index kelima dari array c adalah @c[5]\n";
print "index ke-enam dari array c adalah @c[6]\n";
print "index ketujuh dari array c adalah @c[7]\n";
print "index kedelapan dari array c adalah @c[8]\n";
print "index kesembilan dari array c adalah @c[9]\n";
print "\n";

print "semula index kesembilan dari array c adalah @c[9]\n";
@c[9]=" lima ";
print "sekarang index kesembilan dari array c adalah @c[9]\n"; 

 

KLIK iklan dibawah untuk langganan Materi Jaringan di web ini !!

Pertama-tama kita akan mencoba membuat program helloworld terlebih dahulu, seperti berikut :
#!/usr/bin/perl
# contoh program helloworld
# ini adalah baris komentar
# nama program : helloworld.pl 
print “helloworld !!!”;
print “selamat datang di perl”; 
Ket : Baris pertama adalah letak interpreter perl. Contoh diatas 
(#!usr/bin/perl) merupakan letak interpreter perl di unix/linux, jika 
anda menggunakan ms windows maka ubah sesuai path directory tempat anda 
menginstall perl. Pada kenya taannya anda bisa saja tidak menuliskan 
bari s tsb dan program tetap berjalan, namun ketika anda membuat script 
CGI maka bari s tersebut wajib dituliskan. Kemudian bari s kedua dari 
program diatas adalah bari s komentar, ya! komentar di perl ditandai 
dengan #, coba bedakan dengan baris pertama yang mana tanda # diikuti 
tanda !. Bari s yang dieksekusi oleh perl adalah bari s ke 4 dan 5, 
yaitu perintah print untuk menampilkan tulisan helloworld dan selamat 
datang di perl. 

Variabel di PERL
        
Variabel di perl ditandai dengan tanda $ , misalnya : $nama , $bilangan , dst. Seperti halnya pada bahasa pemrograman lain variabel di perl bersifat case-sensitive.
contoh penulisan variabel yang benar :

$Nama; $X; $nama_saya; $nim1234; $Hallo_123;
contoh penulisan variabel yang salah :

variabel
kesalahan
$
Paling tidak harus diikuti sebuah huruf
$23saya
harus diawali sebuah huruf bukan angka
$_hallo
harus diawali sebuah huruf bukan garis bawah
$bulan-3
tidak boleh mengandung tanda minus

Tipe data skalar
Sedangkan untuk tipe data di perl terdapat dua jenis yaitu string dan numeric (kedua tipe ini dinamakan tipe skalar), hal ini mempermudah programmer perl karena kita tidak perlu lagi pusing memilih tipe data yang ingin digunakan di dalam program. Selain itu ketika membuat variabel kita tidak perlu menuliskan tipe data yang kita pakai, lalu bagaimana membedakan tipe string dan numeric? Untuk lebih jelas perhatikan contoh berikut :
#!/usr/bin/perl
# contoh variabel scalar di perl
# nama program : variabel.pl
# ini adalah contoh variabel yang bertipe string :


$nama = ”Kadek”;
$Hari = ‘senin';
$welcome_to = ”\n perl emang keren \n”;
$hello123 = ‘selamat datang di perl';
# sedangkan ini adalah contoh variabel bertipe numeric :
$hitung = 500;
$nomor_mahasiswa = 123040015;
$jumlah = 12;
$Hari_ke = 7;


print “$nama”;
print “$Hari”;
print “$welcome_to”;
print “$hello123”;
print “$hitung”;
print “$nomor_mahasiswa”;
print “$jumlah”;
print “$Hari_ke”;
Dari contoh diatas dapat disimpulkan bahwa variabel string ditandai dengan tanda petik tunggal(‘ ') dan petik dua/ganda (“ ”) , sedangkan untuk numeric langsung diisikan bilangan ke variabel tersebut tanpa tanda petik.

Apa bedanya petik tunggal dengan petik ganda ?
Bedanya petik tunggal tidak menghiraukan karakter karakter khusus seperti \n (newline), sedangkan petik ganda dapat membaca karakter khusus tersebut untuk lebih jelasnya kita coba saja dalam program.
#!/usr/bin/perl
# contoh program
# membedakan petik tunggal dan petik ganda
# nama program : tanda_petik.pl 
$a = "\nprogrammer\n"; # petik ganda
$b = '\nprogrammer\n'; # petik tunggal 
print "saya adalah $a";
print "\n"; # spasi
print 'saya adalah $b';
print "\n";
dengan kata lain petik tunggal akan menulis apa adanya , sedangkan petik ganda akan membaca karakter khusus.

KLIK iklan dibawah untuk langganan Materi Jaringan di web ini !!

Jika anda ingin menghapus sebuah object pada cache squid proxy server, yang dapat anda lakukan adalah dengan cara manual dan otomatis menghapus cache squid proxy tersebut, berikut kita akan membahas cara dalam memaintenance mesin proxy kita, cara berikut dapat di jalankan manual atau otomatis dalam menghapus cache squid proxy anda.


Menghapus cache squid proxy secara manual
1. Hentikan/stop proses squid yang sedang berjalan

# /etc/init.d/squid stop
2. Membersihkan semua swap directory cache squid

# rm -rf /cache/*
3. Membuat/buil kembali directory swap cache squid

# squid -z
4. Menjalankan kembali squid proxy server

# /etc/init.d/squid start

Menghapus cache squid proxy secara otomatis
Jika anda ingin menghapus cache squid proxy secara otomatis berikut langkahnya :
1. Buat sebuat script yang akan digunakan untuk memeriksa dan menghapus cache squid proxy secara otomatis

# touch /root/clear-cache-squid.sh
# vim /root/clear-cache-squid.sh

Masukkan kode berikut, dimana dalam kode berikut pengaturan Hardisk squid proxy sebesar 80GB, direktory cache squid berada pada /cache dan script akan diletakkan pada /root


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
#!/bin/bash
#!/bin/bash
# direktori cache proxy
CACHEDIR=/cache
# kapasitas direktori cache proxy (80GB)
CACHEDIRSIZE=85899345920
ONEMB=1048576
ONEGB=1073741824
COUNTMB=`expr $CACHEDIRSIZE / $ONEMB`
COUNTGB=`expr $CACHEDIRSIZE / $ONEGB`
COUNTALOC=`expr $CACHEDIRSIZE / $ONEMB`
# mendapatkan besaran direktori cache saat ini
SIZE=`du -bc $CACHEDIR | grep total | awk '{print $1}'`
SIZEM=`du -bch $CACHEDIR | grep total | awk '{print $1}'`
# jika besaran direktori cache saat ini sama atau lebih besar dari
# kapasitas direktori cache proxy maka hapus cache proxy
if [ $SIZE -ge $CACHEDIRSIZE ]
then
/usr/bin/clear
echo "=================================="
echo "=== Generate Clear Cache Squid ==="
echo "=================================="
echo "Cahce Squid Proxy      :" $CACHEDIR
echo "Jumlah cache tersimpan :" $SIZE Byte / $SIZEM
echo "Batas maximum cache    :" $CACHEDIRSIZE Byte / $COUNTALOC MB
echo " * Clear cache squid in proccess ..."
sleep 10
 /etc/init.d/squid stop        # stop service squid
 rm -fdR $CACHEDIR/*           # hapus cache proxy
 squid -z                      # membuat cache direktori
 /etc/init.d/squid start       # start service squid
/usr/bin/clear
echo "===================================="
echo "=== Clear Cache Squid Success !! ==="
echo "=== http://hanpeace.blogspot.com ==="
echo "===================================="
else
/usr/bin/clear
echo "================================================"
echo "=== Status Directory Cache Squid Proxy  [OK] ==="
echo "===     http://hanpeace.blogspot.com         ==="
echo "================================================"
echo "Cahce directory squid :" $SIZE Byte / $SIZEM
echo "Alokasi cahce squid   :" $CACHEDIRSIZE Byte / $COUNTMB MB / $COUNTGB GB
fi


Beri hak akses agar script clear-cache-squid.sh dapat dijalankan

# chmod ug+x /root/clear-cache-squid.sh
Setelah file sudah anda buat sekarang saatnya untuk meletakkannya pada cronjob system anda, agar script dapat dijalankan secara otomatis setiap hari tepat tengah malam.
Edit cronjob

# crontab -e
Masukkan code cronjob berikut

0 0 * * * /root/clear-cache-squid.sh
Untuk lebih mudah mengkonversi besaran GB to KB atau sebaliknya anda dapat menggunakan layanan website berikut KB,MB,GB Converter, script clear cache squid yang dapat anda download disini.

KLIK iklan dibawah untuk langganan Materi Jaringan di web ini !!

Mikrotik PC : PC yang digunakan sebagai mikrotik (bandwidth manejemen)
Hardware yang minim dan ideal menggunakan :
1. PC Pentium 4 : dengan PCI sourtcut yang lumayan banyak, biar nggak kesulitan klo mau nambah  lan card buat penambahan interface ether mikrotiknya.
2. RAM : minimal 256 MB, semakin banyak rule mangle mikotik yang dipasang, idealnya semakin besar lebih bagus.
3. HDD : Minimal 1GB , karena file OS nya cuma kisaran 64 MB kebawah.
Langsung saja bagi yang mau mencobanya berikut saya sertakan beserta tutorialnya.

1.   Download Mikrotik Cracked v.5.20 + License Key Level 6 Disini.
2.   Download Virtual Box Disini
3.   Install Mikrotik di Virtual Box Lihat disini
4.   Import License Key yang ada pada folder KEY, seperti pada gambar berikut (Ikuti Nomor)




 5. Reboot Mikrotik dan selesai.

Selamat Mencoba
Semoga bermanfaat.


KLIK iklan dibawah untuk langganan Materi Jaringan di web ini !!
VPS sendiri mempunyai kepanjangan Virtual Private Server, dari namanya pun sudah ketahuan bahwa kita akan mengaplikasikan beberapa virtual operating sistem pada sebuah komputer saja. Sehingga pada sebuah komputer terdapat beberapa mesin virtual dan masing-masing vps dapat berjalan seperti layaknya sistem server yang berugas untuk menjalankan script, pemprosesan data dll, jadi nantinya kita akan membagi sebuah komputer menjadi beberapa mesin virtual yang nantinya pembuatan vps ini bertujuan untuk disewakan atau dipakai sendiri untuk webhosting dll.

Hardware yang cocok untuk VPS :
1. PC/Komputer Intel Core i3, RAM 4 GB, HDD 500GB
2. Sistem Operasi Linux Fedora
Pertama kita install dan setting openvz nya. Ikuti langkah-langkah berikut :
# cd /etc/yum.repos.d/
# wget http://download.openvz.org/openvz.repo
# rpm –import http://download.openvz.org/RPM-GPG-Key-OpenVZ
Setelah selesai proses diatas kita lanjutkan mencari ovzkernel, untuk mempermudah menginstall nya. ketik perintah
# yum search ovzkernel 
kemudian proses install nya ketik perintah
# yum install ovzkernel

Setelah proses install selesai secara otomatis GRUB bootloader akan terupdate. Untuk mengecek nya ketik perintah
# vi /boot/grub/menu.lst

Masih belum selesai, langkah selanjutnya kita harus menginstall ovzkernel dan vzquote dengan mengetik perintah
# yum install vzctl vzquota

Lalu edit file sysctl.conf yang terdapat dalam direktori  /etc/sysctl.conf ketik perintah ;
# vi  /etc/sysctl.conf

cari baris dan rubah seperti berikut :
net.ipv4.ip_forward = 1 net.ipv4.conf.default.proxy_arp = 0 net.ipv4.conf.all.rp_filter = 1 kernel.sysrq = 1 net.ipv4.conf.default.send_redirects = 1 net.ipv4.conf.all.send_redirects = 0 net.ipv4.icmp_echo_ignore_broadcasts = 1 net.ipv4.conf.default.forwarding = 1
Kemudian edit file vz.conf yang terdapat dalam direktori /etc/vz/vz.conf dengan mengetik perintah
# vi /etc/vz/vz.conf
Cari baris yang bertuliskan "NEIGHBOUR_DEVS", kemudian rubah lah menjadi NEIGHBOUR_DEVS=all seperti berikut
.... NEIGHBOUR_DEVS=all ..... 

simpan dan keluar, selanjutnya kuta harus mendisable Selinux dengan cara ketik perintah
# setup 

kemudian pilih firewall configuration nya, lihat gambar dibawah ini untuk lebih jelasnya

Setelah selesai, restart pc server kalian. Setelah proses restart pc komputer server selesai kita harus cek kernel nya terlebih dahulu dengan mengitik perintah
# uname -r

Jika muncul tampilan seperti  2.6.18-92.1.1.el5.028stab057.2 berarti OpenVZ telah berhasil di install. Sekarang kita lanjutkan dengan mengkonfigurasi OpenVZ, ketik perintah
# cd /vz/template/cache

pilih template os nya dan isntall
# wget http://download.openvz.org/template/precreated/contrib/fedora-8-i386-default-20081009.tar
Lalu kita modifikasi memory ram nya, perhatikan baik-baik langkah ini :
# cd /etc/vz/conf/

Buat file memory dengan mengetik perintah : (contoh membagi 512MB)
# vi ve-vps.512MB.conf-sample

Masukan kode script dibawah ini
ONBOOT="yes"
 # UBC parameters (in form of barrier:limit) # Primary parameters vpslink => 512 MB
# Memory Resource Limits KMEMSIZE="29581586:31138512" LOCKEDPAGES="1024:1024" OOMGUARPAGES="104857:2147483647" PHYSPAGES="0:2147483647" PRIVVMPAGES="118882:118882" SHMPAGES="51200:51200" VMGUARPAGES="118882:2147483647"
 # Buffer Resource Limits DCACHESIZE="8053063:8053063" DGRAMRCVBUF="1342177:2684354" OTHERSOCKBUF="2684354:5368709" TCPRCVBUF="2684354:5368709" TCPSNDBUF="2684354:5368709"
# Process and File Limits AVNUMPROC="512:512" NUMFILE="16384:16384" NUMFLOCK="1024:1024" NUMIPTENT="1536:1536" NUMOTHERSOCK="1024:1024" NUMPROC="640:640" NUMPTY="64:64" NUMSIGINFO="1024:1024" NUMTCPSOCK="1024:1024"
# Disk Resource Limits DISKINODES="2280000:2400000" DISKSPACE="19922944:20971520"
# Quota Resource Limits QUOTATIME="0" QUOTAUGIDLIMIT="3000" DEVICES="c:10:200:rw "

Sekarang kita install OS nya, contoh ini saya gunakan untuk menginstall os fedora pada vps
# vzctl create 3 --ostemplate fedora-8-i386-default-20081009 --config vps.512MB --ipadd 192.200.200.25 --hostname demo

Setelah selesai setting dns servernya dengan mengetik perintah
# vzctl set 3 -–nameserver 192.168.69.0 --userpasswd root:paswwordroot –save

Oke sekarang install os pada vps sudah selesai, kita cek dulu apakah vps nya sudah berjalan dengan normal atau belum, dengan mengetik perintah 
# vzlist –a

Untuk menjalankan vps nya ketik 
# vzctl start 3

Demikian tutorial sederhana cara membuat VPS sendiri dari PC/Komputer rumah menggunakan teknologi virtualisasi openvz, semoga bermanfaat.
 

KLIK iklan dibawah untuk langganan Materi Jaringan di web ini !!

Nah,, kali ini langsung saja tanpa basa-basi , saya tuliskan beberapa pengalaman kecil soal belajar server proxy, sebelum saya mengerti memang selalu mengganjal dalam hati, dan timbul pertanyaan, tapi otak memang dongo ya lama juga terjawabnya.

dalam HDD system squid sendiri itu membutuh ruang simpan yang cukup, nah jika dalam running squid itu sendiri membutuhkan tempat penyimpan data (access.log, cache.log, store-id product) maka tidak ada salahnya kita pantau prosentase HDD priority pada system, jika terjadi full,


Maka masalahnya squid tidak akan running dan akhirnya koneksi terhambat, jalan keluarnya kita ubah data log atau product id tersebut ke /tmp, supaya setiap squid restrat maka squid akan kembali fresh karena data tersebut akan secara otomatis hilang / terhapus.
mohon klo ada kesalahan materi dibenarkan, hehehehe

okey langsung saja kita menuju sedikit perl Store-ID squid 3 seperti dibawah

$fn = "/var/log/squid/@cpn";
                unless (-e $fn) {
                        open FH,">".$fn ;
                        print FH "$vid\n";
                        close FH;
                }
        $out = $x ;


script yang saya kasih BOLD dan ITALIC kita ganti kearah /tmp ibaratnya kotak sampah, hehehe seperti dibawah L

$fn = "/tmp/@cpn";
                unless (-e $fn) {
                        open FH,">".$fn ;
                        print FH "$vid\n";
                        close FH;
                }
        $out = $x ;


Sharing kali ini, dapet referensi dari temen tetua yang sudah banyak membantu di group maupun personal learning, hehehe .
saya ucapkan thanks for Om SJW dan Dhe Lutfi Ngadimins, om Kuli jaringan, om HDD corp, mas zoiken, dan banyak lagi temen yg tergabung di MSI    :D

Kriiiiiing......
KLIK iklan dibawah untuk langganan Materi Jaringan di web ini !!

tiba** pagi itu ada panggilan dari Ibu dengan nomer handphone tidak saya kenal,

Penelpon : Hello.. apa benar ini teamnya Bos xxxxxxx Media. xxx ?
Saya        : Team apa ya Bu ?
Penelpon : Team Jaringan hotspot media.xxx ?
Saya        : Jika dikehendaki mungkin seperti itu bu. Ada yang bisa saya bantu ?
Penelpon : iya, tepat sekali mas.., jaringan internet saya error, dan boss yang punya hotspot lagi pergi ke jatim.
Saya       : Maaf, apa sudah dikonfirmasikan kepada yang punya hotspot?
Penelpon : Iya mas, saya dapat nomor mas, dari rekomendasi Boss xxxx.
Saya      : ouw..., memang benar sekarang Boss xxxxx nya lagi jalan2 ke jatim. yudah,.. siang nanti saya cek perangkat dan koneksi kerumah ibuk
Penelpon : oke mas, saya tunggu kedatangannya.


Treng trenteng... dengan gagah lantang saya siapkan semua alat dan keperluan kerja saya, dan akhirnya perjalanan pun saya mulai, sesampainya dirumah Penelpon saya mendapatkan sambutan yang sangat harmonis, dan karna itu pula saya semangat menyegerakan pengerjaan cek jaringan.'

setelah menit berjalan ternyata LAN PC mau sambung ke radio, dan Scan jaringan terpapang jelas dengan signal yang sedikit kurang memuaskan.. , lanjut ke akses network di area WAN, oh ternyata kosong.. diam sejenak aku punya ide untuk telpon Boss Hotspot,

Saya dengan lantang pejet HP sampai berkali kali, dengan wajah yang semangat menjadi murung karena Boss nya sangat sibuk dan tidak bisa angkat telpon saya, akhirnya saya pun tidak patah semangat, aku yakinkan client dengan menaiki pipa yang sudah mbuluk dan item, oh........ apa yang kulihat , tepat dibawah ikatan kabel ada jalur perkabelan yang kurang bagus... aku bilang saja ke pelanggan, maaf bu saya menemukan masalah pada perangkat jaringan ibuk.. padahal analisanya asal lihat saja , karena saya masih bimbang... apakah Error di server hotspotnya apa memang karena kabel yang mbuluk kayak Boss yg di Jatim, ...???? :v :v :v






Siapakah Bos yang di Jatim itu??? Ilang Stress ku menulis posting seperti ini, nah ini berkah juga bagiku .. karena sedikit mengurangi BEte Suntuk, :3

Author Name

Formulir Kontak

Name

Email *

Message *

Powered by Blogger.