Help for this page

Select Code to Download


  1. or download this
        ...
        my $key = <STDIN>;
    ...
        } else {
            $hash{$key} = $val;
        }
    
  2. or download this
    $VAR1 = {
              'bar' => 'val3',
    ...
                         'val2'
                       ]
            };
    
  3. or download this
        ...
        my $key = <STDIN>;
    ...
        my $val = <STDIN>;
        chomp($val);
        push @{$hash{$key}}, $val;
    
  4. or download this
    $VAR1 = {
              'bar' => [
    ...
                         'val2'
                       ]
            };