Perl - entrada / saída básica

Perl - entrada e saída padrão

Perl permite que você grave na saída padrão, chamada STDOUT e leia a entrada padrão (STDIN). Estes dois descritores são fornecidos pelo sistema operacional, permite a leitura da entrada do teclado e a exibição de dados na tela. De fato, o Perl é baseado em sistemas UNIX, nos quais a entrada-saída é considerada um arquivo.

Por exemplo, em um servidor da Web usando scripts CGI, a entrada padrão é a solicitação HTTP e a saída padrão a resposta HTTP.

Lendo a entrada padrão

Os dados provenientes da entrada padrão (definidos pelo sistema operacional) estão disponíveis no ambiente Perl por meio do descritor. Desta forma, é possível recuperar (linha por linha) o conteúdo deste descritor usando uma variável específica e um operador de atribuição:

 $ var = 

Também é possível usar uma variável array na qual iremos concatenar cada linha:

 @var = 

Desta forma, através de um loop, você pode recuperar todas as linhas da entrada padrão. Quando não há mais linhas disponíveis na entrada padrão, ele retorna o valor "undef", o que significa que nenhum valor é definido e o loop termina. Um exemplo de um loop:

 while ($ var =) {// instruções} 

Escrevendo para stdout

Para gravar na saída padrão, use apenas a função print ():

 $ var = 'Olá'; print ($ var. 'world'); 

Essas instruções têm o efeito de enviar a string "Hello World" para a saída padrão. Aqui, o operador de concatenação (".") Foi usado para unir as duas cadeias. Também é possível usar aspas duplas para interpolar a variável $ var, ou seja, substituir seu conteúdo:

 $ var = 'olá'; print ("$ var world"); 

Esta função também pode ser usada em uma sintaxe radicalmente diferente, tornando mais aparente o papel da saída padrão (STDOUT):

 $ var = 'Olá'; imprime STDOUT $ var; 

Na realidade, STDOUT sendo a saída " padrão " (por padrão), a maneira mais fácil de escrever esse código é:

 $ var = 'bonjour'; imprima $ var; 

Também é possível usar o printf () (da linguagem C) para enviar informações para a saída padrão.

A saída de erro padrão

Perl fornece um terceiro descritor padrão para enviar automaticamente erros para uma saída específica, conforme definido pelo administrador do sistema. Este descritor é chamado STDERR .

Documento original publicado em CommentCaMarche.net.