如何拆分/剪切到perl中字符串的特定路徑（目錄路徑）

Question

輸入： "/abcd/prod/Cid/1234/Did"或"/abcd/prod/Cid/1234/Did/Pid/234"

輸出： "/abcd/prod/Cid/1234/" （僅到第 4 個字，考慮到 '/' 是分隔符）

如何使用 perl 切片並獲得以上

Answer 1

作為單線：

$ perl -F'/' -lane 'print join "/", @{F[0..4]}' <<< "/abcd/prod/Cid/1234/Did"

作為腳本：

while (<>) {
    chomp $_;
    my @F = split(m[/], $_, 0);
    print join('/', @F[0..4]), "\n";
}

輸出 ：

/abcd/prod/Cid/1234