ฉันจะส่งออก UTF-8 จาก Perl ได้อย่างไร

ฉันพยายามเขียนสคริปต์ Perl โดยใช้ pragma "utf8" และได้ผลลัพธ์ที่ไม่คาดคิด ฉันใช้ Mac OS X 10.5 (Leopard) และกำลังแก้ไขด้วย TextMate การตั้งค่าทั้งหมดของฉันสำหรับทั้งตัวแก้ไขและระบบปฏิบัติการของฉันเป็นค่าเริ่มต้นในการเขียนไฟล์ในรูปแบบ utf-8

อย่างไรก็ตามเมื่อฉันป้อนสิ่งต่อไปนี้ลงในไฟล์ข้อความบันทึกเป็น ".pl" และดำเนินการฉันได้รับ "เพชรที่มีเครื่องหมายคำถาม" ที่เป็นมิตรแทนอักขระที่ไม่ใช่ ASCII

#!/usr/bin/env perl -w

use strict;
use utf8;

my $str = 'Çirçös';
print( "$str\n" );

มีความคิดว่าฉันทำอะไรผิดหรือเปล่า? ฉันคาดหวังว่าจะได้ 'Çirçös' ในผลลัพธ์ แต่ฉันได้ ' ir s' แทน

use utf8;ไม่เปิดใช้งานเอาต์พุต Unicode - ช่วยให้คุณสามารถพิมพ์ Unicode ในโปรแกรมของคุณได้ เพิ่มสิ่งนี้ลงในโปรแกรมก่อนprint()คำสั่งของคุณ:

binmode(STDOUT, ":utf8");

ดูว่าช่วยได้ไหม สิ่งนี้ควรทำให้STDOUTเอาต์พุตเป็น UTF-8 แทน ASCII ธรรมดา

คุณสามารถใช้เปิด pragma

สำหรับเช่น ด้านล่างตั้งค่า STDOUT, STDIN & STDERR ให้ใช้ UTF-8 ....

use open qw/:std :utf8/;

TMTOWTDIเลือกวิธีที่เหมาะกับวิธีการทำงานของคุณมากที่สุด ฉันใช้วิธีสภาพแวดล้อมดังนั้นฉันไม่ต้องคิดเกี่ยวกับมัน

ในสิ่งแวดล้อม :

export PERL_UNICODE=SDL

ในบรรทัดคำสั่ง :

perl -CSDL -le 'print "\x{1815}"';

หรือด้วยbinmode :

binmode(STDOUT, ":utf8");          #treat as if it is UTF-8
binmode(STDIN, ":encoding(utf8)"); #actually check if it is UTF-8

หรือด้วยPerlIO :

open my $fh, ">:utf8", $filename
    or die "could not open $filename: $!\n";

open my $fh, "<:encoding(utf-8)", $filename
    or die "could not open $filename: $!\n";

หรือด้วยpragma แบบเปิด :

use open ":encoding(utf8)";
use open IN => ":encoding(utf8)", OUT => ":utf8";

คุณอยากจะบอกว่าสตริงในรหัสของคุณคือ utf-8 ดูเหตุใด Perl สมัยใหม่จึงหลีกเลี่ยง UTF-8 เป็นค่าเริ่มต้น . ตั้งดังนั้นไม่เพียงแต่ยังPERL_UNICODE=SDALPERL5OPT=-Mutf8

ขอขอบคุณในที่สุดก็มีวิธีแก้ไขที่จะไม่ใส่ utf8 :: เข้ารหัสทับโค้ด เพื่อสังเคราะห์และทำให้สมบูรณ์สำหรับกรณีอื่น ๆ เช่นเขียนและอ่านไฟล์ใน utf8 และยังทำงานร่วมกับ LoadFile ของไฟล์ YAML ใน utf8

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

open(FH, ">test.txt"); 
print FH "something éá";

use YAML qw(LoadFile Dump);
my $PUBS = LoadFile("cache.yaml");
my $f = "2917";
my $ref = $PUBS->{$f};
print "$f \"".$ref->{name}."\" ". $ref->{primary_uri}." ";

โดยที่ cache.yaml คือ:

---
2917:
  id: 2917
  name: Semanário
  primary_uri: 2917.xml

ทำในเชลล์ของคุณ: $ env | grep LANG

นี่อาจจะแสดงว่าเชลล์ของคุณไม่ได้ใช้ภาษา utf-8