Change 17692 by [EMAIL PROTECTED] on 2002/08/08 14:20:05
Subject: [PATCH] README.jp and README.cn
From: Autrijus Tang <[EMAIL PROTECTED]>
Date: Thu, 25 Jul 2002 07:05:11 +0800
Message-id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/README.cn#4 edit
.... //depot/perl/README.jp#6 edit
Differences ...
==== //depot/perl/README.cn#4 (text) ====
Index: perl/README.cn
--- perl/README.cn#3~16011~ Fri Apr 19 14:53:55 2002
+++ perl/README.cn Thu Aug 8 07:20:05 2002
@@ -4,8 +4,8 @@
The following documentation is written in EUC-CN encoding.
-?�?����һ������ֱ༭����������ļ�, ������������ص�ע���ַ�.
-����ļ����� POD (�����ļ���ʽ) д��; ���ָ�ʽ��Ϊ����?���ֱ�Ӷ��?,
+�������һ������ֱ༭����������ļ�, ������������ص�ע���ַ�.
+����ļ����� POD (�����ļ���ʽ) д��; ���ָ�ʽ��Ϊ��������ֱ���Ķ�,
���ر���Ƶ�. ���ڴ˸�ʽ�Ľ�һ����Ϣ, ��ο� perlpod �����ļ�.
=head1 NAME
@@ -17,15 +17,15 @@
��ӭ���� Perl �����!
�� 5.8.0 �濪ʼ, Perl �߱������Ƶ� Unicode (ͳһ��) ֧Ԯ,
-Ҳ����֧Ԯ������������ϵ����ı��뷽ʽ; CJK (��?պ?) �������е�һ����.
+Ҳ����֧Ԯ������������ϵ����ı��뷽ʽ; CJK (���պ�) �������е�һ����.
Unicode �ǹ����Եı�, ��ͼ�������������е��ַ�: ��������, ��������,
�Լ������һ�� (ϣ����, ��������, ��������, ϣ������, ӡ����,
-ӡ�ذ���, �ȵ�). ��Ҳ?����˶�����ҵϵͳ��ƽ�? (?? PC �������).
+ӡ�ذ���, �ȵ�). ��Ҳ�����˶�����ҵϵͳ��ƽ̨ (�� PC �������).
Perl ������ Unicode ���в���. ���ʾ Perl �ڲ����ַ������ݿ��� Unicode
-��ʾ; Perl �ĺ�ʽ����� (��?��?���ʾʽ�ȶ�) Ҳ�ܶ� Unicode ���в���.
-����?뼰����?, Ϊ�˴����� Unicode ֮ǰ�ı��뷽ʽ��ŵ�����, Perl
-�ṩ�� Encode ���ģ��, ����?������ض�ȡ��д����еı����?��.
+��ʾ; Perl �ĺ�ʽ����� (���������ʾʽ�ȶ�) Ҳ�ܶ� Unicode ���в���.
+�����뼰���ʱ, Ϊ�˴����� Unicode ֮ǰ�ı��뷽ʽ��ŵ�����, Perl
+�ṩ�� Encode ���ģ��, �����������ض�ȡ��д����еı�������.
Encode ����ģ��֧Ԯ���м������ĵı��뷽ʽ ('gb2312' ��ʾ 'euc-cn'):
@@ -36,19 +36,19 @@
cp936 ����ҳ 936, Ҳ������ 'GBK' (���������) ָ��
hz 7 �����ݳ�ʽ GB2312 ����
-������˵, �� EUC-CN ������ĵ�ת�� Unicode, �����?�����ָ�?:
+������˵, �� EUC-CN ����ĵ���ת�� Unicode, �����������ָ��:
perl -Mencoding=euc-cn,STDOUT,utf8 -pe1 < file.euc-cn > file.utf8
-Perl Ҳ�ڸ��� "piconv", һ֧��?��? Perl д�ɵ��ַ�ת�����߳���, �÷�?��?:
+Perl Ҳ�ڸ��� "piconv", һ֧��ȫ�� Perl д�ɵ��ַ�ת�����߳���, �÷�����:
piconv -f euc-cn -t utf8 < file.euc-cn > file.utf8
piconv -f utf8 -t euc-cn < file.utf8 > file.euc-cn
-����, ���� encoding ģ��, ���������д�����ַ�Ϊ��λ�ij�����, ?������?:
+����, ���� encoding ģ��, ���������д�����ַ�Ϊ��λ�ij�����, ������ʾ:
#!/usr/bin/env perl
- # ���� euc-cn �ִ�����; �����?뼰���������? euc-cn ����
+ # ���� euc-cn �ִ�����; ������뼰��������Ϊ euc-cn ����
use encoding 'euc-cn', STDIN => 'euc-cn', STDOUT => 'euc-cn';
print length("����"); # 2 (˫���ű�ʾ�ַ�)
print length('����'); # 4 (�����ű�ʾ�ֽ�)
@@ -61,7 +61,7 @@
=head2 ��������ı���
-?�?��Ҫ��������ı���, ���Դ� CPAN (L<http://www.cpan.org/>) ����
+�����Ҫ��������ı���, ���Դ� CPAN (L<http://www.cpan.org/>) ����
Encode::HanExtra ģ��. ��Ŀǰ�ṩ���б��뷽ʽ:
gb18030 �����������, ������������
@@ -71,7 +71,7 @@
big5-simp Big5 ���������� Unicode �������Ļ�ת
gbk-trad GBK ���������� Unicode �������Ļ�ת
-?����? GBK �� Big5 ֮�以ת, ��ο���ģ���ڸ��� b2g.pl �� g2b.pl ��֧����,
+������ GBK �� Big5 ֮�以ת, ��ο���ģ���ڸ��� b2g.pl �� g2b.pl ��֧����,
���ڳ�����ʹ������д��:
use Encode::HanConvert;
@@ -80,7 +80,7 @@
=head2 ��һ������Ϣ
-��ο� Perl �ڸ��Ĵ���˵���ļ� (����?������?��д��), ��ѧϰ�������
+��ο� Perl �ڸ��Ĵ���˵���ļ� (����ȫ����Ӣ��д��), ��ѧϰ�������
Perl ��֪ʶ, �Լ� Unicode ��ʹ�÷�ʽ. ����, �ⲿ����Դ�൱�ḻ:
=head2 �ṩ Perl ��Դ����ַ
==== //depot/perl/README.jp#6 (text) ====
Index: perl/README.jp
--- perl/README.jp#5~17122~ Sat Jun 8 15:03:15 2002
+++ perl/README.jp Thu Aug 8 07:20:05 2002
@@ -78,7 +78,7 @@
# jcode.pl
require "jcode.pl";
while(<>){
- jcode::convert(*_, 'euc', 'sjis);
+ jcode::convert(*_, 'euc', 'sjis');
print;
}
# Jcode.pm
@@ -93,7 +93,7 @@
print;
}
# Perl 5.8 - encoding �����Ѥ���
- use encoding 'euc-jp', STDIN=>'shiftjis'
+ use encoding 'euc-jp', STDIN => 'shiftjis';
while(<>){
print;
}
End of Patch.
