推 copnew:謝謝，我待會來試試 08/26 13:15
※ 引述《laiis (你今天集點了嗎?)》之銘言：
: ※ 引述《copnew (newcop)》之銘言：
: : 之前看過前同事寫過亂數程式
: 呃... 我不會用 srand() ...
--43--
#!/usr/bin/perl
#!用來亂數選餐的 script
#!Date 2010 08 25
@choice=("麥當勞","肯得雞","吉野家","萌","西野司","其他自己比照格式加入");
$size=@choice;
print "選擇有以下...\n";
for( $i=0; $i<$size; $i++ )
{
printf "%02d:%s\n",$i+1,$choice[$i];
}
do
{
$bar= int(rand($size));
print "\n今日選擇是 : $choice[$bar]\n";
print "離開請按 q 或按其他鍵重新選擇...\n";
chomp($input= <>);
}while( $input ne "q" );
用perl才會有用到 rand 或 srand 吧...如果 perl 執行路徑不是 /usr/bin/perl
那第一行自己改一下...
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 58.114.209.74