作者bxorw (每天保持微笑)
看板Perl
标题Re: [问题] 这几行程式能写乘一个回圈吗？
时间Sat Apr 25 01:30:45 2009
自问自答一下好了...
我原本想要的功能是：我随机产生一段纯量字串...
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