Help for this page

Select Code to Download


  1. or download this
    use Win32::Unicode;
my $wdir = Win32::Unicode::Dir->new;
$wdir->open(@ARGV);
my ( undef, undef, $file ) = $wdir->fetch;
print join "\n", "length: " . length( $file ) . ", code points:", map 
+ord, split //, $file;
  2. or download this
    d:\>perl filename_check.pl RJ209072
length: 17, code points:
226
...
233
189
50