我只有一个文件名,myfile.txt我不知道它保存在哪里.如何获得存储文件的确切完整路径.我试过了
$string=`ls /abc/def/*/*/*/*/myfile.txt`;
结果:完整路径是 /abc/def/ghi/jkl/mno/pqr/myfile.txt
我可以通过shell command使用上面的perl脚本运行来获取完整路径.但是,这需要很长时间才能返回路径.有没有办法通过使用perl找到文件的完整路径？
我输入文件的内容如下所示:
abc\**def\ghi**\abc\!!!!!
abc\**4nfiug\frgrefd\gtefe\wf4fs**\abc\df3gwddw
abc\**eg4/refw**\abc\f3
我需要替换abc \ --------------\abc输入文件中的任何字符串ABC\CBA
我尝试过类似下面的内容来获取需要更换的字符串.但是当我需要使用搜索并替换时,我会卡住:
my $string1 = qr/abc\W+([^a]+)/;
my $string2 = map{/$string1/ => " "} @input_file; #the string that need to be replaced
my $string3 = 'ABC\CBA' #string i that i want it to replace to
s/$string2/$string3/g
任何人都可以帮忙吗？提前致谢.
可能重复:
如何将Perl的系统函数输出存储到变量中？
我试图在我的perl脚本中运行shell命令.示例如下:
system ("ls -al");
结果很好地打印在unix上.
有没有办法将结果返回到$string我的perl脚本而不是在unix上返回结果.我不希望结果打印在我的unix上.