Help for this page

Select Code to Download


  1. or download this
    my $str="17:43:33:21:23:19:27:6";
  2. or download this
    %hash=(17=>43,
       33=>21,
       23=>19,
       27=>6);
  3. or download this
    scalar(grep/$hash{$key}/@ary)==$key;
  4. or download this
    my $str="17:43:33:21:23:19:27:6";
my %hash=split/:/,$str;
...
    push (@ary, map{$hash{$k}}(1..$k));
}
my $adId=$ary[int(rand(100))];