http://qs1969.pair.com?node_id=110205


in reply to Re: Re: File Input and Output
in thread File Input and Output

Im having the same problem w/ writing to a file, using Win2k/ActivePerl Thinking that win2k is not handling the opening of files correctly. Please, without saying, dont use win2k, can someone post a work around? I updated w/ the suggestion you posted as such:
#!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.
"Re: File Input and Output by gpoduval on Jan 30, 2001 at 06:42 hmm...when i tried the >>filename nothing got appended into the file. it remained as it is i am using activestate activeperl for windows on win2k. i suspect this might be because i dont know how to end a program. anybody can help me ? www.comp.nus.edu.sg/~gokulpod"

Replies are listed 'Best First'.
Re^4: File Input and Output
by apotheon (Deacon) on Oct 16, 2004 at 07:59 UTC
    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
Re: Re: Re: Re: File Input and Output
by Anonymous Monk on Aug 10, 2002 at 08:12 UTC
    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
Re^4: File Input and Output
by Anonymous Monk on Mar 13, 2009 at 10:07 UTC
    #!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.