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
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
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()
agente poderia chamar ela quantas vezes agente quiser, desse geito
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
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
veja outro exemplo passando dois valores e somando ambos e exibindo eles na funçao mesmo sem retorno
mais um exemplo passando agora 3 argumentos usando variaveis
bom galera para criar funçao (sub-rotina) em perl e isso ^^
by hacker fts315
- 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