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
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";
}
/abcd/prod/Cid/1234