in reply to Re: Re: Re: File Input and Output in thread File Input and Output
#!perl -w
open(FILE, "data.txt"); #opens data.txt in read-mode
while(<FILE>){ #reads line by line from FILE which i
+s the filehandle for data.txt
chomp;
print "Saw $_ in data.txt\n"; #shows you what we have read
}
close FILE; #close the file.
$a = "keylogger.dat";
open FILE, ">$a" or die; #opens file to be written to
while(<>){ #while we're getting input from the keyb
+oard
print FILE $_; #write it to our file
}
close FILE; #then close our file.
|