aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Add all the A tasks

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 14:58:50 -07:00
parent 2dd7375f96
commit 051504d65b
1608 changed files with 18584 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
Task/Associative-array-Creation/Perl/associative-array-creation-1.pl Normal file
View file

@ -0,0 +1,15 @@
# 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',
);

5
Task/Associative-array-Creation/Perl/associative-array-creation-2.pl Normal file
View file

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

6
Task/Associative-array-Creation/Perl/associative-array-creation-3.pl Normal file
View file

@ -0,0 +1,6 @@
my $hashref = {
key1 => 'val1',
'key-2' => 2,
three => -238.83,
4 => 'val3',
}

5
Task/Associative-array-Creation/Perl/associative-array-creation-4.pl Normal file
View file

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