[Cascavel-pm] RES: Verificar tamanho arquivo
Fernando
fernandolouis em terra.com.br
Sexta Maio 21 05:14:35 PDT 2010
Paty,
Para saber o tamanho em byte do arquivo, utilize:
$tamanho_byte = (stat "$diretorio/$arquivo")[7];
Depois divida o valor por 1024 para obter o resultado aproximado em KB.
E então, divida novamente por 1024 para obter o resultado aproximado em MB.
E para pular o que não for arquivo (dentro do dentro do foreach), faça o
seguinte:
if($arquivo eq "."){ next; }
if($arquivo eq ".."){ next; }
Well, é dessa forma que eu trato esse tipo de situação.
[]s,
Fernando
De: cascavel-pm-bounces+fernandolouis=terra.com.br em pm.org
[mailto:cascavel-pm-bounces+fernandolouis=terra.com.br em pm.org] Em nome de
Patty Silva
Enviada em: quinta-feira, 20 de maio de 2010 11:00
Para: Cascavel Perl Mongers
Assunto: [Cascavel-pm] Res: Verificar tamanho arquivo
Eu achava que o comando:opendir(DIR, $dir) ........
Nao precisaria do diretorio :)
Obrigada
_____
De: Ednardo Lobo <ednardo em lobo.eti.br>
Para: Cascavel Perl Mongers <cascavel-pm em pm.org>
Enviadas: Quinta-feira, 20 de Maio de 2010 13:29:06
Assunto: Re: [Cascavel-pm] Verificar tamanho arquivo
Patty,
Use "$dir/$file" ao invés de apenas "$file".
;-)
Patty Silva escreveu:
> Olá Pessoal,
> Uma dúvida boba que surgiu e que não está funcionando.
> Estou lendo um diretorio no qual tentei usar o next if para nao pegar os
arquivos vazios.
> Só que nao esta funcionando. Alguem saberia me dizer o pq??
>
>
> opendir(DIR, $dir) or die "Erro ao tentar acessar o diretorio:$!";
>
> foreach my $file (sort(readdir DIR))
> {
>
>
> if(-z $file) {print "File is empty!\n";} --------> Nao funcionou
>
> next if $file eq '.' or $file eq '..' or ($file !~ /\.log$/ ) or -z
$file; ----------> tb nao funcionou...
> ...........
>
>
>
> Obrigada
-- Ednardo Lobo
www.lobo.eti.br
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm
__________ Information from ESET NOD32 Antivirus, version of virus signature
database 5133 (20100520) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
__________ Information from ESET NOD32 Antivirus, version of virus signature
database 5133 (20100520) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
__________ Information from ESET NOD32 Antivirus, version of virus signature
database 5134 (20100521) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/cascavel-pm/attachments/20100521/772b3294/attachment.html>
Mais detalhes sobre a lista de discussão Cascavel-pm