2016 Update

Task/File-input-output/00DESCRIPTION

@@ -1,3 +1,12 @@
-{{selection|Short Circuit|Console Program Basics}}
+ {{selection|Short Circuit|Console Program Basics}} [[Category:Simple]]
 
-In this task, the job is to create a file called "output.txt", and place in it the contents of the file "input.txt", ''via an intermediate variable.'' In other words, your program will demonstrate: (1) how to read from a file into a variable, and (2) how to write a variable's contents into a file. Oneliners that skip the intermediate variable are of secondary interest — operating systems have copy commands for that.
+;Task:
+Create a file called   "output.txt",   and place in it the contents of the file   "input.txt",   ''via an intermediate variable''.
+
+In other words, your program will demonstrate:
+::#   how to read from a file into a variable
+::#   how to write a variable's contents into a file
+
+<br>
+Oneliners that skip the intermediate variable are of secondary interest — operating systems have copy commands for that.
+<br><br>

Task/File-input-output/Fortran/file-input-output.f

@@ -2,16 +2,16 @@ program FileIO
 
   integer, parameter :: out = 123, in = 124
   integer :: err
-  character(len=1) :: c
+  character :: c
 
   open(out, file="output.txt", status="new", action="write", access="stream", iostat=err)
-  if ( err == 0 ) then
+  if (err == 0) then
      open(in, file="input.txt", status="old", action="read", access="stream", iostat=err)
-     if ( err == 0 ) then
+     if (err == 0) then
         err = 0
-        do while ( err == 0 )
+        do while (err == 0)
            read(unit=in, iostat=err) c
-           if ( err == 0 ) write(out) c
+           if (err == 0) write(out) c
         end do
         close(in)
      end if

Task/File-input-output/Perl-6/file-input-output-1.pl6

@@ -1,5 +1 @@
-my $in = open "input.txt";
-my $out = open "output.txt", :w;
-for $in.lines -> $line {
-	$out.say($line);
-}
+spurt "output.txt", slurp "input.txt";

Task/File-input-output/Perl-6/file-input-output-2.pl6

@@ -1 +1,7 @@
-(open "output.txt", :w).print(slurp "input.txt")
+my $in = open "input.txt";
+my $out = open "output.txt", :w;
+for $in.lines -> $line {
+    $out.say: $line;
+}
+$in.close;
+$out.close;