Re: 16.pl:
Except for the newlines (see note 3, below), this works for me (on Windows):
#! perl use strict; use warnings; binmode STDOUT, ':utf8'; # OR: binmode STDOUT, ":encoding(UTF-8)" or die "Can't binmode to UTF- +8: $!"; # OR: use open qw( :encoding(UTF-8) :std ); use charnames ':short'; print "\N{greek:Delta} is an upper-case delta.\n"; use charnames qw(cyrillic greek); print "\N{Sigma} and \N{sigma} are Greek sigmas.\n"; print "\N{BE} and \N{be} are Cyrillic bees.\n";
Output:
14:08 >chcp 65001 Active code page: 65001 14:08 >perl 683_SoPW.pl Δ is an upper-case delta. Σ and σ are Greek sigmas. Б and б are Cyrillic bees. 14:08 >
Notes:
“Cyrillic” has two letter Ls.
You need to specify UTF8 for the output: see binmode.
For some reason, newlines are printing double. I’ve tried printing \x0A, etc., but so far haven’t found any way to fix this. :-(
Hope that helps,
| Athanasius <°(((>< contra mundum | Iustus alius egestas vitae, eros Piratica, |
In reply to Re: Help on 16/17/18/19/20 dot pl
by Athanasius
in thread Help on 16/17/18/19/20 dot pl
by Raymond
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |