求助，谁帮忙用 ruby 重写这个小程序，并告诉运行结果？

cobrawgl

use strict; use warnings; {   my $x = 'A';   sub f { sub { $x++ }       }   sub g { sub { $x++ } if $x } } my $F=f(); my $G=g(); print $F->(),$G->(),"," for 1..4;

谢谢

dz902

你能说下这个程序是什么意思吗？

cnRadio

我和负责的告诉楼主，这个不是 Ruby 代码，貌似是 Perl 的。
所以请到隔壁Perl版寻找答案

upload-------
寒，看错标题了~
原来楼主想让这个 Perl 代码变成 Ruby 的。不懂  perl，能否解释一下这段代码的意思，好让各位 Rubyist 写相同意思的程序

[ 本帖最后由 cnRadio 于 2007-9-22 23:01 编辑 ]

zqy1005

哥哥  你Perl都写的不对