Associative array/Creation: Difference between revisions

Content added Content deleted
(Merge two entrys of Python)
(Move Perl to the correct position)
Line 204: Line 204:
let quux = try Hashtbl.find hash "quux" with Not_found -> some_value;;
let quux = try Hashtbl.find hash "quux" with Not_found -> some_value;;


==[[Perl]]==
[[Category:Perl]]
'''Interpeter:''' Perl


===Defining a Hash===

# using => key does not need to be quoted unless it contains special chars
my %hash = (
key1 => 'val1',
'key-2' => 2,
three => -238.83,
4 => 'val3',
);
# using , both key and value need to be quoted if containing something non-numeric in nature
my %hash = (
'key1', 'val1',
'key-2', 2,
'three', -238.83,
4, 'val3',
);

===Defining a HashRef===

my $hashref = {
key1 => 'val1',
'key-2' => 2,
three => -238.83,
4 => 'val3',
}

===Using a Hash===

print $hash{'key1'};
$hash{'key1'} = 'val1';
@hash{'key1', 'three'} = ('val1', -238.83);

===Using a HashRef===

print $hash->{'key1'};
$hash->{'key1'} = 'val1';
@hash->{'key1', 'three'} = ('val1', -238.83);


==[[PHP]]==
==[[PHP]]==
Line 302: Line 347:
// remove items where the key is <= 3
// remove items where the key is <= 3
map.filter {k => k._1 > 3} // Map(5 -> 6, 44 -> 99)
map.filter {k => k._1 > 3} // Map(5 -> 6, 44 -> 99)


==[[Perl]]==
[[Category:Perl]]
'''Interpeter:''' Perl

===Defining a Hash===

# using => key does not need to be quoted unless it contains special chars
my %hash = (
key1 => 'val1',
'key-2' => 2,
three => -238.83,
4 => 'val3',
);
# using , both key and value need to be quoted if containing something non-numeric in nature
my %hash = (
'key1', 'val1',
'key-2', 2,
'three', -238.83,
4, 'val3',
);

===Defining a HashRef===

my $hashref = {
key1 => 'val1',
'key-2' => 2,
three => -238.83,
4 => 'val3',
}

===Using a Hash===

print $hash{'key1'};
$hash{'key1'} = 'val1';
@hash{'key1', 'three'} = ('val1', -238.83);

===Using a HashRef===

print $hash->{'key1'};
$hash->{'key1'} = 'val1';
@hash->{'key1', 'three'} = ('val1', -238.83);


==[[Smalltalk]]==
==[[Smalltalk]]==