Nylon Tecnologia
Mudamos para um dominio proprio.

Acesse nosso novo forum.

http://crawlersnetwork.com/

[tutorial] ler e escrever arquivos

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

[tutorial] ler e escrever arquivos

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

eu ja fiz um tutorial de algo parecido na linguagem c agora vou ensina a ler e escrever pela linguagem perl (importar e exportar), para isso tem q abrir o arquivo caso ele nao exista tem q cria-lo, para abrir um arquivo agente usa a funçao open() e agente vai passar dois argumentos para ela o primeiro é um ponteiro e o segundo e a localizaçao do arquivo q agente vai abrir, o arquivo q eu vou abrir ta na mesma pasta entao so vou precisar colocar o nome e extensao dele, o ponteiro pode ter qualquer nome so que tem q começar com letras e nao pode ser nome de funçao, antes da localizaçao dele agente tem q usar uma sintaxe indicando se agente vai abrir para leitura ou escrita as sintaxes sao


< leitura
> escrita
>> escrita (concatenaçao)

agente vai abrir o arquivo para escrita ">" entao nossa source fica assim

Código:

#!/usr/bin/perl
open(ABRIR,">fts.txt");

se agente abriu o arquivo agente tem q fecha-lo tambem para evitar alguns erros (tipo se vc abrir um arquivo e modifica-lo e nao fechar nao vai alterar ele apenas quando fechar), para fechar agente usa a funçao close() e passa como argumento o ponteiro

Código:

#!/usr/bin/perl
open(ABRIR,">fts.txt");
close(ABRIR);

ta ate ai tudo bem abriu e fecho o arquivo, agora vamos escrever um texto nele para isso agente usa o print mesmo com o nome do ponteiro e logo em seguida o texto que agente vai escrever no arquivo

Código:

#!/usr/bin/perl
open(ABRIR,">fts.txt");
print ABRIR "by hacker fts315";
close(ABRIR);

se o arquivo nao existe entao ele vai ser criado, e se tiver alguma coisa escrita no arquivo vai ser substituido (como se o arquivo fosse deletado e criado denovo), para evitar isso agente usa a sintaxe de escrita(concatenaçao) tambem conhecida como append, o texto novo vai ser colocado depois do anterior e nao substituido ele

Código:

#!/usr/bin/perl
open(ABRIR,">>fts.txt");
print ABRIR "by hacker fts315";
print ABRIR "esse texto fica depois do anterior";
close(ABRIR);

para leitura de um arquivo agente usa sintaxe de leitura "<" ela nao cria um arquivo se ele nao existe entao agente tem q colocar uma checagem para ver se abriu o nao mais isso fica para depois

Código:

#!/usr/bin/perl
open(ABRIR,"<fts.txt");
close(ABRIR);

na source acima e bem parecida com as anterior abrir e fechar o arquivo, agente tem q passar o texto do arquivo para uma variavel uma array para ser mais especifico, para isso existe varios geitos o primeiro e criar um array e depois atribuir o ponteiro (o ponteiro tem q estar entre maior ou menor) veja

Código:

#!/usr/bin/perl
open(ABRIR,"<fts.txt");
@leitura = <ABRIR>;
close(ABRIR);

para exibir o conteudo do array so usar o print nome do array com a posiçao da linha por exemplo se meu arquivo fts.txt tivesse 3 linha entao eu ia exibir assim

Código:

#!/usr/bin/perl
open(ABRIR,"<fts.txt");
@leitura = <ABRIR>;
close(ABRIR);
print $leitura[0];
print $leitura[1];
print $leitura[2];

para saber se o arquivo foi aberto ou nao basta usar a condiçao unless que e a condiçao oposta do if (se retorna falso ele faz a açao) ou usar o if com uma negaçao (DA NO MESMO!!!)

Código:

#!/usr/bin/perl
unless(open(ABRIR,"<fts2.txt"))
{
  print "o arquivo nao pode ser aberto";
}
@leitura = <ABRIR>;
close(ABRIR);

ou

Código:

#!/usr/bin/perl
if(!(open(ABRIR,"<fts2.txt")))
{
  print "o arquivo nao pode ser aberto";
}
@leitura = <ABRIR>;
close(ABRIR);

bom galera mais um tutorial pra vcs ^^

by hacker fts315
avatar
hacker fts315
Membro

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

Ver perfil do usuário http://endoffile.umforum.net

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum