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	wakaba	1.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);