Dicas de Perl
1- Consideraçoes iniciais:
Aqui vai algumas coisas pra vc se lembrar sempre:
Todo programa escrito em Perl deve sempre começar com esta linha:
Código:#!/usr/local/bin/perl ou #!/usr/bin/perl
Comentarios sao iniciados com o simbolo #, e terminados no final
da linha.
Toda declaração em Perl deve terminar com um ponto-e-vàrgula ";" (sem parenteses )
------------------------------------------------------------------
# O uso do STDIN
STDIN eh usado para definir um valor dentro de um programa...
algo como:
Voce tem ... anos...
$idade=<STDIN>;
print voce tem $idade anos;
saca?? Vamos explicar isso melhor!!
supondo q vc queira saber o nome e o email da pessoa..
#!/usr/bin/perl
print "Digite seu nome:\t\n";
$nome=<STDIN>;
print "Seu e-mail\t\n";
$mail=<STDIN>;
print "Seu nome é:$nome, seu email é $email";
ta ligado?? é mole!! sem prob/.. Oh! o \t\n é o seguinte:
\t é o TAB .. e o \n é o newline.. ou seja... vai pra outra linha...
# Agora deixe seu 'programinha' um pouquinho melhor!!
Vamos supor q vc queira gravar o registro digitado em um outro arquivo.. ex.: .txt...
daà a manha serí a seguinte:
#!/usr/bin/perl
print "Qual eh seu nome?\n";
$nome=<STDIN>;
print "Idade?";
$idade=<STDIN>;
print "$nome\n$idade";
push(@areg,$nome);
push(@areg,$idade);
$reg=join(":", @areg);
open(arq, ">>../docs/dados.txt");
print arq "$reg\n";
close(arq);
taà!! os cmds novos são push, o '@', join, open e esses sinais '>>'
push => adiciona valores a uma variível(matriz).. no caso (@areg)
ou senja no exemplo nos vamos colocar o conteudo de $nome e $idade
dentro da matriz @areg
@areg => uma variível matriz.. representada por $nome e $idade
join => junta os elementos dentro do array através dos dois-pontos
open => usado pra abrir certo programa... do tipo open(arq, ">>../docs/dados.txt");
isso abriu o arquivo dados.txt e imprimiu o $nome e o $idade... dentro do txt...
'mais informações sobre esse comando adiante'...
'>>' => esse comando sem dúvida foi o mais importante no programa.. ele criou o
arquivo dados.txt e pode tb adicionar valores a seguir...
# Aprendendo o OPEN...
#!/usr/bin/perl
open(arq, ">>../pasta/doc.txt");
print arq "HEY!!\n";
print arq "WE ARE THE YOUTH";
close(arq);
mto simples... o prog acima faz o seguinte
open => 'abre' o programa
arq => uma porta virtual que abrimos para um arquivo.Depois de aberta a porta podemos
entrar e sair por ela: podemos gravar e ler registros no arquivo. (ex. a seguir)
>>../pasta/doc.txt => cria no diretório /pasta/ o arquivo doc.txt...
- O que podemos fazer com um arquivo em perl...
* ler registros
* gravar registros no fim do arquivo
* apagar todo o arquivo e gravar novos registros.
exs:
open(arq, "</pasta>../pasta/doc.txt");
o sinal maior do q.. apaga-se todo o registro e imprime novos....
open(arq, ">>../pasta/doc.txt");
os sinais maior do q... cria-se/adiciona... um documento/registro... 'ex'
caso o arquivo doc.txt ñ exita ele é criado na '/pasta/'..
se ele existir o registro continuarí e serí adicionado ....
esse 'arq' é chamado de FILEHANDLE... ele pode ser nomeado de qualquer maneira...
do tipo file.. filehandle.. fh.. arq... doc.. sei lí!! aà depende do q vc queira!
acima foi apenas citado um exemplo...
By TXT.ORG



Responder com Citação
dai to tetando me aprofundar mais hehe...
