Meeting 04/19/2001

Christopher Waymire cwaymire at
Wed Apr 18 15:28:55 CDT 2001

the Perl Cookbook covers that in Chaper 7 if you have the book. Basicall
there are a couple ways to do it.. you can loop over multiple filehandles
and write. Like this:

for $fh ('FH1','FH2','FH3') { print $fh "my data\n" }

or if you're on a system that supports the tee program you can do it like

open(FH, "|tee file1 file2 file3 >/dev/null");
print FH "my data\n";

hope that helps you some.

-----Original Message-----
From: Li Guoya-A16499 [mailto:A16499 at]
Sent: Wednesday, April 18, 2001 1:10 PM
To: 'phoenix-pm-list at'
Subject: RE: Meeting 04/19/2001

I have a problem on perl:
I write sth to a filehandle: print $handle "my data\n";
then $handle = new IO::File ">$file1"; #write to a file named $file1

Doug: the question is : how can I write $handle to STDOUT at the same time??
That means: write "my data" to a file and to the STDOUT??
Thank you.

-----Original Message-----
From: doug.miles at [mailto:doug.miles at]
Sent: Wednesday, April 18, 2001 9:12 AM
Cc: Rose Keys
Subject: Meeting 04/19/2001

Please RSVP...

We'll be having a meeting Thursday, April 19th at 7:00PM. 
It will be held at Bowne, which is located at 1500 N. Central Avenue,
which is on the Southwest corner of Central and McDowell.  The parking
lot is gated, so just press the button on the intercom, and tell the
receptionist that you are there for the Perl meeting.  Park in the lot
that is straight ahead from the entrance on the South side of McDowell.
Park in any uncovered, non-reserved space.  Proceed to the main lobby,
which is on the Northeast side of the parking lot.

You may have noticed that this should have been a Tuesday meeting.  I
have a standing conflict on Tuesdays for a while, so I'll have to switch
to Thursdays for a couple of months.  I apologize for the inconvenience.

Scott will be presenting:

I've got two short programs.. a screenfull each.

The first one is a tied scalar that simple spits out the package and
it was set from every time it gets set.

The second gives an indented functional call trace of all evaluation in
a package.

I can demonstrate their use, mention why they might be needed, and/or
explain their implementation, depending on audience interest.

I'll then talk about the Perl GUI debugger, ptkdb, if there is time.

- Doug

Don't anthropomorphize computers. They hate that...

More information about the Phoenix-pm mailing list