求助，誰幫忙用 ruby 重寫這個小程序，并告訴運(yùn)行結(jié)果？

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

我和負(fù)責(zé)的告訴樓主，這個不是 Ruby 代碼，貌似是 Perl 的。
所以請到隔壁Perl版尋找答案

upload-------
寒，看錯標(biāo)題了~
原來樓主想讓這個 Perl 代碼變成 Ruby 的。不懂  perl，能否解釋一下這段代碼的意思，好讓各位 Rubyist 寫相同意思的程序

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

zqy1005

哥哥  你Perl都寫的不對