Perl 脚本可以使用 -w 开关，但不能没有

Question

该脚本可以在带有 -w 开关的 localhost 上运行，但也不能没有。当 use strict 和 use warning 处于活动状态时，它也适用。

apache2/error.log：

没有开关（中止的脚本）：

(2)No such file or directory: exec of ... failed

使用我得到的开关：

Use of uninitialized value $email_flag in string ne ...

这对我来说看起来是初始化的。

在实时网络服务器上，两者都不起作用。 Perl 对我来说是新的，但我了解一些 BASH 和 PHP。

我运行 Debian Lenny、Apache2、Perl 5.10。

#!/usr/bin/perl -w

$| = 1;

my $mailprog = '/usr/sbin/sendmail'; # where the mail program lives

my $to = "not\@for.you";   # where the mail is sent

my ($command,$email,@pairs,$buffer,$pair,$email_flag) ;

 read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

        @pairs = split(/&/, $buffer);
       foreach $pair (@pairs) {

        # Split the pair up into individual variables.                       #
        my($name, $value) = split(/=/, $pair);

        # Decode the form encoding on the name and value variables.          #
        $name =~ tr/+/ /;
        $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

        $value =~ tr/+/ /;
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

        # If they try to include server side includes, erase them, so they
        # aren't a security risk if the html gets returned.  Another 
        # security hole plugged up.
        $value =~ s/<!--(.|\n)*-->//g;

     ##  print "Name of form element is $name with value of $value \n";

        if ($name eq 'email') {
            $email = $value;
           }

        if ($name eq 'command') {
            $command = $value;
           }

       }

    if ($email =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ ||
        $email !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/ ) {
        $email_flag = "ERROR";

    }

my $urlcommand = $command;


if ($command eq 'Subscribe') {
$command = "SUBSCRIBE rpc-news";
}

if ($command eq 'Unsubscribe') {
$command = "UNSUBSCRIBE rpc-news";
}

if ($command eq 'Suspend') {
$command = "SET rpc-news NOMAIL";
}

if ($command eq 'Resume') {
$command = "SET rpc-news MAIL";
}

my $getInfo = '';

print "Content-Type: text/html\n";

  if ($email_flag ne "ERROR") {

    open(MAIL,"|$mailprog -t");
     print MAIL "To: $to\n";
     print MAIL "From: $email\n";
     print MAIL "Subject: [rpc-news] $command \n";
     print MAIL "Reply-to: $email \n";

     print MAIL "$command \n";
     print MAIL "EXIT \n";
    close (MAIL);

    $getInfo = "?result=good";
   }
if ($email_flag eq "ERROR") {
    $getInfo = "?result=bad";
}   

my $rootURL= $ENV{'SERVER_NAME'};
my $url = "http://${rootURL}/thank_you.html${getInfo}&action=${urlcommand}";

print "Location: $url\n\n";

Answer 1

您是否在 Windows 计算机上创建脚本并将其上传到 Linux 服务器而不修复行结尾？如果没有 -w 开关，shebang 行可能看起来像“#!/usr/bin/perl\r”，因此系统会寻找名为“perl\r”的程序（或者无论如何行尾看起来）。使用 -w 开关，“#!/usr/bin/perl”不会有难以辨认的行结尾。相反，它会卡在 -w 上，不会导致失败。

我以为有一个关于此的 perlfaq，但目前我似乎无法在文档中找到它。

更新：我在 PerlMonks 上发现了它，在一个非常古老的问答主题中，在您阅读消息正文之前，该主题似乎无关： 答案：如何摆脱脚本头的过早结束。是的，我知道，如果您只是浏览线程，您甚至不会在该线程上停留。但这是帖子的正文：

如果您开发此脚本的是
Windows，脚本可能
文件具有非 UNIX 行结尾。 （这
Perl 解释器可以处理它们，但是
shebang 线的解释是
外壳，并且不容忍
不正确的行结尾。）如果这是
该问题，脚本可能会终止
在 shebang 处出现错误
线。

Answer 2

在字符串 ne 中使用未初始化的值 $email_flag ...

在我看来它已经初始化了。

 if ($email =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ ||
     $电子邮件 !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9] {1,3})(\]?)$/
 ）{
     $email_flag = "错误"; 
 }

$email_flag 仅在模式匹配时才在这里初始化 - 否则它是未定义的。您可以添加一个 else 子句来确保它无论如何都能被初始化。

Answer 3

我不会使用该代码，它不使用 CGI.pm （或 CGI::Simple ...）
从“nms - 由专家编写的网络程序”获取“TFMail - 改进的表单邮件”

它安装简单，写得很好（它使用 CGI ...）