Help for this page

Select Code to Download


  1. or download this
    my $Str = "AAAA001BBBB001CCCC000DDDD023EEEE012";
    my %H;
    ...
        my $i = substr($Str, 0, 3, '');
        %H{$s} = $i;
        }
    
  2. or download this
    Output:
    AAAA -> 001
    ...
    CCCC -> 000
    DDDD -> 023
    EEEE -> 012