我想在perl脚本中将路径拆分为工作目录

Question

#!/applications/dte/perl5/bin/perl -w    
use File::Basename;    
use strict;    

my $DTE_WORK_DIR = dirname($0);    
print "DTE $DTE_WORK_DIR\n";    
my $DTE_WORKING_DIR = split ('/\//', $DTE_WORK_DIR);    
print "WORKDIR = $DTE_WORKING_DIR\n";    

将其作为/path/to/dir/filename.pl运行 在/applications/dte/sh/oleg.pl第15行不推荐使用隐式拆分为@_ DTE / path / to / dir
workdir = 1

Answer 1

我发现你的问题很难理解 - 但这是我的看法 - 你想要一个像

这样的目录

/this/is/some/kind/of/path/to/nowhere

你想把它分开并重建它

尝试做类似的事情 - 使用前两个目录构建路径

(@directoryNames)=split(/\//, $someDirectory);
$newDirectory=$directoryName[0]."\/".$directoryName[0];

你可能还可以使用shift / unshift / pop等。