免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
12下一页
最近访问板块 发新帖
查看: 2935 | 回复: 15

是否有简洁的方法比较出两个字符串中相同的部分? [复制链接]

论坛徽章:
0
发表于 2016-10-13 10:35 |显示全部楼层
1. 我们用毛笔写字。
2.小孩用铅笔写字。
是否有简洁的方法比较出两个字符串中相同的部分,标记如下:
1. 我们(用)毛(笔写字。)
2.小孩(用)铅(笔写字。)

论坛徽章:
307
程序设计版块每周发帖之星
日期:2016-04-08 00:41:33操作系统版块每日发帖之星
日期:2015-09-02 06:20:00每日论坛发贴之星
日期:2015-09-02 06:20:00程序设计版块每日发帖之星
日期:2015-09-04 06:20:00每日论坛发贴之星
日期:2015-09-04 06:20:00每周论坛发贴之星
日期:2015-09-06 22:22:00程序设计版块每日发帖之星
日期:2015-09-09 06:20:00程序设计版块每日发帖之星
日期:2015-09-19 06:20:00程序设计版块每日发帖之星
日期:2015-09-20 06:20:00每日论坛发贴之星
日期:2015-09-20 06:20:00程序设计版块每日发帖之星
日期:2015-09-22 06:20:00程序设计版块每日发帖之星
日期:2015-09-24 06:20:00
发表于 2016-10-13 12:30 |显示全部楼层
1. 我们用毛笔写字。
2.小孩用铅笔写字。

方法比较笨:
用 1. 中的每个字符去匹配 2. 字符串, 成功的就是相同的字符, 否则不同.

论坛徽章:
2
15-16赛季CBA联赛之浙江
日期:2016-04-26 14:03:26程序设计版块每日发帖之星
日期:2016-04-29 06:20:00
发表于 2016-10-13 18:00 |显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽

论坛徽章:
28
15-16赛季CBA联赛之八一
日期:2016-02-22 19:10:4215-16赛季CBA联赛之深圳
日期:2016-12-01 10:34:0415-16赛季CBA联赛之新疆
日期:2016-12-07 10:24:2915-16赛季CBA联赛之同曦
日期:2016-12-15 12:06:43CU十四周年纪念徽章
日期:2016-12-18 13:03:4415-16赛季CBA联赛之吉林
日期:2017-01-03 15:52:2515-16赛季CBA联赛之辽宁
日期:2017-01-04 14:58:2415-16赛季CBA联赛之辽宁
日期:2017-01-15 09:42:512016科比退役纪念章
日期:2017-02-06 17:21:50黑曼巴
日期:2017-02-10 15:46:1215-16赛季CBA联赛之上海
日期:2017-03-18 10:14:5415-16赛季CBA联赛之青岛
日期:2017-03-18 22:00:44
发表于 2016-10-13 20:43 |显示全部楼层
本帖最后由 moperyblue 于 2016-10-22 20:44 编辑

more 1:
  1. 1. 我们用毛笔写字。
  2. 2.小孩用铅笔写字。
复制代码
  1. sed -r '/\n/!N;s/(.+)(.*\n.*)(\1)/(\1)\n\2(\3)/;P;D' 1|sed ':a;N;/\n$/!s/\n//;ta;P;d'|sed -r -e'/^[0-9]+\s*.\./s/[()]//'{2,1}''
复制代码

评分

参与人数 1信誉积分 +10 收起 理由
hztj2005 + 10 赞一个!

查看全部评分

论坛徽章:
307
程序设计版块每周发帖之星
日期:2016-04-08 00:41:33操作系统版块每日发帖之星
日期:2015-09-02 06:20:00每日论坛发贴之星
日期:2015-09-02 06:20:00程序设计版块每日发帖之星
日期:2015-09-04 06:20:00每日论坛发贴之星
日期:2015-09-04 06:20:00每周论坛发贴之星
日期:2015-09-06 22:22:00程序设计版块每日发帖之星
日期:2015-09-09 06:20:00程序设计版块每日发帖之星
日期:2015-09-19 06:20:00程序设计版块每日发帖之星
日期:2015-09-20 06:20:00每日论坛发贴之星
日期:2015-09-20 06:20:00程序设计版块每日发帖之星
日期:2015-09-22 06:20:00程序设计版块每日发帖之星
日期:2015-09-24 06:20:00
发表于 2016-10-13 22:32 |显示全部楼层
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. use utf8;


  5. binmode (STDOUT, ":encoding(utf8)");
  6. my $str1 = '我们用毛笔写字。';
  7. my $str2 = '小孩用铅笔写字。';

  8. my @aList1 = $str1 =~ /./g;
  9. my @aList2 = $str2 =~ /./g;

  10. for (0 .. $#aList1){
  11.     print $aList1[$_] if ($aList1[$_] eq $aList2[$_]);
  12. }
复制代码

评分

参与人数 1信誉积分 +10 收起 理由
hztj2005 + 10 赞一个!

查看全部评分

论坛徽章:
0
发表于 2016-10-13 23:24 |显示全部楼层
YQ_Liu 发表于 2016-10-13 18:00
分别写到两个文件中 用diff

diff是一个模块?还是函数?

论坛徽章:
0
发表于 2016-10-13 23:26 |显示全部楼层

好像也没有更好的方法。

#my @aList1 = $str1 =~ /./g;
#my @aList2 = $str2 =~ /./g;

以上两行这样也可以:
my @aList1 = split(//,$str1);
my @aList2 = split(//,$str2);

论坛徽章:
0
发表于 2016-10-13 23:28 |显示全部楼层

这该是命令行中执行吧。
我在win10下用ActivePerl似乎无法执行这样的命令。

论坛徽章:
28
15-16赛季CBA联赛之八一
日期:2016-02-22 19:10:4215-16赛季CBA联赛之深圳
日期:2016-12-01 10:34:0415-16赛季CBA联赛之新疆
日期:2016-12-07 10:24:2915-16赛季CBA联赛之同曦
日期:2016-12-15 12:06:43CU十四周年纪念徽章
日期:2016-12-18 13:03:4415-16赛季CBA联赛之吉林
日期:2017-01-03 15:52:2515-16赛季CBA联赛之辽宁
日期:2017-01-04 14:58:2415-16赛季CBA联赛之辽宁
日期:2017-01-15 09:42:512016科比退役纪念章
日期:2017-02-06 17:21:50黑曼巴
日期:2017-02-10 15:46:1215-16赛季CBA联赛之上海
日期:2017-03-18 10:14:5415-16赛季CBA联赛之青岛
日期:2017-03-18 22:00:44
发表于 2016-10-14 10:34 |显示全部楼层
回复 8# hztj2005


win系统 装个Cygwin去玩一下 perl可以调用shell命令吧

论坛徽章:
307
程序设计版块每周发帖之星
日期:2016-04-08 00:41:33操作系统版块每日发帖之星
日期:2015-09-02 06:20:00每日论坛发贴之星
日期:2015-09-02 06:20:00程序设计版块每日发帖之星
日期:2015-09-04 06:20:00每日论坛发贴之星
日期:2015-09-04 06:20:00每周论坛发贴之星
日期:2015-09-06 22:22:00程序设计版块每日发帖之星
日期:2015-09-09 06:20:00程序设计版块每日发帖之星
日期:2015-09-19 06:20:00程序设计版块每日发帖之星
日期:2015-09-20 06:20:00每日论坛发贴之星
日期:2015-09-20 06:20:00程序设计版块每日发帖之星
日期:2015-09-22 06:20:00程序设计版块每日发帖之星
日期:2015-09-24 06:20:00
发表于 2016-10-14 11:34 |显示全部楼层
回复 7# hztj2005
其他情况我能想到的就 hash 了.

您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP