Perl

程序员编写的程序叫做源代码，简称为源/代码。模块就是Perl代码的集合。 常用模块： 1）随机选取数组的一个元素： #!/usr/bin/perl -w use strict; use warnings; #声明变量 my $count; my $input; my $sentence; my $story; my @nouns = ('Dad', 'TV', 'Mom', 'Rebecca', Joe and Moe',); my @verbs = ('ran to', 'giggled with', 'jumped with', dissolved', 'sang stupid songs with',); my @preposition = ('at the store', over the rainbow', 'just for the fun of it', 'in a dream', in New York City',); #随机选取数组的一个元素 srand( time | $$ ); #time：进程ID； |：位或； $$：设置随机化种子（指定种子，固定的种子每次得到的结果一样） do { $story = ''; #清空一个字符串 for ( $count = 0 ;$count < 6 ; $count++ ) { $sentence = $nouns[ int( rand( scalar @nouns ) ) ] . " " #函数scalar返回数组元素的个数 $verbs[ int( rand(7))] .$verbs[ int( rand( scalar @verbs ) ) ] . " " #rand(7)返回一个大于0，小于7的（伪）随机数，这是一个浮点数。 .$nouns[ int( rand( scalar @nouns ) ) ] . " " #$verbs[int(3.47429)]，[int(3.47429)]仅返回它的整数部分。 .$preposition[ int( rand( scalar @preposition ) ) ] . '. '; #$verbs(3)则返回数组nouns的第四个元素。 $story .= $sentence; $story .= =$story.$sentence } print "\n", $story, "\n" ; print "\nTepy "quit" to quit,or press Enter to continue: "; $input = ; }until ( $input =~ /^\s*q/i ); exit;

    2)在字符串中选取一个随机位置
      
    3)生成随机DNA（长度不一，每个位置上的碱基种类可能不同