source: branches/hpc34/admin/log2req.pl@ 2959

Last change on this file since 2959 was 651, checked in by phi196, 20 years ago

Use effort field

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 468 bytes
Line 
1#!/usr/bin/perl -w
2
3use strict;
4
5use Getopt::Long;
6
7my $purge = 0;
8
9GetOptions('purge'=>\$purge);
10
11my @log = <>;
12my $log = join '', @log;
13
14while ($log =~ /REQUIREMENT:\s*(R.*?):.?E.?N.?D.?R.?E.?Q/sg) {
15 $_ = $1;
16 s/\n//;
17
18 if ($purge) {
19 next if (/& Deferred &/);
20 next if (/& Obsolete &/);
21 next if (/& Done.? &/);
22 next if (/& Removed &/);
23 }
24
25 s/& Done1 & /& Completed &/;
26 s/& Done & /& Completed &/;
27
28 s/(&[^&]*){2}$//;
29
30 print "$_ \\\\\n";
31}
Note: See TracBrowser for help on using the repository browser.