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
