Perl正则表达式，用于删除字符串中每列的前导和尾随空格

Question

我要求删除由“|”分隔的字符串的每列中的前导和尾随空格

TEST | 100 | 0.00 |测试字符串  我使用以下正则表达式来删除空格，但它似乎不起作用。

$data = "TEST|               100|            0.00 |TEST STRING    ";
$data =~ s/(^|\|)\s+/\1/g;
$data =~ s/\s+$//;

任何帮助都将不胜感激。

Answer 1

这应该可以删除每个列数据的所有尾随和前导空格，包括第一个。

$data = " TEST  |               100|            0.00 |TEST STRING    ";
$data =~ s/\s*\|\s*/|/g;
$data =~ s/\s+$//;
$data =~ s/^\s+//;
print "$data\n";