Регулярное выражение Perl для удаления начальных и конечных пробелов каждого столбца в строке

Question

У меня есть требование удалить передние и конечные пробелы в каждом столбце строки, разделенной символом «|».

TEST | 100 | 0.00 | TEST STRING Я использую следующие регулярные выражения для удаления пробелов, но это не работает.

$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";