perl+;如何在foreach循环中使用chomp
下面的perl脚本(向下显示) 打印以下XML文件 但是XML有问题,因为测试单词后不必要的“ ”字符perl+;如何在foreach循环中使用chomp,perl,Perl,下面的perl脚本(向下显示) 打印以下XML文件 但是XML有问题,因为测试单词后不必要的“ ”字符 <ROOT> <FILE Name="TEST1 "/> <FILE Name="TEST2 "/> <FILE Name="TEST "/>ar </ROOT> /var/tmp下的文件 TEST1-FILE.xml TEST2-FI
<ROOT>
<FILE Name="TEST1 "/>
<FILE Name="TEST2 "/>
<FILE Name="TEST "/>ar
</ROOT>
/var/tmp下的文件
TEST1-FILE.xml
TEST2-FILE.xml
TEST-FILE.xml
在获得文件名列表后立即使用它:
my @myNames=` ls /var/tmp | grep FILE.xml | sed "s/.FILE.*//" `;
chomp(@myNames);
...
在获得文件名列表后立即使用它:
my @myNames=` ls /var/tmp | grep FILE.xml | sed "s/.FILE.*//" `;
chomp(@myNames);
...
@亚尔:如果这对你有用,为什么不把答案投上去呢?我知道你问了64个问题,没有一个人被高估。(请重新阅读上次暂停时收到的电子邮件。)我更喜欢运行
chomp
inline:my@myName=grep{chomp;}```代码>@yael:如果它对你有用,为什么不把答案投上去呢?我知道你问了64个问题,没有一个人被高估。(请重新阅读上次暂停时收到的电子邮件。)我更喜欢运行chomp
inline:my@myName=grep{chomp;}```代码>