perl如何取得GENESIS的MOUSE坐标？

$f->MOUSE ("r select the area ");
@s1=$f->{MOUSEANS};
$x1=$s1[0];
$y1=$s1[1];
$x2=$s1[2];
$y2=$s1[3];

x1,x2,y1,y2怎么取不到鼠标的坐标?只要x1取得了全部的4个坐标值.

有点难搞呢

$f->MOUSE ("r Please select the area");
@s1=(split" ",$f->{MOUSEANS});
$x1 = $s1[0];
$y1 = $s1[1];
$x2 = $s1[2];
$y2 = $s1[3];

还没试过，下次告诉你

楼上正解呢

楼上正解楼上正解楼上正解楼上正解楼上正解楼上正解楼上正解楼上正解楼上正解楼上正解楼上正解楼上正解

楼上正解楼上正解楼上正解楼上正解楼上正解楼上正解楼上正解楼上正解楼上正解楼上正解楼上正解楼上正

学习中~~进来围观一下~~

学习中。

楼上正解楼上正解楼上正解楼上正解楼上正解楼上正解楼上正解楼上正解楼上正解楼上正解楼上正解楼上正解