Q. How do I find out my IP address assigned to eth0 or ra0 interface using perl?
A. If you need to know the IP address of the UNIX / Linux machine you are running on, use the following perl one liner. Perl don't have any inbuilt facility but combination of ifconfig command ans shell pipes you can craft something as follows to display your system IP address:
Find my IP address using Perl One liner and shell pipes
Type the following command at a shell prompt:
ifconfig -a | perl -ne 'if ( m/^\s*inet (?:addr:)?([\d.]+).*?cast/ ) { print qq($1\n); exit 0; }'Featured Articles:
- 20 Linux System Monitoring Tools Every SysAdmin Should Know
- 20 Linux Server Hardening Security Tips
- My 10 UNIX Command Line Mistakes
- Linux: 20 Iptables Examples For New SysAdmins
- 25 PHP Security Best Practices For Sys Admins
- The Novice Guide To Buying A Linux Laptop
- 10 Greatest Open Source Software Of 2009
- Top 5 Email Client For Linux, Mac OS X, and Windows Users
- Top 20 OpenSSH Server Best Security Practices
- Top 10 Open Source Web-Based Project Management Software
- Top 5 Linux Video Editor Software
Facebook it - Tweet it - Print it -
{ 9 comments… read them below or add one }
thanks really helpful!
For non-root users, put /sbin/ in front of the ifconfig line, so it becomes
/sbin/ifconfig -a | perl -ne 'if ( m/^\s*inet (?:addr:)?([\d.]+).*?cast/ ) { print qq($1\n); exit 0; }'
sir,
i’m trainne in system admin i working on thin client
i’ve tried the code above then i get ip addr but when i simple use ifconfig
i got the error COMMAND NOT FOUND
can u tell y
You can use gethostbyname in the Socket package to do the work for you:
use Socket;
use strict;
my ($host) = `hostname`;
chomp($host);
my $iaddr = gethostbyname($host);
if (defined($iaddr)) {
print (inet_ntoa($iaddr), “\n”);
} else {
die (“ipaddr failed to get IP address for $host\n”);
}
very useful.. saved lot of my time :) thanks
I’ve made a bash function based in these post and comments.
http://poisonbit.wordpress.com/2009/11/28/getipsfor-interfacename/
very useful really
Thanks for figuring my ifconfig regex parsing for me. Saved me a few minutes, and it works for Mac and Linux.
#!/usr/bin/perl
use LWP::UserAgent;
$browser = LWP::UserAgent -> new() or die “problem dog?\n”;
$browser -> agent(“niggaBrowzaaa”);
sub encontrarIP{
$result = $browser->request(HTTP::Request->new(GET=>$_[0]));
$content = $result->content;
}
@url=(
“http://www.showmyip.com/simple/”,
“http://showip.net/”,
“http://www.ip-adress.com/”,
“http://www.showmyip.com/”,
“http://www.showmemyip.com/”,
“http://www.showmyip.gr/”,
“http://show-my-ip.com/”);
$urlLength = @url;
for ($i=0;$i didn’t worked.\n”;
if($i==$urlLength-1){
print “\nNONE of them worked WTF !!\n”;
print “worst luck than me ?? \n”;
print “nah ! you probably aren’t connected\n”;
}
}
}