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.1 1.255 Mask:255.255.25 5.0
UP BROADCAST RUNNING MULTICAST MTU:1500 Metric:1
RX packets:4181661 2 errors:0 dropped:0 overruns:0 frame:0
TX packets:3440770 4 errors:0 dropped:0 overruns:0 carrier:0
collisions:0 txqueuelen:100
RX bytes:213769596 4 (2038.6 Mb) TX bytes:339404391 6 (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.1 1.255 Mask:255.255.25 5.0
UP BROADCAST RUNNING MULTICAST MTU:1500 Metric:1
RX packets:4181661 2 errors:0 dropped:0 overruns:0 frame:0
TX packets:3440770 4 errors:0 dropped:0 overruns:0 carrier:0
collisions:0 txqueuelen:100
RX bytes:213769596 4 (2038.6 Mb) TX bytes:339404391 6 (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 =----