[Moscow.pm] perl 6 vs utf8

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

Круто работает , спасибо всем огромное!!! perl6 рулит - я в это верил
правда реверсирует только одно четверостишие
а второе не попадает в результирующий файл
, ну с этим попозже разберусь


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

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