制定控制台使用UTF8，顯示出來的字體也很難看，當Perl程式和Perl要讀取的檔案都使用UTF8編碼時，該怎麼辦呢？先看如下程式：
#!/usr/bin/perl
use encoding 'utf8', STDIN=>'gb2312', STDOUT=>'gb2312';
open(FILE,＂c:\\test1.txt＂);
binmode(FILE,＂:encoding(utf8)＂);
@lines=
close(FILE);
for($i=0; $i
print $lines[$i];
print ＂\n＂;
}
$str=＂你好＂；
print $str;
該程式用Perl去讀取一個文字檔test1.txt，然後顯示到控制台上。關鍵在於：
1. use encoding 'utf8', STDIN=>'gb2312', STDOUT=>'gb2312';
use encoding 'utf8' ： 指定該腳本檔案的編碼格式為utf8;
STDIN=>'gb2312', STDOUT=>'gb2312'： 輸入與輸出採用GB2312字元集。
這樣，Perl腳本中的漢字即可被輸出。
2:binmode(FILE,＂:encoding(utf8)＂);
指定開啟的檔案FILE的編碼格式為utf8，這樣就能正確的讀入資料到@lines中了。
這樣就實作了Perl在Windows控制台上處理UTF8字元了。
三個方法如下：
#!/bin/perl -w
use strict;
my $str = ＂abcsfsaf#sdagasdga#sdgaghoiiopjh#dsfjkopa hkl;fjh#dsjfklpafj＂;
## 方法一my $pos = -1;
my $num = 0;
while (($pos = index($str, ＂#＂, $pos)) >-1) {
print ＂found at $pos\n＂;
$pos ;
$num ;
}
print ＂找到$num個！\n＂;
# 方法二
my $count = 0;
while( $str =~ /#/g )
$count ;
}
print $count,＂\n＂;
## 方法3
my $cc = 0;
my $tmp = 0;
if( $tmp = () = ($str =~ /#/g ) )
{
$cc = $tmp;
###}### ###print ＂$cc\n＂;### ###用Perl語言：寫一個程式讀入一串單字一個單字一行輸出每一 ### ####/usr/bin/perl### ###open (IN, 'D:\\words.txt ') || die $!;### ###@words=();### ###close IN;### ###open (OUT,'>','D:\\wordlist.txt')or die $!;### ###foreach $line(@words){### ###$line=~s/\n//g;### ###@words=split /\s /,$line;### ###foreach $word(@words){### ###$word=~s/\W //;### ###$freq {$word} ;### ###print OUT $word .＂=>＂. $freq{$word}.＂\n＂;### ###}### ###}### ###close OUT;### ###你試試看這個程序，檔案可以不用每行一個單詞，直接讀取原始文字就好！有問題再交流！ ### ###教一個perl程式題：從檔案中讀取內容內容就一排是一些文字 ### ####!/usr/bin/perl -w### ###use strict;### ###die ＂perl $0 ＂ unless(@ARGV==1);### ###open (IN,$ARGV[0]) or die ＂Can't open file $ARGV[0]!\n＂;### ###open (OUT,＂>data2＂) or die ＂Can't create file data2\n＂;### ###while(){### ###chomp;### ###my @tmp=split /\t/,$_;### ###for(my $tmpc=1;$tmpcif($tmp[$tmpc-1] eq $tmp[$tmpc]){### ###print OUT ＂$tmp[$tmpc-1]\@2\t\@\@\@＂;### ###$tmpc ;### ###next;### ###}### ###print OUT ＂\t$tmp[$tmpc-1]＂;### ###}### ###print OUT ＂\n＂;### ###}###以上是如何在Windows控制台上利用Perl處理UTF8的詳細內容。更多資訊請關注PHP中文網其他相關文章！
