История изменений
Исправление saahriktu, (текущая версия) :
не осилил запустить перловый скрипт
Какой скрипт? Тот, что в мане, в любом случае не работает:
> cat rad50test.pl
#!/usr/bin/perl
use Encode;
use Encode::RAD50; # Sorry about this.
$rad50 = encode ('RAD50', 'FOO');
$ascii = decode ('rad50', pack 'n', 10215);
binmode STDOUT, ':encoding(rad50)'; # Perverse, but it works.
print 'A#C'; # Gives a warning, since '#' isn't valid.
> ./rad50test.pl
'#' is an invalid character at ./rad50test.pl line 0.
к>
> cat rad50test.pl
#!/usr/bin/perl
use Encode;
use Encode::RAD50; # Sorry about this.
$rad50 = encode ('RAD50', 'FOO');
$ascii = decode ('rad50', pack 'n', 10215);
binmode STDOUT, ':encoding(rad50)'; # Perverse, but it works.
print 'ABC'; # Gives a warning, since '#' isn't valid.
> ./rad50test.pl
⌠>
Исходная версия saahriktu, :
не осилил запустить перловый скрипт
Какой скрипт? Тот, что в мане, в любом случае не работает:
> cat rad50test.pl
#!/usr/bin/perl
use Encode;
use Encode::RAD50; # Sorry about this.
$rad50 = encode ('RAD50', 'FOO');
$ascii = decode ('rad50', pack 'n', 10215);
binmode STDOUT, ':encoding(rad50)'; # Perverse, but it works.
print 'A#C'; # Gives a warning, since '#' isn't valid.
> ./rad50test.pl
'#' is an invalid character at ./rad50test.pl line 0.
к>
> cat rad50test.pl
#!/usr/bin/perl
use 5.016;
use Encode;
use Encode::RAD50; # Sorry about this.
my $rad50 = encode ('RAD50', 'FOO');
my $ascii = decode ('rad50', pack 'n', 10215);
binmode STDOUT, ':encoding(rad50)'; # Perverse, but it works.
print 'ABC'; # Gives a warning, since '#' isn't valid.
> ./rad50test.pl
⌠>