Used pre instead of code for unicode characters. Sorry.

$ perl -COE -wE'use charnames (); use unicore::Name; my $script = shif
+t; open my $fh, "<", $INC{"unicore/Name.pm"} =~ s/Name\.pm$/Blocks.tx
+t/r; for (grep m/\b$script\b/ => <$fh>) { m/\b([0-9A-Z]+)\b\s*\.\.\s*
+([0-9A-Z]+)/ or next; foreach my $c (hex ($1) .. hex ($2)) { my $nm =
+ charnames::viacode ($c) or next;printf "U+%05x %-5s %s\n", $c, chr (
+$c), $nm}}' Thai
[download]

U+00e01 ก     THAI CHARACTER KO KAI
U+00e02 ข     THAI CHARACTER KHO KHAI
U+00e03 ฃ     THAI CHARACTER KHO KHUAT
U+00e04 ค     THAI CHARACTER KHO KHWAI
U+00e05 ฅ     THAI CHARACTER KHO KHON
U+00e06 ฆ     THAI CHARACTER KHO RAKHANG
:
:
U+00e58 ๘     THAI DIGIT EIGHT
U+00e59 ๙     THAI DIGIT NINE
U+00e5a ๚     THAI CHARACTER ANGKHANKHU
U+00e5b ๛     THAI CHARACTER KHOMUT