From voglmaier at hotmail.com Thu May 20 08:13:52 2010 From: voglmaier at hotmail.com (Reinhard Erich Voglmaier) Date: Thu, 20 May 2010 15:13:52 +0000 Subject: [Krakow-pm] =?iso-8859-2?q?Mam_ptyanie_w_sprawie_polskich_znak=F3?= =?iso-8859-2?q?w?= Message-ID: Dzien Dobry, Przepraszam, ja nie mowie dobrze polskiego ale sprobuje ... Chc? napisa? program, kt?ry czyta tekst w j?zyku polskim i liczy s??wy. U?ywam funkcji "pattern matching" \w ale nie nie dziala. Perl nie rozumie niekt?rych znak?w ( na przyk?ad : ?, ?, ?, ? ). Potem spr?bowa? use POSIX qw(locale_h) ; setlocale(LC_ALL,"Polish_Poland") or die "Could not set locale"; Sama problem. Czy mo?esz mi pom?c ? U?ywam Activestate Perl na Windows XP. Dzi?kuj? bardzo Erich ( Ucz? si? polskiego, bo lubi? bardzo ten j?zyk ) _________________________________________________________________ Hotmail: Trusted email with powerful SPAM protection. https://signup.live.com/signup.aspx?id=60969 -------------- next part -------------- An HTML attachment was scrubbed... URL: From zzbbyy at gmail.com Thu May 20 11:14:39 2010 From: zzbbyy at gmail.com (Zbigniew Lukasiak) Date: Thu, 20 May 2010 20:14:39 +0200 Subject: [Krakow-pm] =?utf-8?q?Mam_ptyanie_w_sprawie_polskich_znak=C3=B3w?= In-Reply-To: References: Message-ID: 2010/5/20 Reinhard Erich Voglmaier : > Dzien Dobry, > Przepraszam, ja nie mowie dobrze polskiego ale sprobuje ... > Chc? napisa? program, kt?ry czyta tekst w j?zyku polskim i liczy s??wy. > U?ywam funkcji "pattern matching"? \w ale nie nie dziala. > Perl nie rozumie niekt?rych znak?w ( na przyk?ad : ?, ?, ?, ? ). > > Potem spr?bowa? > use POSIX qw(locale_h) ; > setlocale(LC_ALL,"Polish_Poland") or die "Could not set locale"; > > Sama problem. > Czy mo?esz mi pom?c ? > U?ywam Activestate Perl na Windows XP. > Witam, Oczywi?cie \w powinno dzia?a?. Wydaje mi si?, ?e locale nie s? tutaj wog?le wa?ne - bo teraz Perl odr??nia znaki od bajt?w. Wa?ne jest natomiast, ?eby odpowiednio te znaki 'odkodowywa?' jak si? je czyta z zewn?trz. Prosz? spr?bowa? na przyk?ad: use utf8; binmode(STDOUT, ":utf8"); my $string = "????"; while( $string =~ /(\w)/g ){ print $1; } print "\n"; Pozdrawiam, Zbigniew Lukasiak http://brudnopis.blogspot.com/ http://perlalchemy.blogspot.com/