Usando comandos shell com Perl
Publicado por Carlos Carvalho 27/07/2004
[ Hits: 14.806 ]
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
Cálculo do MDC em Perl para quantidade ilimitada de parâmetros
Assistente de instalação por apt!
Renomeando arquivos de forma padronizada
Lista de números aleatórios não-repetidos de um intervalo em Perl
Nenhum comentário foi encontrado.
KDE Plasma - porque pode ser a melhor opção de interface gráfica
Gentoo: detectando impressoras de rede e como fixar uma impressora por IP
Como o GNOME conseguiu o feito de ser preterido por outras interfaces gráficas
Por que sua empresa precisa de uma PKI (e como automatizar EMISSÕES de certificados via Web API)
Instalando NoMachine no Gentoo com Systemd (acesso Remoto em LAN)
Instalar Linux em notebook Sony Vaio VPCEG13EB (13)
Vou destruir sua infância:) (7)
Interface gráfica com problema (0)









