perl: howto print to screen & filehandle

Alalush · #1 (**permalink**) 08-04-2008

Hello,

I need to print messages both to screen and to file handle in perl , like tee does in unix .
Any suggestions ?

Thanks

Ikon · #2 (**permalink**) 08-04-2008

Is this what you mean?

Code:

$messages = "This is some message!!\n";
$messages .= "Another message!!\n";

$filename = "/some/dir/file.log";

open (FILE, "< $filename" ) or print " Error \n";
 print FILE $message;    #Sends message to {$filename}
 print $message;         #Sends message to Screen
close FILE;

Yogesh Sawant · #3 (**permalink**) 08-05-2008

check if this helps

More UNIX and Linux Forum Topics You Might Find Helpful
Thread	Thread Starter	Forum	Replies	Last Post
print screen	prashantchavan	AIX	7	12-03-2007 07:06 AM
perl - print to a log file and screen	mjays	Shell Programming and Scripting	6	08-21-2007 09:34 AM
print to screen and to file using awk?!	satnamx	Shell Programming and Scripting	2	04-25-2006 02:33 PM
How to print content on the screen	aadba	UNIX for Dummies Questions & Answers	4	03-22-2004 11:10 AM
how to print screen in linux	vancouver_joe	UNIX for Dummies Questions & Answers	2	01-16-2002 03:51 AM

Thread Tools	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode	Rate This Thread:


	Powered by