Help for this page

Select Code to Download


  1. or download this
    while ( <DATA> ) {
        my ( $key, $val ) = /^(\d+)\s+(\w+)/;
        $val = lc($val);
        $dict{ $val } = $key;
        }
    
  2. or download this
    my %dict;
    while ( <DATA> ) {
    ...
    1       cross
    2       reference
    3       cross