[Moscow.pm] perl 6 vs utf8

[Николай Мишин]

кстати так не заработало, но у меня получился такой вариант:

my $fh_out = open 'test', :w;

my $fname = shift @*ARGS;
my $file = open $fname, :r;

for $file.lines -> $line{
    $fh_out.say( $line.flip );
}

close $fh_out;


06.07.2011, 21:52, "Ruslan Zakirov" <ruz на bestpractical.com>:
> 2011/7/6 Николай Мишин <mi на ya.ru>;:
>
>>  Круто работает , спасибо всем огромное!!! perl6 рулит - я в это верил
>>  правда реверсирует только одно четверостишие
>>  а второе не попадает в результирующий файл
>>  , ну с этим попозже разберусь
>
> while (defined my $line ...)
>
>>  06.07.2011, 18:29, "Ruslan Zakirov" <ruz на bestpractical.com>;:
>>>  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.
>>>  --
>>>  Moscow.pm mailing list
>>>  moscow-pm на pm.org | http://moscow.pm.org
>>  --
>>  Николай Мишин
>>  --
>>  Moscow.pm mailing list
>>  moscow-pm на pm.org | http://moscow.pm.org
> --
> Best regards, Ruslan.
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org

--
Николай Мишин