Perl: maneira geral de encontrar o tamanho do dispositivo de bloco

Question

Eu uso -s regularmente para encontrar o tamanho de um arquivo. Funciona em plataforma cruzada.

Existe uma maneira similar e bem testada de encontrar o tamanho de um dispositivo de bloco?

Não estamos falando do tamanho de um sistema de arquivos ou do espaço livre em um sistema de arquivos, mas do tamanho do dispositivo de bloco real?

    

Answer 1

Isso parece funcionar:

perl -e 'seek(STDIN,0,2); print tell(STDIN);' < /dev/sda

e parece razoavelmente portátil. Requer raiz.

Seria bom encontrar uma solução que não requer raiz.

Testado em: Linux, CygWin.