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

Question

Input : "/abcd/prod/Cid/1234/Did" or "/abcd/prod/Cid/1234/Did/Pid/234"

Output: "/abcd/prod/Cid/1234/" (Only till 4th word, considering '/' is the delimiter)

How to slice and get above using perl

Answer 1

As one-liner :

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

As a script :

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

Output :

/abcd/prod/Cid/1234