目前，当我使用datadumper打印我从电子表格导入的perl散列时，我遇到了这个问题，一些散列打印成多行，并带有回车符（^M），因为源单元格中有新行。我已经设法删除了回车符，但那些新行仍然存在。我尝试对字符串执行此操作，它只设法删除了回车符^M，但是新的线路仍然存在。

$title = $sheet->{Cells}[0][$col]{Val};
$num = $sheet->{Cells}[$row+1][$col]{Val};

$title =~ s/\r//g;
$num =~ s/\r//g;
$title2 = chomp($title);
$num2 = chomp($num);

打印时得到的输出如下

$VAR1 = {
          '' => {
                  'JOHN
has a car' => {
                             'SUV' => A red coloured
2022 suv from
japan

我希望能得到

$VAR1 = {
          '' => {
                  'JOHN' => {
                             'SUV' => A red coloured 2022 suv from japan