Usando comandos shell com Perl
Publicado por Carlos Carvalho 27/07/2004
[ Hits: 14.817 ]
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
Calcula equação de segundo grau completa
Inserindo o nome de aluno e calculando média de suas notas
Nenhum comentário foi encontrado.
Berry Bank: Criando um Banco Digital Gamificado para seus Filhos com Gentoo, Flask e Tailscale
Papagaiando o XFCE com temas e recursos
Instale o DOOM Retro no Gentoo facilmente via Overlay
Steam (Flatpak) rodando jogos em partição NTFS
O dock Plank + U-Launcher deixam qualquer desktop mais produtivo
Instalar Linux em notebook Sony Vaio VPCEG13EB (17)
Alguém tem que acabar com ANATEL!!! (10)
O que você está ouvindo agora? [2] (229)









