wikidata/migration/props.pl

use strict;

my $props = {};

while (<>) {
  tr/\x0d\x0a//d;
  my $file_name = $_;
  warn $file_name;
  
  open my $file, '<', $file_name or die "$0: $file_name: $!";
 
  my $last_prop = '';
  
  while (<$file>) {
    tr/\x0d\x0a//d;
    if (s/^\s+//) {
      $props->{$last_prop}->{$_}++;
    } else {
      my $p = $_;
      if ($p =~ s/:([^:]+)$//) {
        my $v = $1;
        $v =~ s/^\s+//;
        $props->{$p}->{$v}++;
      } else {
        $p =~ s/:\s*$//;
      }
      $props->{$last_prop = $p}->{'__prop__'}++;
    }
  }
  

}

use Data::Dumper;
print  Dumper ($props);
1	use strict;
2
3	my $props = {};
4
5	while (<>) {
6	tr/\x0d\x0a//d;
7	my $file_name = $_;
8	warn $file_name;
9
10	open my $file, '<', $file_name or die "$0: $file_name: $!";
11
12	my $last_prop = '';
13
14	while (<$file>) {
15	tr/\x0d\x0a//d;
16	if (s/^\s+//) {
17	$props->{$last_prop}->{$_}++;
18	} else {
19	my $p = $_;
20	if ($p =~ s/:([^:]+)$//) {
21	my $v = $1;
22	$v =~ s/^\s+//;
23	$props->{$p}->{$v}++;
24	} else {
25	$p =~ s/:\s*$//;
26	}
27	$props->{$last_prop = $p}->{'__prop__'}++;
28	}
29	}
30
31
32	}
33
34	use Data::Dumper;
35	print Dumper ($props);