小编use*_*739的帖子

我有一个CSV文件,我需要将每个值括在引号中,其中每个值都是一个字符串.连接时我得到意外的引用

$outline = "";
$line = "John,Smith,jsmith@bogusaddress.net,000-0000";
@parts = split (',',$line);
for $part (@parts) {
    $part = '"' . $part . '"';
    if ($outline eq "") {
        $outline = $part;                  # reconstruct line
    } else {
        $outline = $outline . "," . $part;
    }
}
$outline = $outline . "," . '"' . $parts[0] . " " . $parts[1] . '"';
print "$outline\n";

我期望:

"John","Smith","jsmith.net","000-0000","John Smith"

但我得到了:

"John","Smith","jsmith.net","000-0000",""John" "Smith""

为什么我会得到额外的报价？

谢谢您的帮助.