小编Upl*_*and的帖子

我找到了一些我需要的Perl代码的例子,但它有一些我无法识别的内容.

my $i //= '08';

我在任何地方都找不到任何参考!它看起来像是:

my $i = '08';

我错过了什么吗？

在最新的jquery 1.9下运行时,我得到了即兴ver 4.1的错误

未捕获的TypeError:无法读取未定义的属性"msie"

以前版本的jquery不是这种情况.

即兴的违规行是第20行:

var ie6 = ($.browser.msie && $.browser.version < 7);

我有一个通过Ajax调用的perl脚本.它只是将3个值写入数据库.代码工作正常(值写得成功)但我得到一个"内部服务器错误"抛出.Errorlog表示"脚本标题过早结束".

应用程序没有问题 - 它可以按需运行并且有几个月 - 但是在测试其他内容时我通过Firebug注意到了错误.

所以我开始从脚本中剥离perl以试图找到问题..并继续直到我只剩下两行... shebang并退出..我仍然得到500错误.直接从浏览器运行脚本会在浏览器窗口中显示500错误...从命令提示符中它很好 - 即.apache errorlog中没有任何内容.

服务器配置没有任何问题 - 它有数百个perl脚本并且已运行多年.

我有查询我需要在三个链表上执行MySQL.我可以用嵌套查询做懒惰的方式,但我无法弄清楚如何使用单个查询来完成它.

表是:

Area:-
 : id     (int)
 : name   (string)

Consultant:-
 :id      (int)
 :active  (1/0)

ConsArea:-
 : areaID        (int)
 : consultantID  (int)

我需要循环遍历所有区域(带$area变量),以便列出所有区域和每个区域以指示"活动"顾问的数量...因此所有区域必须列在其旁边的值(可以是如果没有相关的活跃顾问,则为零)

查询的第一部分(无论顾问是否活跃)我可以做:

      SELECT areas.name AS aname, COUNT(consAreas.areaID) AS cct 
        FROM areas LEFT OUTER JOIN consAreas 
          ON consAreas.areaID = areas.id 
       WHERE areas.areaID = $area 
    GROUP BY areas.id 
    ORDER BY areas.name

..但是当我想要包括顾问活跃的条件时,我无法确定正确的连接.它只列出了> 0活跃顾问的区域,而我需要所有区域.

      SELECT areas.name AS aname, COUNT(consAreas.area) AS cct 
        FROM areas LEFT OUTER JOIN consAreas 
          ON consAreas.area = areas.id 
        **JOIN consultants ON consultants.id = consAreas.cons**
       WHERE areas.areaID = …

我有一个更新网页信息的例程.

该页面是通过perl动态创建的,数据存储在MySQL数据库中.

这个数据可以在世界各地的任何数量的经理在线更新(使用javascript/perl更新mysql)...我遇到的问题是表格偶尔会被劫持和欺骗,某些地方正在改变数据. ..我可以看到他们这样做,因为我在perl脚本中放了电子邮件反馈,告诉我运行更新脚本的人的推荐人和IP地址.

网站上有一个更新按钮...弹出一个要求输入用户名和密码的表格..然后在div中显示另一个表单(好吧,我同意,这里没有很好的安全性)......这个表格是通过带有表单值的ajax提交并使用perl脚本更新mysql.

perl脚本检查引用者是否是正确的域 - 但当然这可能是欺骗性的......这就是现在正在发生的事情.

由于任何人都可以看到javascript,我想知道如果检查referrer因为欺骗而失败,保护perl脚本的好方法是什么.