perl 单行命令

rockmars

UID: 35579
帖子: 21
积分: 48
在线时间: 10 分钟

1^# rockmars 发表于 2006-06-19 18:03

perl 单行命令

perl 单行命令
tab.txt内容如下
sdfsdf|sdf|wqrwer
23432sfsdf|sdfdf|wr
sdfdsffa|234sfd|sdfsdf

more tab.txt|nawk -F\| '{printf("%-14s%-14s%-14s\n",$1,$2,$3)}'
输出
sdfsdf sdf wqrwer
23432sfsdf sdfdf wr
sdfdsffa 234sfd sdfsdf

请问用perl单行命令如何实现此功能

cnhacktnt

UID: 40772
帖子: 111
积分: 255
在线时间: 17 小时

2^# cnhacktnt 发表于 2006-06-20 05:57

[quote]--perl -F'\|' -.
[quote]
perl -F'\|' -alne 'printf "%-14s%-14s%-14s\n",@F' tab.txt
[/quote]
参见: http://www.perlchina.org/archive/archive.php?action=archive&page=19

rockmars

UID: 35579
帖子: 21
积分: 48
在线时间: 10 分钟

3^# rockmars 发表于 2006-07-14 15:38

thX[CCB]1[/CCB].
thX[CCB]1[/CCB]