perl - 如何使用Perl获取文件的目录名？

Question

在我的perl脚本中，我有参数$FILE=/etc/sysconfig/network

用哪种方式（在perl中），我只能剪切目录并将目录放入$ DIR参数中

为了得到：

$DIR=/etc/sysconfig

(like dirname /etc/sysconfig/network in shell script)

Answer 1

use File::Basename;

($name,$path,$suffix) = fileparse($fullname,@suffixlist);

$name = fileparse($fullname,@suffixlist);
$basename = basename($fullname,@suffixlist);
$dirname  = dirname($fullname);

在perldoc中阅读有关 File::Basename的更多信息。