Delete() en Perl se usa para eliminar las claves especificadas y sus valores asociados de un hash, o los elementos especificados en el caso de una array. Esta operación solo funciona en elementos o sectores individuales.
Sintaxis: eliminar (LISTA)
Parámetros:
LISTA que se va a borrarDevuelve:
undef si la clave no existe; de lo contrario, devuelve el valor asociado con la clave eliminada
Ejemplo 1: Implementando delete() en un Hash
#!/usr/bin/perl # Initializing hash %hash1 = ('Geeks' => 45, 'for' => 30, 'Now' => 40); # To delete the List passed as parameter $deleted_element = delete($hash1{'for'}); # Printing elements of Hash print "$hash1{'Geeks'}\n"; print "$hash1{'for'}\n"; print "$hash1{'Now'}\n"; # Printing the deleted element print "Deleted element: $deleted_element";
Producción:
45 40 Deleted element: 30
Ejemplo 2: Implementando delete() en una array
#!/usr/bin/perl # Initializing array @array1 = (10, 20, 30, 40, 50, 60); # To delete the array element at index 2 $deleted_element = delete(@array1[2]); # Printing elements of Array print "Updated Array: @array1"; # Printing the deleted element print "\nDeleted element: $deleted_element";
Producción:
Updated Array: 10 20 40 50 60 Deleted element: 30