#!/usr/bin/perl

use strict;
use warnings;

use Ernad::Common;
use XML::LibXML;

my $file=$ARGV[0] // '';
if($file) {
  if(-f $file) {
    my $count=&Ernad::Common::count_texts($file);
    print "$file $count\n";
    exit;
  }
  else {
    print "I can't open your file '$file'\n";
    exit;
  }
}
foreach $file (`ls`) {
  chomp $file;
  if(not $file=~m|\.amf\.xml$|) {
    next;
  }
  my $count=&Ernad::Common::count_texts($file);
  print "$file $count\n";
}