是否有简洁的方法比较出两个字符串中相同的部分？

hztj2005

1. 我们用毛笔写字。
2.小孩用铅笔写字。
是否有简洁的方法比较出两个字符串中相同的部分，标记如下：
1. 我们(用)毛(笔写字。)
2.小孩(用)铅(笔写字。)

hztj2005

YQ_Liu 发表于 2016-10-13 18:00
分别写到两个文件中 用diff

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

hztj2005

sunzhiguolu 发表于 2016-10-13 22:32

好像也没有更好的方法。

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

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

hztj2005

moperyblue 发表于 2016-10-13 20:43
more 1:

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

hztj2005

StarWingsss 发表于 2016-10-21 15:10
如果你的文本是竖着写就好了
w x
m h

这倒不难，先把每个字符串分解成一个数组，即相当于竖着写。
Perl求数组的交集是否有适当模块？

hztj2005

StarWingsss 发表于 2016-10-22 20:36
这个是不是join和split函数？

$str1= "我们可以用毛笔写字。";
@res=split(//,$str1);