
pl3109
New User
Aug 26, 2015, 7:52 AM
Post #1 of 3
(1866 views)
|
Parcing or Splitting data from Telnet output
|
Can't Post
|
|
Hello, I'm new here please pardon if posting in wrong section. I have a script that I'm connecting to equipment, issuing commands and capturing response. I want to clean that data before dumping it to log. I don't know if I'm assigning array properly, but here is what I have:
@check = $telnet->cmd(String=>$RTRVPM1); $response = join(" ", @check); print $response; Response from command:
EQUIP-OME1 15-08-26 01:30:54 M CTAG COMPLD "OC48-1-14-2,OC48:OPRN-OCH,36,COMPL,NEND,RCV,1-DAY,08-25,00-00,1,,,," "OC48-1-14-2,OC48:OPTN-OCH,97,COMPL,NEND,TRMT,1-DAY,08-25,00-00,1,,,," "ETH-1-13-1,ETH:INFRAMES-E,978758,COMPL,NEND,RCV,1-DAY,08-25,00-00,1,,,," "ETH-1-13-1,ETH:OUTFRAMES-E,1057147,COMPL,NEND,TRMT,1-DAY,08-25,00-00,1,,,," > EQUIP-OME1 15-08-26 01:30:55 M CTAG COMPLD "OTM2-1-1-1,OTM2:OPR-OCH,-10.70,COMPL,NEND,RCV,1-DAY,08-25,00-00,1,,,," "OTM2-1-1-1,OTM2:OPT-OCH,-6.50,COMPL,NEND,TRMT,1-DAY,08-25,00-00,1,,,," > EQUIP-OME2 15-08-26 01:30:56 M CTAG COMPLD "OTM2-1-3-1,OTM2:FEC-OTU,30181635949,COMPL,NEND,RCV,1-DAY,08-25,00-00,1,,,," "OTM2-1-3-1,OTM2:PFBERE-OTU,1E-37,COMPL,NEND,RCV,1-DAY,08-25,00-00,1,,,," "OTM2-1-3-1,OTM2:PRFBER-OTU,3.3E-05,COMPL,NEND,RCV,1-DAY,08-25,00-00,1,,,," ; < I want to print actual responses with data that start with " "" (Space Space Double Quote) but also join equipment name to data comma separated. Do until ";" (semi colon). Example output: EQUIP-OME1,15-08-26,01:30:54,OC48-1-14-2,OC48:OPRN-OCH,36,COMPL,NEND,RCV,1-DAY,08-25,00-00,1,,,," EQUIP-OME1,15-08-26,01:30:54,OC48-1-14-2,OC48:OPTN-OCH,97,COMPL,NEND,TRMT,1-DAY,08-25,00-00,1,,,," EQUIP-OME1,15-08-26,01:30:54,ETH-1-13-1,ETH:INFRAMES-E,978758,COMPL,NEND,RCV,1-DAY,08-25,00-00,1,,,," EQUIP-OME1,15-08-26,01:30:54,ETH-1-13-1,ETH:OUTFRAMES-E,1057147,COMPL,NEND,TRMT,1-DAY,08-25,00-00,1,,,," etc... Any help is greatly appreciated.
|