Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Terminal Display - Log File Creation

by k_manimuthu (Monk)
on Sep 02, 2010 at 10:09 UTC ( [id://858534]=perlquestion: print w/replies, xml ) Need Help??

k_manimuthu has asked for the wisdom of the Perl Monks concerning the following question:

I have two programs. The first program creates a log file, same as display of the terminal. So I am using the below code in unix terminal, for get the log file creation. And it’s working fine.

# first.pl open (STDOUT, "| tee -a $LOGFILE") or die "Teeing off: $!\n";

At the end of the program I call the second program (`perl second.pl $LOGFILE`) and I wish to get the user entered inputs only in $LOGFILE. ( No need to captured the terminal display). I am using the LOG file handler to append the user entered inputs. But I am getting the terminal display also. How to avid the terminal display in the log file.

Thanks,
Mani Muthu


Hi Monks

I got the solution. Below I place the sample code for that one.

The first file : I wish to captured the screen display in log file

# parent.pl # Preserve the filehandler open(OLDOUT, ">&STDOUT"); $LOGFILE="output.txt"; open LOG_FH, ">>$LOGFILE" ; # disable perl buffering so that when you log messages on the screen t +o the logfile , select LOG_FH; $| = 1; select STDOUT; $| = 1; # Open STDOUT to log messages to file ... open (STDOUT, "| tee -a $LOGFILE") or die "Teeing off: $!\n"; print "\nEnter Parent Process Input : "; $p_input1=<>; chomp ($p_input1); print LOG_FH "\nYou Entered : $p_input1"; close (LOG_FH); close (STDOUT); ## redirect the file handler open(STDOUT, ">&OLDOUT"); ## No need the screen output to the log file system("perl child.pl $LOGFILE");

The second file : I wish to user entered inputs only in the log file

# child.pl $LOGFILE=$ARGV[0]; open FOUT, ">>$LOGFILE" ; print "\nEnter the child process input : "; $c_input1=<STDIN>; print FOUT "\nYou Entered Child Input : $c_input1"; close (FOUT);

Replies are listed 'Best First'.
Re: Terminal Display - Log File Creation
by k_manimuthu (Monk) on Sep 06, 2010 at 05:13 UTC
    I got the solution. And the sample code update in this post.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://858534]
Approved by planetscape
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others chanting in the Monastery: (2)
As of 2024-03-19 10:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found