Esse script apresenta o módulo Shell.pm (CPAN) que permite utilizar comando shell diretamente, sem necessidade da intervenção de "system".

• Download shell.pl
• Enviar nova versão

Esconder código-fonte

#!/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

Inserindo o nome de aluno e calculando média de suas notas

Gerando senhas aleatórias

check_mem.pl - Plugin Nagios para checar consumo de RAM

Crivo de Eratóstenes Simples em Perl

Cálculo do MDC em Perl

Nenhum comentário foi encontrado.