[Cascavel-pm] RES: Verificar tamanho arquivo

[Fernando]

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>