Secure temporary file: Difference between revisions

 

=={{header|Ada}}==

This example creates a temporary file, writes to the file, then reads from the file.

 

 

procedure Temp_File is

Get_Line(File => Temp, Item => Contents, Last => Length);

Put_Line(Contents(1..Length));

 

=={{header|C}}==

#include <stdio.h>

 

int main(void)

{

 

The following {{works with|POSIX}}

#include <stdio.h>

 

int main(void)

{

 

=={{header|C sharp|C#}}==

 

using System.IO;

 

 

 

 

=={{header|D}}==

{{works with|Tango}}

import tango.io.TempFile, tango.io.Stdout ;

 

 

// both can only be accessed by the current user (the program?).

 

=={{header|Go}}==

 

 

=={{header|Groovy}}==

 

Output:

 

=={{header|Haskell}}==

 

main = do (pathOfTempFile, h) <- openTempFile "." "prefix.suffix" -- first argument is path to directory where you want to put it

-- do stuff with it here; "h" is the Handle to the opened file

 

=={{header|HicEst}}==

! A scratch file is automatically deleted upon process termination.

 

OPEN( FIle='DenyForOthers', DenyREAdWRIte, IOStat=ErrNr)

WRITE(FIle='DenyForOthers') "something"

 

=={{header|Java}}==

 

 

 

 

=={{header|Lua}}==

 

-- do some file operations

 

 

 

=={{header|OCaml}}==

 

=={{header|Perl}}==

function interface:

$fh = tempfile();

($fh2, $filename) = tempfile(); # this file stays around by default

print "$filename\n";

close $fh;

 

object-oriented interface:

$fh = new File::Temp;

print $fh->filename, "\n";

 

=={{header|PHP}}==

// do stuff with $fh

fclose($fh);

$filename = tempnam('/tmp', 'prefix');

echo "$filename\n";

 

=={{header|PicoLisp}}==

they are (e.g. because such a file name is passed to a child process), explicit

locks with the 'ctl' functions are possible.

-> 123

 

: (let F (tmp "foo")

(ctl F # Get exclusive lock

 

=={{header|PureBasic}}==

Protected a, Result$

 

CloseFile(File)

EndIf

 

=={{header|Python}}==

 

 

>>> invisible = tempfile.TemporaryFile()

>>> invisible.name

'/tmp/tmpZNfc_s'

>>> visible.close()

 

 

 

 

try:

# use the path or the file descriptor

finally:

 

=={{header|Ruby}}==

 

 

=={{header|Scala}}==

 

=={{header|Standard ML}}==

 

=={{header|Tcl}}==

{{works with|Tcl|8.6}}

Will store the name of the file in the variable <code>filenameVar</code> and an open read-write channel on the file in the variable <code>chan</code>.

Note that because we're asking for the filename in the script, Tcl does not automatically clean the file. (There are cases where auto-cleaning would be really unwanted.) If we hadn't asked for it, the file would be automatically deleted (at a time that depends on platform constraints).

=={{header|TUSCRIPT}}==

$$ MODE TUSCRIPT

tmpfile="test.txt"

FILE $tmpfile = text

- tmpfile "test.txt" can only be accessed by one user an will be deleted upon programm termination

 

=={{header|UNIX Shell}}==

thereunder.

 

TRY=0

while :; do

cd "$MYTMP" || {

echo "Temporary directory failure on $MYTMP" >&2

 

Note that the shell special variable $$ (the PID of the currently ''exec()''-ed shell) is unique at any given

a directory. (Simple changes to the code could limit the number of attempts or implement a timeout).

 

{{omit from|Lotus 123 Macro Scripting}}

{{omit from|PARI/GP}}

{{omit from|TI-89 BASIC}} <!-- Does not have a filesystem, just namespaced variables, which can't be listed from a program. Doesn't have background processes either. -->

{{omit from|ZX Spectrum Basic|No network filesystem or background processes}}