xml - 如何获取要在 perl 程序中使用的文件位置的完整路径？

Question

use XML::LibXML; 
use XML::XPath; 
use XML::XPath::XMLParser;
print "Enter the file location for devices.xml file"."\n";
my $firstfile =<STDIN>;
my $filename = chomp($firstfile); 
print "Enter the file location for discoveryinstances.xml file"."\n";
my $secondfile =<STDIN>; my $filename1=chomp($secondfile);

如何从用户命令提示符查询 Perl 中的文件位置？

Answer 1

perldoc -f chomp – 的返回值chomp是无用的：它返回从字符串返回的字符数。参数已修改，因此您可以这样做

print "Enter the location:\n";
chomp( my $filename = <STDIN> );
...