ja1200/stat/xmlerrnum.pl

#!/usr/bin/perl
use strict;

my $result = do "xml4.txt"; # generated by xmlwf.pl

my $Error;

for my $file_name (keys %{$result}) {
  next unless ref $result->{$file_name};
  my $error = {};
  for (@{$result->{$file_name}}) {
    next unless defined $_->[2];
    $error->{$_->[2]}++;
  }
  for (keys %$error) {
    $Error->{$_}++;
  }
}

use Data::Dumper;
$Data::Dumper::Sortkeys = 1;
print Dumper $Error;
1	#!/usr/bin/perl
2	use strict;
3
4	my $result = do "xml4.txt"; # generated by xmlwf.pl
5
6	my $Error;
7
8	for my $file_name (keys %{$result}) {
9	next unless ref $result->{$file_name};
10	my $error = {};
11	for (@{$result->{$file_name}}) {
12	next unless defined $_->[2];
13	$error->{$_->[2]}++;
14	}
15	for (keys %$error) {
16	$Error->{$_}++;
17	}
18	}
19
20	use Data::Dumper;
21	$Data::Dumper::Sortkeys = 1;
22	print Dumper $Error;