Longitud de la cuerda perl
Sintaxis
Las sintaxis de la función de longitud () de Perl se dan a continuación.
- longitud
La función de longitud () sin ningún argumento devolverá la longitud de la variable, $ _. - Longitud (variable)
La función longitud () con la variable de argumento devolverá la longitud de la variable de argumento.
Se han mostrado diferentes usos del script Perl en la siguiente parte de este tutorial.
Ejemplo-1: Cuente la longitud de la variable $ _
Cree un archivo Perl con el siguiente código que contará el número total de caracteres del valor de cadena almacenado en la variable escalar. Se ha almacenado un valor de cadena en la variable escalar. El imprimir El operador se ha utilizado para imprimir el valor de la variable escalar. El longitud() La función sin ningún argumento se ha utilizado para contar la longitud de la variable escalar. A continuación, el valor de retorno del longitud() la función se ha impreso.
imprima "El valor de la variable escalar: \ n";
# Defina la variable especial $ _
$ _ = "Bienvenido a Linuxhint \ n";
# Imprima el valor de $ _
imprimir;
# Cuenta la longitud de $ _
$ total = longitud;
# Imprimir el número total de caracteres
Imprimir "Número total de caracteres: $ Total \ n";
Producción:
La siguiente salida aparecerá después de ejecutar el código anterior.
Ejemplo-2: Cuente la longitud de la variable de cadena
Cree un archivo Perl con el siguiente código que contará el número total de caracteres de la variable de cadena. El nombre de usuario y la contraseña se tomarán del usuario y se almacenarán en dos variables, $ username y $ contraseña. La función Chomp () se ha utilizado para eliminar la nueva línea de las variables. La función de longitud () se ha utilizado aquí para contar la longitud de los valores de $ username y $ contraseña. Si la longitud del nombre de usuario $ es inferior a 6, entonces el mensaje, "El nombre de usuario debe contener 6 caracteres." se imprimirá. Si la longitud de la contraseña $ es inferior a 6 y mayor que 12, entonces el mensaje, "La contraseña puede tener de 6 a 12 caracteres." se imprimirá. Después de validar los valores de entrada, si el valor del nombre de usuario $ es "fahmida" y la contraseña $ es "secreta", entonces se imprimirá un mensaje de éxito; de lo contrario, se imprimirá un mensaje de falla.
# Tome la entrada del usuario
Imprimir "Ingrese el nombre de usuario: \ n";
$ username = < >;
# Eliminar el carácter de Newline
Chomp ($ UserName);
Imprimir "Ingrese la contraseña: \ n";
$ contraseña = < >;
# Eliminar el carácter de Newline
Chomp ($ contraseña);
# Verifique la longitud de la variable $ UserName
if (longitud ($ nombre de usuario) < 6)
Die "El nombre de usuario debe contener 6 caracteres.\norte";
if (longitud ($ contraseña) < 6 || length($password) > 12)
Die "La contraseña puede durar de 6 a 12 caracteres.\norte";
# Verifique la longitud de la variable $ contraseña
if ($ username eq 'fahmida' && $ contraseña eq 'secreto')
imprimir "usuario autenticado.\norte";
demás
Imprimir "Usuario no autenticado.\norte";
Producción:
La siguiente salida aparecerá después de ejecutar el código con el nombre de usuario válido pero las entradas de contraseña no válidas. El valor de entrada, "fahmida", son datos válidos y el nombre de usuario correcto. El valor de entrada, "1234", son datos no válidos.
La siguiente salida aparecerá después de ejecutar el código con el nombre de usuario no válido pero una contraseña válida. El valor de entrada, "administrador", son datos no válidos. El valor de entrada, "secreto", son datos válidos y la contraseña correcta.
La siguiente salida aparecerá después de ejecutar el código con el nombre de usuario válido pero una contraseña incorrecta. El valor de entrada, "fahmida", son datos válidos y el nombre de usuario correcto. El valor de entrada, "123456", son datos válidos pero una contraseña incorrecta.
La siguiente salida aparecerá después de ejecutar el código con el nombre de usuario y la contraseña correctos. El valor de entrada, "fahmida", son datos válidos y el nombre de usuario correcto. El valor de entrada, "secreto", son datos válidos y la contraseña correcta.
Ejemplo-3: Cuente la longitud de la variable de cadena en bytes
Tienes que usar el bytes módulo para contar la longitud de las cuerdas en bytes. Crear un archivo perl con el siguiente código que usa el bytes Módulo para contar la longitud de los datos de cadena dados en formato hexadecimal. El valor de cadena original y el número de bytes de ese valor de cadena se imprimirán más tarde.
usar bytes;
# Definir datos de cadena por valor hexadecimal
$ data = "\ x 35 \ x 250 \ x 245 \ n";
# Imprimir el valor de cadena de los datos hexadecimales
imprimir "El valor de la cadena es", $ datos;
# Imprima la longitud de la cadena en bytes
Imprimir "La longitud de la cadena es:", Longitud ($ Data) ", Bytes."," \ n ";
Producción:
La siguiente salida aparecerá después de ejecutar el código.
Ejemplo-4: Cuente la longitud de cada elemento de matriz
Cree un archivo Perl con el siguiente código que contará la longitud de cada valor de cadena de la matriz. Se ha definido una matriz de 4 valores de cadena en el código. El para cada El bucle se ha utilizado aquí para iterar los valores de la matriz y contar y la longitud de cada valor de la matriz.
# Declarar una variedad de cuerdas
@usernames = ("nupur22", "hossainbd", "kamal12", "bela89");
# Iterar los valores de la matriz usando para bucle
para ($ i = 0; $ i <= $#usernames; $i++)
# Cuenta la longitud de cada valor de matriz
$ len = longitud ($ usernames [$ i]);
# Imprima la longitud del valor de la matriz
imprimir "La longitud de $ UserNames [$ i] es $ len \ n";
Producción:
La siguiente salida aparecerá después de ejecutar el código.
Conclusión
Los usos de la función longitud () para contar la longitud del valor de la cadena y aplicar la salida de la función longitud () para diferentes propósitos se ha mostrado en este tutorial utilizando ejemplos de perl. Espero que este tutorial ayude a los usuarios de Perl a usar la función Longitud () para contar la longitud de la cadena en su código correctamente.