洗牌的技巧

sxqsir

高手们，能不能对列的取数也来个随机，而不仅仅是行？？这个shell一直是我期待的

寂寞烈火

原帖由 sxqsir 于 2006-7-31 16:53 发表
高手们，能不能对列的取数也来个随机，而不仅仅是行？？这个shell一直是我期待的

取出指定范围的随机数了,对行/列都是一样的呀

sxqsir

原帖由 寂寞烈火 于 2006-7-31 17:10 发表

取出指定范围的随机数了,对行/列都是一样的呀

老兄，列的取数没有随机的，我测过了。

寂寞烈火

原帖由 sxqsir 于 2006-7-31 17:19 发表

老兄，列的取数没有随机的，我测过了。

是这样的么?
/home/lee#cat txt
1 2 3 4 5 6 7
2 4 6 8 0
3 5 7 9
4 7 8 2 1
4 5 6 2 7
/home/lee#cat Rand
#!/bin/bash
while read line;do
array=($line)
echo ${array[$((RANDOM%${#array[@]}))]}
done<txt
/home/lee#sh Rand
2
8
3
2
6

sxqsir

你怎么只取出一列？
我用第三条shell：
awk 'BEGIN{srand()}{b[rand()" "NR]=$0}END{for(x in b)print b[x]}' data
data是一个n*n的文本文件，排序结果是行取随机，但每一行的内容（即列）没有改变。

waker

1. awk 'BEGIN{srand()}{for(i=1;i<=NF;i++)a[rand(),i]=$i;for(i in a)c=c" "a[i];sub(/^./,"",c);b[rand(),NR]=c;delete a;c=""}END{for(x in b)print b[x]}' urfile
   

复制代码

难道别人写那么多一点儿启发性都没有？

sxqsir

原帖由 waker 于 2006-7-31 17:51 发表
[code] awk 'BEGIN{srand()}{for(i=1;i<=NF;i++)a[rand(),i]=$i;for(i in a)c=c" "a;sub(/^./,"",c);b[rand(),NR]=c;delete a;c=""}END{for(x in b)print b[x]}' urfile
[/ ...

人笨了一点，但一定会好好学习，多谢老大指点，但运行结果是这样的：
awk: Syntax error
at line 1 of program << BEGIN{srand()}{for(i ... >>
context is
        BEGIN{srand()}{for(i=1;i<=NF;i++)a[rand(),i]=$i;for(i in a)c=c" "a;su
b(/^./,"",c);b[rand(),NR]=c;delete >>>  a; <<<
awk: illegal statement
at line 1 of program << BEGIN{srand()}{for(i ... >>

环境是sco5.0.5 ksh

寂寞烈火

原帖由 sxqsir 于 2006-7-31 18:24 发表

人笨了一点，但一定会好好学习，多谢老大指点，但运行结果是这样的：
awk: Syntax error
at line 1 of program << BEGIN{srand()}{for(i ... >>
context is
        BEGIN{srand()}{for(i=1; ...

用nwak/gwak
waker老大常怎么说

$CO是仅次于M$的bugware生产大户

sxqsir

os是死的，程序是活的

waker

仔细man一下你$co中awk怎么用吧，看看它的delete怎么用，唾沫不是天天都有