|
Home
Languages
VB6
JavaScript
Perl
HTML
SQL
Java
DOS
Forums
Web Site
Software
gbCodeLib
Personal
Webcam
Biography
Contact Me
|
GBIC >>
Source Code >>
Perl >> Snippet
|
randomly extract from an array until all are gone
for
(0
..
$
#myarray) { #
$index
=
int
(
rand
$
#myarray);
print
“
$myarray
[
$index
] ;
splice
@myarray
,
$index
, 1
}
|
|
|
|