我正在使用WebInject （CLI而不是GUI）来testing在线Web服务。 我打算和第三方一起去，直到我find了这个小gem，并意识到我可以拯救… 我想完成的是grep WebInject（Perl脚本）的结果。 如果它find一个模式，然后pipe结果给邮件。 我是新手，不太清楚如何编写评估结果并将其发送到邮件的逻辑。 这是我迄今为止： $ perl webinject.pl | grep'TEST CASE FAILED' 如果grep发现匹配，我只想发送一封邮件，否则不应该发送邮件。 我想用cron设置它以10或15分钟的间隔运行。 作为一个侧面说明，是grep能够抓住匹配模式的前导和尾随字符？ 更新1：找出前导线和尾随线（-A＃-B＃） 非常感谢！
我需要为500K区域设置一个权威的DNS。 大约90％的区域是相同的（当然域名除外）。 我只发现PowerDNS适合这个任务 – 使用pipe理后端Perl脚本，作为辅助后端回答任何域的静态响应。 还有其他的select吗？
我有一个运行Apache2 :: AuthenNTLM的Apache 2.2服务器。 我已经成功地将Apache2 :: AuthenNTLMconfiguration到它连接到域控制器的地步。 但是，有效的用户名/密码组合会在日志中显示“错误的用户/密码”，并且不会进行身份validation。 这是Apache的configuration： PerlAuthenHandler Apache2::AuthenNTLM AuthType ntlm AuthName "NTLM TEST" Require valid-user # DOMAIN has is the domain users authenticate to, DOMAIN\username # subdomain points to the domain controller. subdomain.domain.local. # /etc/hosts maps subdomain to the correct IP. PerlAddVar ntdomain "DOMAIN subdomain" PerlSetVar ntlmdebug 1 PerlSetVar defaultdomain DOMAIN PerlSetVar […]
我试图安排一个Perl脚本从Windows任务计划程序运行，并将输出redirect到一个文本文件。 这看起来很简单，但不是遵循redirect，而是只是在控制台窗口中打印。 我尝试了各种各样的方法，我假设它不是可能的，或者我正在做一些愚蠢的事情。 我已经尝试过和没有引号无济于事。 该脚本要么不运行，要么Windows只是忽略redirect。 目前我正在使用类似于： perl %Scripts%\Perl\network_information.pl > %Dropbox%\Random\network_information_<machinename>.pl 这显然在一个命令窗口中工作，并运行在一个计划的任务，但redirect被完全忽略。 我也试过用引号，它只是继续忽略输出redirect。 我打算从多台机器上运行这个工具，所以我希望它能够从一个计划任务中运行。 我假设它可能会工作batch file，然后安排批处理，但我想避免，如果可能的话。 任何帮助，将不胜感激。
请咨询我的awk语法有什么问题，以及如何解决这个问题（这个语法是在我的ksh脚本中），我在Linux机器上运行我的脚本 我的目标是从file.txt只得到date之间的行： 从2012年4月19日至2012年4月22日 备注 – 其他解决scheme可以用Perl [root@test1 /var/tmp]# a='2012/04/19' [root@test1 /var/tmp]# b='2012/04/22' [root@test1 /var/tmp]# awk -v A=$a -v B=$b '/A/,/B/' file.txt awk: syntax error near line 1 awk: bailing out near line 1 file.txt的 [ 2012/04/18 21:49:01:857 ] Monitor::handle_client_message(): [ 2012/04/18 21:50:02:379 ] Monitor::handle_client_message( [ 2012/04/18 21:57:52:64 ] Monitor::handle_client_message(): [ 2012/04/18 21:57:52:252 ] Monitor::handle_client_message( [ […]
我们最近从Spiceworks迁移到RT4。 在Spiceworks中，您可以将其设置为在技术人员答复时自动分配票证的地方，或者使用电子邮件标签将其分配给其他技术人员。 有没有办法在RT4中完成这个function？ 我假设有一些perl参与，我希望得到门户网站自动分配一个所有者的答复至less。 编辑： 通过添加一个新的全局脚本来parsing所有者的评论： Condition: On Correspond Action: User Defined Template: Blank Stage: TransCreate 通过将此代码放置在“自定义操作准备代码：” my $Actor = $self->TransactionObj->CreatorObj->Id; if( $Actor != $self->TicketObj->OwnerObj->Id ) { $RT::Logger->info("Auto assign ticket #". $self->TicketObj->id ." to user #". $Actor ); my ($status, $msg) = $self->TicketObj->SetOwner( $Actor ); unless( $status ) { die "Error: $msg"; } } return […]
有没有一种简单的，向后兼容的方式来使用CPAN静默安装Perl模块？ PERL_MM_USE_DEFAULT不适用于不检测默认大陆的旧版本; CPAN只会循环 抱歉! 由于您没有任何现有的select，您必须进行地理select。 见CPAN::FirstTime 。 可以使用Perl代码片段加载CPAN并对其进行configuration，但这是冗长而丑陋的。
我创build/opt/chroot ，在其中创buildbin lib和其他目录，将库，bash和perl二进制文件复制到适当的位置。 另外我把脚本放到/opt/chroot/bin/ 。 现在我可以这样运行脚本： ＃chroot / opt / chroot script.pl 有两件事我是关心的： 脚本获得根权。 在chrooted环境里面有一个perl解释器。 我怎样才能避免这些安全漏洞？
我需要在 perl脚本中编辑一个文件，所以经常使用一行： perl -p -es/<value>/<value>/ig 将不适合这种情况。 如何从一个Perl脚本中获得相同的结果？ open(CRONTAB, "+<file" || die "…"; while (<CRONTAB>) { if ($_ =~ /value/) { s/^\#+//; print "$_\n"; } } 我的照片正在显示我想要的。 这只是我正在寻找的就地编辑。
从Ubuntu 9.04桌面安装开始，设置Apache / MySQL / Perl CGI环境的最佳方法是什么？ 我希望能够通过虚拟机或“真正”的安装来完成这个任务，如果这样做有什么不同的话。 我应该安装哪些软件包，以及是否有对我有用的特定configuration指南？