Opened by TeddyC at 2003-09-01 18:11
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
Perhaps that was the point?
Here is my test and result:
in a Dos-Box.
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
use strict; use warnings; Link zu meiner Perlseite