小编Sin*_*nür的帖子

我启动并运行了Apache2/mod_perl2系统.

我正在使用GD来动态创建图像,然后我就像这样打印它:

$r->content_type('image/png');
binmode STDOUT;
print $im->png;

但这是正确的做事方式mod_perl2吗？

(忽略这样一个事实,即我正在生成一个图像而不是缓存它等...)

我如何在Perl中使用宏,就像我在C中一样？

例:

#define value 100 
print value; 

我希望输出为100.

if (%hash)和之间有什么区别if (defined %hash)？

my %hash ;

if ( %hash) { 

  print "defined "; 
}

if (defined %hash)  { 
  print "defined ";
}

好的,再读一遍.我需要打开一个带有perl的Windows提示符.这是因为我想要并行运行perl脚本的多个提示,但不想手动打开它们.所以我想要一个我可以调用的脚本(主机),告诉打开(客户端)命令提示的数量,运行客户端脚本的路径,甚至在客户端询问时输入输入.那么,有两件大事:

1. 如何使用perl脚本打开提示符

2. 如何将输入传递给该提示

谢谢!(PS我知道运行调用相同主机脚本的主机脚本将是一个巨大的错误,希望我的老板不这样做:P)

例如 perl C:\Projects\trunk\PcApps\BaseCamp\Test\smoketest.pl C:\Projects\trunk\PcApps\BaseCamp\Test\log.txt

没有perl.

我正在使用XML Simple来解析XML文件,有问题的部分看起来像这样:

    <textBody>
        <title>
            <titlePart>
                <text>SECTION A <emdash/> HUMAN NECESSITIES</text>
            </titlePart>
        </title>
    </textBody>
    <ipcEntry kind="t" symbol="A01" ipcLevel="C" entryType="K" lang="EN">
        <textBody>
            <title>
                <titlePart>
                    <text>AGRICULTURE</text>
                </titlePart>
            </title>
        </textBody>
    </ipcEntry

出于某种原因,XML :: Simple完全忽略了<text>SECTION A <emdash/> HUMAN NECESSITIES</text> 我猜它因为emdash标签,因为<text>AGRICULTURE</text>解析得很好.我还尝试通过以下方式设置解析器:

$XML::Simple::PREFERRED_PARSER = 'XML::Parser';

仍然没有去.任何的想法？

我有两个文件可以说a.xls和b.xls.第一个包含2张,第二个包含3张.如果我可以使用Perl或批处理脚本合并它们,有人可以告诉我吗？

我想在一个XLS文件中输出5张纸.

我有一个perl脚本,使用标准的net :: HTTP代码和perl 5.8.8.我遇到了一个错误情况,当我调用时服务器返回0字节的数据:

$_http_connection->read_response_headers;

不幸的是,我的perl脚本die,因为Net :: HTTP :: Methods模块在第306行有一个"die":

Server closed connection without sending any data back at
/usr/lib/perl5/vendor_perl/5.8.8/Net/HTTP/Methods.pm line 306

当然,第305-307行是:

unless (defined $status) {
die "Server closed connection without sending any data back";
}

如何让我的脚本"从这种情况中优雅地恢复",检测die并随后进入我自己的错误处理代码,而不是die自己？

我敢肯定这是一个常见的情况,可能是一些简单的事情,但我之前没有遇到过.

我需要在Windows上安装一些需要我的Perl程序的模块.看起来我需要一个64位nmake来构建这些模块.我在nmake15网上找到了,但它在我的系统上不起作用.

如何在Windows上构建这些Perl模块？

以下程序在第二次调用eval时停止.这是预期的吗？我读了perldoc -f eval,并且惊讶于没有显示打印"2:..."的输出.

eval {die("The curly braces seem to rescue me! Life moves on")};
print "1: $@\n";
eval die("Program actually terminates here! Subsequent prints are not shown");
print "2: $@\n";