|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Konstantin Tokar 2:5020/400 17 Aug 2000 18:38:50
To : All
Subject : Имя временного файла - свободное пространство на диске
--------------------------------------------------------------------------------
Я написал такую процедурку для открытия временного файла:
sub OpenTempFile {
my $name;
my $FH=new IO::Handle;
my $tempdir=$ENV{'TEMP'} || '/tmp';
my $time=time();
my $ext=0;
do { $name = "$time.$ext"; $ext++; }
until sysopen(FH, $name, O_RDWR|O_CREAT|O_EXCL, 0660);
$FH=*FH;
return ($name,$FH);
}
Как бы еще вставить проверку на свободное пространство на диске, что бы
проконтролировать невозможность открытия из-за недостатка места на
диске?
--
Konstantin Tokar (http://www.mpei.ac.ru/tokar)
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
