我想在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腳本路徑拆分工作目錄

回答

相關問題