Help for this page

Select Code to Download


  1. or download this
    $hash{$_} ||= 1 + keys %hash for @list;
$hash{$_} = $hash{$_} || 1 + keys %hash for @list;
  2. or download this
    for ( @list ) {
    $hash{$_} ||= ( 1 + keys %hash );
...
for ( @list ) {
    $hash{$_} = ( $hash{$_} || ( 1 + keys %hash ) );
}
  3. or download this
    $hash{$_} ||= 1 + keys %hash;

# looks more like:

( $hash{$_} = $hash{$_} ) || ( $hash{$_} = 1 + keys %hash )