root/lang/perl/Encode-JP-Mobile/trunk/tools/props-rangify.pl

#!/usr/bin/perl
use strict;
use warnings;
use Number::Rangify qw( rangify );
use YAML;

my($dat, $key) = @ARGV;

my $r = YAML::LoadFile($dat);
my @code;
for my $row (@$r){
    my $hex = $row->{$key || 'unicode'};
    push @code, hex $hex;
}

for my $range (rangify @code) {
    printf "%X\\t%X\n", $range->Size;
}