create log as well as print on screen

[Marcos Rebelo]

old_script.pl | perl -e "while (<>) {print $_; warn $_}" 2> $logFile

Or redefine the print

-----Original Message-----
From: mark sony [mailto:mark_sony@rediffmail.com]
Sent: Wednesday, August 20, 2003 3:11 PM
To: [email]beginners-cgi@perl.org[/email]
Cc: [email]beginners@perl.org[/email]
Subject: create log as well as print on screen


Hi All,

I wrote a script which is running perfectly fine providing
many outputs on the screen . Only glitch is that it does not print
in a log file . Now what I want is that it would print on the
screen as well as create a log file . At the end of the program I
will output that the above output can also be seen at the
$log_File_position . Hope I am clear with my question . Any type
of pointers and I would be over the moon ;)

Thanx in advance

Mark
__________________________________________________ _
Meet your old school or college friends from
1 Million + database...
Click here to reunite [url]www.batchmates.com/rediff.asp[/url]



--
To unsubscribe, e-mail: [email]beginners-unsubscribe@perl.org[/email]
For additional commands, e-mail: [email]beginners-help@perl.org[/email]

[Jenda Krynicky]

From: "mark sony" <mark_sony@rediffmail.com>

> I wrote a script which is running perfectly fine providing
> many outputs on the screen . Only glitch is that it does not print in
> a log file . Now what I want is that it would print on the screen as
> well as create a log file . At the end of the program I will output
> that the above output can also be seen at the $log_File_position .
> Hope I am clear with my question . Any type of pointers and I would be
> over the moon ;)

[url]http://search.cpan.org/dist/IO-Tee/[/url]
[url]http://jenda.krynicky.cz/#Local::TeeOutput[/url]

HTH, Jenda
===== [email]Jenda@Krynicky.cz[/email] === [url]http://Jenda.Krynicky.cz[/url] =====
When it comes to wine, women and song, wizards are allowed
to get drunk and croon as much as they like.
-- Terry Pratchett in Sourcery