$ perl -Mstrict -Mwarnings -e '
while (<>) {
if(/^Users of ([\w+\_\-]):\s+\(Total of ([0-9]+) licenses issued;\s+Total of ([0-9]+) (licenses|license) in use/
)
{
print "$1 |$2|$3 \n";
}
else {
print "No match!\n";
}
}
'
Users of Enterprise_VO: (Total of 1 license issued; Total of 0 licenses in use)
No match!
Users of Fusion: (Total of 4 licenses issued; Total of 0 licenses in use)
No match!
Users of Galaxy-AdvCTS: (Total of 5 licenses issued; Total of 0 licenses in use)
No match!
Users of Galaxy-AdvTech: (Total of 5 licenses issued; Total of 0 licenses in use)
No match!
Users of Galaxy-Common: (Total of 30 licenses issued; Total of 1 license in use)
No match!
####
$ perl -Mstrict -Mwarnings -e '
while (<>) {
if(/^Users of ([\w-]+):\s+\(Total of ([0-9]+) licenses? issued;\s+Total of ([0-9]+) (licenses|license) in use/)
{
print "$1 |$2|$3 \n";
}
else {
print "No match!\n";
}
}
'
Users of Enterprise_VO: (Total of 1 license issued; Total of 0 licenses in use)
Enterprise_VO |1|0
Users of Fusion: (Total of 4 licenses issued; Total of 0 licenses in use)
Fusion |4|0
Users of Galaxy-AdvCTS: (Total of 5 licenses issued; Total of 0 licenses in use)
Galaxy-AdvCTS |5|0
Users of Galaxy-AdvTech: (Total of 5 licenses issued; Total of 0 licenses in use)
Galaxy-AdvTech |5|0
Users of Galaxy-Common: (Total of 30 licenses issued; Total of 1 license in use)
Galaxy-Common |30|1
####
$ perl -Mstrict -Mwarnings -E '
while (<>) {
if (/^Users of ([^:]+): \(Total of (\d+) [^0-9]+ (\d+)/) {
say "$1 $2 $3";
}
}
'
Users of Enterprise_VO: (Total of 1 license issued; Total of 0 licenses in use)
Enterprise_VO 1 0
Users of Fusion: (Total of 4 licenses issued; Total of 0 licenses in use)
Fusion 4 0
Users of Galaxy-AdvCTS: (Total of 5 licenses issued; Total of 0 licenses in use)
Galaxy-AdvCTS 5 0
Users of Galaxy-AdvTech: (Total of 5 licenses issued; Total of 0 licenses in use)
Galaxy-AdvTech 5 0
Users of Galaxy-Common: (Total of 30 licenses issued; Total of 1 license in use)
Galaxy-Common 30 1