y'ehp (:
# Este é um código fonte de uma agenda eletrônica de números&endereços
# Esta é a primeira versão. Nas próximas, pretendo dar uma boa aumentada e incrementada neste "programinha". Qualquer ajuda será muito, mas muito bem vinda!
Citar#!/usr/bin/perl -w
#Nome: Agenda Eletronica de Números&Endreços 1.0
# SanÐers http://phreakbrasil.webs.com
#
#
print"Bem vindo à minha agenda eletrônica (:.\n\n";
sleep(2);
main();
sub main{
system("clear");
print"1) Adicionar Número de Telefone\n2) Adicionar Endereço\n3) Sair\n4) Ajuda\n\n";
print"Selecione o número de sua opção: ";
$Opcao = <STDIN>;
chop($Opcao);
if($Opcao == 1){
print"Nome: ";
$Nome = <STDIN>;
chop($Nome);
print"Número de Telefone: ";
$Numero = <STDIN>;
chop($Numero);
print"Adcionando à agenda eletrônica..\n";
sleep(1);
if(open(LOGFILE, ">>agenda.log")){
print LOGFILE ("+=========================================+\n");
print LOGFILE ("Nome: $Nome \n");
print LOGFILE ("Telefone: $Numero\n");
print LOGFILE ("+=========================================+\n\n\n");
close(LOGFILE);
print("Informação Adcionada com SUCESSO!.\n");
sleep(2);
main();
}
}elsif($Opcao == 4){
print" →Voce pode visualizar o conteúdo salvo no arquivo agenda.log\n";
print" →No diretório deste mesmo script no arquivo agenda.log\n";
system("echo >> agenda.log");
}elsif($Opcao == 2){
print"Nome: ";
$Nome2 = <STDIN>;
chop($Nome2);
print"Número da Casa: ";
$NumeroCasa = <STDIN>;
chop($NumeroCasa);
print"Nome da Rua: ";
$Rua = <STDIN>;
chop($Rua);
print"Nome do Bairro: ";
$Bairro = <STDIN>;
chop($Bairro);
if (open(LOGFILE, ">>agenda.log")){
print LOGFILE ("+=========================================+\n");
print LOGFILE ("Nome: $Nome2 \n");
print LOGFILE ("Numero da Casa: $NumeroCasa \n");
print LOGFILE ("Nome da Rua: $Rua \n");
print LOGFILE ("Bairro: $Bairro \n\n");
print LOGFILE ("+=========================================+\n\n");
close(LOGFILE)
}
print"Adcionando Informação..\n";
sleep(1);
print"informação Adicionada com SUCESSO!.\n";
sleep(1);
main();
}elsif($Opcao == 3){
print"Saindo..\n";
sleep(1);
}
}
Como voces podem ter percebido, é bem simples. Nada de mais para um bginner em perl (:
Flw'sz
=)