Date: Thu, 17 Oct 2013 12:43:30 +0000 (UTC) From: Peter Holm <pho@FreeBSD.org> To: src-committers@freebsd.org, svn-src-user@freebsd.org Subject: svn commit: r256683 - user/pho/stress2/tools Message-ID: <201310171243.r9HChUda076018@svn.freebsd.org>
next in thread | raw e-mail | index | archive | help
Author: pho Date: Thu Oct 17 12:43:29 2013 New Revision: 256683 URL: http://svnweb.freebsd.org/changeset/base/256683 Log: Added tool for shuffling tests for hosts that does not have perl or random(6) installed. Sponsored by: EMC / Isilon storage division Added: user/pho/stress2/tools/shuffle (contents, props changed) Added: user/pho/stress2/tools/shuffle ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ user/pho/stress2/tools/shuffle Thu Oct 17 12:43:29 2013 (r256683) @@ -0,0 +1,49 @@ +#!/usr/bin/awk -f + +# +# Copyright (c) 2013 EMC Corp. +# All rights reserved. +# +# Redistribution and use in source and binary forms, with or without +# modification, are permitted provided that the following conditions +# are met: +# 1. Redistributions of source code must retain the above copyright +# notice, this list of conditions and the following disclaimer. +# 2. Redistributions in binary form must reproduce the above copyright +# notice, this list of conditions and the following disclaimer in the +# documentation and/or other materials provided with the distribution. +# +# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND +# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE +# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS +# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) +# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT +# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY +# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF +# SUCH DAMAGE. +# +# $FreeBSD$ +# + +# Shuffle arguments. Alternative to: +# perl -e 'print splice(@ARGV,rand(@ARGV),1), " " while @ARGV;' +# or +# echo $list | tr ' ' '\n' | random -w | tr '\n' ' ' + +BEGIN { + srand(); rand +} +{ + n = split($0, a, " ") + for (i = 1; i <= n ; i++) { + do + ix = int(rand * n) + 1 + while (! (ix in a)) + printf "%s ", a[ix] + delete a[ix] + } + printf "\n" +}
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201310171243.r9HChUda076018>