如何使用Perl获取文件的目录名? [英] How do I get the dirname of a file with Perl?

问题描述

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

In my perl script, I have the param $FILE=/etc/sysconfig/network

以哪种方式(在perl中)，我只能剪切目录并将目录放入$ DIR参数

in which way (in perl) I can cut only the directory and put the directory in $DIR param

为了获得:

$DIR=/etc/sysconfig

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

推荐答案

use File::Basename;

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

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

了解有关Perldoc中 File :: Basename 的更多信息.

Read more about File::Basename in perldoc.

这篇关于如何使用Perl获取文件的目录名?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！