🚀 go-pugleaf

In article <4a54h9$a0g@shellx.best.com> Zenin <zenin@best.com> writes:

> 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. :(
> 
> So what is the syntax to do somthing like:
> 	#!/usr/bin/perl
> 	open(FOO, "original_filename");
> 	while(<FOO>) {
> 		do some stuff;
> 	}
> 	write(FOO, "new_filename");
> 	close FOO;
> 

The FOO is a filehandle associated with the open file.  So for
starters, I don't think you want to use FOO for both files.  What is
it you want to write to "new_filename" anyway?  It's clear from your
code above.

Here's how to read a line from one file and write it to another.

  open(FILE1,"one");
  $line = <FILE1>;
  open(FILE2,"> another");
  print FILE2 $line;
  close(FILE1);
  close(FILE2);

-- 
Rodrigo <Vanegas@bbn.com>