g***j
发帖数: 40861 | 1 是一个作业题
说一个CSV有四列，要求用perl 输出第一列和第四列。第四列或者是一个单词，或者是
两个单词。如果是两个单词，要求输出的时候这两个单词用双引号引起来。
下面是我写的perl
open(in_file,"
while ($line=)
{
($field1,$field2,$field3,$field4)=split',',$line;
if ($field4=~ /.\s./) {print "$field1, x\n";}
else {print "$field1,$field4";}
}
close (in_file);
我不知道怎么完成“如果是两个单词，要求输出的时候这两个单词用双引号引起来。
”这个任务，所以这里暂时用“x"代替了。
各位大侠，应该用什么代替“x"才能达到要求呢？
谢谢啊！ | M**3
发帖数: 186 | 2 print "$field1, "$field"\n"
【在 g***j 的大作中提到】
: 是一个作业题
: 说一个CSV有四列，要求用perl 输出第一列和第四列。第四列或者是一个单词，或者是
: 两个单词。如果是两个单词，要求输出的时候这两个单词用双引号引起来。
: 下面是我写的perl
: open(in_file,": while ($line=)
: {
: ($field1,$field2,$field3,$field4)=split',',$line;
: if ($field4=~ /.\s./) {print "$field1, x\n";}
: else {print "$field1,$field4";}
|
|
