Append a record to the end of a text file: Difference between revisions

<langsyntaxhighlight lang="dos">

<langsyntaxhighlight Clang="c">#include <stdio.h>

}</langsyntaxhighlight>

end program append.</langsyntaxhighlight>

<langsyntaxhighlight lang="lisp">(defvar *initial_data*

<langsyntaxhighlight Dlang="d">class Record {

}</langsyntaxhighlight>

<langsyntaxhighlight lang="elixir">

The resulting output is strung along an output line, with a default line length of 132 (a standard lineprinter width); the specification of RECL = 666 ensures that all the output fields are rolled to one line - that isn't padded out to 666 characters: this is not a fixed-length record despite the specification of RECL as a constant, though each record turns out to be 248 characters long. Unfortunately, the trailing spaces in each character variable are rolled forth and there is no option along the lines of <code>WRITE (MSG,*) TRIM(NOTE)</code> One could instead use a suitable FORMAT statement with "A" format codes, but every element of NOTE would have to be named in the output list and the TRIM function applied only to each character field. Not only would this be tedious and error-prone, there is no format code for the enquoting and double-quoting of the texts and thus, no peace of mind... One would of course devise a subroutine to write out such a record (which would probably be more complex, with the FULLNAME subdivided, etc.), but the task's main objective is to demonstrate appending output to a file.<langsyntaxhighlight Fortranlang="fortran"> PROGRAM DEMO !As per the described task, more or less.

END</langsyntaxhighlight>

<langsyntaxhighlight lang="freebasic">' FB 1.05.0 Win64

Close #1</langsyntaxhighlight>

<langsyntaxhighlight lang="go">package main

}</langsyntaxhighlight>

<langsyntaxhighlight lang="groovy">class PasswdRecord {

}</langsyntaxhighlight>

<langsyntaxhighlight lang="groovy">def checkPasswdFile = { it ->

checkPasswdFile()</langsyntaxhighlight>

<langsyntaxhighlight lang="haskell">

<langsyntaxhighlight lang="haskell">

<langsyntaxhighlight lang="unicon">procedure main()

end</langsyntaxhighlight>

<langsyntaxhighlight lang="j">require'strings ~system/packages/misc/xenos.ijs'

assert 1 e. R3 E. fread passwd </langsyntaxhighlight>

<lang java>import static java.util.Objectsio.requireNonNullFileOutputStream;

}</langsyntaxhighlight>

<langsyntaxhighlight lang="julia">

fh = open(filename, "a") # should throw an exception if cannot open in a locked or exclusive mode for append

<langsyntaxhighlight Mathematicalang="mathematica">data = <|"account" -> "xyz", "password" -> "x", "UID" -> 1003,

Print["Appended record: " <> asString[data]];</langsyntaxhighlight>

<langsyntaxhighlight Matlablang="matlab"> DS{1}.account='jsmith';

fclose(fid); </langsyntaxhighlight>

<langsyntaxhighlight Perllang="perl">use strict;

=={{header|Perl 6Phix}}==

has"" $.name;>ps

haslen $.password;for get

has $.fullname; tostr

has $.office; else

has $.extension; ltos

has $.email; endif

has $.directory; endif

-1 join ':',del

":" $.name,xplit

"<ls>" find 1 + $.password,snip

"</ls>" find snip 1 $.UID,del

rot len >ps rot $.GID,ps> set swap chain

["jdoe:", "x:", "1002:", "1000:", ["Jane Doe", "Room 1004", "(234)555-8914", "(234)555-0044", "jdoe@rosettacode.org:"], "/home/jdoe:", "/bin/bash"]

| sequenceString, array or stream resource || textNearly fileanything || builtinbuilt-in || ☑ || ☑☐ || ☑ (Advisory lock)

"account:password:UID:GID:fullname,office,extension,homephone,email:directory:shell\n"

"jsmith:x:1001:1000:Joe Smith,Room 1007,(234)555-8917,(234)555-0077,jsmith@rosettacode.org:/home/jsmith:/bin/bash\n"

{"jsmith","jdoe:x",1001,:1002:1000,{"Joe:Jane Smith"Doe,"Room 1007"1004,"(234)555-8917"8914,"(234)555-0077"0044,"jsmithjdoe@rosettacode.org"},":/home/jsmith","jdoe:/bin/bash"}

{"xyz","jsmith:x",1003,:1001:1000,{"X:Joe Yz"Smith,"Room 1003"1007,"(234)555-8913"8917,"(234)555-0033"0077,"xyzjsmith@rosettacode.org"},":/home/xyz","jsmith:/bin/bash"}

<langsyntaxhighlight PicoLisplang="picolisp">(setq L '((jsmith x 1001 1000

(bye)</langsyntaxhighlight>

<langsyntaxhighlight lang="python">#############################

print "Appended record:",passwd_list[-1][:-1]</langsyntaxhighlight>

<langsyntaxhighlight lang="racket">

<langsyntaxhighlight lang="rexx">/*REXX program writes (appends) two records, closes the file, appends another record.*/

/*some error causes: no write access, disk is full, file lockout, no authority*/</langsyntaxhighlight>

<langsyntaxhighlight lang="ruby">Gecos = Struct.new :fullname, :office, :extension, :homephone, :email

puts File.readlines(filename)</langsyntaxhighlight>

{{libheader|Scala}}<langsyntaxhighlight lang="scala">import java.io.{File, FileWriter, IOException}

} // 57 lines</langsyntaxhighlight>

<langsyntaxhighlight lang="ruby">define (

say "** Test passed!"</langsyntaxhighlight>

<langsyntaxhighlight lang="tcl"># Model the data as nested lists, as that is a natural fit for Tcl

puts "last record is for [lindex $recs end 0], named [lindex $recs end 4 0]"</langsyntaxhighlight>{{out}}

<langsyntaxhighlight lang="bash">rec1=(

cat "$filename"</langsyntaxhighlight>

<langsyntaxhighlight lang="ursa"># ursa appends to files by default when the out function is used

end while</langsyntaxhighlight>

<langsyntaxhighlight lang="zkl">var [const]

}</langsyntaxhighlight>

<langsyntaxhighlight lang="zkl">fcn strToPasswd(str){ // blow apart file line to class

}</langsyntaxhighlight>

<langsyntaxhighlight lang="zkl">jsmith:=Passwd("jsmith","x",1001, 1000,

File(filename).read().text.print(); // print file</langsyntaxhighlight>