zsh-users
 help / color / mirror / code / Atom feed
From: DervishD <zsh@dervishd.net>
To: Zsh Users <zsh-users@sunsite.dk>
Subject: Re: Sorting file names randomly
Date: Sat, 23 Jul 2005 23:26:57 +0200	[thread overview]
Message-ID: <20050723212657.GA744@DervishD> (raw)
In-Reply-To: <20050723194240.GA32416@DervishD>

    Hi all :) and sorry for self-replying...

 * DervishD <zsh@dervishd.net> dixit:
>     A time ago (zsh-workers/19128) Bart explained me how to sort
> randomly a group of files. Namely, the solution is this:
> 
>     array=(*(e:'reply=%0(l..$RANDOM)$REPLY:))
>     array=(${(%)array)
[...]
>     Well, the problem is that the above doesn't work if you have to
> use more than one pattern, because the '(e' construct will affect
> only the last element. Since I don't know how many elements will be
> present, I cannot use an '(e' construct on each element. Moreover it
> would be very messy.

    I've written a not very good solution that at least works:

function shuffle () {

    emulate -L zsh 
    
    setopt nullglob globdots rcexpandparam
    
    RANDOM=`date +%s`
    [[ $# -eq 0 ]] && set '*'

    reply=($~*(e:'REPLY="${(l.5..0.)RANDOM} $REPLY"':))
    reply=(${(o)reply})
    reply=(${reply/#????? /})

    print -l $reply

    return 0
}
alias shuffle="noglob 'shuffle'"

    The function returns the list in the 'reply' array parameter, and
prints it on stdout.

    If anybody can make it better/shorter, suggestions are welcome ;)
The three array assignments can be probably shortened.

    Raúl Núñez de Arenas Coronado

-- 
Linux Registered User 88736 | http://www.dervishd.net
http://www.pleyades.net & http://www.gotesdelluna.net
It's my PC and I'll cry if I want to...


  reply	other threads:[~2005-07-23 21:24 UTC|newest]

Thread overview: 16+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2005-07-23 19:42 DervishD
2005-07-23 21:26 ` DervishD [this message]
2005-07-24  6:44   ` Bart Schaefer
2005-07-24  7:39     ` DervishD
2005-07-24  8:37     ` DervishD
2005-07-24  8:40       ` DervishD
2005-07-24 10:32         ` Bart Schaefer
2005-07-25  6:47           ` Bart Schaefer
2005-07-25 13:15           ` DervishD
2005-07-25 13:27           ` DervishD
2005-07-25 17:46             ` Bart Schaefer
2005-07-25 18:10               ` DervishD
2007-11-19  4:21     ` Clint Adams
2007-11-19  8:57       ` Bart Schaefer
2007-11-19  9:08         ` Bart Schaefer
2007-11-19 11:44         ` Clint Adams

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=20050723212657.GA744@DervishD \
    --to=zsh@dervishd.net \
    --cc=zsh-users@sunsite.dk \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox

	https://git.vuxu.org/mirror/zsh/

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).