|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Konstantin Tokar 2:5020/400 07 Aug 2000 15:39:24
To : All
Subject : Re: Имя временного файла.
--------------------------------------------------------------------------------
> Как сгенеpиpовать имя вpеменного файла, так что-бы не было конфликтов пpи
> запуске нескольких копий одной пpогpаммы? Желательно с помощью стандаpтной
> функции.
>
use IO::File;
use Fcntl;
use POSIX qw(tmpnam);
sub OpenTempFile {
my $name;
my $FH;
do { $name = tmpnam() }
until sysopen(FH, $name, O_RDWR|O_CREAT|O_EXCL);
$FH=*FH;
return ($name,$FH);
}
Кстати, в документации что-то на эту тему есть, и этот пример оттуда
--
Konstantin Tokar (http://www.mpei.ac.ru/tokar)
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
