从一个10000行文件随机抽取50行怎么实现

ashlv

x=10
awk 'BEGIN{srand();}{a[NR]=$0;}END{for(i=1;i<=FNR;i++)for(j=FNR;j>i;j--)if(rand()-0.5>0){k=a[i];a[i]=a[j];a[j]=k;}for(i=1;i<=10;i++)print a[i];}' t1

写个捣乱数组的方法,取前x个即可

justlooks

归结与填充array[50]数组，且每个元素不重复，并且在10000以下

Shell_HAT

1. for i in ` (for ((j=1;j<=100;j++)); do echo "$(($RANDOM%10000+1))"; done) | sort -u | head -50`; do
   
2.     sed -n "${i}p" urfile
   
3. done

复制代码

ywlscpl

1. awk 'BEGIN{srand();while (i<50) {n=int(rand()*1000)+1;if (!a[n]++) {i++;b[n]}}}NR in b' file

复制代码

ywlscpl

回复  99超人


    这个好像随机抽的不是50行呢？
expert1 发表于 2010-09-03 13:27

你的文件只有500行，1-1000随机数是501，当然就少了这501行

ztj111

回复 5# 99超人

你这个可以执行，谢谢了
    请问a[num];这个是什么意思
   NR in a 还有这个呢

ztj111

回复 15# ywlscpl


    这个也可以，和5楼的很像，谢谢

ztj111

回复 14# Shell_HAT


    这个在AIX上不能执行，可能在其他平台可以执行吧，AIX好像不支持这样的for循环模式。不过还是谢谢你