perl版本俄罗斯方块-含注释

偶回去再看看书吧
玩过了,确实可以玩
就是 open(KEYGEN, "b |" )  or die "Couldn't fork: $!\n";
我需要写成 open(KEYGEN, "./b |" )  or die "Couldn't fork: $!\n";
否则,他说找不到这个文件,不会自己下落,倒是也蛮好玩的

谢谢,根据你的建议把代码修改了一下