Usando comandos shell com Perl

Publicado por Carlos Carvalho 27/07/2004

[ Hits: 14.842 ]

Download shell.pl




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

  



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

Scripts recomendados

Graficos com barras em Perl

"Codificação" de texto em Perl

imprime numeros de forma crescente e decrescente [FOR]

Scalar - Alguns dos usos mais comuns deste tipo de variável do Perl

Cálculo do MDC em Perl para quantidade ilimitada de parâmetros


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts