08-04-2008
perl: howto print to screen & filehandle
Hello,
I need to print messages both to screen and to file handle in perl , like tee does in unix .
Any suggestions ?
Thanks
10 More Discussions You Might Find Interesting
1. Programming
While working with russian text under FreeBSD&MySQL I need to convert a string from MySQL to the Unicode format.
I've just started my way in C++ under FreeBSD , so please explain me how can I get ascii code of Char variable and also how can i get a character into variable with the specified ascii... (3 Replies)
Discussion started by: macron
3 Replies
2. Shell Programming and Scripting
as the title suggests, i need to print a user message to a log file and the screen using perl.
in unix i set up a function using 'tee' like so
function Display_Message
{
echo "$*" | tee -ai $LOGFILE
}
the following command then obviously displays to the screen and prints to a log... (6 Replies)
Discussion started by: mjays
6 Replies
3. AIX
Hi all,
Could you please tell me how to take a screenshot in aix (like Print Screen button in windows)?
Thanks (7 Replies)
Discussion started by: prashantchavan
7 Replies
4. Shell Programming and Scripting
I have two perl functions defined, both run a set of shell commands on some somplied data and return hashs of the resulting parsed output from these shell commands.
One works, one doesn't and I can't seem to see why. It's driving me insane :mad:
The working one:
sub getcellstatus {
... (8 Replies)
Discussion started by: Smiling Dragon
8 Replies
5. Solaris
Can anyone tell me what to look for in terms of abnormal numbers on vmstat or iostat?
I have a box with figures pbelow, how would I tell if it's underperforming & what remedies \ perfomance tuning could I perform?
thanks all
-------------------------------------
-vmstat 5 5
kthr ... (4 Replies)
Discussion started by: stevie_velvet
4 Replies
6. Shell Programming and Scripting
I'm trying to clean up my samba share and need to print the found file or print the path of the image it tried to searched for. So far I have this but can't seem to get the logic right. Can anyone help point me in the right direction?
for FILE in `cat list`; do
if ;
then
... (1 Reply)
Discussion started by: overkill
1 Replies
7. Shell Programming and Scripting
cat a | awk -F";" '{print "update db set column=' "$2" ' where column1=\""$1"\";"}' > ip-add.sql
Hi! I'm a new user!
i need to use single quote in the double quotes print string
The apex between che "$2" should not be interpreted, but....how?!
I'm trying to use \ but don't work correctly!
... (4 Replies)
Discussion started by: Re DeL SiLeNziO
4 Replies
8. Shell Programming and Scripting
Hi Guru's,
Pardon me for the breach of rules.....
I have very little knowledge about Shell Programming and Scripting hope you guys help me out of this troble
I have very little time hence could not find the right way to direct my queries.
coming to the problem
I need to call a... (2 Replies)
Discussion started by: saikrishna_tung
2 Replies
9. Programming
Hi,
i have run the below perl code and i am getting an error
Error:readline() on closed filehandle OR at run.pl line 31.
CODE:
===========================================
open OR,$ARGV;
while (<OR>) { # find the batch date
next if length $_ < 3; # BLANK LINE
# last if $. > 120; #... (3 Replies)
Discussion started by: pspriyanka
3 Replies
10. Shell Programming and Scripting
Hi
we have one function which is used to append data the file in exclusive lock mode in aperl script.
This script is executed by multiple threads at the same time.
accessing the same file.this script runs throught the day.
sometimes the file2.txt size is getting reduced.
for eg from 10 M... (1 Reply)
Discussion started by: Shahul
1 Replies
PERLUTS(1) Perl Programmers Reference Guide PERLUTS(1)
NAME
perluts - Perl under UTS
SYNOPSIS
This document can be read as is: as README.uts, or you can read it after you build your package using "man perluts".
The purpose is to help you build Perl for UTS, which, if you follow these instructions, should be easy, and result in a solidly working
installation.
DESCRIPTION
Perl 5.7.2 (Developmental) or Perl 5.8.x (forthcoming) for UTS
BUILDING PERL ON UTS
NOTE: Some sites have redefined the way uname works, and if yours does this, special steps must be taken so that Configure can recognize
your system as a UTS system. To see if you are in this category, issue the command "uname -a". It should look something like:
uts juno 4 4.4 9672 370
At any rate, the first field should be "uts". If this is not the case; supposing it is, say telcoUTS, create a script, uts/uname (i.e.
uname, in the subdirectory "uts" of the main Perl source dir):
# uname
/usr/bin/uname "$@" | sed -e 's/^telcoUTS/uts/'
and when you execute Configure, do it as below, except for adding PATH=uts:$PATH as a prefix. I.e. do:
PATH=uts:$PATH ./Configure ...
There is no need to do an interactive configure, just type
./Configure -de [-Dusedevel] [-Doptimize=-g ] 2>&1 | tee Conf.out
"-Dusedevel" may be required to configure Perl 5.7.2 non-interactively. Use -Doptimize=-g if you want to run Perl under sdb or gdb, OR if
you want to be able to use the -D command line flags to perl, which are occasionally useful in debugging perl scripts.
In this and the following steps, the "2>&1 | tee XXX.out" records all output from the process, which will be useful if anything unexpected
goes wrong.
Then do the compilation with
make 2>&1 | tee make.out
Finally, test using
make test 2>&1 | tee make-test.out
In the output, the only failures you should see should look like:
lib/Math/BigInt/t/bigfltpm.........Use of uninitialized value ...
FAILED at test 57
lib/Math/BigInt/t/bigintc..........ok
lib/Math/BigInt/t/bigintpm.........FAILED at test 204
lib/Math/BigInt/t/mbimbf...........Use of uninitialized value ...
Illegal division by zero at ../lib/Math/BigInt/Calc.pm line 314.
FAILED at test 71
lib/Math/Complex...................exp: OVERFLOW
FAILED at test 250
lib/Math/Trig......................exp: OVERFLOW
ok
lib/Memoize/t/array................ok
...
lib/Net/protoent...................ok
lib/Net/servent....................FAILED at test 0
This means that everything passes except for some problems in the packages "Math::BigInt", "Math::Complex", and "Math::Trig". The
lib/Net/servent failure seems to be a bug in the test program. To confirm this, from the main Perl source dir, do:
LD_LIBRARY_PATH=`pwd` ./perl -Ilib lib/Net/servent.t
and it should output
1..3
ok 1
ok 2
ok 3
Installing the built perl on UTS
Run the command "make install"
AUTHOR
Hal Morris
UTS Global LLC
email: hom00@utsglobal.com
perl v5.12.1 2010-04-26 PERLUTS(1)