免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
12下一页
最近访问板块 发新帖
查看: 4683 | 回复: 10
打印 上一主题 下一主题

删除重复的字符,只保留其中一个 [复制链接]

论坛徽章:
0
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2010-09-16 19:53 |只看该作者 |倒序浏览
#cat test.txt
$world="aa|bb|ca|bb|bdk|ca|gg"

如何删除 | 之间重复的字符?结果如下:

$world="aa|bb|ca|bdk|gg"

论坛徽章:
15
2015年辞旧岁徽章
日期:2015-03-03 16:54:15双鱼座
日期:2015-01-15 17:29:44午马
日期:2015-01-06 17:06:51子鼠
日期:2014-11-24 10:11:13寅虎
日期:2014-08-18 07:10:55酉鸡
日期:2014-04-02 12:24:51双子座
日期:2014-04-02 12:19:44天秤座
日期:2014-03-17 11:43:36亥猪
日期:2014-03-13 08:13:51未羊
日期:2014-03-11 12:42:03白羊座
日期:2013-11-20 10:15:18CU大牛徽章
日期:2013-04-17 11:48:45
2 [报告]
发表于 2010-09-16 20:44 |只看该作者
  1. world="aa|bb|ca|bb|bdk|ca|gg"

  2. newworld=$(echo $world|awk -F \| '{a[$1]++;printf $1 FS}{for (i=2;i<NF;i++) {if (!a[$i]) {a[$i]++;printf $i FS}}} !a[$NF] {printf $NF}' )

  3. echo $newworld
  4. aa|bb|ca|bdk|gg
复制代码

论坛徽章:
0
3 [报告]
发表于 2010-09-16 21:10 |只看该作者
awk -v RS='|' -v ORS='|' '!a[$0]++' file

论坛徽章:
15
2015年辞旧岁徽章
日期:2015-03-03 16:54:15双鱼座
日期:2015-01-15 17:29:44午马
日期:2015-01-06 17:06:51子鼠
日期:2014-11-24 10:11:13寅虎
日期:2014-08-18 07:10:55酉鸡
日期:2014-04-02 12:24:51双子座
日期:2014-04-02 12:19:44天秤座
日期:2014-03-17 11:43:36亥猪
日期:2014-03-13 08:13:51未羊
日期:2014-03-11 12:42:03白羊座
日期:2013-11-20 10:15:18CU大牛徽章
日期:2013-04-17 11:48:45
4 [报告]
发表于 2010-09-16 21:14 |只看该作者
本帖最后由 rdcwayx 于 2010-09-16 21:16 编辑

$ echo $world |awk 'BEGIN{RS=ORS="|"} !a[$0]++'
aa|bb|ca|bdk|gg
|

简单很多,不过多了个 | 行,

求职 : 技术支持/维
论坛徽章:
0
5 [报告]
发表于 2010-09-17 08:29 |只看该作者
提示: 作者被禁止或删除 内容自动屏蔽

论坛徽章:
0
6 [报告]
发表于 2010-09-17 08:35 |只看该作者
回复 5# 99超人


确实如此,考虑不周

论坛徽章:
23
15-16赛季CBA联赛之吉林
日期:2017-12-21 16:39:27白羊座
日期:2014-10-27 11:14:37申猴
日期:2014-10-23 08:36:23金牛座
日期:2014-09-30 08:26:49午马
日期:2014-09-29 09:40:16射手座
日期:2014-11-25 08:56:112015年辞旧岁徽章
日期:2015-03-03 16:54:152015年迎新春徽章
日期:2015-03-04 09:49:0315-16赛季CBA联赛之山东
日期:2017-12-21 16:39:1915-16赛季CBA联赛之广东
日期:2016-01-19 13:33:372015亚冠之山东鲁能
日期:2015-10-13 09:39:062015亚冠之西悉尼流浪者
日期:2015-09-21 08:27:57
7 [报告]
发表于 2010-09-17 08:48 |只看该作者
  1. echo "aa|bb|ca|bb|bdk|ca|gg" | sed ':a;s/\(\<[^|]\+\>\)\(.*\)\(|\1\>\)/\1\2/;ta'
复制代码

论坛徽章:
0
8 [报告]
发表于 2010-09-17 09:32 |只看该作者
my $world="aa|bb|ca|bb|bdk|ca|gg";
my %hash;
my $rworld=join '|',grep {++$hash{$_}<2} split('\|',$world);
print "$rworld\n";

aa|bb|ca|bdk|gg

论坛徽章:
0
9 [报告]
发表于 2010-09-17 10:43 |只看该作者
回复 7# ly5066113


    sed 用的真是出神入化,学习了~

论坛徽章:
0
10 [报告]
发表于 2010-09-18 10:06 |只看该作者
awk 'BEGIN{FS="[=\"|]"}{printf $1"=\"";for(i=3;i<NF;i++){if(!a[$i]++){printf $i"|"}}}' linux.198
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP