Help for this page

Select Code to Download


  1. or download this
        push @{ $machinearray{$machine} }, $pwline;
    
  2. or download this
        my %machines = (
            machine1 => {
    ...
                user3 => 'pwline3',
            },
        );
    
  3. or download this
        if (!exists $machines{$machine}{$uname}) {
            ## User doesn't exist. Add him/her.
            $machines{$machine}{$uname} = $pwline;
        }