Help for this page

Select Code to Download


  1. or download this
    Win8 Strawberry 5.30.3.1 (64)  Sat 09/26/2020 11:37:04
    C:\@Work\Perl\monks
    >perl
    ...
    Use of uninitialized value $kards in concatenation (.) or string at - 
    +line 12.
    1: Num of 'K' in AKQJT98765432KKKK is ==
    2: Num of 'K' in AKQJT98765432KKKK is == 5
    
  2. or download this
    Win8 Strawberry 5.30.3.1 (64)  Sat 09/26/2020 12:14:28
    C:\@Work\Perl\monks
    ...
    s///:  Num of 'AQK' in 'AKQJT98765432KKKK' == 7
    m//:   Num of 'AQK' in 'AKQJT98765432KKKK' == 7
    tr///: Num of 'KAQ' in 'AKQJT98765432KKKK' == 7