obtain IP address from 'ifconfig' output

[Roman Mashak]

Hello, All!

I just started to learn Perl, and don't know exactly what regexp I can use
to get IP address from 'ifconfig' routine. My system is linux, so output is
the following:

eth0 Link encap:Ethernet HWaddr 10:EE:0C:36:8E:C8
inet addr:192.168.11.22 Bcast:192.168.11.255 Mask:255.255.255.0
UP BROADCAST RUNNING MULTICAST MTU:1500 Metric:1
RX packets:41816612 errors:0 dropped:0 overruns:0 frame:0
TX packets:34407704 errors:0 dropped:0 overruns:0 carrier:0
collisions:0 txqueuelen:100
RX bytes:2137695964 (2038.6 Mb) TX bytes:3394043916 (3236.8 Mb)
Interrupt:22 Base address:0x8c00

I'd like to save into some variable the value after "inet addr:".

Thank you.

With best regards, Roman Mashak. E-mail: mr*@tusur.ru

[Jim Gibson]

In article <db***********@relay.tomsk.ru>, Roman Mashak <mr*@tusur.ru>
wrote:

Hello, All!

I just started to learn Perl, and don't know exactly what regexp I can use
to get IP address from 'ifconfig' routine. My system is linux, so output is
the following:

eth0 Link encap:Ethernet HWaddr 10:EE:0C:36:8E:C8
inet addr:192.168.11.22 Bcast:192.168.11.255 Mask:255.255.255.0
UP BROADCAST RUNNING MULTICAST MTU:1500 Metric:1
RX packets:41816612 errors:0 dropped:0 overruns:0 frame:0
TX packets:34407704 errors:0 dropped:0 overruns:0 carrier:0
collisions:0 txqueuelen:100
RX bytes:2137695964 (2038.6 Mb) TX bytes:3394043916 (3236.8 Mb)
Interrupt:22 Base address:0x8c00

I'd like to save into some variable the value after "inet addr:".

Something like this (untested):

use strict;
my @lines = `ifconfig`;
my $address;
for( @lines ) {
if /\s*inet addr:([\d.]+)/ ) {
$address = $1;
}
}
if( $address ) {
print "Address found is $address\n";
}

FYI: this newsgroup is defunct. Try comp.lang.perl.misc in the future.

----== Posted via Newsfeeds.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeeds.com The #1 Newsgroup Service in the World! 120,000+ Newsgroups
----= East and West-Coast Server Farms - Total Privacy via Encryption =----