Доброго времени суток, подскажите плиз - требуется в перле волучить рандомный текст из 6 знаков типа "rj84nv", как это можно реализовать?

• Random в Perl,naquad, 12:46 , 04-Июл-05
  • Random в Perl,naquad, 12:47 , 04-Июл-05
    • Random в Perl,Hostik, 13:04 , 04-Июл-05
• Random в Perl,allez, 12:52 , 04-Июл-05

>Доброго времени суток, подскажите плиз - требуется в перле волучить рандомный текст
>из 6 знаков типа "rj84nv", как это можно реализовать?

Решение в три секунды:
[root@TheNaquad ~]# perl -e 'my @table=('A'..'Z','1'..'9','a'..'z');$str="";for($i=0;$i<20;$i++){$str.=$table[int(rand(scal$r@table))]};print $str'

>>Доброго времени суток, подскажите плиз - требуется в перле волучить рандомный текст
>>из 6 знаков типа "rj84nv", как это можно реализовать?
>
>Решение в три секунды:
>[root@TheNaquad ~]# perl -e 'my @table=('A'..'Z','1'..'9','a'..'z');$str="";for($i=0;$i<20;$i++){$str.=$table[int(rand(scal$r@table))]};print $str'

Глюки konsole: scal$r@table)) - scalar(@table)

>>>Доброго времени суток, подскажите плиз - требуется в перле волучить рандомный текст
>>>из 6 знаков типа "rj84nv", как это можно реализовать?
>>
>>Решение в три секунды:
>>[root@TheNaquad ~]# perl -e 'my @table=('A'..'Z','1'..'9','a'..'z');$str="";for($i=0;$i<20;$i++){$str.=$table[int(rand(scal$r@table))]};print $str'
>
>
>Глюки konsole: scal$r@table)) - scalar(@table)

Спасибо все ок!

*