免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
› 论坛 › 程序设计 › Perl › 序列切割
12
最近访问板块 发新帖
楼主: yun456900
打印 上一主题 下一主题

序列切割 [复制链接]

yinyuemi

论坛徽章:
2
射手座 日期:2014-10-10 15:59:4715-16赛季CBA联赛之上海 日期:2016-03-03 10:27:14
11楼 [报告]
发表于 2014-02-28 16:54 |只看该作者
没人用re？
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
TrishaTie

论坛徽章:
0
12楼 [报告]
发表于 2014-02-28 16:56 |只看该作者
ATGGATGCTGCGGTGACAGAT
TGGATGCTGCGGTGACAGATG
GGATGCTGCGGTGACAGATGA
ATGCTGCGGTGACAGATGATT
TGCTGCGGTGACAGATGATTT
GCTGCGGTGACAGATGATTTT
CTGCGGTGACAGATGATTTTC
TGCGGTGACAGATGATTTTCA
GCGGTGACAGATGATTTTCAA
CGGTGACAGATGATTTTCAAC
GGTGACAGATGATTTTCAACA
TGACAGATGATTTTCAACAAA
GACAGATGATTTTCAACAAAT
ACAGATGATTTTCAACAAATT
CAGATGATTTTCAACAAATTC
AGATGATTTTCAACAAATTCT
GATGATTTTCAACAAATTCTG
ATGATTTTCAACAAATTCTGC
TGATTTTCAACAAATTCTGCC
GATTTTCAACAAATTCTGCCT
ATTTTCAACAAATTCTGCCTA
TTTTCAACAAATTCTGCCTAT
CAACAAATTCTGCCTATTGAA
AACAAATTCTGCCTATTGAAC
CAAATTCTGCCTATTGAACAG
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
yestreenstars

论坛徽章:
32
处女座 日期:2013-11-20 23:41:20双子座 日期:2014-06-11 17:20:43戌狗 日期:2014-06-16 11:05:00处女座 日期:2014-07-22 17:30:47狮子座 日期:2014-07-28 15:38:17金牛座 日期:2014-08-05 16:34:01亥猪 日期:2014-08-18 13:34:25白羊座 日期:2014-09-02 15:03:55金牛座 日期:2014-11-10 10:23:58处女座 日期:2014-12-02 09:17:52程序设计版块每日发帖之星 日期:2015-06-16 22:20:002015亚冠之塔什干火车头 日期:2015-06-20 23:28:22
13楼 [报告]
发表于 2014-02-28 17:34 |只看该作者
回复 11# yinyuemi

我尝试写了一发~
  1. $ perl -pe 'while(/^\s*\S{21}/){s/(^\s*\S{21})(.*)/$1$2\n$1/s;s/\S/ /};s/.*\n\n//;s/$/\n/' i
  2. ATGGATGCTGCGGTGACAGAT
  3. TGGATGCTGCGGTGACAGATG
  4.   GGATGCTGCGGTGACAGATGA
  5.    GATGCTGCGGTGACAGATGAT
  6.     ATGCTGCGGTGACAGATGATT
  7.      TGCTGCGGTGACAGATGATTT
  8.       GCTGCGGTGACAGATGATTTT
  9.        CTGCGGTGACAGATGATTTTC
  10.         TGCGGTGACAGATGATTTTCA
  11.          GCGGTGACAGATGATTTTCAA
  12.           CGGTGACAGATGATTTTCAAC
  13.            GGTGACAGATGATTTTCAACA
  14.             GTGACAGATGATTTTCAACAA
  15.              TGACAGATGATTTTCAACAAA
  16.               GACAGATGATTTTCAACAAAT
  17.                ACAGATGATTTTCAACAAATT
  18.                 CAGATGATTTTCAACAAATTC
  19.                  AGATGATTTTCAACAAATTCT
  20.                   GATGATTTTCAACAAATTCTG
  21.                    ATGATTTTCAACAAATTCTGC
  22.                     TGATTTTCAACAAATTCTGCC
  23.                      GATTTTCAACAAATTCTGCCT
  24.                       ATTTTCAACAAATTCTGCCTA
  25.                        TTTTCAACAAATTCTGCCTAT
  26.                         TTTCAACAAATTCTGCCTATT
  27.                          TTCAACAAATTCTGCCTATTG
  28.                           TCAACAAATTCTGCCTATTGA
  29.                            CAACAAATTCTGCCTATTGAA
  30.                             AACAAATTCTGCCTATTGAAC
  31.                              ACAAATTCTGCCTATTGAACA
  32.                               CAAATTCTGCCTATTGAACAG
复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
mcshell

论坛徽章:
3
CU十二周年纪念徽章 日期:2013-10-24 15:41:34子鼠 日期:2013-12-14 14:57:19射手座 日期:2014-04-25 21:23:23
14楼 [报告]
发表于 2014-02-28 18:19 |只看该作者
本帖最后由 mcshell 于 2014-02-28 18:29 编辑

re来一发,,,强制回朔,娱乐一下{:3_201:}
@yinyuemi@yestreenstars
  1. echo "ATGGATGCTGCGGTGACAGATGATTTTCAACAAATTCTGCCTATTGAACAG" |perl -lne '/(.*)(?{print " " x $i,$1 and $i++if length$1==21 })(*F)/'
  2. ATGGATGCTGCGGTGACAGAT
  3. TGGATGCTGCGGTGACAGATG
  4.   GGATGCTGCGGTGACAGATGA
  5.    GATGCTGCGGTGACAGATGAT
  6.     ATGCTGCGGTGACAGATGATT
  7.      TGCTGCGGTGACAGATGATTT
  8.       GCTGCGGTGACAGATGATTTT
  9.        CTGCGGTGACAGATGATTTTC
  10.         TGCGGTGACAGATGATTTTCA
  11.          GCGGTGACAGATGATTTTCAA
  12.           CGGTGACAGATGATTTTCAAC
  13.            GGTGACAGATGATTTTCAACA
  14.             GTGACAGATGATTTTCAACAA
  15.              TGACAGATGATTTTCAACAAA
  16.               GACAGATGATTTTCAACAAAT
  17.                ACAGATGATTTTCAACAAATT
  18.                 CAGATGATTTTCAACAAATTC
  19.                  AGATGATTTTCAACAAATTCT
  20.                   GATGATTTTCAACAAATTCTG
  21.                    ATGATTTTCAACAAATTCTGC
  22.                     TGATTTTCAACAAATTCTGCC
  23.                      GATTTTCAACAAATTCTGCCT
  24.                       ATTTTCAACAAATTCTGCCTA
  25.                        TTTTCAACAAATTCTGCCTAT
  26.                         TTTCAACAAATTCTGCCTATT
  27.                          TTCAACAAATTCTGCCTATTG
  28.                           TCAACAAATTCTGCCTATTGA
  29.                            CAACAAATTCTGCCTATTGAA
  30.                             AACAAATTCTGCCTATTGAAC
  31.                              ACAAATTCTGCCTATTGAACA
  32.                               CAAATTCTGCCTATTGAACAG
复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
yinyuemi

论坛徽章:
2
射手座 日期:2014-10-10 15:59:4715-16赛季CBA联赛之上海 日期:2016-03-03 10:27:14
15楼 [报告]
发表于 2014-02-28 20:54 |只看该作者
本帖最后由 yinyuemi 于 2014-02-28 20:56 编辑
  1. $str =~ /.{21}(?{print $&})(?!)/
复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
yestreenstars

论坛徽章:
32
处女座 日期:2013-11-20 23:41:20双子座 日期:2014-06-11 17:20:43戌狗 日期:2014-06-16 11:05:00处女座 日期:2014-07-22 17:30:47狮子座 日期:2014-07-28 15:38:17金牛座 日期:2014-08-05 16:34:01亥猪 日期:2014-08-18 13:34:25白羊座 日期:2014-09-02 15:03:55金牛座 日期:2014-11-10 10:23:58处女座 日期:2014-12-02 09:17:52程序设计版块每日发帖之星 日期:2015-06-16 22:20:002015亚冠之塔什干火车头 日期:2015-06-20 23:28:22
16楼 [报告]
发表于 2014-03-01 00:21 |只看该作者
回复 15# yinyuemi

完整的脚本是？
   
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
yinyuemi

论坛徽章:
2
射手座 日期:2014-10-10 15:59:4715-16赛季CBA联赛之上海 日期:2016-03-03 10:27:14
17楼 [报告]
发表于 2014-03-01 09:33 |只看该作者
回复 16# yestreenstars
  1. perl -le '$str="ATGGATGCTGCGGTGACAGATGATTTTCAACAAATTCTGCCTATTGAACAG";
  2. $str =~ /.{21}(?{print " " x $i++ . [        DISCUZ_CODE_0        ]})(?!)/'
复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
12
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP