perl調(diào)用shell的問題

xiaoquqi

用perl執(zhí)行一些ls rm cp等shell命令的時候，例如:rm -f $file，如果$file中含有一些特殊字符，例如$ \之類的，則必須要將$file中的內(nèi)容替換成\\ \$
所以想請教有沒有什么方法來避免perl調(diào)用shell中這種不必要的麻煩
或者直接采用perl內(nèi)置函數(shù)呢？
謝謝

nkcsx

quotemeta

xiaoquqi

原帖由 nkcsx 于 2007-7-5 18:32 發(fā)表
quotemeta

quotemeta應該和\Q的功能差不多，但是如果文件中含有t'.txt這樣的特殊文件還是會刪除不掉呀，有沒有加單引號的函數(shù)或者方法，除了正則匹配。

1. 
   
2. my @files = `ls -F /tmp`;
   
3. foreach my $file (@files){
   
4.     print "rm -f \Q$file\E\n";
   
5.     `rm -f "\Q$file\E"`;
   
6. }
   

復制代碼

xiaoquqi

Copy的時候有像unlink一樣的函數(shù)嗎？

nkcsx

Try File::Copy

xiaoquqi

原帖由 nkcsx 于 2007-7-6 10:05 發(fā)表
Try File::Copy

Good idea!