Mega Code Archive

 

Categories / Perl / Hash

 

The delete Function

Format: delete $ASSOC_ARRAY{KEY} #!/usr/bin/perl %employees=(             "Tester" => "Joe",             "Coder" => "Teddy",             "Clerk" => "Tom",            ); $layoff=delete $employees{"Colder"}; print "We had to let $layoff go.\n"; while(($key, $value)=each(%employees)){     print "$key: $value\n"; }