perl ref 用法？
我一个clear quest软件看到如下脚本
my ($result);my ($param)=@_; if (ref ($param) eq "CQEventObject") { # add your CQEventObject parameter handling code here } elsif (ref (\$param) eq "SCALAR") { # add your scalar parameter handling code here # The Web clients support scalar paramter type only, # so the hook code added in the above section, needs to be duplicated here } else { # add your handling code for other type parameters here, for example: # die("Unknown parameter type"); }