Perl 如果用split的话，如何删除最后一列，只保留前面的列？

1.如果用split的话，如何删除最后一列，只保留前面的列？

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

 

2.意思是取得路径名？如果是的话可以用模块File::Path或File::Spec，当然也可以用正则：

 

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

print $path;