Re: Converting codepages to UTF8

P schreef:


my $cp = 'cp437';

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

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

--
Affijn, Ruud

"Gewoon is een tijger."
.