请教如何按以下方式拆离字符串？

woodie

只用awk的话，可以这样：

1. awk  'BEGIN{FS="admin."}{for (i=2;i<=NF;i++) {sub(/[ ,].*/,"" ,$i);print $i}}'

复制代码

allex

太棒了！

3x

muzx

原帖由 "woodie" 发表：

很好！！！

firebody

muzx ,i love you so much!

woodie

用sed可以这样：

1. sed -e "s/admin.\([^, ]*\)/<\1 >/g; s/[^<>]*<\|>[^<>]*//g"

复制代码

deathcult

perl
#!/usr/bin/perl
foreach(`more a`)
{
        print "$1\n" while(/admin.([^, \n]*)/g);
}

woodie

我没看懂deathcult的perll程序， 于是干脆自己写了一个：

1. perl -e '@lines=<>; grep s/,| /\n/g, @lines; print map /admin.(.*\n)/g, @lines'

复制代码