由于我的同事不知道Perl，他要求我对这个潜在的雇员写的一些代码(非现场)的批评，所以我看了一下，告诉他我的问题(主要的是它最初没有评论它不像我们给他们足够的时间)。

然而，代码工作，所以我不喜欢说没有没有一些更多的输入。另一个问题是，这个代码基本上看起来我是如何在C中编码它。已经有一段时间，因为我做了Perl(我没有做很多，我更多的是一个Python bod的快速脚本)，但我似乎回忆起这是一个比这家伙使用的更具表达力的语言。

我正在寻找来自真正的Perl编码器的输入，以及如何改进的建议(以及为什么Perl编码器应该知道改进的方法)。

你也可以嘲笑是否用完全不同的语言写一种语言的人应该(或不应该雇用)。我对你的论点感兴趣，但这个问题主要是对代码的批判。

规格是成功处理CSV文件，如下所示，并输出单个字段：

User ID,Name,Level,Numeric ID
pax,Pax Morgan,admin,0
gt,"  Turner,George" rubbish,user,1
ms,"Mark \"X-Men\" Spencer","guest user",2
ab,"user","3"

输出是这样的东西(潜在的雇员的代码实际输出这个)：

User ID,Numeric ID:
   [User ID]
   [Name]
   [Level]
   [Numeric ID]
pax,0:
   [pax]
   [Pax Morgan]
   [admin]
   [0]
gt,George  " rubbish,1:
   [gt]
   [  Turner,George  ]
   [user]
   [1]
ms,2:
   [ms]
   [Mark "X-Men" Spencer]
   [guest user]
   [2]
ab,"3":
   [ab]
   []
   [user]
   [3]

这里是他们提交的代码：

#!/usr/bin/perl

# Open file.

open (IN,"qq.in") || die "Cannot open qq.in";

# Process every line.

while (<IN>) {
    chomp;
    $line = $_;
    print "$line:\n";

    # Process every field in line.

    while ($line ne "") {
        # Skip spaces and start with empty field.

        if (substr ($line,1) eq " ") {
            $line = substr ($line,1);
            next;
        }

        $field = "";
        $minlen = 0;

        # Detect quoted field or otherwise.

        if (substr ($line,1) eq "\"") {
            $line = substr ($line,1);
            $pastquote = 0;
            while ($line ne "") {
                # Special handling for quotes (\\ and \").

                if (length ($line) >= 2) {
                    if (substr ($line,2) eq "\\\"") {
                        $field = $field . "\"";
                        $line = substr ($line,2);
                        next;
                    }
                    if (substr ($line,2) eq "\\\\") {
                        $field = $field . "\\";
                        $line = substr ($line,2);
                        next;
                    }
                }

                # Detect closing quote.

                if (($pastquote == 0) && (substr ($line,1) eq "\"")) {
                    $pastquote = 1;
                    $line = substr ($line,1);
                    $minlen = length ($field);
                    next;
                }

                # Only worry about comma if past closing quote.

                if (($pastquote == 1) && (substr ($line,1) eq ",")) {
                    $line = substr ($line,1);
                    last;
                }
                $field = $field . substr ($line,1);
                $line = substr ($line,1);
            }
        } else {
            while ($line ne "") {
                if (substr ($line,") {
                    $line = substr ($line,1);
                    last;
                }
                if ($pastquote == 0) {
                    $field = $field . substr ($line,1);
                }
                $line = substr ($line,1);
            }
        }

        # Strip trailing space.

        while ($field ne "") {
            if (length ($field) == $minlen) {
                last;
            }
            if (substr ($field,length ($field)-1,1) eq " ") {
                $field = substr ($field,length ($field)-1);
                next;
            }
            last;
        }

        print "   [$field]\n";
    }
}
close (IN);