useFile::Find;find(/&handleFind,'imac:documents:code');subhandleFind{my$foundFile=$File::Find::name;運行結果：trick.of.the.week代碼討論：好了，成功了。問題是要找出文件的名字，要不帶任何路徑前綴，不帶任何擴展名。File::Basename模塊可以使這很容易實現，我們只需要把文件的完全路徑還有要剔除的擴展名傳給它。上面的path變量是文件的完全路徑，注意文件分隔符是/，這個字符很特殊，因為它是操作系統的保留字符。這里你不能在文件名里使用系統的分隔符。你應該知道當今流行的操作系統都使用自己獨特的文件分隔符：Unix使用/，Windows使用/，Macintosh使用:（順便說一下，在Windows上的Perl腳本中，你既可以使用/也可以使用/作為文件分隔符，Perl的解釋器能理解你的意思)。File::Basename，當然，能正確在完全路徑中找到文件名，不論時在什么系統下。*改變文件的所有者*
($uid,$gid)=(getpwnam($username))[2,3]ordie"$usernotinpasswdfile";chown($uid,$gid,$file)orwarn"couldn'tchown$file.";
運行結果：無輸出代碼討論：有的時候，你可能知道一個用戶名，而你想用這個用戶名做些事，比如改變一個文件的所有者。但是不幸的是，Perl的chown命令不能接受用戶名作為參數，但是可以接受一對數字:userid和groupid。雖然有這些不便之處，Perl并沒有讓我們陷入困境，我們可以把用戶名作為getpwnam函數的參數，獲得一個數組，里面包含了用戶名對應的userid和groupid，分別對應著數組里的第二和第三個元素。