Äîêóìåíò âçÿò èç êýøà ïîèñêîâîé ìàøèíû. Àäðåñ
îðèãèíàëüíîãî äîêóìåíòà
: http://www.sai.msu.su/~megera/tips.html
Äàòà èçìåíåíèÿ: Unknown Äàòà èíäåêñèðîâàíèÿ: Mon Oct 1 21:52:04 2012 Êîäèðîâêà: koi8-r Ïîèñêîâûå ñëîâà: ï ï ð ï ð ï ð ï ð ï ð ï ð ï ð ï ð ï ð ï ï ð ï ï ð ï ï ð ï ï ð ï ï ð ï ð ï ð ï ð ï ð ï ð ï ð ï ð ï ð ï ð ï ð ï ð ï ð ï ð ï ð ï ð ï ð ï ð ï ð ï ð ï ð ï ð ï ð ï |
To run perl debugger with locale support use -Mlocale switch !
#!/usr/local/bin/perl $uc='ABCDÀÁÂÃÄÅÆÇÈÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞß'; $a=$uc; $a =~ s/(.)/[\U$1\L$1]/g; print "MIXED:$a\n";You must get (Don't forget set LC_CTYPE to koi8-r):
MIXED:[Aa][Bb][Cc][Dd][Àà][Áá][Ââ][Ãã][Ää][Åå][Ææ][Çç][Èè][Êê][Ëë][Ìì][Íí][Îî][Ïï][Ðð][Ññ][Òò][Óó][Ôô][Õõ][Öö][×÷][Øø][Ùù][Úú][Ûû][Üü][Ýý][Þþ][ßÿ]But perl 5.003 has no support for LC_COLLATE and if you try
#!/usr/bin/perl @a=('þ','á','à'); print sort @a;the output will be
þàáwhich isn't we expected. The right answer would be if you have right LC_COLLATE and system has support for them.
àáþHere is a patch by Jarkko Hietaniemi to perl v. 5.003_05, which is available at CPAN or here. Please note, this is not an official release, on my system I have an official perl 5.003 and this development version renamed as perl8. Here is some semi-official notes about status of the patch.
#!/bin/sh LD_PRELOAD=/lib/547old/libc.so.5.4.7 export LD_PRELOAD /usr/local/bin/netscape $*You may try this libc.so.5.4.7
Leave a message ? oleg@sai.msu.su