给定文件的完整路径,如何获得没有文件名的路径?

Zer*_*obu 2 regex perl

假设我在一个名为'/home/user/directory/HelloWorld.txt'的字符串中有一个路径.我想删除HelloWorld.txt,最后得到'/ home/user/directory'.我需要什么样的正则表达式.

Joh*_*lla 17

不要使用正则表达式.相反,使用File::Basename,可以处理所有特殊情况.

use File::Basename;

dirname("/foo/bar/baz/quux.txt"); --> "/foo/bar/baz"
Run Code Online (Sandbox Code Playgroud)