Nylon Tecnologia
Mudamos para um dominio proprio.

Acesse nosso novo forum.

http://crawlersnetwork.com/

Participe do fórum, é rápido e fácil

Nylon Tecnologia
Mudamos para um dominio proprio.

Acesse nosso novo forum.

http://crawlersnetwork.com/
Nylon Tecnologia
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

[tutorial] criando funçao no perl

Ir para baixo

[tutorial] criando funçao no perl Empty [tutorial] criando funçao no perl

Mensagem por hacker fts315 Qua Ago 15, 2012 5:26 am

funçoes permite agilizar as coisas, por exemplo se vc tivesse que fazer uma determinada açao repetidamente para nao precisar fazer a mesma açao varias vezes basta criar uma funçao q faz ela e depois chamar a funçao de vez de fazer a açao repetidamente, veja a source abaixo q permite digitar um valor e depois exibe o quadrado desse valor

Código:

#!/usr/bin/perl

print "digite um numero: ";
$fts = <stdin>;

print ($fts * $fts);

a source acima ela pequena nem faz tanta diferença em criar uma funçao para um simples calculo mais se fosse algo bem maior digamos umas 15 linhas de codigo ia ser bem trabalhoso ter q fazer repetidamente, para facilitar isso agente poderia criar uma funçao para ela assim agente so precisa chamar a funçao e passar o valor de entrada(argumento) para ela e pega o valor retorno dela e pronto, para criar uma funçao em perl se usa o comando sub + nome da funçao depois digitar nossas açao dentro do bloco dela, veja um exemplo simples de um funçao q exibe uma messagem

Código:

#!/usr/bin/perl

sub fts
{
    print "by hacker fts315";
}

na source acima a funçao ta pronta mais nao vai exibir nada porque agente nao chamo ela, para chamar ela basta digita o nome dela depois abre e fechar parenteses no nosso caso seria fts()

Código:

#!/usr/bin/perl

fts();

sub fts
{
    print "by hacker fts315 \n";
}

agente poderia chamar ela quantas vezes agente quiser, desse geito

Código:

#!/usr/bin/perl

fts();
fts();
fts();
fts();
fts();

sub fts
{
    print "by hacker fts315 \n";
}

na source acima ia exibir 5 "by hacker fts315", para retorna um valor de uma funçao basta usar return e atribuir o valor para uma variavel ou exibi diretamente, na source abaixo eu retornei o valor 315 da funçao e usei o print para exibir ele

Código:

#!/usr/bin/perl

print fts();

sub fts
{
    return 315;
}

agora para enviar um valor para dentro da funçao basta passar o valor como argumento dentro de abre e fecha parenteses, e dentro da funçao basta usar $_[] para manipular os valores q entro onde e colchetes agente coloca a posiçao de entrada na ordem q foi colocado os argumentos (o contador começa no 0), no exemplo abaixo eu passo o valor 300, dentro da funçao ele vai somar mais 15 e retorna o valor da soma e depois vai ser exibido com um print

Código:

#!/usr/bin/perl

print fts(300);

sub fts
{
    return $_[0] + 15 ;
}

veja outro exemplo passando dois valores e somando ambos e exibindo eles na funçao mesmo sem retorno

Código:

#!/usr/bin/perl

fts(300,15);

sub fts
{
    print $_[0] + $_[1] ;
}

mais um exemplo passando agora 3 argumentos usando variaveis

Código:

#!/usr/bin/perl

$x = 300;
$y = 10;
$w = 5;
fts($x,$y,$w);

sub fts
{
    print $_[0] + $_[1] + $_[2] ;
}

bom galera para criar funçao (sub-rotina) em perl e isso ^^

by hacker fts315
hacker fts315
hacker fts315
Membro

Mensagens : 53
Pontos : 8799
Reputação : 32
Data de inscrição : 12/08/2012

http://endoffile.umforum.net

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos