¿Cómo obtengo el tamaño de un archivo en megabytes con Perl?
Quiero obtener el tamaño de un archivo en el disco en megabytes. Utilizando la-s
operator me da el tamaño en bytes, pero voy a suponer que dividir esto por un número mágico es una mala idea:
my $size_in_mb = (-s $fh) / (1024 * 1024);
Debería usar una variable de solo lectura para definir 1024 o hay una forma programática de obtener la cantidad de bytes en un kilobyte?
EDITAR Se actualizó el cálculo incorrecto.