Trabalhando com arquivos no Perl

Cooler_

Aqui venho mostrar de forma direta como trabalhar com arquivos e permissões no Linux usando Perl.

[ Hits: 42.084 ]

Por: C00L3R_ em 04/09/2008 | Blog: https://github.com/CoolerVoid

0 0

Denuncie Favoritos Indicar Impressora

Mais algumas funções e conclusão

Como posso mover para uma árvore de diretórios diferente

Você pode usar o comando "chdir" para fazer este feito, por exemplo:

chdir("/etc") || die "você não pode dar cd /etc ($!)";

Como posso abrir um diretório

Simples, usando o comando "opendir". Exemplo:

opendir(ETC,"/etc") || die "no etc?: $!";
while ($name = readdir(ETC)) {
print "$name\n";
}
closedir(ETC);

Note o comando "readdir", que seria para ler o que está no "/etc".

Como posso deletar um documento ou um diretório no Perl

Para isso temos o comando "unlink". Digamos que queremos deletar dois documentos ou diretórios, por exemplo:

unlink ("seila","index.html"); # Mata dois pássaros de uma vez
unlink <*.txt>; # mesma coisa de "rm *.txt" em shell

Você pode usar um "foreach" para deletar os documentos de um diretório:

foreach $file (<*.txt>) {
unlink($file) || warn "Não foi possível deletar docs de $file: $!";
}

Muito simples. Para diretórios pode se usar "rmdir":

rmdir("cemiterio") || die "Não foi possível remover cemitério: $!";

Agora, chegando ao fim

Renomeando arquivos ou documentos, criando diretórios e permissões:

rename("teste","bobo") || die "Não foi possível renomear pedidos: $!";

Para criar um diretório basta:

mkdir("teste",0777) || die "Não foi possível dar mkdir: $!";

O que seria "0777" seria "rwx" em octal, isto é, permissão para alterar, ler e executar no padrão Unix.

Falando em permissões, em Perl você pode usar, para definir permissões o comando "chmod". Exemplo:

chmod(0666,"arquivo","ola");

Em Perl pode até usar o comando "chown", como exemplo:

chown(1234, 35, "slate", "granite");

Explicando, "1234" seria o "UID" e 35 seria o "GID".

Vou acabar por aqui com o artigo. Já dá para fazer muitas brincadeiras com isso já. ;-)

Dúvidas? Comentários?

POG: programação orientada a gambiarras. Mais informações em:
http://desciclo.pedia.ws/wiki/Pog

Página anterior

Páginas do artigo

   1. Direto ao ponto
   2. Escrever num documento com Perl
   3. Mais algumas funções e conclusão

Outros artigos deste autor

Apache + PHP + MySQL + ftpd no OpenBSD

Usando OpenBSD como desktop

Bind: Explorando e evitando falhas

Módulos de Web no Perl

Buffer Overflow: Entendendo e explorando

Leitura recomendada

Decodificando filmes do programa "3w player"

Catalyst Framework Perl - Parte III

Catalyst Framework Perl - (parte 2)

Enviando notificações do Nagios para o MSN

Autenticação mútua SSL em servidores de NF-e e CT-e

Comentários

[1] Comentário enviado por grandmaster em 04/09/2008 - 21:54h

Legal. Mas quanto mais eu leio coisas em Perl mais eu não entendo :D

Renato de Castro Henriques
CobiT Foundation 4.1 Certified ID: 90391725
http://www.renato.henriques.nom.br

0 0

[2] Comentário enviado por albertguedes em 05/09/2008 - 13:40h

opa opa opa, impressão minha ou PERL está voltando a tona ?
Espero que sim porque PERL é uma excelente linguagem, não vejo motivos para alguém não usá-la.
Valeu Tony.

0 0

[3] Comentário enviado por cesar em 08/09/2008 - 13:39h

Bacana, mas como o amigo aí de cima disse, hauha não entendo nada de Perl, complicaadoo, hauha

[]'s

0 0

[4] Comentário enviado por SMarcell em 15/09/2008 - 01:58h

POGers de todo o mundo, uni-vos!

-------
Bacana, mas como o amigo aí de cima disse, hauha não entendo nada de Perl, complicaadoo, hauha
-------

Comeceie a conhecer Perl a poucas semanas e como não sou programador profissional (apenas um entusiasta meia-boca!), acho ele bastante parecido com shell script, o que facilita bastante as coisas já que tenho um conhecimento mediano em shell.

=)

0 0