split用法求肋

linuxzhe

ls -lAF | perl -e ’while (<>) { next if /^[dt]/; print +(split)[4], "\n" } ’

这个 +(split)[4] 写全了是怎么写的，没看明白。谢谢了

zhlong8

(split /\s+/, $_)[4]

zhlong8

基本上是这样

linuxzhe

回复 2# zhlong8

我试了下，好像不对。

   

zhlong8

linuxzhe 发表于 2012-02-21 13:08
回复 2# zhlong8

我试了下，好像不对。

详情请看 perldoc -f split

ludio333

这个用perl -anle 不就行了么

cecial

zhlong8 发表于 2012-02-21 11:45
(split /\s+/, $_)[4]

解释一下为什么 print +(split)[4], "\n"就对，而去了+后，就报语法错误？

---
一个怀疑：
加了+后，split被解释成列表
没有+，被解释成标量？

ace_fei

我理解+(split)[4]  写全了就是 scalar((split /\s+/, $_)[4])

你可以看一下 perldoc -f print
print LIST
Because print takes a LIST, anything in the LIST is evaluated in list context, and any subroutine that you call will have one or more of its expressions evaluated in list context.

+号作用类似scalar函数
ls -lAF | perl -e 'while (<>) { next if /^[dt]/; print scalar((split /\s+/, $_)[4]),"\n" }'

print结果的时候插入一个函数也可以用一个匿名数组[...]中调用函数，然后@{}来解除引用。
ls -lAF | perl -e 'while (<>) { next if /^[dt]/; print "@{[(split /\s+/, $_)[4]]}\n" }'

zhlong8

cecial 发表于 2012-02-22 13:10
解释一下为什么 print +(split)[4], "\n"就对，而去了+后，就报语法错误？

---

楼上解释是错的

一元 + 在 Perl 里面一点作用都不起，甚至不会把后面的值转成数字。这里完全是语法需要，因为 print 后面跟了括号，括号是谁的？默认是属于函数调用的，所以需要用 + 来区分开。这是 Perl 可以省掉函数调用的括号的必然代价

perlop +

Unary "+" has no effect whatsoever, even on strings. It is useful syntactically for separating a function name from a parenthesized expression that would otherwise be interpreted as the complete list of function arguments.

cecial

回复 8# ace_fei
谢谢，学到了print的一些知识。虽然解释有误，哈哈