Thread Unicode (ä, ö, ü in German) Problem with File::Fi (9 answers)
Opened by TeddyC at 2003-09-01 18:11

Crian
 2003-09-01 20:00
#82715 #82715
User since
2003-08-04
5833 articles
ModeratorIn
[Homepage]
user image
Perhaps that was the point?

Here is my test and result:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#!/usr/bin/perl
use diagnostics;
use strict;
use warnings;

use File::Find;

# there are directory c:\temp\test\öa
# and file c:\temp\test\öa\ü.txt


my $srcdir = "c:/temp/test/öa";
my $dstdir = "c:/temp/test2";

my @Files;
finddepth(\&make_something, $srcdir);

sub make_something {
push @Files, $File::Find::name;
}

use Data::Dumper;
print Dumper \@Files;


Code: (dl )
1
2
3
4
5
C:\Daten\perl\forum>filefind_und_umlaute.pl
$VAR1 = [
'c:/temp/test/÷a/õ.txt',
'c:/temp/test/÷a'
];


in a Dos-Box.
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

View full thread Unicode (ä, ö, ü in German) Problem with File::Fi