求解下perl中MOUSE的写法

能不能帮忙求解下perl中MOUSE的写法
教程介绍的
  $f -> MOUSE("r SSSS");
@s1 = $f->{MOUSEANS};
不能分别得到4个坐标值，谢谢

你先尝试$f->PAUSE (''$11);
看看能不能正常显示出里面的所有坐标。
然后@ddd = split (/ /,$s1[0]);
四个坐标应该出现在$ddd[?-?]
好久之前做过。
只是没找到文件。上述语句全是靠记忆写出来的。
自己试试吧。

$f -> MOUSE("r AREA");
@MOUSEANS=$f->{MOUSEANS};
($x1,$y1,$x2,$y2)=split /\s+/,$f->{MOUSEANS};

谢谢各位，搞定了。

TCL中的使用方法呢