PERL - extracting output of ifconfig to get local system IP address...

[thecubed]

Hello again!

I was wondering if anyone knew how to extract the output of /sbin/ifconfig on a Linux system, and feed it into a Perl variable.
The reason for this is that I am building a computer that will run without a monitor, keyboard, or mouse, and will act as a network video streamer... it has an internal charactor LCD that will be used to display ip address and other statistics of the machine (see http://thecubed.com/tc-blog/?p=6 ).
I am using a program called LCDd (part of LCDproc) to control the LCD and yaLCD (a perl script) to display the information. yaLCD doesn't output the local system's ip address to the LCD screen, so I wanted to modify it.

I've already scoured the internet for answers, and I've only come up with a few things...

I've found this snippet of code, but it only prints "1", and nothing else.

 my $ip = ((`/sbin/ifconfig eth0`)[1] =~ /inet addr:(\S+)/);
 print $ip;

I know a bit of Perl (it's just like PHP, only more complicated ), but not enough to tell me why this won't work...

Any help is appreciated,
Thanks!

[thecubed]

Nevermind, I (think) I may have figured it out:
on my windows machine the code would be as follows,

 my $ip = ((`ipconfig`) =~ /IP Address. . . . . . . . . . . . : (\S+)/);
 $ip = $1; 
 print $ip;

I forgot that regular expressions dumped the parsed string into a variable in order of occurrence- $1,$2,etc... - by asking Perl to print $ip in my previous post, I was only getting the execution status of the regular expression.
(Funny how I answered my own question )

Just thought if anyone else was having the same problem, that might help

[Cr0w]

hello, u can try to save in the var $ip this:
ifconfig eth0 | grep inet | awk '{print $2}'
u will get addr:0.0.0.0
then..with perl..remove the substring addr: and u get the ip
another way is..if u have internet acces..(i dont know
if that server will be local or public) u can do
/usr/bin/curl -s http://ip.dnsexit.com/ | sed -e 's/ //'
or
/usr/bin/wget -o /dev/null -O - http://ip.dnsexit.com/
i hope this work for u
good bye.

pd: sorry my english.

[Cr0w]

i have another option..your own script to get the ip:

PHP Code:

<?
function getIP() {
    if (isset($_SERVER)) {
        if (isset($_SERVER['HTTP_X_FORWARDED_FOR'])) $ip = $_SERVER['HTTP_X_FORWARDED_FOR'];
        elseif (isset($_SERVER['HTTP_CLIENT_IP'])) $ip = $_SERVER['HTTP_CLIENT_IP'];
        else $ip = $_SERVER['REMOTE_ADDR'];
    }
    else {
        if (getenv('HTTP_X_FORWARDED_FOR')) $ip = getenv('HTTP_X_FORWARDED_FOR');
        elseif (getenv('HTTP_CLIENT_IP')) $ip = getenv('HTTP_CLIENT_IP');
        else $ip = getenv('REMOTE_ADDR');
    }
    return $ip;
}

echo getIP();
?>

to use instead ip.dnsexit.com.. www.thecubed.com/ip.php
bye