訊息問題
时间：10-02
整理：3721RD
点击：
請問一下，我在perl中單獨使用$f->COM(get_message_bar);$rea = $f->{READANS};print $rea;可以印出我選部件的訊息但是為什麼程式碼寫成這樣
while (<Info>)
{
if(條件)
{
@point = split(/ /,$_);
$f->COM(sel_single_feat,operation=>"select",x=>"$point[1]",y=>$point[2],cyclic=>"no");
$f->COM(get_message_bar);$rea = $f->{READANS};
print $rea;
}
}
genesis就當掉停住了，有確定讀入檔案也確定有選到部件，但就是無法逐一獲得message_bar的資料，請問大大是否是程式那裡錯誤，感恩不盡。
while (<Info>)
{
if(條件)
{
@point = split(/ /,$_);
$f->COM(sel_single_feat,operation=>"select",x=>"$point[1]",y=>$point[2],cyclic=>"no");
$f->COM(get_message_bar);$rea = $f->{READANS};
print $rea;
}
}
genesis就當掉停住了，有確定讀入檔案也確定有選到部件，但就是無法逐一獲得message_bar的資料，請問大大是否是程式那裡錯誤，感恩不盡。
在GENESIS里运行PERL脚本，print 一定要加上\n,print "$rea\n";这样就不会停住了
謝謝大大，想不到還有這各限制喔，剛剛測試完了後真的成功了，感激不盡。