[Moscow.pm] perl 6 vs utf8

[Ruslan Zakirov]

В теории это должен быть итератор и он будет lazy, но сейчас скорее
всего не lazy.

2011/7/7 Николай Мишин <mi на ya.ru>:
> кстати так не заработало, но у меня получился такой вариант:
>
> 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
>
> --
> Николай Мишин
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org
>



-- 
Best regards, Ruslan.