it 's better to assign a variable to a filename, as:

$b = "/tmp/file";

Then change the filename in open to the name of that variable.

Cheers.

vfs.

#!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.
[download]

Just in case:

Make sure you're not cutting and pasting that text so that you have a line in your code that says:
+s the filehandle for data.txt

That (along with +oard) will likely cause errors, though I don't know what those errors would look like in ActivePerl for Win2k.


- apotheon

CopyWrite Chad Perrin

I could be wrong but I guess that after typing your code you are using  Ctrl+c to end the script. This kills the script rather than ends the while loop. Try using  Ctrl+z instead. Cheers

#!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.