[精讚] [會員登入]
78

[PERL] 中文字字串拆解

中文字字串拆解是門學問

此文完整連結 http://n.sfs.tw/13167

複製連結 [PERL] 中文字字串拆解@新精讚
(文章歡迎轉載,務必尊重版權註明連結來源)
2019-03-17 15:01:39 最後編修
2019-03-14 02:40:05 By 張○○
 

中文字串如果要逐字拆解,直接用split會得到一堆不知名的東西..

  $ln="精讚中文字字串";
  @wds= split //, $ln;

上網找了一堆方法,直到[1]給我靈感,他的說法是這串你看起來是中文字串的中文字串,其實在PERL裡面是一個個character組成的,直接把他拆了就會變成你看不懂的一些亂碼,你得先把他用 utf8的編碼給解開。我一直認為是要組合?所以邏輯上我還是沒有搞懂。

$ln=decode('utf8',$ln);

@wds= split //, $ln;

總之這樣是正確的運作了,但是…我還是真的想知道PERL到底是怎麼處理中文字的,在[5]的文章解釋非常的清楚。

UTF8 TAG

原來是靠一個utf8的tag來作判斷:

use  Encode;
my  $str  = "中國" ;
Encode::_utf8_on( $str );
print  length ( $str ) . "\n" ; #2
Encode::_utf8_off( $str );
print  length ( $str ) . "\n" ; #6

拆解檔中文字串

use Encode;

open(FILE, 'file.txt') or die "$!";
$n=0;
while($line= <FILE>){
  Encode::_utf8_on( $line );
  @wd =split //, $line;
  print "@wd";
}
close(FILE);

這樣就能正確的拆解了。

Wide character in print 錯誤

要解決一直出現的[2] Wide character in print at,你可以這樣子做:

use utf8;
binmode(STDOUT, ':encoding(utf8)');

 

結論

指定開啟 utf8 tag 來分割和剖析字串

設定輸出為utf8來避免警告。

最好不要使用 unicode

 

參考資料

[1] https://blog.csdn.net/guo40/article/details/4037052

[2] https://blog.wu-boy.com/2009/07/perl-with-utf-8-mode/

[3] https://dotblogs.com.tw/jimmyyu/2009/08/18/10113

[4] https://www.csie.ntu.edu.tw/~p92005/Joel/Unicode.html

[5] http://heavenchou.buddhason.org/node/225

[6] https://www.key-shortcut.com/en/writing-systems/%E6%96%87%E5%AD%97-chinese-cjk/cjk-characters-1/

你可能感興趣的文章

[PERL] 01-撰寫第一隻PERL程式 PERL的系列教學文,適合有其他程式經驗但沒學過PERL的人

[PERL] 使用CPAN安裝模組 在Linux 上,CPAN 可以用來安裝或管理 perl 的模組,此文教你怎麼做。

[PERL] 取得字串長度 使用length來取得字串長度

自行撰寫syslog server建立資訊安全控管中心#3 -- 程式下載和安裝 利用PERL將syslog收攏到資料庫的程式,程式下載和安裝

[PERL] 02-註解、變數和常數 perl的註解、變數和常數

[PERL] 03-條件式判斷 perl的條件式判斷

[PERL] 命令列傳入參數 argv Perl 的外部傳參,是$ARGV[0]、$ARGV[1]、$ARGV[2].....

[PERL] 14-進階比對 #1--取回比對內容 perl的正規表達式進階比對

[PERL] 13- 變數的視界 Perl 的副程式就是所謂的函數

[PERL] 12- 副程式 Perl 的副程式就是所謂的函數

我有話要說


限制:留言最高字數1000字,超過部分會被截掉。請注意:留言不可帶有網址,會被濾掉。 限制:未登入訪客,每則留言間隔需超過10分鐘,每日最多5則留言。

訪客留言

[無留言]

隨機好文

[MAC] 截取螢幕畫面的方法 截取螢幕畫面的方法,在MAC中叫作螢幕快照,英文是screenshot

一個邏輯的錯誤刪了全部檔案的經驗 今天本來想做一件很簡單的事,但卻足足浪費我多一倍的時間,再加上刪掉我全部的檔案,原因只是因為我自己的邏輯錯誤。

[PHP] 檢查檔案是否是圖檔 使用getimagesize函數檢查檔案是否是圖檔

[CodeIgniter 3] 資料庫的使用方法整理1/2 --Select的使用 [CodeIgniter 3] 資料庫的使用方法整理:Select的使用

[NetBeans] 使用git複製別人的專案 NetBeans使用git複製別人的專案及版本控制