Re: Converting codepages to UTF8


Dr.Ruud wrote:
P schreef:


my $cp = 'cp437';

my %files = map { $_ => 1 } grep { $_ !~ m/^\.\.?$/ } readdir(DIR);

map { decode( $cp, $_ ) => 1 } grep ...


This does exactly what my code does, except at a different point in
time.
The result is the same.


Thanks anyway.


--
Best regards,
Angela Druss

.