Rosetta Code

File input/output: Difference between revisions

Page Discussion

File input/output (view source)

Revision as of 20:13, 21 January 2007

124 bytes removed ,  17 years ago
no edit summary
No edit summary
No edit summary
Line 172:
#!/usr/bin/perl -w
open INPUT, "<input.txt" or die "Can't open input.txt for reading, $!";
open OUTPUT, ">output.txt" or die "Can't open output.txt for writing, $!";
while ( <INPUT> ) {
print OUTPUT $_;
}
 
close (OUTPUT);
close (INPUT);
 
==[[PHP]]==
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/603"