Re: [問題] 這幾行程式能寫乘一個迴圈嗎?
自問自答一下好了...
我原本想要的功能是:我隨機產生一段純量字串...
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
討論串 (同標題文章)
以下文章回應了本文:
完整討論串 (本文為第 3 之 5 篇):