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
