Dica de Programação – Criando Scripts com Parâmetros em Perl

Olá, este é mais um post da série “Dicas de Programação do Titio Plastico”, hoje vou mostrar como você consegue criar sem muito esforço um script que receberá diversos parâmetros pela linha de comando que servirão de informações adicionais para um script se tornar mais dinâmico. O que é algo muito útil para Administradores de Sistema e programadores que querem agilizar ao máximo seu trabalho.

A linguagem de hoje é:

Perl

Dados técnicos:

Versão do Perl – v5.8.8
Distribuição Testada – Ubuntu 8.4

Fazendo a Mágica acontecer

Abaixo vai o código comentado, no exemplo serão passados Nome, email e telefone de um usuário qualquer:

#!/usr/bin/perl

#[ Use estes dois aqui sempre, esta lah no livro de boas praticas ]
use warnings;
use strict;

#[Esta é a classe que deve ser chamada para gerenciar os parâmetros]
use Getopt::Std;

#[Criaremos aqui um array vazio que irá receber os parâmetros]
my %hash = ();

#[Aqui é onde o getopts associa o conteúdo de cada parâmetro ao array]
getopts(“:n:e:t:”, \%hash);

#[Mandando inprimir o resultado]
print ” Nome $hash{n} , email $hash{e} , telefone $hash{t}\n”;

Executando o script:

~$ ./parametros.pl -n Plastico -e plastico@hotmail.com -t 21212121
Nome Plastico , email plastico@hotmail.com , telefone 21212121

Conciderações finais

O exemplo utilizado aqui é extremamente simples, apenas para didática, mostrando claramente como a classe getopts funciona para receber os parâmetros passados pelo usuário. Contudo está é uma ferramenta poderosa e sua utilização é bem vasta, se bem explorada.

Gostou desse post? Então você vai gostar deste:
Dica de Programação – Fazendo Insert de BLOB com Perl no MySQL
Teste a Portabilidade dos seus scripts

Quer ter estes botões no seu site? Acesse