Re: Converting codepages to UTF8

P schreef:

#!/usr/bin/perl
use warnings;
use strict;

I think you need this:

use Encode qw(cp437 cp850 cp852);

or maybe

use Encode::Byte;

but see also the remarks about PerlIO in `perldoc Encode`.


opendir(DIR, '.') or die "Can't open input directory: $!";

Alternative:

opendir my $dir, '.'
or die "Can't open input directory: $!";

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


Maybe:

my %files = map { $_ => 1 } grep { ! m/\A\.\.?\z/s } readdir $dir;

or:

my %files = map { $_ => 1 } grep -f, readdir $dir;

(untested)


--
Affijn, Ruud

"Gewoon is een tijger."
.

Relevant Pages

  • Re: Regex Unicode Bug?
    ... use strict; ... use warnings; ... use Encode qw/is_utf8 decode/; ... Wide character in print at unicode.pl line 8. ...
    (perl.beginners)
  • Re: decode function equal to Javas
    ... > use strict; ... > use warnings; ... > use Encode; ... Sorry Chas this would work still. ...
    (perl.beginners)
  • Re: decode function equal to Javas
    ... use strict; ... use warnings; ... use Encode; ... my $str = 'Perl%EF%BF%BD%EF%BF%BD%EF%BF%BD%EF%BF%BD%EF%BF%BD%EF%BF%BD%EF%BF%BD%EF%BF%BD%28%EF%BF%BD%EF%BF%BD%EF%BF%BD%C4%B0%EF%BF%BD%29.pdf'; ...
    (perl.beginners)