Como Faz, Dicas, Geek/Nerd, etc.

Criando Scripts com Parâmetro em Perl

banner-coder

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.

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

Related Posts Plugin for WordPress, Blogger...