perl定义常量的疑问

inchonline

use constant ZM_PID => "@ZM_PID@"; # Path to the ZoneMinder run pid file
use constant ZM_CONFIG => "@ZM_CONFIG@"; # Path to the ZoneMinder config file

以上这种常量定义有木有人见过，@ZM_PID@这样写是啥意思呢？

求大神解惑，谢谢啦

104359176

"@ZM_PID@" 只是一个字符串，没有什么特别的语法含义。

Perl5 常量定义是靠第三方模块实现的，具体可参看<<Perl 最佳实践>> 63 页

不如用 Readonly 模块定义只读变量代替常量。

stanley_tam

这个有意思，有空研究下，偶一般定义常量用Readonly这个模块。

1. 
   
2. sztan ~/tmp
   
3. $ cat t.pl
   
4. @ZM_PID = ('a','b');
   
5. use constant ZM_PID => "@ZM_PID@";
   
6. print ZM_PID;
   
7. print "\n\@ZM_PID => [@ZM_PID@]\n";
   
8. 
   
9. sztan ~/tmp
   
10. $ perl t.pl
    
11. @
    
12. @ZM_PID => [a b@]

复制代码

zhlong8

把变量 @ZM_PID 插入字符串啊，结尾那个@这里没有疑义但是推荐除了变量外 $ @ 在双引号字符串中都加 \ 转义。

inchonline

多谢各位解惑，又学到东西了