Perl 新手，大括号/语法问题

Question

我最近开始用 Perl 编程（我将跳过长篇故事），但我偶然发现了一些我似乎无法理解的错误：

syntax error at /usr/sbin/test.pl line 238, near ") {"
syntax error at /usr/sbin/test.pl line 247, near "} else"
syntax error at /usr/sbin/test.pl line 258, near ") {"
syntax error at /usr/sbin/test.pl line 276, near ") {"
syntax error at /usr/sbin/test.pl line 304, near "}"
syntax error at /usr/sbin/test.pl line 308, near "}"
syntax error at /usr/sbin/test.pl line 323, near "}"

周围的括号有关

这似乎与 if 和else 我在 C、C#、Java、PHP、Lua 等方面经验丰富，所以我有点尴尬地陷入语法错误。

我粘贴了一个生成语法错误的代码示例：

            if (substr(ToString($buffer),0,4) == 'HELO') {
                $contype = 'smtp';

                send($client,'250 Welcome',0);

            } elsif (substr(ToString($buffer),0,4) == 'EHLO') { 
                $contype = 'esmtp';

                send($client,'250-$hostname Welcome',0);
                send($client,'250 SIZE $msgmaxsize',0);
            }

            do {
                recv($client,$buffer,1024,0);

            } while (ToString($buffer) != 'QUIT') {

                if (substr(ToString($buffer),0,10) == 'MAIL FROM:')
                {
                    $sender = ToString($buffer);
                    $sender =~ m/<(.*?)>/;

                    send($client,'250 OK',0);

                } else {
                    send($client,'503 I was expecting MAIL FROM',0);
                    send($client,'221 Bye',0);
                    break;
                } 

}

不幸的是，我无法显示整个计划。

Perl 版本 5.10.1

Answer 1

这是没有意义的：

        ...

        do {
            recv($client,$buffer,1024,0);

        } while (ToString($buffer) != 'QUIT') {

            if (substr(ToString($buffer),0,10) == 'MAIL FROM:')

        ...

您将语句修饰符 (do {..} while...; 与 while () {} 循环组合起来。它是或。

所以写一些类似的东西：

        ...

        while ( recv($client,$buffer,1024,0) ) {

            last if ToString($buffer) eq 'QUIT';

            if (substr(ToString($buffer),0,10) eq 'MAIL FROM:') {

                ...

            }

        }
etc.

Answer 2

除了使用 == 和 != （数字比较运算符）而不是 eq 和 ne 进行字符串比较的错误之外，在 while 测试之后还缺少一个分号。也就是说，您

do { ...; } while (...) { if (...) { ... } else {...}}

注意到 Perl 与 C 一样支持这两种形式

while (expr) { stuff }

，

do { stuff } while (expr)

并且我假设您打算使用后一种形式。

如果上面解释了第 238 行的错误，那么当您更正它时，如果它以某种方式导致了悬空 else，则第 247 行的错误可能会消失；但如果不编译代码，我不太明白如何。