File input/output

File input/output
You are encouraged to solve this task according to the task description, using any language you may know.

In this task, the job is to create a file called "output.txt", and place in it the contents of the file "input.txt".

Perl

Interpreter: Perl 5.8.8

#!/usr/bin/perl -w

open INPUT, "<input.txt";
open OUTPUT, ">output.txt";

while ( <INPUT> ) {
  print OUTPUT $_;
}

mIRC

Compiler: mIRC

 alias Write2FileAndReadIt {
 .write myfilename.txt Goodbye Mike!
 .echo -a Myfilename.txt contains: $read(myfilename.txt,1)
 }

UNIX Shell

Interpreter: Bourne Again SHell Operating System: UNIX

#!/usr/bin/bash

cat input.txt > output.txt

Tcl/Tk

Interpreter: tclsh, eTcl, wish, tixwish Operating System: UNIX, Linux, BSD, Windows, WinCE, PocketPC, Mac, BeOS

1. open file for writing

set myfile [open "README.TXT" w]

1. write something to the file

puts $myfile "This is line 1, so hello world...."

1. close the file

close $myfile

1. open file for reading

set myfile [open "README.TXT" r]

1. read something from the file

gets $myfile mydata

1. show what was read from the file
2. should print "This is line1, so hello world...."

puts $mydata

1. close the file

close $myfile