perl – 如何获取__LINE__用于调用函数?
发布时间:2020-12-16 06:26:28 所属栏目:大数据 来源:网络整理
导读:基本上,我的问题是 this,除了perl而不是PHP. 我知道warn()管理它,但是再次warn()是核心perl,所以我理解它是否通常不可能. 附录(如果链接最终失败) 有功能 sub logm{ my ($msg,$line_no) = @_; # ... } 我想包含__LINE__(和__FILE__,但这不是必需的),但不希望
基本上,我的问题是
this,除了perl而不是PHP.
我知道warn()管理它,但是再次warn()是核心perl,所以我理解它是否通常不可能. 附录(如果链接最终失败) 有功能 sub logm { my ($msg,$line_no) = @_; # ... } 我想包含__LINE__(和__FILE__,但这不是必需的),但不希望每次都像现在这样包含它作为参数. # This is attrocious logm "That file handle is now closed",__LINE__; 解决方法
检查
caller 功能,
sub logm { my ($msg) = @_; my ($package,$filename,$line) = caller; print "'$msg' from file:$filename; line:$linen"; } logm("message"); (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |