Você pode redirecionar a saída de um script Perl para um arquivo usando os seguintes métodos dentro do próprio script:
1. Usando a função `open` e o FileHandle: `` `Perl
#!/usr/bin/perl
Abra o arquivo de saída para escrever
Open (meu $ fh, ">", "Output.txt") ou Die "Não é possível abrir o arquivo de saída:$!";
Imprima saída para o FileHandle
imprimir $ fh "Esta é uma saída \ n";
imprimir $ fh "Esta é outra linha \ n";
Feche o FileHandle
fechar ($ fh);
`` `
2. Usando a função `System`: `` `Perl
#!/usr/bin/perl
Execute o script Perl e redirecre a saída para um arquivo
sistema ("Perl script.pl> output.txt");
`` `
3. Usando backticks (``): `` `Perl
#!/usr/bin/perl
Execute o script perl e capture a saída em uma variável
meu $ output =`perl script.pl`;
Escreva a saída capturada em um arquivo
Open (meu $ fh, ">", "Output.txt") ou Die "Não é possível abrir o arquivo de saída:$!";
imprimir $ fh $ output;
fechar ($ fh);
`` `
Explicação: * Função
`Open`: Esta função é usada para abrir um arquivo para gravar (`>` símbolo) e a associa a um arquivo de arquivo (`$ fh` no exemplo). Você pode usar `print` para gravar dados no arquivo de arquivo.
* Função
`System`: Esta função executa um comando do sistema, incluindo redirecionamento. Nesse caso, ele executa o script Perl e redireciona sua saída para `output.txt`.
*
backticks (``): Isso captura a saída de um comando dentro de backticks em uma variável. Você pode processar e escrever a saída capturada em um arquivo.
Escolhendo o método: * Função
`Open`: Mais versátil para controlar a saída dentro do script.
* Função
`System`: Maneira simples de executar comandos e redirecionar a saída, especialmente se você não precisar processar a saída dentro do script.
*
backticks: Útil para capturar a saída de um comando para processamento posterior.
Notas importantes: * O símbolo `>` redireciona a saída padrão (STDOUT) para o arquivo.
* Use `2>` para redirecionar o erro padrão (STDERR).
* Use `>>` para anexar a saída a um arquivo existente.
* Se você precisar redirecionar o stdout e o stderr, poderá usar `&>` (por exemplo, `perl script.pl &> output.txt`).
Lembre -se de lidar com os erros graciosamente usando as funções `die` ou` warn` para impedir que seu script cai inesperadamente.
