in reply to Regex matching and setting variables
The following may get you started:
use warnings; use strict; my @vxvols = <DATA>; for (@vxvols) { chomp; my @cols = split; next unless $cols[0] =~ /^pl\b/; next unless $cols[1] =~ /-02/; print "vxplex -g rootdg att $cols[2] $cols[1]\n"; } __DATA__ pl Flars-01 Flars ENABLED ACTIVE 20982912 RAID 3/32 + RW pl Flars-02 Flars ENABLED LOG 10176 CONCAT - + RW ...
Prints:
vxplex -g rootdg att Flars Flars-02 vxplex -g rootdg att backup backup-02 vxplex -g rootdg att export_install export_install-02 vxplex -g rootdg att rootdisk7vol rootdisk7vol-02 vxplex -g rootdg att rootvol rootvol-02 vxplex -g rootdg att runbook runbook-02 vxplex -g rootdg att swapvol swapvol-02 vxplex -g rootdg att var var-02
|
|---|