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