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

发布时间：2020-12-15 21:38:59 所属栏目：大数据来源：网络整理

导读：在我的perl脚本中,我有param $FILE = / etc / sysconfig / network 以这种方式(在perl中)我可以只剪切目录并将目录放在$DIR param中为了得到： $DIR=/etc/sysconfig(like dirname /etc/sysconfig/network in shell script) 解决方法 use File::Basename;($n

在我的perl脚本中,我有param $FILE = / etc / sysconfig / network

以这种方式(在perl中)我可以只剪切目录并将目录放在$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);

阅读更多关于File::Basename在perldoc.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!