Help for this page

Select Code to Download


  1. or download this
      my @chars = ( "A" .. "Z", "a" .. "z". 0 .. 9 qw( ! @ $ % ^ & *) );
  2. or download this
      # attempt at looping
  unless ($_ ne @stored) {
    $pw = join(@chars[map{rand @chars} (1..17)];
  }
  3. or download this
      until ( $_ not in @stored )
  4. or download this
      while ( $_ in @stored )
  5. or download this
      $n_found = grep { $pw eq $_ } @stored;
  6. or download this
      while ( grep { $pw eq $_ } @stored )
  7. or download this
      $pw = join(@chars[map{rand @chars} (1..17)];
  while ( grep { $pw eq $_ } @stored ) {
    $pw = join(@chars[map{rand @chars} (1..17)];
  }
  8. or download this
      do {
    $pw = join(@chars[map{rand @chars} (1..17)];
  }
  while ( grep { $pw eq $_ } @stored );