Jump to content


Funções Cgi/perl


  • Faça o login para participar
19 replies to this topic

#1 Whitesnake

Whitesnake
  • Visitantes

Posted 07/04/2004, 13:55

O Perl possui muitas funções, aqui estão as mais utilizadas e deverá sanar suas dúvidas sobre como programar com esta linguagem. As funções estao organizadas alfabeticamente.

[quote]abs
Retorna o valor absoluto de um argumento numérico.
Exemplo:
print "abs(-12) = ",abs(-12),"";[/quote]
[quote]atan2
Retorna o valor do arco tangente de um argumento numérico.
Exemplo:
print "atan2(30,2) = ",atan2(30,2),"";[/quote]
[quote]chop
A função chop retira o último caracter de uma string.
Exemplo:
$r = "abcdef";
print "Antes : ",$r,"";
$s = chop($r);
print "Depois: ",$r,"";
print $s," foi retirado do fim da string";[/quote]
[quote]chr
A função chr retorna o caracter ASCII cujo número é dado na função.
Exemplo:
print "chr(65) = ",chr(65),"";[/quote]
[quote]close
A função close fecha o arquivo aberto pela função open.
Exemplo:
open(IN,"notas.txt");
close(IN);[/quote]
[quote]closedir
A função closedir fecha o arquivo aberto para leitura de um diretório.
Exemplo:
opendir(DR,"/windows");
@folders = readdir(DR);
foreach $folder (@folders) {
     print $folder,"";
}
closedir(DR);[/quote]
[quote]cos
A função cos retorna o valor do cosseno em radianos da expressão dada na função.
Exemplo:
print "cos(45) = ",cos(45),"";
* Para transformar radianos em graus: 1 radiano = pi = 3.141618 = 180 graus. [/quote]
[quote]delete
A função delete exclui um elemento de um array associativo através de sua chave (key).
Exemplo:
%ar = ("a","azul","v","verde");
print "Antes : ";
foreach $k (keys %ar) {
   print $k,"=",$ar{$k},"";
}
delete($ar{'a'});
print "Depois : ";
foreach $k (keys %ar) {
   print $k,"=",$ar{$k},"";
}[/quote]
[quote]eof
A função eof testa se o arquivo chegou ao fim.
Exemplo:
open(IN,"notas.txt");
if (eof IN) {
   print "Fim do arquivo";
   close(IN);
}[/quote]
[quote]exit
A função exit sai de um programa retornando um valor.
Exemplo:
open(IN,"notas.txt");
if (eof IN) {
   print "Fim do arquivo";
   close(IN);
   exit(8);
}[/quote]
[quote]grep
A função grep procura um argumento de pesquisa dentro de uma lista.
Exemplo:
$r = "abcdefghijklmnop";
if (grep(/kl/,$r)) {
   print "Argumento encontrado";
}
else {
   print "Argumento não encontrado";
}[/quote]
[quote]hex
A função hex retorna o valor decimal de uma string hexadecimal.
Exemplo:
print "hex('2c') = ",hex('2c'),"";[/quote]
[quote]int
A função int retorna a parte inteira de uma expressão numérica.
Exemplo:
$pi = 3.1416;
print "int($pi) = ",int($pi),"";[/quote]
[quote]join
A função join junta numa string elementos de um array, separando-os com um determinado caracter.
Exemplo:
@ar = ("banana","laranja","lima","morango");
$r  = join(";",@ar);
print $r,"";[/quote]
[quote]keys
A função keys retorna um array com todas as chaves (keys) de um array associativo.
Exemplo:
%ar = ("a","aaa","b","bbb","c","ccc");
@r  = keys(%ar);
foreach $r (@r) {
   print $r,"\t";
}[/quote]
[quote]lc
A função lc transforma uma string de caracteres maiúsculos para minúsculos.
Exemplo:
$mai = "TERRA NOVA";
$min = lc($mai);
print $min,"";[/quote]
[quote]lcfirst
A função lcfirst transforma o primeiro caracter de uma string de caracteres maiúsculos para minúsculo.
Exemplo:
$mai = "TERRA NOVA";
$min = lcfirst($mai);
print $min,"";[/quote]
[quote]length
A função length retorna o tamanho de uma string.
Exemplo:
$mai = "TERRA NOVA";
print "Tamanho de \$mai = ",length($mai),"";[/quote]
[quote]localtime
A função localtime retorna uma lista de nove elementos no seguinte formato:.
 
Elemento Conteúdo
0 Segundos
1 Minutos
2 Hora
3 Dia do mês
4 Mês (Janeiro = 0)
5 Ano
6 Dia da semana (Domingo = 0)
7 Dia do ano (Juliano)
8 Quando 1, indica de horário de verão
Exemplo:
@ar = localtime();
foreach $i (@ar) {
   print $i,"\t";
}[/quote]
[quote]log
A função log retorna o logarítimo de uma expressão.
Exemplo:
print "log(3.12) = ",log(3.12),"";[/quote]
[quote]mkdir
A função mkdir cria um diretório novo de acordo com o modo desejado.
Exemplo:
mkdir("nova pasta",0777);

    No exemplo acima, "nova pasta" é o nome do novo diretório e 0777 é o modo com o qual o novo diretório será criado. O modo (0777) tem significado no Unix mas, no Dos ou Windows ele não tem significado algum, porém, deve ser informado.
    O modo é formado por três octetos que indicam como e por quem o diretório pode ser acessado. No exemplo acima, o modo é 0777 onde o zero não tem significado mas é inserido à esquerda somente para que os três nibles formem dois bytes completos. O primeiro nible dá permissão de acesso ao dono do diretório, isto é, a quem o criou. O segundo nible dá permissão de acesso ao grupo a quem o diretório pertence e, o terceiro nible dá permissão de acesso aos usuários comuns. As permissões de acesso, têm três valores:
• 1 - permite que se execute programas residentes no diretório,
• 2 - permite que se grave arquivos no diretório
• 4 - permite que o diretório seja lido.
    Assim, se na criação de um novo diretório, o seu dono pode ler, gravar e executar, o grupo pode ler e gravar mas não executar e, o usuário comum pode apenas ler, o modo com o qual o diretório será criado é 764 pois, 7 (primeiro nible) indica que o dono tem as permissões 4+2+1=7. Para o grupo, foram dadas as permissões 4+2=6 e, para o usuário comum, somente a permissão 4. Acrescentando o zero à esquerda temos 0764.
[/quote]
[quote]opendir
A função opendir abre um arquivo para leitura de um diretório.
Exemplo:
opendir(DR,"/windows");
@pastas = readdir(DR);
foreach $pasta (@pastas) {
   print $pasta,"";
}
closedir(DR);[/quote]
[quote]ord
A função ord retorna o código ASCII em decimal do carcter informado na função.
Exemplo:
print "ord(a) = ",ord(a),"";[/quote]
[quote]pop
A função pop remove o último elemento de um array e retornado seu valor.
Exemplo:
@ar = ("banana","laranja","lima","morango");
$el = pop(@ar);
print "Elemento removido = ",$el,"";[/quote]
[quote]push
A função push acrescenta um elemento ao final de um array e retorna o número do elemento.
Exemplo:
@ar = ("banana","laranja","lima","morango");
$el = push(@ar,"abacate");
print @ar,"";
print "Numero do lemento adicionado = ",$el,"";[/quote]
[quote]read
A função read lê bytes de um arquivo para uma variável obedecendo um tamanho.
Exemplo:
open(O,">teste.txt");
print O "Este é o registro do arquivo";
close(O);
open(I,"teste.txt");
read(I,$r,28);
print $r,"";
close(I);[/quote]
[quote]readdir
A função readdir lê um diretório colocando os nomes das pastas e arquivos em um array.
Exemplo:
opendir(DR,"/windows");
@pastas = readdir(DR);
foreach $pasta (@pastas) {
   print $pasta,"";
}
closedir(DR);[/quote]
[quote]return
A função return retorna de uma sub-rotina com um valor especificado.
Exemplo:
$r = &subr1;
print "Valor retornado = ",$r,"";
sub subr1 {
    return(122);
}[/quote]
[quote]reverse
A função reverse inverte os elementos de um array.
Exemplo:
@ar = ("banana","laranja","lima","morango");
print @ar,"";
@ar = reverse(@ar);
print @ar,"";[/quote]
[quote]rmdir
A função rmdir remove um diretório.
Exemplo:
rmdir("nome do diretório");[/quote]
[quote]shift
A função shift retira o primeiro elemento de um array retornando seu valor.
Exemplo:
@ar = ("banana","laranja","lima","morango");
print "Antes : ",@ar,"";
$r  = shift(@ar);
print "Depois: ",@ar,"";
print "Elemento retirado = ",$r,"";[/quote]
[quote]sin
A função sin retorna o seno em radianos da expressão informada na função.
Exemplo:
$pi = 3.141618;
print "sin(\$pi/2) = ",sin($pi/2),"";[/quote]
[quote]sort
A função sort ordena os elementos de um array.
Exemplo:
@ar = ("zebra","macaco","leao","tigre");
print "Antes : ",@ar,"";
@ar  = sort(@ar);
print "Depois: ",@ar,"";
    Podemos fazer a ordenação em ordem ascendente ou descendente. Para isso usamos a seguinte forma de chamada da fonção sort:
@ar = sort { $a cmp $b } @ar;     Para sort de strings alfanumericos em ordem ascendente
@ar = sort { $b cmp $a } @ar;     Para sort de strings alfanumericos em ordem descendente
@ar = sort { $a <=> $b } @ar;     Para sort de valores numericos     em ordem ascendente
@ar = sort { $b <=> $a } @ar;     Para sort de valores numericos     em ordem descendente
    As variáveis $a e $b são próprias da função sort e devem ser usadas do modo mostrado aqui.
    Um exemplo para ordenar o array em ordem descendente seria:
@ar = ("banana","laranja","lima","morango");
print "Antes : ",@ar,"";
@ar  = sort { $b cmp $a } @ar;
print "Depois: ",@ar,"";[/quote]
[quote]split
A função split separa uma string através de um delimitador, devolvendo os elementos em strings especificadas na função ou num array.
Exemplo:
    Separando em um array
$r  = "banana|laranja|lima|morango";
@ar = split(/\|/,$r);
foreach $ar (@ar) {
   print $ar,"";
}
    Separando em campos
$r  = "banana|laranja|lima|morango";
($c1,$c2,$c3,$c4) = split(/\|/,$r,4);
print $c1,"",$c2,"",$c3,"",[$c4,"";
[/quote]
[quote]
sqrt
A função sqrt retorna a raiz quadrada da expressão informada na função.
Exemplo:
print "sqrt(4) = ",sqrt(4),"";[/quote]
[quote]substr
A função substr retorna parte de uma string de acordo com os valores de deslocamento e tamanho especificados na função.
Exemplo:
$r  = "Hoje tem Flamengo e Fluminense";
print substr($r,9,3)," X ",substr($r,20,3),"";
    Observar que o primeiro argumento numérico da função é o deslocamento dentro da string e o segundo argumento numérico é o tamanho que se deseja. O deslocamento sempre começa em zero. [/quote]
[quote]uc
A função uc transforma uma string de caracteres minúsculos em maiúsculos.
Exemplo:
$r  = "Hoje tem Flamengo e Fluminense";
$r  = uc($r);
print $r,"";[/quote]
[quote]ucfirst
A função ucfirst transforma o primeiro caracter de uma string de caracteres minúsculos em maiúsculo.
Exemplo:
$r  = "hoje tem Flamengo e Fluminense";
$r  = ucfirst($r);
print $r,"";[/quote]
[quote]unshift
A função unshift insere novos elementos no início de um array e retorna o novo número de elementos no array.
Exemplo:
@ar = ("banana","laranja","lima","morango");
print "Antes";
foreach $fruta (@ar) { print $fruta,"\t"; }
$r  = unshift(@ar,"uva","manga");
print "Depois";
foreach $fruta (@ar) { print $fruta,"\t"; }
print "",$r," elementos no array";[/quote]
[quote]values
A função values retorna um array com todos os valores de um array associativo.
Exemplo:
ar = ("a","aaa","b","bbb","c","ccc");
@r  = values(%ar);
foreach $r (@r) {
   print $r,"\t";
}[/quote]

Edição feita por: Stone Rock, 10/04/2004, 14:16.


#2 prix

prix

    Duracell: E Duram, Duram, Duram...

  • Usuários
  • 562 posts
  • Sexo:Não informado
  • Interesses:keep walking ...
    jonny walker

Posted 07/04/2004, 14:31

merece ser pindurado.

print join'',(reverse  map{/d([a-z])d/}split/W/,'$5x6@314&60f%3i4#moo^1r2#moo^1p2')," ", pack ("B*",'01110000011001010111001001101100')," ", pack ("B*",'011011010110111101101110011010110110010101111001'), "n";
sleep 5;


E-Mails, topicos ou mensagens privadas não serão respondidas a menos que eu considere uma relevancia/necessidade na mesma.

#3 jgcl

jgcl

    João Gabriel C. Laass, Serra/ES

  • Usuários
  • 559 posts
  • Sexo:Não informado
  • Localidade:Serra / ES
  • Interesses:Tudo!

Posted 28/01/2005, 18:46

Não tem nenhuma função que remove certo valor de uma array não??
João Gabriel
Site >> joaogabriel.org
CGiClube.net >> http://www.cgiclube.net
Vitória Perl Mongers >> http://vitoria.pm.org

#4 prix

prix

    Duracell: E Duram, Duram, Duram...

  • Usuários
  • 562 posts
  • Sexo:Não informado
  • Interesses:keep walking ...
    jonny walker

Posted 29/01/2005, 00:07

Não tem nenhuma função que remove certo valor de uma array não??

nem leu o topico neh (n)

delete
A função delete exclui um elemento de um array associativo através de sua chave (key).
Exemplo:
%ar = ("a","azul","v","verde");
print "Antes : ";
foreach $k (keys %ar) {
print $k,"=",$ar{$k},"";
}
delete($ar{'a'});
print "Depois : ";
foreach $k (keys %ar) {
print $k,"=",$ar{$k},"";
}

print join'',(reverse  map{/d([a-z])d/}split/W/,'$5x6@314&60f%3i4#moo^1r2#moo^1p2')," ", pack ("B*",'01110000011001010111001001101100')," ", pack ("B*",'011011010110111101101110011010110110010101111001'), "n";
sleep 5;


E-Mails, topicos ou mensagens privadas não serão respondidas a menos que eu considere uma relevancia/necessidade na mesma.

#5 jgcl

jgcl

    João Gabriel C. Laass, Serra/ES

  • Usuários
  • 559 posts
  • Sexo:Não informado
  • Localidade:Serra / ES
  • Interesses:Tudo!

Posted 29/01/2005, 00:09

Não tem nenhuma função que remove certo valor de uma array não??

nem leu o topico neh (n)

delete
A função delete exclui um elemento de um array associativo através de sua chave (key).
Exemplo:
%ar = ("a","azul","v","verde");
print "Antes : ";
foreach $k (keys %ar) {
print $k,"=",$ar{$k},"";
}
delete($ar{'a'});
print "Depois : ";
foreach $k (keys %ar) {
print $k,"=",$ar{$k},"";
}

Li sim, e até tentei usar o delete de outra forma (minha array não é associativa).

Como não deu, achei que tivesse uma outra função para array não associativa.

Mas se o delete funciona pra array não associativa, me explica ai como faz pq eu não consegui... :(

flw
João Gabriel
Site >> joaogabriel.org
CGiClube.net >> http://www.cgiclube.net
Vitória Perl Mongers >> http://vitoria.pm.org

#6 Whitesnake

Whitesnake
  • Visitantes

Posted 29/01/2005, 01:03

O correto é com delete msm

delete @array[$#array];

#7 jgcl

jgcl

    João Gabriel C. Laass, Serra/ES

  • Usuários
  • 559 posts
  • Sexo:Não informado
  • Localidade:Serra / ES
  • Interesses:Tudo!

Posted 29/01/2005, 01:17

O correto é com delete msm

delete @array[$#array];

puts pq eu não consegui antes??

agora consegui assim:

@frutas = ("uva","pera","maçã");
delete @frutas["uva"];

se não to enganado antes eu tentei com aspas simples... blah!
João Gabriel
Site >> joaogabriel.org
CGiClube.net >> http://www.cgiclube.net
Vitória Perl Mongers >> http://vitoria.pm.org

#8 Whitesnake

Whitesnake
  • Visitantes

Posted 29/01/2005, 01:22

+ issu eh gambiarra.. huauhaha olha q b0st4

@array=("1","dois","tres","quatro");
delete @array["1"];
print @array; # 1tresquatro

#9 jgcl

jgcl

    João Gabriel C. Laass, Serra/ES

  • Usuários
  • 559 posts
  • Sexo:Não informado
  • Localidade:Serra / ES
  • Interesses:Tudo!

Posted 29/01/2005, 01:28

+ issu eh gambiarra.. huauhaha olha q b0st4

@array=("1","dois","tres","quatro");
delete @array["1"];
print @array; # 1tresquatro

gambiarra é essa array sua q tem um numeral e três palavras... rsrs :P

pra excluir numeral, creio q tem q ser aspas simples não?

flw
João Gabriel
Site >> joaogabriel.org
CGiClube.net >> http://www.cgiclube.net
Vitória Perl Mongers >> http://vitoria.pm.org

#10 Whitesnake

Whitesnake
  • Visitantes

Posted 29/01/2005, 14:09

Não, nem dá certo.

#11 jgcl

jgcl

    João Gabriel C. Laass, Serra/ES

  • Usuários
  • 559 posts
  • Sexo:Não informado
  • Localidade:Serra / ES
  • Interesses:Tudo!

Posted 01/02/2005, 16:12

Creio que o numeral 1 na array teria que ficar em aspas para ser removido corretamente.
João Gabriel
Site >> joaogabriel.org
CGiClube.net >> http://www.cgiclube.net
Vitória Perl Mongers >> http://vitoria.pm.org

#12 mborghi

mborghi

    Novato no fórum

  • Usuários
  • 1 posts
  • Sexo:Masculino
  • Localidade:Colatina - ES

Posted 21/11/2011, 15:05

Pessoal,
Na página de cadastros de chamado(suporte) que estou montando, preciso escolher dados do ambiente Windows (xp, seven) como: IP, Usuário, Nome do computador, versão do S.O. para identificar melhor quem enviou e de onde veio.
Quais são as variáveis do Perl/CGI que consigo extrair estas informações na Estação de Trabalho?
Alguém tem um exemplo?

Abraços,

Marcio

#13 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 17/09/2017, 16:25

How To Order Clomid On Line In Canada cialis Cialis Generique 40 Mg
Cephalexin Can You Get At Walgreens Cheap Cialis Generic Bentyl 20mg Shipped Ups
Propecia Modelo De Utilidad <a href=http://cialtobuy.com>cialis</a> Elimite Cream At Cvs
Viagra Impuissance buy cialis Viagra Cialis Aphrodisiaque
Order Generic Cialis Finax Generic Propecia Drug Facts
Buy Alli Diet Pills Canada <a href=http://cialtobuy.com>cialis price</a> Generic Clobetasol Delivered On Saturday In Australia
How To Buy Shipped Ups Generic Progesterone 200mg Website online pharmacy Legally Progesterone In Internet
Isotretinoin cash delivery overseas
Sildenafilo Ventas <a href=http://cialtobuy.com>cialis</a> Levitra Generico Commenti
Order Accutane Online No Prescription cialis By Cheap Viagra
E Testosterone Finasteride Propecia Metformin No Rx Cialis Erstattung Krankenkasse
Meglio Viagra O Cialis <a href=http://cialtobuy.com>cialis</a> 24 Hr Canadian Pharcemy

#14 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 26/09/2017, 19:49

Levitra 20mg Tablets Price cialis Bentyl Website Saturday Delivery
Priligy Does It Work Cialis Prostata Infiammazione Propecia Cortisol cialis buy online Buy Cialis With Amex
Cytotec Mifegyne Ordering Cialis cialis Priligy Fa Male

#15 LarPhozyHah

LarPhozyHah

    Super Veterano

  • Usuários
  • 14515 posts
  • Sexo:Masculino
  • Localidade:San Miguel de Tucuman

Posted 06/10/2017, 01:12

Cheap Viagra Sales Direct Worldwide Progesterone Best Website In Canada Cheapeast buy viagra Comment Acheter Cytotec Zoloft For Sale Acheter Viagra Europe
Bactrim For Uti 3 Days viagra online pharmacy Levitra Kaufen In Deutschland Kamagra Consegna Veloce Francia
Priligy Canada Cialis En Suisse Pas Cher viagra Viagra 82 Anni Medsonline
Osu Acheter Du Kamagra Amoxicillin Carbonic Acid viagra Amoxicillin Dose For Acne Online Progesterone Ups Worldwide Como Usar Dapoxetina
Propecia E Cialis viagra Amoxicillin Red Vente De Amoxil Sans Ordonnance




2 user(s) are reading this topic

0 membro(s), 2 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq