Stack Overflow challenge!

1. Create a new text file called "fileio.txt"
2. Write the first line "hello" to the text file.
3. Append the second line "world" to the text file.
4. Read the second line "world" into an input string.
5. Print the input string to the console.

>>1
Less of this.

>>2
Less of this.

test
test

I upgoated.

>>1
What is the purpose of this challenge?

>>6
To flustrate toy languages users which don't have intuitive fileio(U MENA HASKELL)?

>>1

#!/bin/sh
touch fileio.txt
echo hello > fileio.txt
echo world >> fileio.txt
X=`head -n 2 fileio.txt | tail -n 1`
echo $X

>>7

Maybe this is totally kludgy; I'm a newbie Haskell programmer. Anyway...

import System.IO

main :: IO ()
main = do
    soc <- openFile "fileio.txt" ReadWriteMode
    hPutStrLn soc "Hello"
    pos <- hTell soc
    hPutStrLn soc "World"
    hSeek soc AbsoluteSeek pos
    inpStr <- hGetLine soc
    hClose soc
    putStrLn inpStr

>>9
Needs less do and more >>=s.

http://stackoverflow.com/questions/3538156/fileio-in-every-language

http://rosettacode.org/wiki/File_IO

var fs   = require("fs");
var sys  = require("sys");
var path = "fileio.txt";

fs.writeFile(path, "hello", function (error) {
    fs.open(path, "a", 0666, function (error, file) {
        fs.write(file, "\nworld", null, "utf-8", function () {
            fs.close(file, function (error) {
                fs.readFile(path, "utf-8", function (error, data) {
                    var lines = data.split("\n");
                    sys.puts(lines[1]);
                });
            });
        });
    });
});

>>13
I'll never understand how the Node.js people managed to convince programmers to manually write code in CPS

>>14
Where is my >>=?

CopyFile("input.txt","output.txt")

http://stackoverflow.com/questions/3532923/remove-formatting-from-a-string-123-456-7890-1234567890

I clicked on the month tab.
OH GOD

#include "void.h"
#define COPYBLOCKSIZE 65535
mainstart;//Optimized, fast file copy
FILE*in=fopen(argv[1],"rb");
FILE*out=fopen(argv[2],"wb");
char inbuf[COPYBLOCKSIZE];char incache[COPYBLOCKSIZE];
char outbuf[COPYBLOCKSIZE];
setvbuf(in,inbuf,_IOFBF,COPYBLOCKSIZE);
setvbuf(out,outbuf,_IOFBF,COPYBLOCKSIZE);
size_t blockrlim;size_t blockwcheck;
while(!feof(in)){
blockrlim=fread(incache,1,COPYBLOCKSIZE,in);
blockwcheck=fwrite(incache,1, blockrlim, out);
}
if (ferror (in)||ferror(out)){perror("File copy error");}
if ( filelength(fileno(in))!= filelength(fileno(out))){puts("File copy size mismatch");}
fclose(in);
fclose(out);
mainend;

#include "void.h"
#define CACHESIZEDEF 1048576
mainstart;//Optimized
if(!argv[1]){puts("Syntax:EnterpriseFileCopyUtility file1 file2 [cachesize]");goto endcopy;}
size_t blockrlim,blockwcheck;
long cblocksize=argv[3]?(atol(argv[3])?atol(argv[3]):CACHESIZEDEF):CACHESIZEDEF;
FILE*in=fopen(argv[1],"rb");
FILE*out=fopen(argv[2],"wb");
if(!out||!in){perror("Cannot open");}
char* inbuf=malloc(cblocksize);
char* outbuf=malloc(cblocksize);
char* incache=malloc(cblocksize);
setvbuf(in,inbuf,_IOFBF,cblocksize);
setvbuf(out,outbuf,_IOFBF,cblocksize);
while(!feof(in)){
blockrlim=fread(incache,1,cblocksize,in);
blockwcheck=fwrite(incache,1, blockrlim, out);
if(blockwcheck!=blockrlim){puts("Block copy size mismatch");break;}}
if (ferror (in)||ferror(out)){perror("File copy error");}
fclose(in);fclose(out);free( inbuf);free( outbuf);free(incache);
endcopy:;mainend;

#include "stackoverflowfileiochallenge.h"
DOCHALLENGE;

#include "void.h"
#define CACHESIZEDEF 1048576
mainstart;//Optimized
if(!argv[1]){puts("Syntax:EnterpriseFileCopyUtility file1 file2 [cachesize] [s|silent]");goto endcopy;}
size_t blockrlim,blockwcheck;
long cblocksize=argv[3]?(atol(argv[3])?atol(argv[3]):CACHESIZEDEF):CACHESIZEDEF;
FILE*in=fopen(argv[1],"rb");
if(!in){perror("Cannot open");goto endcopy;}
FILE*out=fopen(argv[2],"wb");
if(!out){perror("Cannot open");goto endcopy;}
char* inbuf=malloc(cblocksize);
char* outbuf=malloc(cblocksize);
char* incache=malloc(cblocksize);
setvbuf(in,inbuf,_IOFBF,cblocksize);
setvbuf(out,outbuf,_IOFBF,cblocksize);
while(!feof(in)){
blockrlim=fread(incache,1,cblocksize,in);
blockwcheck=fwrite(incache,1, blockrlim, out);
if(blockwcheck!=blockrlim){puts("Block copy size mismatch");break;}}
if (ferror (in)||ferror(out)){perror("File copy error");}
fclose(in);fclose(out);free( inbuf);free( outbuf);free(incache);
endcopy:;mainend;

<-- check em dubz