复制代码 代码如下:#!/bin/perluse strict; use warnings; #定义变量 my $count; my $input; my $number; my $sentence; my $story; #定义四个数组 #定义了人物数组 my @nouns= ( \’Dad\’, \’TV\’, \’Mom\’, \’Groucho\’, \’Rebecca\’, \’Harpo\’, \’Robin Hood\’, \’Joe and Moe\’, ); #定义了动作数组 my @verbs= ( \’ran to\’, \’giggled with\’, \’put hot sauce into the orange juice of\’, \’exploded\’, \’dissolved\’, \’dissolved\’, \’sang stupid songs with\’, \’jumped with\’, ); #定义了地点数组 my @prepositions= ( \’at the store\’, \’over the rainbow\’, \’at the beach\’, \’before dinner\’, \’in New York City\’, \’in a dream\’, \’around the world\’, ); do { #每次运行以前,清空$story的内容 $story=\’\’; #以下是随机组合生成故事 for ($count =0;$count<6;$count++) { #我们划分一下结构,scalar @nouns 是获取@nouns数组元素的个数,然后用rand总这几个数中随机生成几个,最后int是将得到的数取整 $sentence =$nouns[int(rand(scalar @nouns))] .\” \” .$verbs[int(rand(scalar @verbs))] .\” \” .$nouns[int(rand(scalar @nouns))] .\” \” .$prepositions[int(rand(scalar @prepositions))] .\’.\’; $story .=$sentence; } print \”\\n\”,$story,\”\\n\”; print \”\\nType \\\”quit\\\”to quit, or press Enter to continue:\”; $input=<STDIN>; } #这里是利用正则表达式来匹配首字符是q的字符串,如果有,那么就退出,/^是匹配起始位置,/i是不区分大小写 until ($input=~/^\\s*q/i); exit;
您可能感兴趣的文章:
- sql server中随机函数NewID()和Rand()
- python中随机函数random用法实例
- php中随机函数mt_rand()与rand()性能对比分析
- Oracle随机函数之dbms_random使用详解
- php数组函数序列 之shuffle()和array_rand() 随机函数使用介绍
- 如何产生真正的随机函数?
- 如何利用当前时间生成随机函数?
- 详解C语言中rand函数的使用