#!/usr/bin/perl -w use strict; my $p4 = "p4"; my @jobs_output = `$p4 jobs`; my @jobs = map {if(/^(job\d+)\s/) {$1;}} @jobs_output; my $jobhashref = {}; #anonymous hash for jobs foreach my $eachjob (@jobs) { foreach (`$p4 job -o $eachjob`) { if($_ =~ /^(\w+):\t(\w+|.+)$/) { $jobhashref->{$eachjob}{$1} = $2; } } } foreach my $jobname (keys %$jobhashref) { foreach my $field (keys %{$jobhashref->{$jobname}}) { print "key: $field, value: $jobhashref->{$jobname}{$field}\n"; } }
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#2 | 8645 | Stephen Moon | removing not up-to-date scripts | ||
#1 | 6487 | Stephen Moon | initial stab at creating a jobcheck program |