🚀 go-pugleaf

Zenin (zenin@best.com) wrote:
> I can't seem to figure out how to write to a file.
> I thought it was somthing like
> 	write(FOO, "filename");
> but I guess it's no so easy. :(

Have you grepped the perlfunc manpage for "open"?  This is a basic
usage of said function.

You open a file for reading by prefixing the filename with a "<" (or
nothing; it opens for reading by default), and for writing by
prefixing the filename with a ">".  I guarantee you will write several
scripts in which you open one file for reading, and hope to open
another for writing, but you'll forget the ">", and you'll spend at
least four hours wondering what the hell is the matter.  :)

This program, if I have my syntax right, opens $infile for reading,
$outfile for writing, and, for each line in $infile, writes the
following string to $outfile: "foobar.txt's line [whatever the line
number is] contains: [contents of current line from foobar.txt]".

I heartily recommend reading the perlfunc manpage, followed by Tom
Christiansen's FAQ.  That is, you are nuts if you don't.  :)

#!/usr/local/bin/perl -w

$infile = "foobar.txt"; # or whatever
$outfile = "snarfblat.txt"; # or whatever

open (INFILE, "<$infile");
open (OUTFILE, ">$outfile");

while (<INFILE>) {

    print OUTFILE "$infile's line $. contains: $_";

}

__END__



--
laird j. nelson                                           (617) 252-5147
at&t interchange online network                           25 first street
http://www.amherst.edu/~ljnelson/                         cambridge, ma 02143
    I do not speak for my employer, and my employer does not speak for me.