切字符串

lxb456811

我先切一字符串，六个六个切，而且中间要重叠。
比如：AGEYTDGADH

结果：AGEYTD
        GEYTDG
        EYTDGA
        YTDGAD
        TDGADH

不知道大家有没有好办法？

yinyuemi

回复 1# lxb456811


    while($str =~ /(?=(.{6}))/g){print $1}

rubyish

1. #!perl6
   
2. my $s = 'AGEYTDGADH';
   
3. $s ~~ m:ov/(.**6){say ~$0}/;

复制代码

yizhengming

1. $_ = "AGEYTDGADH";
   
2. 
   
3. /(.{6})(?{print "$1\n"})(?!)/;

复制代码

zhlong8

for (0 .. length($str)-6) {
    substr $str, $_, 6;
}

lxb456811

回复 5# zhlong8


    谢谢，版主总是这么乐于助人。

lxb456811

回复 4# yizhengming


    答案不错，谢谢了，好人。

lxb456811

回复 3# rubyish


    perl6好啊，可惜我用了一段时间还是回来用perl5了，好多包安装啊，语法啊，还是适应不过来啊。

lxb456811

回复 2# yinyuemi


    通俗易懂，在程序中就打算这样用。谢谢

yybmsrs

@yinyuemi@rubyish@yizhengming@zhlong8

1. my $str = 'AGEYTDGADH';
   
2. 
   
3. 1 while $str =~ /(?=(.{6}))(?{say $1})/g;

复制代码

为什么输出2次呢？