use encoding utf.Czy da się innaczej ?

Article View: pl.comp.lang.perl

Article #52532

#52532

From: yoawaoy
Date: Fri, 07 Jun 2013 13:27

46 lines
2519 bytes

Czy da się zmienić znaki diakrytyczne polskie na duże jeszcze przed encode ?
Jak bym to teraz chciał zrobić wrzucając uc befor encode to literki pl zostały by małymi.

W sumie to tego nie rozumiem działania do końca :wewnętrzne kodowanie mam prawdopodobnie unicode a może latin1 i chyba dlatego muszę wpierw zrobić encode by uc rozpoznawało poprawnie diakrytyki polskie .Czy to poprawny tok myślenia czy nie?


#!/usr/bin/perl -w

use Encode;


#chardet wydaw_file.txt
#wydaw_file.txt: utf-8 (confidence: 0.99)
#file -i wydaw_file.txt
#enca nie zwraca nic

open(DS,"wydaw_file.txt");

while(<DS>){


#przerobienie tekstu na kodowanie wewnętrzne
$line=decode("utf-8",$_);
$upline=uc $line;
lookfor($upline);#Tu nie znajduje słowo POŁOŻNICTWO ,ale znajduje GINEKOLOGIA.Wniosek nie znajduje słów z polskimi znakami diakrytycznymi
#print encode("utf-8",$upline);


$rt=encode("utf-8",$upline);
#Tu w zasadzie cecha tego skryptu,przykladu .Po zakodowaniu na utf-8 da sie zamienic wszystkie litery na polskie.

lookfor($rt);#Tu znajduje wyrazy z polskimi znakami diakrytycznymi


}


sub lookfor
 {

 my $line=shift;
 $line =~ /(POŁOŻNICTWO)/ig;
 print "Znaleziono:\|$1\|\n";
 
}

Technical Details

Message-ID: <de5939b5-79f9-4e47-a83c-a05cac7f867b@googlegroups.com>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!goblin2!goblin.stu.neva.ru!feeder.erje.net!us.feeder.erje.net!news.glorb.com!npeer01.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!ch1no3024481qab.0!news-out.google.com!y6ni1135qax.0!nntp.google.com!ch1no3024472qab.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail

Show Full Headers

Complete Article Headers

X-Received: by 10.224.53.198 with SMTP id n6mr1422484qag.2.1370611624732;        Fri, 07 Jun 2013 06:27:04 -0700 (PDT)
X-Received: by 10.49.27.138 with SMTP id t10mr1804161qeg.31.1370611624695; Fri, 07 Jun 2013 06:27:04 -0700 (PDT)
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!goblin2!goblin.stu.neva.ru!feeder.erje.net!us.feeder.erje.net!news.glorb.com!npeer01.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!ch1no3024481qab.0!news-out.google.com!y6ni1135qax.0!nntp.google.com!ch1no3024472qab.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: pl.comp.lang.perl
Date: Fri, 7 Jun 2013 06:27:04 -0700 (PDT)
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=213.227.100.31; posting-account=SBycvgkAAADamTvCZmAlf2k1il34U7-j
NNTP-Posting-Host: 213.227.100.31
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <de5939b5-79f9-4e47-a83c-a05cac7f867b@googlegroups.com>
Subject: use encoding utf.Czy da się innaczej ?
From: yoawaoy@gmail.com
Injection-Date: Fri, 07 Jun 2013 13:27:04 +0000
X-Received-Bytes: 2334
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit