[Moscow.pm] perl 6 vs utf8

[Ruslan Zakirov]

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.