Writint to a file

[perlUSER]

I am writing a small report and got a quick question. Consider the
follwoing example:

format STDOUT =
Album=@<<<<<<<<<<<<< Artist=@>>>>>>>>>>>> Price=$@##.##
$album, $artist, $price
..


$album = "Test album";
$artist = "Brit";
$price = "9.99";
write();

When I execute this snippet, I can see the results on the screen. Can
someone please tell me how to re-direct the report to a file? Any help
is greatly appreciated.

Regards,
Sri.

 

[Mothra]

I am writing a small report and got a quick question. Consider the
follwoing example:

use strict;
use warnings;
use vars qw($album $atrist $price);

open (LABEL, ">full_path_to_file/filename") or die "Can't create file:$!\n";

format STDOUT = format LABEL =
Album=@<<<<<<<<<<<<< Artist=@>>>>>>>>>>>> Price=$@##.##
$album, $artist, $price
.


$album = "Test album";
$artist = "Brit";
$price = "9.99";

write();

write LABEL;

Hope this helps

Mothra

 

[usenet]

When I execute this snippet, I can see the results on the screen. Can
someone please tell me how to re-direct the report to a file?

Besides the "ordinary" approach that Mothra provided, you can also use
handy trick like this. Open a file, obviously:

open (OUT, ">/path/to/my/file.txt");

Now you can add a line like this:

*STDOUT = *OUT;

That will re-direct STDOUT to your file, so that whatever was printing
to your terminal now goes to the file (you can redirect ANY handle to
ANY other handle this way - which is powerful). You can switch between
terminal-viewing and file-writing by simply commenting or un-commenting
this line.

But I wouldn't leave it that way for "production" code. That is more of
a development technique, IMHO.

 

[John W. Krahn]

Besides the "ordinary" approach that Mothra provided, you can also use
handy trick like this. Open a file, obviously:

open (OUT, ">/path/to/my/file.txt");

Now you can add a line like this:

*STDOUT = *OUT;

That will re-direct STDOUT to your file, so that whatever was printing
to your terminal now goes to the file (you can redirect ANY handle to
ANY other handle this way - which is powerful). You can switch between
terminal-viewing and file-writing by simply commenting or un-commenting
this line.

Or you could use select:

select OUT;

Which will give the save effect without modifying the STDOUT typeglob.



John

 

[perlUSER]

Thank you to all of you who replied to my question. I appreciate it.

 

[John Bokma]

Thank you to all of you who replied to my question. I appreciate it.

Show us how much by learning to quote:
<http://groups.google.com/support/bin/answer.py?answer=14213>

and vote:
<http://tinyurl.com/aqe6y>

select: "Default quoting of previous message in replies"

thank you!