perl function delete

The delete function in Perl is used to remove a key-value pair from a hash. Here's an example of how to use delete:

my %hash = (
  foo => 'bar',
  baz => 'qux',
  quux => 'corge'
);

print "Before deletion:\n";
foreach my $key (keys %hash) {
  print "$key => $hash{$key}\n";
}

delete $hash{'baz'};

print "After deletion:\n";
foreach my $key (keys %hash) {
  print "$key => $hash{$key}\n";
}

In this example, a hash %hash is defined with three key-value pairs. The delete function is used to remove the key-value pair with the key "baz" from the hash. Then, two foreach loops are used to print the contents of the hash before and after the deletion.

The output of this script is:

Before deletion:
foo => bar
baz => qux
quux => corge
After deletion:
foo => bar
quux => corge

As you can see, the key-value pair with the key "baz" has been removed from the hash after the call to delete.

It's important to note that if the key being deleted doesn't exist in the hash, delete will do nothing and return undef. Therefore, it's a good idea to check the return value of delete to ensure that the key was actually deleted.