Belajar Perl

Document Sample
Belajar Perl Powered By Docstoc
					Midinpark.blogdetik.com

Fungsi gethostbyname
Fungsi ini memiliki kesamaan dengan fungsi gethostbyaddr, perbedaanya pada fungsi gethostbyname yang melakukan pencarian nama mesin berdasarkan nama host. Sintaks yang digunakan pada funsi gethostbyname adalah seperti berikut : (name,altname,addrtype,len,addr) = gethostbyname (inname); Pada contoh ini, inname adalah nama mesin yang akan dicari. Fungsi gehostbyname menghasilkan lima elemen list yang terdiri atas nama mesin, nama alternatif, tipe alamat, lebar alamat dan adftar alamat. Program berikut ini menunjukan bagaiana pencarian dilakuka berdasarkan nama host.

Contoh keluarannya adalah:

1

Fungsi gethostbyname , December 21, 2009

Midinpark.blogdetik.com
Jika nama mesin yang dimaksud tidak ditemukan, proggram akan memanggil die seperti berikut :

Program ini menanyakan nama mesin dan menunggu adanya masukan dari keyboard. Setelah ada masukan nama mesin, 6 & 7 memanggil gethostbyname, yang melakukan pencarian berdasarkan masukan pada file ./etc/host. Program menghasilkan nilai string null jika fungsi gethostbyname tidak menemukan entri yang dimaksud, sehinga ekspresi kondisi bernilai salah. Jika ekspresi kondisi bernilai salah fungsi die pada baris 8 dipanggil untuk menghentikan eksekusi prograam. Jika fungsi gethostbyname menemukan entri yang dimaksud, loop pada baris 11-15 melakukan pemeriksaan daftar alamat pad @addrlist dan menampilkan alamat tersebut. Baris 12 mengumpulkan alamat tersebut dengan melakukan unpacking satu elemen pada @addrlist dan meletakan byte-byte tersebut pada @addrbyte. Baris 13 menggunakan perintah join untuk melakukan penggabungan dalam satu string karakter, dan memberikan tanda titik pada setia byte. Hasil akhirnya adalah berupa string yang sudah terformatdalam bentuk alamat internet atau nomor IP yang ditampilkan oleh baris 14.

2

Fungsi gethostbyname , December 21, 2009


				
DOCUMENT INFO
Shared By:
Categories:
Stats:
views:107
posted:1/9/2010
language:Indonesian
pages:2
Description: Salah satu script pemrograma perl yang bergua bagi anda.