note
choroba
Just go over the lines. If you see a tool, remeber the relevant information. If you see the user, report the remembered information:
<c>#!/usr/bin/perl
use warnings;
use strict;
my $user = shift;
my ($tool, $issued, $use);
while (<DATA>) {
if (my ($t, $i, $u) = /^Users of (.*?) ?\(total ([0-9]+) licenses issued; total ([0-9]+) license/) {
($tool, $issued, $use) = ($t, $i, $u);
}
if (/^$user,(.*)/) {
print "Using $tool since $1 (issued $issued, in use $use)\n";
}
}
__DATA__
Users of spice (total 20 licenses issued; total 0 license in use)
Users of runner (total 10 licenses issued; total 0 license in use)
Users of monitor(total 10 licenses issued; total 2 license in use)
Alex,Mon 20 Jan 2013
Peter,Wed 26 Jan 2013
Users of report (total 15 licenses issued; total 0 license in use)
Users of galaxy(total 10 licenses issued; total 3 license in use)
Martin,Fri 22 Jan 2013
Alex,Mon 21 Jan 2013
Peter,Wed 24 Jan 2013
</c>
BTW, is the space after <c>galaxy</c> really missing? If no, you can remove the question marks from the regex.
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-832495">
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
</div></div>
1017139
1017139