AskOverflow.Dev

AskOverflow.Dev Logo AskOverflow.Dev Logo

AskOverflow.Dev Navigation

  • Início
  • system&network
  • Ubuntu
  • Unix
  • DBA
  • Computer
  • Coding
  • LangChain

Mobile menu

Close
  • Início
  • system&network
    • Recentes
    • Highest score
    • tags
  • Ubuntu
    • Recentes
    • Highest score
    • tags
  • Unix
    • Recentes
    • tags
  • DBA
    • Recentes
    • tags
  • Computer
    • Recentes
    • tags
  • Coding
    • Recentes
    • tags
Início / unix / Perguntas / 557615
Accepted
BugBuddy
BugBuddy
Asked: 2019-12-17 19:22:38 +0800 CST2019-12-17 19:22:38 +0800 CST 2019-12-17 19:22:38 +0800 CST

Faz sentido fazer essas operações de shell em Perl em vez de Bash?

  • 772

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.

bash shell-script
  • 1 1 respostas
  • 329 Views

1 respostas

  • Voted
  1. Best Answer
    larsks
    2019-12-17T19:41:05+08:002019-12-17T19:41:05+08:00

    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:

    Qual é o preferido depende inteiramente do que você quer fazer. Os três mecanismos fazem coisas muito diferentes.

    • Backticks são usados ​​quando você deseja capturar a saída de um programa.
    • 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ê chama exec()e nunca continua.
    • system()é usado quando você deseja executar um comando e, em seguida, continuar a executar seu script perl.

    Em segundo lugar, gostaria de saber se é recomendável mover as funções do meu wrapper de script bash para meu 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).

    • 3

relate perguntas

  • Problema estranho ao passar variáveis ​​do arquivo de texto

  • Enquanto a linha lê mantendo os espaços de escape?

  • MySQL Select com função IN () com array bash

  • ordem de substituição de processos `te` e `bash`

  • Execute um script muito lento até que seja bem-sucedido

Sidebar

Stats

  • Perguntas 205573
  • respostas 270741
  • best respostas 135370
  • utilizador 68524
  • Highest score
  • respostas
  • Marko Smith

    Possível firmware ausente /lib/firmware/i915/* para o módulo i915

    • 3 respostas
  • Marko Smith

    Falha ao buscar o repositório de backports jessie

    • 4 respostas
  • Marko Smith

    Como exportar uma chave privada GPG e uma chave pública para um arquivo

    • 4 respostas
  • Marko Smith

    Como podemos executar um comando armazenado em uma variável?

    • 5 respostas
  • Marko Smith

    Como configurar o systemd-resolved e o systemd-networkd para usar o servidor DNS local para resolver domínios locais e o servidor DNS remoto para domínios remotos?

    • 3 respostas
  • Marko Smith

    apt-get update error no Kali Linux após a atualização do dist [duplicado]

    • 2 respostas
  • Marko Smith

    Como ver as últimas linhas x do log de serviço systemctl

    • 5 respostas
  • Marko Smith

    Nano - pule para o final do arquivo

    • 8 respostas
  • Marko Smith

    erro grub: você precisa carregar o kernel primeiro

    • 4 respostas
  • Marko Smith

    Como baixar o pacote não instalá-lo com o comando apt-get?

    • 7 respostas
  • Martin Hope
    user12345 Falha ao buscar o repositório de backports jessie 2019-03-27 04:39:28 +0800 CST
  • Martin Hope
    Carl Por que a maioria dos exemplos do systemd contém WantedBy=multi-user.target? 2019-03-15 11:49:25 +0800 CST
  • Martin Hope
    rocky Como exportar uma chave privada GPG e uma chave pública para um arquivo 2018-11-16 05:36:15 +0800 CST
  • Martin Hope
    Evan Carroll status systemctl mostra: "Estado: degradado" 2018-06-03 18:48:17 +0800 CST
  • Martin Hope
    Tim Como podemos executar um comando armazenado em uma variável? 2018-05-21 04:46:29 +0800 CST
  • Martin Hope
    Ankur S Por que /dev/null é um arquivo? Por que sua função não é implementada como um programa simples? 2018-04-17 07:28:04 +0800 CST
  • Martin Hope
    user3191334 Como ver as últimas linhas x do log de serviço systemctl 2018-02-07 00:14:16 +0800 CST
  • Martin Hope
    Marko Pacak Nano - pule para o final do arquivo 2018-02-01 01:53:03 +0800 CST
  • Martin Hope
    Kidburla Por que verdadeiro e falso são tão grandes? 2018-01-26 12:14:47 +0800 CST
  • Martin Hope
    Christos Baziotis Substitua a string em um arquivo de texto enorme (70 GB), uma linha 2017-12-30 06:58:33 +0800 CST

Hot tag

linux bash debian shell-script text-processing ubuntu centos shell awk ssh

Explore

  • Início
  • Perguntas
    • Recentes
    • Highest score
  • tag
  • help

Footer

AskOverflow.Dev

About Us

  • About Us
  • Contact Us

Legal Stuff

  • Privacy Policy

Language

  • Pt
  • Server
  • Unix

© 2023 AskOverflow.DEV All Rights Reserve