[AJUDA]"Sistema de Buscas" no Perl

[Ch1p5]

olá, estou fazendo um programa, um tipo de busca, pra qndo a pessoa escrever o q desejar, tipo: xss
aparecer algo sobre o xss(q eu colocarei)...mas naum sei como fazer pra pegar em alguma variavel, por enquanto ta um tipo d sistema d senha, eu coloco as senhas(topicos) no until, e qndo for digitar no programa, se colocar o q naum tiver no until, da erro, pedindo pra digitar outro, e se ta no until, ele fecha
agora, quero saber como faz pra aparecer algo q colocarei na variavel antes de fechar...
peço a ajuda d vcs, e enquanto isso, continuarei procurando...
Sem +
Grato

(desculpe se repeti a minha duvida, mas eu to na pressa)

Ch1p5

[_Dr4k0_]

bota o source acho que fica mais fácil

[Ch1p5]

ta aew _Dr4k0_

Código Selecionar Expandir

#!/usr/local/bin/perl
#Programa:Glossário Underground
#Versão: 1.0
#Coded By: Ch1p5

$ver="v. 1.0";

print "Qual assunto do seu interesse? ";
$assunto = <STDIN>;
chop $assunto;
until ($assunto eq "xss" || $assunto eq "seing" || $assunto eq "defaces" || $assunto eq "vulnerabilidades" || $assunto eq "exploits" || $assunto eq "programação" )
{

    print "Assunto naum disponivel.\nQual assunto do seu interesse? ";
    $assunto = <STDIN>;
    chop $assunto;

}
print "assunto localizado\n";
system pause


aguardando + resposta

[_Dr4k0_]

Ueh..Não sei se entendi direito..Mais não vi lógica alguma em seu code..Por exemplo você quer usar socket para ele se conectar ao google ou algum site??Ou quer pegar ele do seu code mesmo?Se for dentro do code faça uma função para ele..

por exemplo

sub_xss{
print "explica o xss ai..";
}
sub_deface{print "deface é o ato..";}

ai invez de usar until eu prefiro usar if
ai faz if($assunto eq "xss") {&sub_xss}

eh mais ou menos assim.. pq || quer dizer ou.. ai do jeito que vc ta fazeno se o cara digita xss,defaceou seing vai dar sempre a mesma coisa...

espero ter ajudado acho que eh mais ou menos isso

[Ch1p5]

vlw, dpois eu vejo isso, axo q vai resolver meu problema...
ow, enquanto a falta d logica...kkk
eh q esse eh o primeiro code(to fazendo sozinho) e naum está completo, claro...
(detalhe: qnto ao if, eu coloco um em baixo do outro?tipo:
if($assunto eq "xss") {&sub_xss}
if($assunto eq "deface") {&sub_deface}
etc...
ou eu tenho q por um na frente do outro, separando por virgura:
if($assunto eq "xss") {&sub_xss},($assunto eq "deface") {&sub_deface}


fuii

[_Dr4k0_]

da maneira que preferir.. um embaixo do outro fica mais organizado..

e só lembrano que da na mesma.. em compiladores/interpretadores ele não consideram uma quebra de linha[ENTER] e sim um ;(ponto e virgula) como o final da linha/comando..

se fizer o code intero em uma linha separano apenas com ; da na mesma soh fica desorganizado.. e tem que fecha o sub comando com ; eu esqueci