a2d/desk.acc/res/stats.pl

14 lines
215 B
Perl
Raw Normal View History

#!/usr/bin/env perl
use strict;
use warnings;
my %terms;
while (<STDIN>) {
foreach my $term (split /\b/, $_) {
$terms{$term} = 1 if $term =~ /^L[0-9A-F]{4}$/;
}
}
print scalar(keys %terms), "\n";