Perl 单行命令如何应用到perl 脚本中？

tianting002

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

如何将这个单行命令使用到脚本当中？



谢谢！

chenhebuaa

在里面应用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

非常感谢楼上三位，又学会了几招！