Help for this page

Select Code to Download


  1. or download this
    my @uids = ....;   # List of used UIDs
my %uids; @uids{@uids} = ();
my $uid = 1001;
{$uid++, redo if exist $uids{$uid}}
say "First unused uid: $uid";
  2. or download this
    my @uids = ....;  # List of sorted uids
my $uid = 1001;
...
    $uid++;
}
say "First unused uid: $uid";