Hi Moscow-pm
Добрый день, кто-нибудь знает аналог кода (реверсирую строки так, что их
приходится читать справо-налево), приведенного ниже на perl6 (racudo)
честно говоря мне не удалось его заставить работать с utf8, спасибо
use utf8; # encoding="utf-8"
use strict;
open my $fh, '>:utf8', 'test';
my $filename = shift;
open my $foofh, '<:utf8', "$filename"
or die "Can't open $filename: $!\n";
my $out;
while (<$foofh>) {
my ($line) = $_;
chomp($line);
$out = scalar reverse $line;
print $fh $out, "\n";
}
close $foofh;
close $fh;
--
Николай Мишин
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
