Cómo quitar el último octeto en Perl

Según el índice de lenguaje TIOBE, Perl es uno de los lenguajes de programación más populares en el mundo. En el lenguaje de la creación de redes, un "octeto" se refiere a un conjunto de dígitos separados por puntos en una dirección IP. Perl incluye herramientas para la manipulación de cadenas. El último octeto puede ser retirado de una dirección IP en tan sólo unas pocas líneas de Perl. Además, Perl apoya el desarrollo interactivo; los programadores pueden escribir y ejecutar programas de forma simultánea.

Instrucciones

1 Abra un intérprete de Perl. Su ubicación dependerá de la ruta especificada durante la instalación de Perl.

2 Escriba el siguiente código:

$ IP = "192.168.2.1"

Esto crea la "IP", variable que contiene el valor de nuestra cadena.

3 Escriba el siguiente código:

@an_array = split (/./, $ IP)

Este código se divide la dirección IP en los períodos. Para eliminar el último elemento, utilice una rodaja de matriz como tal.

@an_array [0, -1]