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