在模式匹配中使用未初始化的值(m //)

时间:2013-01-24 07:59:57

标签: perl

我尝试在浏览器中点击我的perl脚本,它会出现内部服务器错误

  

服务器遇到内部错误或配置错误   无法完成您的请求。

     

请联系服务器管理员root @ localhost并告知   他们发生错误的时间,以及你可能做过的任何事情   可能导致错误。

     

有关此错误的详细信息可能在服务器错误中可用   日志中。

当我检查线路所在的服务器日志时 if($ content1 = ~m / IP / g) {         $ VALUE1 = POS($内容1);         }

请帮助

2 个答案:

答案 0 :(得分:2)

从您的标题中我假设您有一条错误消息

Use of uninitialized value in pattern match

某处。你应该把它放在你的问题中。

问题是在尝试模式匹配时$content1undef。除非您展示更多代码,否则我们无法猜测为什么会这样。

答案 1 :(得分:-1)

为了摆脱这个警告你可以简单地说:

 if ( $content1 and $content1 =~ m/IP/g) { $value1=pos($content1); }

但这是一个警告,并没有给你internal server error