如何得知文件的大小

wenhuiwen

各位好。我最近在solaris上用fortran处理文件，处理之前需要知道文件的大小。当然用ls －l
或者 ls－al 可以知道文件的大小，可是我处理的文件有好多，而且用ls 命令得到一些自己不需要的信息，我只需要文件的大小。请问有什么办法直接得到文件的大小？

briangao

du -sk *
or
ls -l |awk '{print $9, $5}'
or
ls -l |awk '{print $9,"is using",$5,"bytes"}'

enod

http://gcc.gnu.org/onlinedocs/gfortran/STAT.html

Next: SUM, Previous: SRAND, Up: Intrinsic Procedures
6.201 STAT — Get file status

Description:
    This function returns information about a file. No permissions are required on the file itself, but execute (search) permission is required on all of the directories in path that lead to the file.

    The elements that are obtained and stored in the array BUFF:

    buff(1)         Device ID
    buff(2)         Inode number
    buff(3)         File mode
    buff(4)         Number of links
    buff(5)         Owner's uid
    buff(6)         Owner's gid
    buff(7)         ID of device containing directory entry for file (0 if not available)
    buff(         File size (bytes)
    buff(9)         Last access time
    buff(10)         Last modification time
    buff(11)         Last file status change time
    buff(12)         Preferred I/O block size (-1 if not available)
    buff(13)         Number of blocks allocated (-1 if not available)

    Not all these elements are relevant on all systems. If an element is not relevant, it is returned as 0.

    This intrinsic is provided in both subroutine and function forms; however, only one form can be used in any given program unit.
Standard:
    GNU extension
Class:
    Subroutine, function
Syntax:
    CALL STAT(FILE,BUFF[,STATUS])
Arguments:

    FILE         The type shall be CHARACTER(*), a valid path within the file system.
    BUFF         The type shall be INTEGER(4), DIMENSION(13).
    STATUS         (Optional) status flag of type INTEGER(4). Returns 0 on success and a system specific error code otherwise.

Example:

              PROGRAM test_stat
                INTEGER, DIMENSION(13) :: buff
                INTEGER :: status
              
                CALL STAT("/etc/passwd", buff, status)
              
                IF (status == 0) THEN
                  WRITE (*, FMT="('Device ID:',               T30, I19)" buff(1)
                  WRITE (*, FMT="('Inode number:',            T30, I19)" buff(2)
                  WRITE (*, FMT="('File mode (octal):',       T30, O19)" buff(3)
                  WRITE (*, FMT="('Number of links:',         T30, I19)" buff(4)
                  WRITE (*, FMT="('Owner''s uid:',            T30, I19)" buff(5)
                  WRITE (*, FMT="('Owner''s gid:',            T30, I19)" buff(6)
                  WRITE (*, FMT="('Device where located:',    T30, I19)" buff(7)
                  WRITE (*, FMT="('File size:',               T30, I19)" buff(
                  WRITE (*, FMT="('Last access time:',        T30, A19)" CTIME(buff(9))
                  WRITE (*, FMT="('Last modification time',   T30, A19)" CTIME(buff(10))
                  WRITE (*, FMT="('Last status change time:', T30, A19)") CTIME(buff(11))
                  WRITE (*, FMT="('Preferred block size:',    T30, I19)") buff(12)
                  WRITE (*, FMT="('No. of blocks allocated:', T30, I19)") buff(13)
                END IF
              END PROGRAM
         


See also:
    To stat an open file: FSTAT, to stat a link: LSTAT

例子通过了在solaris 10 x86 sun studio 12 的f90下编译运行。具体参数可能有所变化，查查Sun Studio 12: Fortran Library Reference 。

[ 本帖最后由 enod 于 2007-9-21 23:06 编辑 ]

wenhuiwen

谢谢二楼三楼的答复。呵呵，我按照三楼的做了，可是返回值都是0！

wenhuiwen

我的程序是这样的：
      PROGRAM test_stat
      INTEGER*4 buff(13)
      integer stats(13)
      character*8 fname
      integer*4 length
      fname='/data2/filter/p1.dat'
      call stat(fname,stats)
      length = stats(
      END
可是输出结果是：0， 为什么呢？我的文件的大小可是793 字节，为什么呢？

enod

character*8 fname??
         ~~~
Try: character*512 fname.

Any error messages? Which version/compiler are you using?

wenhuiwen

呵呵，问题解决了！是character*8 fname 出问题了！fname='/data2/filter/p1.dat'早已超过8了！谢谢 enod 骑士的帮助！你是fortran高手！

yuhuohu

长见识了