Perl: random select

perleo · #1 (**permalink**) 02-15-2003

How do I:

1. Have a list of names. JOE, JOHN, PETER, PAT.
how do i get perl to randomly select any two and put them in $name1 and put the other two in $name2 ?

cbkihong · #2 (**permalink**) 02-15-2003

Possibly there are more efficient ways of doing it, but ...

PHP Code:


			
@names = ('A', 'B', 'C', 'D');

$counter = 0;

while ($counter < 2) {

    my $subscript = rand(@names)+1;

    if (defined $names[$subscript]) {

        push @name1, $names[$subscript];

        $names[$subscript] = undef;

        $counter++;

    }

}



for (@names) {

    push @name2, $_ if defined;

}

More UNIX and Linux Forum Topics You Might Find Helpful
Thread	Thread Starter	Forum	Replies	Last Post
$random	relle	Shell Programming and Scripting	6	07-11-2008 05:59 AM
generate random number in perl	zx1106	Shell Programming and Scripting	2	03-18-2008 12:13 AM
Random	keyvan	Shell Programming and Scripting	8	05-24-2007 12:11 PM
Getting a random file	davidY	Shell Programming and Scripting	6	01-01-2007 05:03 AM
random in ksh	pascalbout	AIX	1	01-04-2006 10:53 AM

Thread Tools	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode	Rate This Thread:


	Powered by