一个有趣的awk用法

ruifox

原帖由 ground 于 2006-2-6 15:36 发表
帮我看下这个awk
awk '{gsub(/./,"& ");str=substr($0,1,1)}\
{if(NF>2){for(i=2;i<=NF;i++)printf str$i;printf "\n"}\
else{gsub(/ /,"");print}}' a
a内容如下:
...

刚刚看到ground的帖子，其中有关gsub(/./,"& ");的用法我自己是第一次遇到，非常有趣，我觉得需要单独发个帖子与大家共享一下：

gsub(/./,"& "); 这句中.代表任意一个字符，&则代表需要替换的字符本身，例如：
file文件内容如下：
12345
abcde
则
1、awk '{gsub(/. /,"& ");print}' file的结果为：
1 2 3 4 5
a b c d e
相当于在每个字符后加一个空格

2、awk '{gsub(/. /,"&&");print}' file的结果为：
1122334455
aabbccddee
相当于把每个字符复制一遍

3、awk '{gsub(/. ./,"& ");print}' file的结果为：
12 34 5
ab cd e
相当于在每两个字符后加一个空格。

4、awk '{gsub(/. ./,"&&");print}' file的结果为：
121234345
ababcdcde
相当于把每两个字符复制一遍

大家还有没有更有趣的用法，可以共享一下！

wmjie

原帖由 ruifox 于 2006-2-6 17:26 发表


刚刚看到ground的帖子，其中有关gsub(/./,"& ";的用法我自己是第一次遇到，非常有趣，我觉得需要单独发个帖子与大家共享一下：

gsub(/./,"& "; 这句中.代表任意一个字符，& ...

:em11:
cool,赞!

waker

准确的说是利用正则表达式，而不是awk
俺也来一个

1. 
   
2. [waker@proxy d1]$ echo abcd|sed 's/\0*/*/g'
   
3. *a*b*c*d*
   
4. [waker@proxy d1]$ echo abcd|awk 'gsub(/\0*/,"X")'
   
5. XaXbXcXdX
   

复制代码

小渔儿

\0*是匹配什么，这个还真不知道有这样的

waker

\0是什么不重要，重要的是*前面的字符不会在要处理的文本中出现

ruifox

原帖由 waker 于 2006-2-7 08:06 发表
准确的说是利用正则表达式，而不是awk
俺也来一个

1. 
   
2. [waker@proxy d1]$ echo abcd|sed 's/\0*/*/g'
   
3. *a*b*c*d*
   
4. [waker@proxy d1]$ echo abcd|awk 'gsub(/\0*/,"X")'
   
5. XaXbXcXdX
   

复制代码

谢谢waker的指正！确实是正则表达式的用法。s/0*/*/g的用法也很巧妙，用一个不存在的字符匹配字符间的位置，漂漂！

flw

1. [flw@BuildServer ~]$ echo abcd | perl -pne 's/./*$&/g'
   
2. *a*b*c*d
   

复制代码

dbcat

Excellent！
建议斑竹加精。。。

xhlshyjy

功能强大的正则表达式！！