From baef974a5258864cb635426d0013e6515105b053 Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Wed, 21 Dec 2016 10:12:36 +0100
Subject: [PATCH] add counter for P31; reduce the noise on STDOUT
---
wdq3.pl | 15 +++++++++++----
1 file changed, 11 insertions(+), 4 deletions(-)
diff --git a/wdq3.pl b/wdq3.pl
index 4421f62..a3da04f 100755
--- a/wdq3.pl
+++ b/wdq3.pl
@@ -98,6 +98,7 @@ sub parse_authctrl
my $line= 0;
my $t_start= time();
+ my %p31;
<FI>;
my $pos;
@@ -131,11 +132,15 @@ sub parse_authctrl
next LINE;
}
- if ($j->{P31} eq 'Q5')
+ # item is now in focus...
+ my ($p31)= map { $j->{$_} } qw(P31);
+ $p31{$p31}++;
+
+ if ($p31 eq 'Q5')
{
- print __LINE__, " j: ", main::Dumper ($j);
+ # print __LINE__, " j: ", main::Dumper ($j);
my @d= get_pers_data($j);
- print __LINE__, " d: ", main::Dumper (\@d);
+ # print __LINE__, " d: ", main::Dumper (\@d);
print FO join ("\t", @d), "\n";
$fo_lines++;
@@ -145,6 +150,8 @@ sub parse_authctrl
close (FO);
+ print __LINE__, " P31: ", main::Dumper(\%p31);
+
$fo_lines;
}
@@ -166,7 +173,7 @@ sub get_time
{
my $s= shift;
- print "s=[$s]\n";
+ # print "s=[$s]\n";
return '' unless ($s);
my $j= decode_json ($s);
--
GitLab