in reply to parsing multi-line output from a cli command
#!/usr/bin/perl -w use strict; use Data::Dumper; my %record; my $summary_flag; while(<>) { print; if (/(fabx-t\d+\:) \[(\S+)\] \[(\S+)\] \[(\S+)\] \[(\S+)\]/) { # Print the previous record. print Dumper(\%record); # start a new record hash %record = ( 'ticket#' => $1, 'customer' => $2, 'status' => $3, 'priority' => $4, 'owner' => $5 ); } else { $record{summary} .= $_; } } # print the last record print Dumper(\%record);
|
|---|