perl里怎样实现awk的功能

peoplego

1^# peoplego 发表于 2007-12-21 15:37

大侠们
如：目录d下最近的文件的时间
ls -lt /tmp/d |awk 'NR==2{print $6,$7,$8}'

perl中无法parse awk，请问用perl怎样实现

Lonki

2^# Lonki 发表于 2007-12-21 16:16

QUOTE:

perl中无法parse awk

什么意思?

ly5066113

3^# ly5066113 发表于 2007-12-21 17:27

这个意思吧。

ls -lt /tmp/d | perl -ne '@line=split(" " ,$_);print "$line[5] $line[6] $line[7]\n" if $.==2;'

flw

4^# flw 发表于 2007-12-21 17:32

QUOTE:

原帖由 ly5066113 于 2007-12-21 17:27 发表
这个意思吧。

ls -lt /tmp/d | perl -ne '@line=split(" " ,$_);print "$line[5] $line[6] $line[7]\n" if $.==2;'

提示：-a

to 楼主：
你需要的是 perldoc -f -C

ly5066113

5^# ly5066113 发表于 2007-12-21 17:53

QUOTE:

原帖由 flw 于 2007-12-21 17:32 发表

提示：-a

to 楼主：
你需要的是 perldoc -f -C

-a是啥意思？

Lonki

6^# Lonki 发表于 2007-12-21 18:47

QUOTE:

原帖由 flw 于 2007-12-21 17:32 发表

提示：-a

to 楼主：
你需要的是 perldoc -f -C

是的.
无非-M/-A/-C.
最近好几个贴子都用ls分割来取时间, 无语....

另外, Perl中system是可以用awk的, 好象以前也老有人说不行.

redicaps

7^# redicaps 发表于 2007-12-21 18:51

窃以为不要想用一个命令行来代替awk
那应该不是perl的本意