while (my $line = <$foofh>) {
chomp $line;
my $out = join "", reverse split '', $line;
print $fh "$out\n";
}
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
- [Moscow.pm] Perl на Android Павел
- Re: [Moscow.pm] Perl на Android Walery Studennikov
- Re: [Moscow.pm] Perl на Android Павел
- [Moscow.pm] perl 6 vs utf8 Николай Мишин
- Re: [Moscow.pm] perl 6 vs utf8 Denis Evdokimov
- Re: [Moscow.pm] perl 6 vs utf8 Denis Evdokimov
- Re: [Moscow.pm] perl 6 vs utf8 Ruslan Zakirov
- Re: [Moscow.pm] perl 6 vs utf8 Ruslan Zakirov
- Re: [Moscow.pm] perl 6 vs ... Николай Мишин
- Re: [Moscow.pm] perl 6... Ruslan Zakirov
- Re: [Moscow.pm] pe... Николай Мишин
- Re: [Moscow.pm] pe... Ruslan Zakirov
- Re: [Moscow.pm] perl 6... Ivan Petrov
- Re: [Moscow.pm] pe... Ruslan Zakirov
- Re: [Moscow.pm] pe... Ivan Petrov
