Re: [問題] 這幾行程式能寫乘一個迴圈嗎?

看板Perl作者 (每天保持微笑)時間15年前 (2009/04/25 01:30), 編輯推噓0(000)
留言0則, 0人參與, 最新討論串3/5 (看更多)
自問自答一下好了... 我原本想要的功能是:我隨機產生一段純量字串... ex:$a=aadgadgsagtagvadsgdas... 接著我想做的是指定某一個位置後,取10個。 於是我後來使用這樣的方式得到我要的(這是網路上翻到的方法,小修改一番) sub num_rand { my $length = shift;#隨輸入的長度而定 my @a = ('0'..'x');#x為$a長度-10 my $b; $num = $b[rand @a]; foreach (1..$length) { $num_2 = substr $x, $num, 10;#隨機位置n~位置n+10 } return $num_2; } my $num_2 = &num_rand(10);#得到我要的答案... 感謝,前面Keelungman跟LiloHuang幫忙,謝謝<_ _> -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 59.127.21.174
文章代碼(AID): #19yVT6rn (Perl)
討論串 (同標題文章)
文章代碼(AID): #19yVT6rn (Perl)