Select Code to Download

my ($ip, $bcast, $mask) = /\binet addr:([\d.]+)\sBcast:([\d.]+)\sMask:
+([\d.]+)/

my ($ip, $bcast, $mask) = /\binet addr:([\d.]+)\s.+:([\d.]+)\s.+:([\d.
+]+)/

cccadm@ccasec1::perl: ./ipandos.pl
Hello, your operating system is: linux
Interface 1 has the IP Address of 10.241.37.199
        Netmask: 808
        Broadcast: 255.255.255.0

eth1      Link encap:Ethernet  HWaddr 00:19:B9:EB:80:8F
          inet addr:10.241.37.199  Bcast:10.241.37.255  Mask:255.255.2
+55.0
          inet6 addr: 3ffe:80c0:22c:225:219:b9ff:feeb:808f/64 Scope:Gl
+obal
          inet6 addr: fe80::219:b9ff:feeb:808f/64 Scope:Link