Perl 單行命令如何應(yīng)用到perl 腳本中？

tianting002

單行命令：perl -le 'print "imgdata/system/app/livewaremanager.apk"'|perl -F'/' -lane 'print $` if /$F[-1]/'
得到：imgdata/system/app/

如何將這個單行命令使用到腳本當中？



謝謝！

chenhebuaa

在里面應(yīng)用awk，或split吧

tianting002

如果用split的話，如何刪除最后一列，只保留前面的列？

ludio333

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

x9x9

意思是取得路徑名？如果是的話可以用模塊File::Path或File::Spec，當然也可以用正則：

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

復制代碼

tianting002

非常感謝樓上三位，又學會了幾招！