shell sed 列

sunzhiguolu

1. perl -alne 'BEGIN{$"="\n"}{$a[$F[0]-1].="$_ "}END{print "@a"}' f
   

复制代码

1cpuer

回复 10# moperyblue




E:\1dos>sed "1~4i," e:\ps\xp
,
1a
2b
3c
4d
,
1A
2B
3C
4D

E:\1dos>sed "1~4i," e:\ps\xp | sed -r ":a;N;/\n,/!ba;/,.,/s/([^,]*,).*/,\n\1/;/,$/!s/,.([^\n]*)(.*)\n(.*)/\1 \3\n,\2/;$s/.,.*//;ba"
1a  1A
2b  2B
3c  3C
4d  4D


成功！太有有饭了？
求注释？？
sed -r ":a;N;/\n,/!ba;/,.,/s/([^,]*,).*/,\n\1/;/,$/!s/,.([^\n]*)(.*)\n(.*)/\1 \3\n,\2/;$s/.,.*//;ba“

sed -r
":a;N;/\n,/!ba;
/,.,/s/([^,]*,).*/,\n\1/;
/,$/!s/,.([^\n]*)(.*)\n(.*)/\1 \3\n,\2/;
$s/.,.*//;
ba

sunzhiguolu

1. perl -nle '{push(@{$h{lc($_)}},$_)}END{print map {"@{$_}\n"} sort {"@{$a}" cmp "@{$b}"} values %h}' f

复制代码

1a 1A
2b 2B
3c 3C

sunzhiguolu

1. perl -e 'map {m/(.*)/;$l==$1?print("$l $1\n"):($l=$1)} sort {$a=~s/[a-z]//ir <=> $b=~s/[a-z]//ir or $b cmp $a} <>' f

复制代码

1a 1A
2b 2B
3c 3C

moperyblue

回复 12# 1cpuer


    到这个点很难解释,如果有兴趣 可用sedsed工具(http://aurelio.net/projects/sedsed/)去折腾折腾 看看命令运行的流程.