Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
PRAC 2 #5
%course = ('CPC1019',32,'PYTHON',56,'JAVA',30,'C',20,'PERL',25); #%course1 = ('CPC1019'=>32,'PYTHON'=>56,'JAVA'=>30,'C'=>20,'PERL'=>25); #%course2 = (-CPC1019 => 32, -PYTHON => 56, -JAVA => 30, -C => 20, -PERL => 25); @keys = keys %course; $size = @keys; print "1 - Hash size: is $size\n"; @values = values %course; $size = @values; print "2 - Hash size: is $size\n"; $course{'ECCF'} = 55; @keys = keys %course; $size = @keys; print " Hash size: is $size\n"; # delete the same element from the hash; delete $course{'ECCF'}; @keys = keys %course; $size = @keys; print "Hash size: is $size\n"; foreach my $key (sort(keys %course)) { print $key, '=', $course{$key}, "\n"; } foreach my $key (sort {$course{$a} cmp $course{$b}} keys %course) { print "$key: $course{$key}\n"; }
run
|
edit
|
history
|
help
0
test hello world perl n texs
Prac 2 #2
Array_with_unshift_function
101744
taller in front
Arrayop
Updated Safe 2.1 Solution
test321
2nd
array_value