Tweet
PROMPT DRAW PERL MODULE
Otimize seus scripts PERL inserindo cores, sons, formas, etc.
Utilizando o modulo PDPM você personaliza seus scripts e deixa com uma interface muito mais organizada e intuitiva.
O modulo é inteiramente grátis.
O que é PERL?
PERL é umas das linguagens preferidas por administradores de sistemas.
Devido á sua praticidade, Perl é uma linguagem muito útil para programação de ferramentas voltadas à segurança
Como executar scripts PERL no Windows?
Basta instalar um Ativador Perl para que seu computador interprete scripts PERL.
Recomendo o Active Perl. Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar... para baixá-lo.
Exemplo de Script:
#!/usr/bin/perl
print "\n Meu Primeiro Programa PERL";
system "pause > nul";
(Salve como “Programa.pl”)
O que é Módulo PERL?
Módulo Perl é um componente de software destinado a Scripts Perl. O modulo contem várias funções devidamente pré programadas. O PROMPT DRAW PERL MODULE é um modulo desenvolvido para auxiliar na parte gráfica de seu Script tornando a interface mais organizada e objetiva.
Características do Modulo
O PROMPT DRAW PERL MODULE não é um aplicativo comum, o modulo atua sobre Scripts Perl desenvolvidos para Windows. Sua utilização requer conhecimentos em linguagem Perl.
Inclusão do modulo:
use prompt_draw_insecuritynet;
Funções:
ATRIBUIÇÃO DE CORES:
inet_color_geral(cor_fundo,cor_fonte)
Determina um padrão de cores para todo o script
Exemplo:
#!/usr/bin/perl
use prompt_draw_insecuritynet;
inet_color_geral(1,10);
print "\n TESTE COR";
inet_pause;
inet_color_local(cor_fundo,cor_fonte)
Determina um padrão de cores para escrita a partir da função.
Exemplo:
#!/usr/bin/perl
use prompt_draw_insecuritynet;
inet_color_local(0,10);
print "\nTESTE VERDE";
inet_color_local(0,12);
print "\nTESTE VERMELHO";
inet_color_local(14,1);
print "\nTESTE ";
inet_pause;
Tabela de Cores
0 = Preto
1 = Azul
2 = Verde
3 = Verde-água
4 = Vermelho
5 = Roxo
6 = Amarelo
7 = Branco
8 = Cinza
9 = Azul claro
10 = Verde claro
11 = Verde-água claro
12 = Vermelho claro
13 = Lilás
14 = Amarelo claro
15 = Branco brilhante
POSICIONAMENTO DO CURSOR
inet_gotoxy(posicão_x,posição_y)
Determina a posição do cursor na janela do Prompt de Comando
Exemplo:
#!/usr/bin/perl
use prompt_draw_insecuritynet;
inet_gotoxy(15,22);
print "TEXTO 1";
inet_gotoxy(1,2);
print "TEXTO 2";
inet_gotoxy(40,10);
print "TEXTO 3";
inet_pause;
FUNÇOES PARA DESENHOS
Quadro:
inet_quadro(posicão_x,posicão_y,largura,altura);
Desenha um quadro
Exemplo:
#!/usr/bin/perl
use prompt_draw_insecuritynet;
inet_quadro(5,6,20,7);
inet_pause;
Barra de Status:
inet_barra_status(posicão_x,posicão_y,valor_total, valor_parcial);
Exibe uma barra de status com a porcentagem atual.
Exemplo:
#!/usr/bin/perl
use prompt_draw_insecuritynet;
inet_barra_status(5,6,100,75);
inet_pause;
Linhas:
inet_line(posicão_x,posicão_y,tamanho,tipo)
Exibe uma linha
tipo 1 = vertical
tipo 2 = horizontal
Exemplos:
#!/usr/bin/perl
use prompt_draw_insecuritynet;
inet_line(5,6,15,1);
inet_pause;
#!/usr/bin/perl
use prompt_draw_insecuritynet;
inet_line(5,6,15,2);
EFEITOS
Pausa:
inet_pause;
Pausa o Script (semelhante ao “pause” do MS_DOS).
Alerta sonoro:
inet_alertsond;
Emite um som de alerta
Download do Módulo
Sistema Operacional: Windows XP / Vista / Seven
Licença: Freeware
Tamanho: 389 KB
Empresa: Insecuritynet
Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...
Otimize seus scripts PERL inserindo cores, sons, formas, etc.
Utilizando o modulo PDPM você personaliza seus scripts e deixa com uma interface muito mais organizada e intuitiva.
O modulo é inteiramente grátis.
O que é PERL?
PERL é umas das linguagens preferidas por administradores de sistemas.
Devido á sua praticidade, Perl é uma linguagem muito útil para programação de ferramentas voltadas à segurança
Como executar scripts PERL no Windows?
Basta instalar um Ativador Perl para que seu computador interprete scripts PERL.
Recomendo o Active Perl. Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar... para baixá-lo.
Exemplo de Script:
#!/usr/bin/perl
print "\n Meu Primeiro Programa PERL";
system "pause > nul";
(Salve como “Programa.pl”)
O que é Módulo PERL?
Módulo Perl é um componente de software destinado a Scripts Perl. O modulo contem várias funções devidamente pré programadas. O PROMPT DRAW PERL MODULE é um modulo desenvolvido para auxiliar na parte gráfica de seu Script tornando a interface mais organizada e objetiva.
Características do Modulo
O PROMPT DRAW PERL MODULE não é um aplicativo comum, o modulo atua sobre Scripts Perl desenvolvidos para Windows. Sua utilização requer conhecimentos em linguagem Perl.
Inclusão do modulo:
use prompt_draw_insecuritynet;
Funções:
ATRIBUIÇÃO DE CORES:
inet_color_geral(cor_fundo,cor_fonte)
Determina um padrão de cores para todo o script
Exemplo:
#!/usr/bin/perl
use prompt_draw_insecuritynet;
inet_color_geral(1,10);
print "\n TESTE COR";
inet_pause;
inet_color_local(cor_fundo,cor_fonte)
Determina um padrão de cores para escrita a partir da função.
Exemplo:
#!/usr/bin/perl
use prompt_draw_insecuritynet;
inet_color_local(0,10);
print "\nTESTE VERDE";
inet_color_local(0,12);
print "\nTESTE VERMELHO";
inet_color_local(14,1);
print "\nTESTE ";
inet_pause;
Tabela de Cores
0 = Preto
1 = Azul
2 = Verde
3 = Verde-água
4 = Vermelho
5 = Roxo
6 = Amarelo
7 = Branco
8 = Cinza
9 = Azul claro
10 = Verde claro
11 = Verde-água claro
12 = Vermelho claro
13 = Lilás
14 = Amarelo claro
15 = Branco brilhante
POSICIONAMENTO DO CURSOR
inet_gotoxy(posicão_x,posição_y)
Determina a posição do cursor na janela do Prompt de Comando
Exemplo:
#!/usr/bin/perl
use prompt_draw_insecuritynet;
inet_gotoxy(15,22);
print "TEXTO 1";
inet_gotoxy(1,2);
print "TEXTO 2";
inet_gotoxy(40,10);
print "TEXTO 3";
inet_pause;
FUNÇOES PARA DESENHOS
Quadro:
inet_quadro(posicão_x,posicão_y,largura,altura);
Desenha um quadro
Exemplo:
#!/usr/bin/perl
use prompt_draw_insecuritynet;
inet_quadro(5,6,20,7);
inet_pause;
Barra de Status:
inet_barra_status(posicão_x,posicão_y,valor_total, valor_parcial);
Exibe uma barra de status com a porcentagem atual.
Exemplo:
#!/usr/bin/perl
use prompt_draw_insecuritynet;
inet_barra_status(5,6,100,75);
inet_pause;
Linhas:
inet_line(posicão_x,posicão_y,tamanho,tipo)
Exibe uma linha
tipo 1 = vertical
tipo 2 = horizontal
Exemplos:
#!/usr/bin/perl
use prompt_draw_insecuritynet;
inet_line(5,6,15,1);
inet_pause;
#!/usr/bin/perl
use prompt_draw_insecuritynet;
inet_line(5,6,15,2);
EFEITOS
Pausa:
inet_pause;
Pausa o Script (semelhante ao “pause” do MS_DOS).
Alerta sonoro:
inet_alertsond;
Emite um som de alerta
Download do Módulo
Sistema Operacional: Windows XP / Vista / Seven
Licença: Freeware
Tamanho: 389 KB
Empresa: Insecuritynet
Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...
", "Omerta 1.3", "RLogin", "Raw", "ktelnet",
Comment