Perl用split删除最后一列且只保留前面的列的方法

@a=(split ///,$_);pop @a;print join "/",@a;

my $str='imgdata/system/app/livewaremanager.apk';
my ($path)=$str=~m{^(.*/)[^/]*};
print $path;