Question

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

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

in order to get:

$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);

Read more about File::Basename in perldoc.