Perl ile IP Adresi Öğrenme

12 Kasım 2008 Çarşamba

Perl ile sitenizi ziyaret eden / uygulamanızı kullanan kişilerin (remote) IP adresini öğrenmek için $ENV değişkenin’in REMOTE_ADDR değeri kullanılır. Kod aşağıdadır;

#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
print "<html><head><title>IP Addres </title></head><body>\n";
print "<h1>IP Adresiniz</h1>\n";
$ip = $ENV{'REMOTE_ADDR'};
print "$ip IP adresini kullanıyorsunuz.\n";
print "<p>\n";
print "</body></html>\n";
Veli Akçakaya
Bilgisayar Öğretmeni
Yazılım Uzmanı
Bu yazıya yorum ekleyebilirsiniz veya kendi web sitenize geri izleme olarak ekleyebilirsiniz.
Etiketler: ,

Yorum Ekleyin