Agenda Eletrônica 1.0 - Source

[S3.nD]

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!

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

=)