perl - 如何删除逗号分隔值中的空列？

Question

我有一个变量。例子：

date= 56788,45677,56908,34462,,41278,68977,55532

值后34462有两个逗号，如何使用 Perl 删除多余的逗号。

标签： perl

Answer 1

使用替换将两个逗号替换为一个：

#!/usr/bin/perl
use warnings;
use strict;

my $date = '56788,45677,56908,34462,,41278,68977,55532';
$date =~ s/,,/,/g;
print $date;