Yeni Cevap 
 
Konuyu Değerlendir
  • 0 Oy - 0 Ortalama
  • 1
  • 2
  • 3
  • 4
  • 5
IP adresiniz
Yazar Mesaj
duzgun Çevrimdışı
Hizmetinizde
*******

Mesajlar: 2,323
Katılım: Jul 2008
Rep Puanı: 17
Mesaj: #1
IP adresiniz
#!/usr/bin/perl

$ip = 0;
my $cmd='ipconfig';
my @routes=`$cmd`;
foreach my $route (@routes)
{
chomp($route);
if ($route =~ /IP/is)
{
$ip = $1 if $route =~ /(\d+\.\d+\.\d+\.\d+)/;
}
}
print $ip; <stdin>;
02-07-2008 14:29
Bu kullanıcının gönderdiği tüm mesajları bul Bu mesajı alıntı yap
Yeni Cevap 


Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi