[Moscow.pm] perl 6 vs utf8
Ruslan Zakirov
ruz на bestpractical.com
Ср Июл 6 05:55:13 PDT 2011
Привет,
Как-то так:
my $fh_out = open 'test', :w;
my $fname = shift @*ARGS;
my $fh_in = open $fname, :r;
while ( my $line = $fh_in.get ) {
$fh_out.say( $line.flip );
}
2011/7/6 Николай Мишин <mi на ya.ru>:
> 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
> moscow-pm на pm.org | http://moscow.pm.org
>
--
Best regards, Ruslan.
Подробная информация о списке рассылки Moscow-pm