¿Cómo puedo eliminar los últimos siete caracteres de un valor hash en Perl?

Question

Necesito cortar los últimos siete caracteres de una cadena (una cadena que está almacenada en un hash). ¿Cuál es la forma más fácil de hacer eso en Perl? ¡Muchas gracias de antemano!

Answer 1

Con substr():

substr($string, 0, -7); 

le sugiero que lea la página Perldoc en substr() (que he vinculado a arriba) antes de simplemente copiar y pegar esto en su código. Hace lo que usted solicitó, pero substr() es una función muy útil y versátil, y le sugiero que comprenda todo lo que puede usar (leyendo la documentación).

Además, en el futuro, considere buscar en Google su pregunta (o, en el caso de Perl, buscándola en Perldoc) antes de preguntar aquí. Puede encontrar excelentes recursos en cosas como esta sin tener que hacer preguntas aquí. No para dejar tu pregunta, pero es bastante simple, y creo que si lo intentaras, podrías encontrar la respuesta por tu cuenta.

Answer 2

Utilice la función perl substr, pero haga que el argumento "longitud" sea negativo. Ejemplo:

#!/usr/bin/perl 

my $string = "string"; 
$short = substr($string, 0, -3); 
printf $short . "\n";

Esto devolverá la cadena "str" ​​con una nueva línea, ya que se especifique truncar los tres últimos caracteres. Eche un vistazo al Perl documentation on substr().

Answer 3

para eliminar los últimos 7 caracteres:

substr($str, -7) = ''; 

o el poco elegante

substr($str, -7, length($str), ''); 

Para obtener todos menos los últimos 7 caracteres:

substr($str, 0, -7)