[tutorial] ler e escrever arquivos

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