Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

File Input and Output

by root (Scribe)
on Nov 10, 1999 at 02:36 UTC ( #960=perltutorial: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    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
       print "Saw $_ in data.txt\n"; #shows you what we have read
    close FILE;                      #close the file.
  2. or download this
    open FILE, ">keylogger.dat";  #opens file to be written to
    while(<>){                    #while we're getting input from the keyb
       print FILE $_;             #write it to our file
    close FILE;                   #then close our file.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perltutorial [id://960]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (10)
As of 2015-11-25 11:26 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (674 votes), past polls