[Moscow.pm] perl 6 vs utf8

[Ruslan Zakirov]

2011/7/6 Ruslan Zakirov <ruz на bestpractical.com>:
> Привет,
>
> Как-то так:
>
> 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 );
> }

Нужно явный close:

close $fh_out;

>
> 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.
>



-- 
Best regards, Ruslan.