perl sub
2015-06-23 09:24
190 查看
#/usr/bin/perl -w use strict; my $usage = "\n\nusage: $0 <length>\n\n"; my $length = $ARGV[0] || die $usage; &RandomSeq($ARGV[0]); # invoke the subroutine sub RandomSeq { for (my $i = 0; $i < $length; $i++) { unless ($i%70) {print "\n"}; my $base = int(rand(4)); if ($base == 0) {print "A"; next;} if ($base == 1) {print "C"; next;} if ($base == 2) {print "T"; next;} if ($base == 3) {print "G"; next;} } print "\n"; }
相关文章推荐
- 《威胁建模:设计和交付更安全的软件》
- JQ DOM节点篇
- Linux系统高级编程系列教程
- Ubuntu1404 :aclocal-1.14' is missing on your system
- CSS3盒模型display:box详解
- 使用Raygun来自动追踪AngularJS中的异常
- Google Java编程风格指南
- 二、SpringMvc 进阶
- OpenLayers跨域请求WFS服务在Tomcat环境下的实现cgi
- [DM814x笔记]DDR相关配置
- Objective-C编码规范:26个方面解决iOS开发问题
- 第二阶段第四天站立会议总结
- 目标检测的图像特征提取之(三)HOG特征
- android界面优化技巧
- 轮盘抽奖代码
- 如何隐藏Windows7 系统保留分区
- MFC 不同进程间的消息通信与数据(字符串)发送
- 目标检测的图像特征提取之(二)LBP特征
- 数据结构学习之二叉树(面试易考题整理)
- 大道至简读书笔记(2)