Opened by GoodFella at 2007-04-24 02:33
User since
2003-11-28
3645 Artikel
ModeratorIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-11-28
3645 Artikel
ModeratorIn
Weil du utf8 erwähnst: wenn du mit Unicode arbeitest, braucht Perl bei einigen Operation (z.B. Regexp-Matches mit Klassen) zusätzliche Dateien, die vielleicht nicht automatisch eingebunden wurden. strace/truss/ktrace hilft:
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
24
25
truss perl -e '$x="\x{20ac}"; $x =~ m{\w}' |& grep '^open'
open("/etc/libmap.conf",0x0,0666) = 3 (0x3)
open("/usr/local/lib/perl5/5.8.8/mach/CORE/libperl.so",0x0,00) = 3 (0x3)
open("/var/run/ld-elf.so.hints",0x0,044) = 3 (0x3)
open("/lib/libm.so.4",0x0,027757760070) = 3 (0x3)
open("/lib/libcrypt.so.3",0x0,027757760070) = 3 (0x3)
open("/lib/libutil.so.5",0x0,027757760070) = 3 (0x3)
open("/lib/libc.so.6",0x0,027757760070) = 3 (0x3)
open("/usr/share/locale/de_DE.ISO8859-1/LC_COLLATE",0x0,0666) = 3 (0x3)
open("/usr/share/locale/de_DE.ISO8859-1/LC_CTYPE",0x0,0666) = 3 (0x3)
open("/usr/share/locale/de_DE.ISO8859-1/LC_MONETARY",0x0,05001220541) = 3 (0x3)
open("/usr/share/locale/de_DE.ISO8859-1/LC_NUMERIC",0x0,043) = 3 (0x3)
open("/usr/share/locale/de_DE.ISO8859-1/LC_TIME",0x0,06) = 3 (0x3)
open("/usr/share/locale/de_DE.ISO8859-1/LC_MESSAGES",0x0,0557) = 3 (0x3)
open("/dev/urandom",0x0,05001162001) = 3 (0x3)
open("/dev/null",0x0,0666) = 3 (0x3)
open("/usr/local/lib/perl5/5.8.8/utf8.pm",0x0,0666) = 3 (0x3)
open("/usr/local/lib/perl5/5.8.8/utf8_heavy.pl",0x0,0666) = 3 (0x3)
open("/usr/local/lib/perl5/5.8.8/strict.pm",0x0,0666) = 4 (0x4)
open("/usr/local/lib/perl5/5.8.8/warnings.pm",0x0,0666) = 4 (0x4)
open("/usr/local/lib/perl5/5.8.8/Carp.pm",0x0,0666) = 5 (0x5)
open("/usr/local/lib/perl5/5.8.8/Exporter.pm",0x0,0666) = 5 (0x5)
open("/usr/local/lib/perl5/5.8.8/unicore/PVA.pl",0x0,0666) = 3 (0x3)
open("/usr/local/lib/perl5/5.8.8/unicore/Exact.pl",0x0,0666) = 3 (0x3)
open("/usr/local/lib/perl5/5.8.8/unicore/lib/gc_sc/Word.pl",0x0,0666) = 3 (0x3)