Usando comandos shell com Perl
Publicado por Carlos Carvalho 27/07/2004
[ Hits: 14.759 ]
Esse script apresenta o módulo Shell.pm (CPAN) que permite utilizar comando shell diretamente, sem necessidade da intervenção de "system".
#!/usr/bin/perl -w
use strict;
#carregamos o modulo Shell.pm:
use Shell;
#Agora usamos comando shell de forma clara (sem system):
#$password recebe saida do cat:
$passwd = cat("</etc/passwd");
#imprime conteudo de /etc/passwd:
print $passwd;
#copia /etc/passwd para /tmp/passwd, lembra do "system("/bin/cp comando")" ? :
cp("/etc/passwd", "/tmp/passwd");
#EOF
Aprendendo a fazer equações em Perl
Calcula equação de segundo grau completa
Cadastro usando arquivos .txt para guardar dados
Saiba quanto de energia seu PC gasta aproximadamente por mês
Nenhum comentário foi encontrado.
Monitorando o Preço do Bitcoin ou sua Cripto Favorita em Tempo Real com um Widget Flutuante
IA Turbina o Desktop Linux enquanto distros renovam forças
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Ativando e usando "zoom" no ambiente Cinnamon
Vídeo Nostálgico de Instalação do Conectiva Linux 9
Como realizar um ataque de força bruta para desobrir senhas?
Estou tentando ser legalista, mas tá complicado! (6)
Queda no serviços da Cloudflare, alguns sites estão fora do ar. (1)
Perfil criado no samba ad dc não loga no Windows 10 e 11 (11)









