From joelmeulenberg at yahoo.com  Mon Jan 24 23:09:38 2000
From: joelmeulenberg at yahoo.com (Joel Meulenberg)
Date: Wed Aug  4 00:00:31 2004
Subject: Reminder:  GR.pm Meeting Friday, January 28th @ 11:30am @ Priority Health
Message-ID: <20000125050938.12904.qmail@web306.mail.yahoo.com>

Hello all.

I thought I should send out a semi-early warning for this month's Grand
Rapids Perl Monger's meeting.  As usual, it's on the last Friday of the
month - this Friday, January 28th @ 11:30am.  And, as usual, the
meeting will be at Priority Health (see grand-rapids.pm.org for map). 
I have not yet confirmed the meeting room with Keith Sederholm, but
it'll likely be the board rooms on the 3rd floor of the 1231 East
Beltline building.  Oh, and Mom will probably do the catering too
(though I believe we're always open to alternative suggestions).

An official agenda will go out later this week, but the main topics I'm
aware of include:

1.  The year 19100, er, 2000, did your Perl code (etc.) survive?  

2.  Lending Library - don't forget to bring back your books!  (I've
personally had 3 books for a few months!)

3.  Can we call the previous nominees for GR.pm offices (e.g.-
president, vice president, secretary, etc.) official officials now?  :
)

4.  Future presentations - requests/offers/etc.
Also, "Q & A" (i.e.- ask the group that Perl question that's been
bugging you) - Should this be a regular part of every meeting like the
Lending Library?  Or does the mailing list serve that need just fine?

If you have any other recommended topics please feel free to suggest
them.


+Joel

__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com

From ed at pcr7.pcr.com  Tue Jan 25 08:31:29 2000
From: ed at pcr7.pcr.com (Ed Eddington)
Date: Wed Aug  4 00:00:31 2004
Subject: Perl file handle question...
Message-ID: <01BF6716.F5FCF380@uranus.pcr.com>

Any ideas about this? I want to grab STDOUT from a Perl script within the 
same script and do some processing on it. It would be easy if I could just 
select a filehandle at the beginning of the script so all the print 
statements would print to this filehandle. Seems like there should be a way 
to do this in memory without actually printing to a file and then 
reopening. This does NOT work...


#!/usr/bin/perl

select HANDLE;
$|=1;

print 'This is printing to the HANDLE';

select STDOUT;

$text = <HANDLE>;

print "This from the HANDLE: $text\n";                 #<-- $text is 
empty!!



If anyone knows a neat way to do this, please let me know.
Thanks!
Ed


From mattandap at allegan.net  Tue Jan 25 12:00:45 2000
From: mattandap at allegan.net (Matt Heusser)
Date: Wed Aug  4 00:00:31 2004
Subject: Perl Books
References: <01BF6716.F5FCF380@uranus.pcr.com>
Message-ID: <003001bf6767$0bb88e00$f2fca8c0@macatawa.org>


I just got this (below) - does anyone know
of any schools in West Michigan that teach perl?

On a related note - Ed, Rick, or anyone
else at PCR - do you have an email for
Dan Mish?  I think he still teaches C++ at
GRCC ...

Matt H.

----- Original Message ----- 
From: "Helen Trimes" <hetr@manning.com>
To: "pmgp" <esp509@att.net>
Sent: Monday, January 24, 2000 5:20 PM
Subject: Manning Book for Beginner Programmers


> Hello,
> 
> I hope you might be willing to share some of your expertise about
> Perl in your community. Our recently released book "Elements of 
> Programming with Perl" was written to be a useful resource to those 
> interested in learning how to program using Perl as a first language. 
> We have received lots of feedback indicating that it would be an ideal 
> text for college instructors of introductory Perl courses. It has, in 
> fact, already been adopted by several U.S. schools.
> 
> In her December '99 book review at perlmonth.com, Rachel Rawlings
> called it, "the well-written equivalent of a first-year computer
> science text with all concepts and examples explained in Perl."
> Tom Christiansen has indicated to us he plans to give the book 
> "5 Camels" and should be posting a review shortly.
> 
> I am hoping that you have some knowledge of Perl instruction and may 
> know which colleges offer Perl programming courses in your area. You 
> may even know Perl instructors within your Perl Mongers group 
> membership. I would appreciate any information you can pass along to 
> me, such as which schools to contact and, if possible, instructors' 
> names, addresses and phone or email. I am planning to communicate with
> these individuals either by mail or email.
> 
> Manning is a small publisher and we try to present our books only to
> those who would really benefit from them. In appreciation of your
> valuable information, we will send you one complementary copy of a
> current or upcoming Manning book for review and raffle at an upcoming
> Perl Mongers group meeting. You can select it from www.manning.com.
> Please make sure to include your current address. I hope to hear from
> you soon and thanks for your help.
> 
> Regards,
> 
> 
> Helen Trimes
> Manning Publications Co.
> 
> 
> 



From joelmeulenberg at yahoo.com  Tue Jan 25 16:10:12 2000
From: joelmeulenberg at yahoo.com (Joel Meulenberg)
Date: Wed Aug  4 00:00:31 2004
Subject: Perl Books
Message-ID: <20000125221012.19107.qmail@web306.mail.yahoo.com>

> I just got this (below) - does anyone know
> of any schools in West Michigan that teach perl?

I know GVSU has/had an undergrad Unixy programming/scripting sort of
class in which they taught some Perl.  However, I'm not aware of any
classes devoted to just Perl.  One prof who could likely provide more
detail on this is Carl Erickson (erickson@river.it.gvsu.edu).

+Joel
__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com

From joelmeulenberg at yahoo.com  Tue Jan 25 18:01:42 2000
From: joelmeulenberg at yahoo.com (Joel Meulenberg)
Date: Wed Aug  4 00:00:31 2004
Subject: Perl file handle question...
Message-ID: <20000126000142.21638.qmail@web307.mail.yahoo.com>

> Any ideas about this? I want to grab STDOUT from a Perl script within
> the 
> same script and do some processing on it.

You should be able to simply read from STDOUT.  e.g.- "<STDOUT>".

If you'd prefer to read from a filehandle of a different name, you can
dup STDOUT with something like this:

open(HANDLE, '>-') or die $!;

+Joel

__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com

From joelmeulenberg at yahoo.com  Wed Jan 26 15:00:12 2000
From: joelmeulenberg at yahoo.com (Joel Meulenberg)
Date: Wed Aug  4 00:00:31 2004
Subject: Perl file handle question...
Message-ID: <20000126210012.29869.qmail@web307.mail.yahoo.com>

Hehe.
Sorry Ed.  That was a severe case of brain flatulence.  Of course
reading from STDOUT will not work.  When I first though about how to do
this, the ideas that came to mind were ugly enough that I wished that
is was possible to somehow read from STDOUT.  Then I though I'd write a
quick script to try it just for the heck of it.  The funny part is that
in my hurry I actually thought that it worked!!!  Of course it didn't;
and when thinking about it in the shower this morning I realized that
it couldn't possibly have worked.

I want to thank everyone on this list for not immediately replying: 
"Joel, you're on drugs or something man!."  : )

Anyway, below is a real solution to your problem (quick hack) and it's
as ugly as I originally thought it had to be.  It forks a kid that
kinda acts like the Unix "tee" pipe fitting tool, but it sends the
emmissions back to the producer (the parent process) via a pipe. 
(Sounds like we're talking about an auto exhaust system doesn't it? : )
 )

#!/usr/local/bin/perl -w
use strict;
# Remember stdout and stdin for later
open(SAVED_STDOUT, ">&STDOUT");
open(SAVED_STDIN, "<&STDIN");
 
# We're gonna have our stdout go to our kid's stdin
pipe(STDIN, STDOUT) or die $!;
 
# And our kid is gonna feed our own stdout back to us on READHANDLE
pipe(READHANDLE, WRITEHANDLE) or die $!;
 
unless (fork()) {
    # Here's the kid code.  It's basically doing a "tee" pipe fitting
    # but the tee feeds back into the parent!
 
    close(STDOUT); close(SAVED_STDIN); close(READHANDLE);
    # The kid needs to make sure the parent's stdout goes to stdout as
normal
    open(STDOUT, ">&SAVED_STDOUT") or die $!;
    close(SAVED_STDOUT);
    select(WRITEHANDLE); $|++; select(STDOUT); $|++;
 
    # Here we just read from the parent and write to stdout, but also
write
    # back to our parent via WRITEHANDLE.
    while (<STDIN>) {
        print $_;
        print WRITEHANDLE $_;
    }
    exit;
}
 
close(STDIN); close(WRITEHANDLE);
open(STDIN, "<&SAVED_STDIN") or die $!;
close(SAVED_STDIN);
$|++;
 
###############################################################################
# Here's your normal program using stdout as it always would, but also
# reading it's own stdout via READHANDLE.
###############################################################################
my @emissions;
for (my $i = 0; $i < 10; $i++) {
   print "$i mississippi\n";
   push @emissions, scalar(<READHANDLE>);
}
 
 
# We're doing this only to see our own stdout from here on.
close(STDOUT);
open(STDOUT, ">&SAVED_STDOUT") or die $!;
 
print "\nHere are my own emissions:\n@emissions\n";



--- Joel Meulenberg <joelmeulenberg@yahoo.com> wrote:
> > Any ideas about this? I want to grab STDOUT from a Perl script
> within
> > the 
> > same script and do some processing on it.
> 
> You should be able to simply read from STDOUT.  e.g.- "<STDOUT>".
> 
> If you'd prefer to read from a filehandle of a different name, you
> can
> dup STDOUT with something like this:
> 
> open(HANDLE, '>-') or die $!;
> 
> +Joel
> 
> __________________________________________________
> Do You Yahoo!?
> Talk to your friends online with Yahoo! Messenger.
> http://im.yahoo.com
> 
__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com

From mattandap at allegan.net  Wed Jan 26 15:17:09 2000
From: mattandap at allegan.net (Matt Heusser)
Date: Wed Aug  4 00:00:31 2004
Subject: Note
References: <20000126210012.29869.qmail@web307.mail.yahoo.com>
Message-ID: <004301bf6842$baa578c0$f2fca8c0@macatawa.org>

Note to all:

Joel's solution won't work on Win32 Impmentations of
Perl.  Anyone know why?

Matt H.
PS - Joels the president.  If no one posts an objection
before tomorrows meeting, let it be so.


From joelmeulenberg at yahoo.com  Wed Jan 26 15:28:24 2000
From: joelmeulenberg at yahoo.com (Joel Meulenberg)
Date: Wed Aug  4 00:00:31 2004
Subject: Note
Message-ID: <20000126212824.1926.qmail@web303.mail.yahoo.com>

> Joel's solution won't work on Win32 Impmentations of
> Perl.  Anyone know why?

Ummmm, cuz Win32 sux??

:?

Just kidding.  I really know why, but I won't spoil it.

Hint:  This is one thing that Microsoft is supposedly helping to fix in
Win32 Perl.

+Joel


__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com

From joelmeulenberg at yahoo.com  Thu Jan 27 00:57:29 2000
From: joelmeulenberg at yahoo.com (Joel Meulenberg)
Date: Wed Aug  4 00:00:31 2004
Subject: Fwd: Meeting Room Change and Agenda for Friday's Meeting @ 11:30am
Message-ID: <20000127065729.8736.qmail@web302.mail.yahoo.com>

As Keith's earlier message (forwarded to the list) mentioned, a snow
storm in New York has bumped a group of Perl Mongers in Grand Rapids,
Michigan from classroom 2 to classroom 1.  Classroom 1 is in the
basement of the 1239 building which is straight ahead as you drive
into Water's Circle.  You'll need to check in with the receptionist and
be escorted to classroom #1.
 
A map to Priority Health can be found at grand-rapids.pm.org.

If you'd like Mom's to deliver you a lunch for the meeting, please get
your order to Keith Sederholm (keith.sederholm@priority-health.com)
before 4pm on Thursday.  Mom's menu may be perused at
www.momstogo.com.

Finally, a simple agenda for the meeting is included below.  Since
there's no main presentation, the meeting should be a "chatty" one.


Agenda for GR.pm Meeting on Friday, January 27th, 2000

1. Hellos and Eating Lunch

2. Introductions

3. Lending Library (*Don't Forget Your Books!*)

4. Confirm Officers:
   President - Joel Meulenberg
   Activities Officer - Joel Meulenberg
   Vice President - Paul Tjapkes
   Secretary - Rick Siner
   O'Reilly Liaison - Brandon Gohsman

5. Discussion - 19100, 3900, 2000, etc. - What do these numbers have in
common?  Did your Perl code survive Y2K?  Bring your anecdotes, etc.

6. Future Presentations Discussion - requests/offers/etc.


See you there!

+Joel

__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com