projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
7eaa0fd
)
Further tweaks to perluniintro.pod
author
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Wed, 23 Oct 2002 18:56:08 +0000
(18:56 +0000)
committer
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Wed, 23 Oct 2002 18:56:08 +0000
(18:56 +0000)
p4raw-id: //depot/perl@18051
pod/perluniintro.pod
patch
|
blob
|
history
diff --git
a/pod/perluniintro.pod
b/pod/perluniintro.pod
index
c2a57d8
..
21f0fa7
100644
(file)
--- a/
pod/perluniintro.pod
+++ b/
pod/perluniintro.pod
@@
-400,8
+400,7
@@
the file "text.utf8", encoded as UTF-8:
open(my $nihongo, '<:encoding(iso-2022-jp)', 'text.jis');
open(my $unicode, '>:utf8', 'text.utf8');
- select $unicode;
- while (<$nihongo>) { print }
+ while (<$nihongo>) { print $unicode $_ }
The naming of encodings, both by the C<open()> and by the C<open>
pragma, is similar to the C<encoding> pragma in that it allows for