Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    
    my @unrandom = ("red", "orange", "yellow", "green", "blue", "indigo", 
    +"violet");
    ...
    }
    @ununrand = keys(%temphash);
    print "Unn:@unrandom\nRnd:@ununrand\n";
    
  2. or download this
    Unn:red orange yellow green blue indigo violet
    Rnd:blue orange green violet yellow red indigo