我想在Perl脚本路径拆分工作目录

-4

#!/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 使用隐裂到@_在/应用/ DTE/SH /奥列格已被弃用的。 PL线15
DTE /路径/到/目录
WORKDIR = 1我想在Perl脚本路径拆分工作目录

来源

2017-02-21 osamuyl

您的声明'my $ var = split（/ \ //，$ fulpath）'会将'$ var'设置为4.为什么不在整个世界参与修复代码之前阅读文档？ – Borodin

什么是错误信息？难道你不认为'/'里面的'/'正则表达式分隔符可能需要以某种方式转义吗？ –

我看了，那是我发现的 – osamuyl

我发现你的问题很难理解的 - 但是这是我采取的 - 你想采取类似

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

这个你要分解并重建它

尝试做这样的事情 - 为建设路径与前两个目录

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

你也许还玩弄移位/不印字/ POP等

来源

2017-02-22 11:25:16

我想在Perl脚本路径拆分工作目录

回答

相关问题