在perl中删除管道分隔打印输出中的空字段?

时间:2013-06-10 17:05:08

标签: perl line pipe delimiter delimited

我正在浏览文件的每一行,用正则表达式查找每行中的一些特定内容,我想打印它,以便输出.csv文件的每一行都包含这些内容({{1 })但是因为它逐行进行,所以我得到了像

这样的东西
thing1|thing2|thing3|thing4|

然后

|||| 

然后

|||thing4|  

并且我不知道如何删除空管道分隔区域以将所有内容推到一起。帮助

1 个答案:

答案 0 :(得分:0)

您可以使用正则表达式

后过滤它

$out =~ s/\|{2}/|/sg;