in reply to Parse variables from @output
See if this extendable (declarative) coding style works for you:
Output:use strict; use warnings; my %details; my @rules=( "Hardware" => sub{$details{HARDWARE_SEEN} = 1 }, 'cisco Nexus (\S+)' => sub{return 0 unless $details{HARDWARE_SEEN}; $details{Chassis} = $_[0]; }, 'Intel.+?(\d+)\s*(\w{2}) of memory' => sub{ return 0 unless $details{HARDWARE_SEEN} +; $details{"Main Memory"} = $_[0]; $details{"Main Memory Unit"} = $_[1]; }, ); while (<DATA>){ for (my $i=0; $i < $#rules; $i+=2){ my $regex=qr|$rules[$i]|; my $action = $rules[$i+1]; next unless m/$regex/i; last if $action->($1,$2,$3); } } for (sort keys %details){ print "$_\t = $details{$_}\n"; } __DATA__ # Sample output # Hardware # cisco Nexus 3048 Chassis ("48x1GE + 4x10G Supervisor") # Intel(R) Celeron(R) CPU P450 with 3981680 kB of memory.
Feel free to post questions about the code here.Chassis = 3048 HARDWARE_SEEN = 1 Main Memory = 3981680 Main Memory Unit = kB
"From there to here, from here to there, funny things are everywhere." -- Dr. Seuss
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Parse variables from @output
by Cisco_Dave (Novice) on Nov 15, 2019 at 00:36 UTC |
In Section
Seekers of Perl Wisdom