ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/371.32  18 Aug 2000  11:55:04
 To : tokar@apmsun.mpei.ac.ru
 Subject : Re: Имя временного файла - свободное пространство на диске
 -------------------------------------------------------------------------------- 
 

 tamar> Я написал такую процедурку для открытия временного файла:
 
 tamar> sub OpenTempFile {
 tamar>    my $name;
 tamar>    my $FH=new IO::Handle;
 tamar>    my $tempdir=$ENV{'TEMP'} || '/tmp';
 tamar>    my $time=time();
 tamar>    my $ext=0;
 tamar>    do { $name = "$time.$ext"; $ext++; }
 tamar>    until sysopen(FH, $name, O_RDWR|O_CREAT|O_EXCL, 0660);
 tamar>    $FH=*FH;
 tamar>    return ($name,$FH);
 tamar> }
 
 tamar> Как бы еще вставить проверку на свободное пространство на диске, что бы
 tamar> проконтролировать невозможность открытия из-за недостатка места на
 tamar> диске?
 
 Так тебе надо вставить проверку на свободное пространство на диске или
 проконтролировать невозможность открытия из-за недостатка места? Если второе,
 то надо проверять не только возвращаемое значение sysopen, но и
 соответствующий $! на предмет ENOSPC. Hу и там другие ошибки бывают. man 2
 open.
 
 -- 
 Счастливо!
   Ран.
 --- ifmail v.2.14.os-p7-tma3
  * Origin: MemoNet (2:5020/371.32@fidonet)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор