Estou aprendendo Perl. Eu tenho um aplicativo trivial que consiste em um wrapper de script bash em torno de um script Perl. Estou pensando em me livrar do script Bash e fazer tudo em Perl (como um exercício de aprendizado).
Eu vi pelo menos três maneiras diferentes de chamar comandos do sistema de Perl: backticks exec()
e system()
.
Gostaria de saber qual é o preferido. eu li :
Tanto a função exec() do Perl quanto a função system() executam um comando shell do sistema. A grande diferença é que system() cria um processo de bifurcação e espera para ver se o comando é bem-sucedido ou falha – retornando um valor. exec() não retorna nada, simplesmente executa o comando. Nenhum desses comandos deve ser usado para capturar a saída de uma chamada do sistema. Se seu objetivo é capturar a saída, você deve usar o operador backtick.
No caso do meu código de exemplo (abaixo), devo misturar esses tipos de chamadas de sistema ou apenas mantê-lo simples e usar acentos graves?
Em segundo lugar, gostaria de saber se é recomendável mover as funções do meu wrapper de script bash para meu script Perl. Por exemplo, se eu estivesse fazendo algo simples como isso no trabalho, eu poderia esperar ser criticado por uma implementação que consiste em dois scripts em duas linguagens diferentes, ou seria criticado por fazer coisas em Perl que poderiam ser facilmente feitas em Bash? Ou é "o que eu preferir"?
#!/bin/bash
rm myfile.zip >/dev/null 2>&1
wget https://downloads.example.com/myfile.zip
if [[ $? -ne 0 ]]; then
echo "ERROR: failed to download list from example.com."
exit 1
fi
current_date=$(date +"%Y-%m-%d")
read -p "Save current input as input_$current_date.json then press Enter key to continue."
echo
current_datetime=$(date +"%Y-%m-%d_%H%M")
mylist="mylist_$current_datetime.txt"
zipinfo -1 myfile.zip | sed 's|myfile_xyz/||' | grep '^me' | sed 's/.top.myfile//' > $mylist
perl myperlscript.pl $mylist "input_$current_date.json"
bash
é o shell padrão no meu sistema, então é isso que o Perl usará, a menos que seja dito o contrário. Não estou preocupado com a portabilidade para outros sistemas ou outros shells.
Qual é o preferido depende inteiramente do que você quer fazer. Os três mecanismos fazem coisas muito diferentes.
exec()
é usado quando você deseja substituir seu script por um novo binário. A execução do seu script perl para no ponto em que você chamaexec()
e nunca continua.system()
é usado quando você deseja executar um comando e, em seguida, continuar a executar seu script perl.Isso geralmente é uma questão de preferência pessoal, mas para as coisas que você está fazendo em seu script, provavelmente simplificaria as coisas apenas mover toda essa lógica para seu código perl (por exemplo, perl já tem funções de data/hora que substituiriam trivialmente seu várias chamadas para
date
).