As you will have seen the lines in each record are concatenated together to form one long line then the regex /(\d+)%\s+\/var\s+(\d+).*?(\d+)%\s+Interleaved\s+(\w+)/ is used to pull out the data of interest. You simply need to add more capture fields to gather the extra data and then to print that in the print "$device $1, $2, $3\n"; line and in extra $worksheet->write("D$row", "$3"); lines.
See perlretut, perlre and perlreref for regular expression information.
In reply to Re^5: new : greping
by GrandFather
in thread new : greping
by pingme8705
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |