Uso de impressão em perl
Sintaxe
Diferentes sintaxes do operador de impressão são fornecidas abaixo.
- Imprima String_value
O operador de impressão pode ser usado para imprimir qualquer valor de string usando citações únicas ou duplas. - Imprima variável_1, variável_2,…, variável_n
O operador de impressão pode ser usado para imprimir os valores de uma ou mais variáveis com ou sem outros valores de string. - Print file_handler string
O operador de impressão pode ser usado para ler no arquivo ou gravar no arquivo.
Valor de retorno
Esta função retorna 0 na falha e 1 no sucesso.
Diferentes usos do operador de impressão em Perl foram mostrados na próxima parte deste tutorial.
Exemplo 1: Imprima mensagens simples
Crie um arquivo Perl com o seguinte código que imprimirá duas mensagens de texto simples com a nova linha. O primeiro operador de impressão é usado para imprimir o texto usando cotações duplas. O segundo operador de impressão é usado para imprimir o texto usando citações únicas.
# Imprima uma mensagem usando citações duplas ("")
print ("Bem -vindo ao linuxhint \ n");
# Imprima uma mensagem usando citações únicas (")
print ('Learn Perl Programming', "\ n");
Saída:
A saída a seguir aparecerá após a execução do código acima.
Exemplo 2: Imprima vários valores de string
Crie um arquivo PERL com o código a seguir para imprimir vários valores de string usando vírgula (,) com um operador de impressão e usando barra verde (\) com dois operadores de impressão.
# Imprima vários valores de string usando o separador
print ("Bem -vindo ao Linuxhint."," "," Aprenda a programação perl do Linuxhint."," \ n ");
# Imprima várias strings usando duas funções de impressão ()
print ("Bem -vindo ao Linuxhint."); \
Imprima ("Aprenda a programação perl do Linuxhint."," \ n ");
Saída:
A saída a seguir aparecerá após a execução do código acima.
Exemplo 3: Imprima uma ou mais variáveis
Uma ou mais variáveis podem ser impressas usando o operador de impressão com as citações duplas (“). Crie um arquivo Perl com o seguinte código que imprimirá uma única variável, duas variáveis e as variáveis com outros valores de string. Uma única variável foi impressa usando citações duplas (“) com o operador de impressão. Duas variáveis de string foram impressas sem usar as cotações com o operador de impressão. Uma string e um valor numérico foram impressos com outros valores de string usando o operador de impressão. Aqui, o backslash (\) esteve com o "$" para imprimir "$" na saída porque esse símbolo é usado para declarar a variável no Perl.
# Defina uma variável de string
$ string1 = 'hello';
# Imprima a variável
imprimir "$ string1 \ n";
# Defina outra variável de string
$ string2 = 'mundo';
# Imprima duas variáveis de string
imprimir $ string1, $ string2, "\ n";
# Defina outro valor de string
$ book_name = "Perl Programming";
# Defina um valor numérico
$ preço = 35;
# Imprima as variáveis com outras strings usando vírgula (,)
Imprima "The Price Of", $ book_name, "livro é \ $", $ price, ".\ n ";
# Imprima as variáveis com outras seqüências usando DOT (.)
imprimir "o preço de".$ book_name."O livro é \ $".$ preço.".\ n ";
Saída:
A saída a seguir aparecerá após a execução do código acima.
Exemplo-4: Imprima o cálculo aritmético
O resultado de qualquer cálculo aritmético pode ser impresso diretamente usando o operador de impressão. Crie um arquivo Perl com o seguinte código que imprimirá a multiplicação de duas variáveis numéricas e imprimirá o resultado de uma expressão aritmética.
# Defina dois valores numéricos
$ n1 = 45;
$ n2 = 5;
# Imprima o resultado da multiplicação das variáveis
imprimir "O resultado da multiplicação é".$ n1*$ n2."\ n";
# Imprima o resultado calculado da expressão matemática
imprimir "o resultado da expressão =", 2+6*7, "\ n";
Saída:
A saída a seguir aparecerá após a execução do código acima. A multiplicação de duas variáveis que têm os valores 45 e 5 é 225. O resultado da expressão aritmética, 2+6*7, é 44.
Exemplo 5: Escreva em um arquivo
Crie um arquivo Perl com o seguinte código que abrirá um arquivo para escrever e adicionar uma linha de texto usando o operador de impressão. Um arquivo de texto nomeado Temp.TXT foi aberto para escrever usando um abrir função no código. Se o arquivo existia antes, o conteúdo do arquivo será substituído pelo novo conteúdo. O arquivo será fechado usando a função de fechamento após concluir a operação de gravação.
# Abra o manipulador de arquivos para gravar em um arquivo
aberto fh, "> temp.TXT"
# Mensagem de erro de impressão
ou morrer "incapaz de criar o arquivo.";
# Escreva o valor da string no arquivo
imprima fh "Adicione texto ao arquivo \ n";
# Feche o arquivo
fechar fh
# Mensagem de erro de impressão
ou morrer "incapaz de fechar o arquivo.\ n ";
Saída:
A saída a seguir aparecerá após a execução do código acima. O comando "CAT" foi executado para verificar se o arquivo é criado corretamente ou não.
Exemplo 6: Leia de um arquivo
Crie um arquivo PERL com o seguinte código que abrirá um arquivo para leitura, itera o conteúdo do arquivo usando um loop e imprimirá cada linha do arquivo usando o operador de impressão. Um arquivo de texto nomeado meu arquivo.TXT foi aberto para leitura usando o abrir função no código. Se o arquivo não existir, uma mensagem de erro será impressa. O arquivo será fechado usando o fechar função depois de concluir a operação de leitura.
# Abra o manipulador de arquivos para gravar em um arquivo
aberto fh, "< myfile.txt"
# Mensagem de erro de impressão
ou morrer "incapaz de abrir o arquivo.";
# Lendo o arquivo
enquanto()
# Imprima a linha
imprimir $ _;
# Feche o arquivo
fechar fh
# Mensagem de erro de impressão
ou morrer "incapaz de fechar o arquivo.\ n ";
Saída:
A saída a seguir aparecerá após a execução do código acima. O comando "CAT" foi executado para verificar o conteúdo do arquivo.
Conclusão
A maneira de usar o imprimir Operador em Perl para imprimir valores ou variáveis de string simples ou múltiplas, ler em um arquivo e gravar um arquivo foi mostrado neste tutorial usando vários exemplos.