File input/output: Difference between revisions

no edit summary
No edit summary
 
No edit summary
Line 3:
==Perl==
'''Interpreter:''' [[Perl]] 5.8.8
<pre><nowiki> #!/usr/bin/perl -w
 
open INPUT, "<input.txt";
open OUTPUT, ">output.txt";
 
while ( <INPUT> ) {
print OUTPUT $_;
}
</nowiki></pre>