Tuesday, May 4, 2010

Kayaknya ini mempercepat koneksi (walau sedikit banget efeknya)

Iseng membuat aplikasi perl untuk memasukkan daftar host sehingga sistem dapat melewatkan satu tahap dalam mencapai koneksi yaitu tahan dns request. Hehe, langsung saja sekedar ide saja... ;)
#!/usr/bin/perl
# 'let make a list :P' by zam

use Socket;
print "==================================\n";
print " -let make a list :P- by zam\n";
print "==================================\n";
if(@ARGV != 1){
 print "Usage : $0 <nama host>\n";
 exit;
}
$namahost = $ARGV[0];
open(wow,">>/etc/hosts"); 
print "Adding ".inet_ntoa((gethostbyname($namahost))[4])."\t\t$namahost\n";
print wow inet_ntoa((gethostbyname($namahost))[4])."\t\t$namahost\n";
close(wow);

No comments:

Post a Comment