perl Help

Shell Programming and Scripting
1

Hi

From the following output
interfaces.ifTable.ifEntry.ifDescr.1 : DISPLAY STRING- (ascii): lan0 HP PCI 10/100Base-TX Core [100BASE-TX,FD,AUTO,TT=1500]

i need only lan0 HP PCI 10/100Base-TX Core [100BASE-TX,FD,AUTO,TT=1500]

Plz helpp...

2

try this:

$str = "interfaces.ifTable.ifEntry.ifDescr.1 : DISPLAY STRING- (ascii): lan0 HP PCI 10/100Base-TX Core [100BASE-TX,FD,AUTO,TT=1500]";
if ($str =~ m/:\s*(lan.*)/) {
    print $1;
}
3

$test="interfaces.ifTable.ifEntry.ifDescr.1 : DISPLAY STRING- (ascii): lan0 HP PCI 10/100Base-TX Core [100BASE-TX,FD,AUTO,
TT=1500]" ;

my @arr=split(/:/,$test);

print $arr[2];

Thanks
Penchal