[英]How to split/cut till specific path (directory path )of string in perl
输入: "/abcd/prod/Cid/1234/Did"
或"/abcd/prod/Cid/1234/Did/Pid/234"
输出: "/abcd/prod/Cid/1234/"
(仅到第 4 个字,考虑到 '/' 是分隔符)
如何使用 perl 切片并获得以上
作为单线:
$ 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
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.