Chinaunix

标题: Perl 单行命令如何应用到perl 脚本中？ [打印本页]

作者: tianting002 时间: 2012-01-05 11:07
标题: Perl 单行命令如何应用到perl 脚本中？
单行命令：perl -le 'print "imgdata/system/app/livewaremanager.apk"'|perl -F'/' -lane 'print $` if /$F[-1]/'
得到：imgdata/system/app/

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

谢谢！

作者: chenhebuaa 时间: 2012-01-05 11:18
在里面应用awk，或split吧

作者: tianting002 时间: 2012-01-05 11:23
如果用split的话，如何删除最后一列，只保留前面的列？

作者: ludio333 时间: 2012-01-05 11:53
@a=(split /\//,$_);pop @a;print join "/",@a;

作者: x9x9 时间: 2012-01-05 12:02
本帖最后由 x9x9 于 2012-01-05 12:02 编辑

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

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

复制代码

作者: tianting002 时间: 2012-01-05 13:40
非常感谢楼上三位，又学会了几招！

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)