Comprimento da corda Perl

“A função perl comprimento () é usada para contar o número total de caracteres de uma string. O valor da string é passado como o argumento da função do comprimento () e o número total de caracteres é retornado por esta função. Se nenhum valor de argumento for passado para esta função, essa função contará o total de caracteres da variável escalar, $ _. Os usos desta função foram mostrados neste tutorial.”

Sintaxe
As sintaxes da função do comprimento () de Perl são dadas abaixo.

1. comprimento
   A função comprimento () sem qualquer argumento retornará o comprimento da variável, $ _.
2. comprimento (variável)
   A função comprimento () com a variável de argumento retornará o comprimento da variável de argumento.

Diferentes usos do script perl foram mostrados na próxima parte deste tutorial.

Exemplo 1: conte o comprimento da variável $ _

Crie um arquivo Perl com o seguinte código que contará o número total de caracteres do valor da string armazenados na variável escalar. Um valor de string foi armazenado na variável escalar. O imprimir O operador tem sido usado para imprimir o valor da variável escalar. O comprimento() função sem argumento foi usada para contar o comprimento da variável escalar. Em seguida, o valor de retorno do comprimento() A função foi impressa.

imprimir "o valor da variável escalar: \ n";
# Defina a variável especial $ _
$ _ = "Bem -vindo ao linuxhint \ n";
# Imprima o valor de $ _
imprimir;
# Conte o comprimento de $ _
$ total = comprimento;
# Imprima o número total de caracteres
imprimir "Número total de caracteres: $ total \ n";

Saída:

A saída a seguir aparecerá após a execução do código acima.

Exemplo-2: conte o comprimento da variável da string

Crie um arquivo Perl com o seguinte código que contará o número total de caracteres da variável string. O nome de usuário e a senha serão retirados do usuário e armazenados em duas variáveis, $ nome de usuário e $ senha. A função chomp () foi usada para remover a nova linha das variáveis. A função Length () foi usada aqui para contar o comprimento do nome de usuário e os valores de senha $. Se a duração do nome de US $ 6, então a mensagem, “O nome de usuário deve conter 6 caracteres.” será impresso. Se o comprimento da senha $ for menor que 6 e superior a 12, então a mensagem, “A senha pode ter de 6 a 12 caracteres.” será impresso. Depois de validar os valores de entrada, se o valor do nome de usuário $ for "fahmida" e a senha $ for "secreta", uma mensagem de sucesso será impressa; Caso contrário, uma mensagem de falha será impressa.

# Pegue a entrada do usuário
Imprima "Enter Nome de usuário: \ n";
$ nome de usuário = < >;
# Remova o personagem Newline
chomp ($ nome de usuário);
Imprima "Enter senha: \ n";
$ senha = < >;
# Remova o personagem Newline
chomp ($ senha);
# Verifique a duração da variável de nome de usuário
if (comprimento ($ nome de usuário) < 6)

Die "Nome de usuário deve conter 6 caracteres.\ n ";

if (comprimento ($ senha) < 6 || length($password) > 12)

die "A senha pode ter de 6 a 12 caracteres.\ n ";

# Verifique o comprimento da variável de senha $
if ($ nome de usuário eq 'fahmida' && $ senha eq 'secret')

Imprima "Usuário autenticado.\ n ";

outro

Imprima "Usuário não autenticado.\ n ";

Saída:
A saída a seguir será exibida após a execução do código com o nome de usuário válido, mas entradas de senha inválidas. O valor de entrada, "Fahmida", é dados válidos e o nome de usuário correto. O valor de entrada, "1234", é dados inválidos.

A saída a seguir será exibida após a execução do código com o nome de usuário inválido, mas senha válida. O valor de entrada, "admin", é dados inválidos. O valor de entrada, "Secret", é dados válidos e a senha correta.

A saída a seguir será exibida após a execução do código com o nome de usuário válido, mas senha incorreta. O valor de entrada, "Fahmida", é dados válidos e o nome de usuário correto. O valor de entrada, "123456", é dados válidos, mas uma senha incorreta.

A saída a seguir será exibida após a execução do código com o nome de usuário e senha corretos. O valor de entrada, "Fahmida", é dados válidos e o nome de usuário correto. O valor de entrada, "Secret", é dados válidos e a senha correta.

Exemplo 3: conte o comprimento da variável de string em bytes

Você tem que usar o bytes módulo para contar o comprimento das cordas em bytes. Crie um arquivo Perl com o seguinte código que usa o bytes módulo para contar o comprimento dos dados de string fornecidos em formato hexadecimal. O valor original da string e o número de bytes desse valor de string serão impressos posteriormente.

usar bytes;
# Defina dados de string por valor hexadecimal
$ data = "\ x 35 \ x 250 \ x 245 \ n";
# Imprima o valor da string dos dados hexadecimais
imprimir "o valor da string is", $ data;
# Imprima o comprimento da string em bytes
Imprima "O comprimento da string é:", comprimento ($ dados) ", bytes."," \ n ";

Saída:
A saída a seguir aparecerá após a execução do código.

Exemplo-4: conte o comprimento de cada elemento da matriz

Crie um arquivo perl com o seguinte código que contará o comprimento de cada valor da string da matriz. Uma matriz de 4 valores de string foi definida no código. O para cada O loop foi usado aqui para iterar os valores da matriz e, contagem e o comprimento de cada valor da matriz.

# Declare uma variedade de cordas
@UserNames = ("Nupur22", "Hossainbd", "Kamal12", "Bela89");
# Itera os valores da matriz usando o loop
para ($ i = 0; $ i <= $#usernames; $i++)

# Conte o comprimento de cada valor da matriz
$ len = comprimento ($ nomes de usuário [$ i]);
# Imprima o comprimento do valor da matriz
imprimir "O comprimento de US $ usuários [$ i] é $ len \ n";

Saída:
A saída a seguir aparecerá após a execução do código.

Conclusão

Os usos da função Length () para contar o comprimento do valor da string e aplicar a saída da função Length () para diferentes fins foram mostrados neste tutorial usando exemplos Perl. Espero que este tutorial ajude os usuários do Perl a usar a função Length () para contar o comprimento da string em seu código corretamente.