I suggest using Net::Ifconfig::Wrapper.pm

regards,
tomte

Hlade's Law:

If you have a difficult task, give it to a lazy person --
they will find an easier way to do it.

thanks i will definatly look into that and see if i can get it to work (sometimes CPAN gives me the finger and sometimes my lack of perl skill also screws me up rather frequently)
jcpunk

by the way thanks for all the help that was, is, and will be

It would be a lot more accurate to write two different expressions, one for each OS and then just have your script check which OS it is running on and use the appropriate regex.

$sunifconfig=qr/blahblahblah/;
$linuxifconfig=qr/blahblahblah/;

if ($^O eq "linux"){
$ifconfigoutput=~/$linuxifconfig/;
}
else
{
$ifconfigoutput=~/$sunifconfig/;
}
[download]

*That code is untested.

Fellow monks, I don't know if using the $^O ($OSNAME) variable is the right way to go here. Feel free to comment.

HTH

Make sure you specify the full path to ifconfig as well, you will not that solaris has a few versions of it and they have different outputs.



     /sbin/ifconfig interface  [ address_family ]  [  address   [
     dest_address ]  ]  [ up ]  [ down ]  [ auto-revarp ]  [ net-
     mask mask  ]  [ broadcast address  ]  [ metric n  ]  [ mtu n
     ]  [trailers  | -trailers ]  [private  | -private ]  [arp  |
     -arp ]  [ plumb ]  [ unplumb ]

     /usr/sbin/ifconfig interface  [ address_family ]  [  address
     [  dest_address  ]   ]  [ up ]  [ down ]  [ auto-revarp ]  [
     netmask mask  ]  [ broadcast address  ]  [ metric  n   ]   [
     mtu  n   ]  [trailers  | -trailers ]  [private  | -private ]
     [arp  | -arp ]  [ plumb ]  [ unplumb ]

     /sbin/ifconfig interface  {auto-dhcp  | dhcp }  [ primary  ]
     [ wait seconds  ] drop  | extend  | ping  | release  | start
     | status

     /usr/sbin/ifconfig interface  {auto-dhcp  | dhcp }   [  pri-
     mary  ]  [ wait seconds  ] drop  | extend  | ping  | release
     | start  | status
[download]



-Waswas

thank you very much for that information, it is most helpful
jcpunk

by the way thanks for all the help that was, is, and will be

thank you for that idea, i did not know that the $^O existed, and i will definatly look into that
jcpunk

by the way thanks for all the help that was, is, and will be

#!/usr/bin/perl

while (<>)
{
  if (/\s*inet (addr:)?([\d\.]+) /)
  {
    print "$2\n";
  }
}
[download]

That works beautifully on the linux box, but grabs the loopback on the sun system.... however, i thank the much for that as it makes life simpler and jumpstarts my brain
jcpunk

by the way thanks for all the help that was, is, and will be

Changing the print to:

print "$2\n"
  unless ($2 =~ /^127/);
[download]

is the quick-n-dirty way to fix that.