perl에서 쓴 랜덤 이야기 프로그램 (rand 랜덤 함수)

 
  
#!/bin/perl 
  
use 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 "
",$story,"
";  
  
   print "
Type \"quit\"to quit, or press Enter to continue:";  
  
   $input=;  
  
}  
  
#                 q    ，   ，     ，/^       ，/i         
  
until ($input=~/^\s*q/i);  
  
exit;