Perl +如何在foreach循环中使用chomp

Question

以下perl脚本（显示如下）

打印以下XML文件，但XML存在问题，因为在TEST词后添加了不必要的“＆＃10”字符

 <ROOT>
     <FILE Name="TEST1&#10;"/>
     <FILE Name="TEST2&#10;"/>
     <FILE Name="TEST&#10;"/>ar
</ROOT>

我认为“＆＃10”字符是因为换行符（使用反引号运算符将命令的输出读取到@myNames中）似乎可以解决我的XML中现有的“＆＃10”问题。

我的问题：以哪种方式需要在脚本中添加chomp命令以解决问题

我的Perl脚本

#!/usr/bin/perl

use warnings;
use XML::LibXML;


my $doc  = XML::LibXML::Document->new; 
my $root = $doc->createElement('ROOT');
$doc->setDocumentElement($root);


my @myNames=` ls /var/tmp | grep FILE.xml | sed "s/.FILE.*//"  `;

foreach (@myNames) {

my $objVar = $doc->createElement('FILE');
$root->appendChild($objVar);
$objVar->setAttribute('Name' , $_ );

} 


my @lines = split /\n/, $doc->toString(1);
shift @lines;

foreach (@lines) {

print "$_\n";
}

/ var / tmp下的文件

   TEST1-FILE.xml
   TEST2-FILE.xml
   TEST-FILE.xml

Answer 1

得到文件名列表后，请立即使用它：

my @myNames=` ls /var/tmp | grep FILE.xml | sed "s/.FILE.*//"  `;
chomp(@myNames);
...