生成随即组合的方法

#!/bin/bash
#脚本开始
#初始化空数组array.
set -A array

#初始化数组下标.
i=0

#开始主循环.
while true;do

#产生随机数.
        rand=$(perl -e "print int rand($(($1+1)))")
        [[ $rand -eq 0 ]] && continue

#向数组array中添加不重复的元素.
        if ! echo ${array[*]}|tr ' ' '/n'|grep -q "/<$rand/>";then
                array[$i]=$rand.
                ((i+=1))
        else
                continue
        fi

#当数组array元素个数满足条件,跳出循环.
        ((${#array[*]}==$1)) && break
done

#导出数组.
export var=${array[*]}
set -A array $(echo $var);echo ${array[*]}|sed -e 's/ //g'|sed 's/.$//'
#脚本结束,取消脚本中无用变量
unset i rand var