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

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 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 $hashref->{key1};
$hashref->{key1} = 'val1';
@{$hashref}{('key1', 'three')} = ('val1', -238.83);