Usando comandos shell com Perl
Publicado por Carlos Carvalho 27/07/2004
[ Hits: 14.801 ]
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
Saiba quanto de energia seu PC gasta aproximadamente por mês
Scalar - Alguns dos usos mais comuns deste tipo de variável do Perl
Renomeando arquivos de forma padronizada
Programa que separa os dígitos de um inteiro
Nenhum comentário foi encontrado.
Gentoo binário em 2026: UEFI, LUKS, Btrfs e Systemd
Trabalhando Nativamente com Logs no Linux
Jogando Daikatana (Steam) com Patch 1.3 via Luxtorpeda no Linux
LazyDocker – Interface de Usuário em Tempo Real para o Docker
Servidor vs Computador Convencional
Como administrar uma rede Linux através da ferramenta Webmin
Como escanear portas de um servidor através da ferramenta Nmap e como alterar a porta do SSH.
Marcando e desmarcando pacotes para atualização, instalação e remoção no Debian e agregados
Audio Failure on Acer Aspire AS4738 – Intel 5 Series HD Audio (Linux M... (1)









