[14004] in Perl-Users-Digest
Perl-Users Digest, Issue: 1414 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Nov 17 21:12:55 1999
Date: Wed, 17 Nov 1999 18:10:17 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <942891017-v9-i1414@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Wed, 17 Nov 1999 Volume: 9 Number: 1414
Today's topics:
nesting level in perl subroutines <sds@goems.com>
Re: nesting level in perl subroutines <jeffp@crusoe.net>
Re: Net::Telnet SMTP monitor flakes out <rootbeer@redcat.com>
Re: No Fork in NT Perl and Print to socket <mruedy@alidian.com>
NT and Pipe <samay1NOsaSPAM@hotmail.com.invalid>
Re: NT and Pipe (Kragen Sitaker)
Re: Perl bug??? help me!!! <aqumsieh@matrox.com>
Re: Perl Programmers Needed. Dallas, Texas USA (experie <cassell@mail.cor.epa.gov>
perl stumper <toby_toby_tobyNOtoSPAM@hotmail.com.invalid>
Re: perl stumper (Andrew Johnson)
Re: perl stumper (Kragen Sitaker)
Perl, CGI, ServerPush, & an almost infinite loop barber@saintpatrick.org.DONT_SPAM_ME
Re: Perl, CGI, ServerPush, & an almost infinite loop barber@saintpatrick.org.DONT_SPAM_ME
Re: Perl, CGI, ServerPush, & an almost infinite loop (Kragen Sitaker)
Re: Perl, CGI, ServerPush, & an almost infinite loop (Kragen Sitaker)
Re: Posting an Array to a URL (Kragen Sitaker)
Re: Posting an Array to a URL <rootbeer@redcat.com>
redmond quote chars (was Re: my Net::FTP script) <uri@sysarch.com>
Re: redmond quote chars (was Re: my Net::FTP script) <cassell@mail.cor.epa.gov>
Re: Regular Expressions <s1dugan@@exnet..iastate..edu>
Re: Script Effiency <alanis@softhome.net>
Re: Trying to use a variable as an operator (Mark-Jason Dominus)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 17 Nov 1999 19:27:59 -0500
From: Sam Steingold <sds@goems.com>
Subject: nesting level in perl subroutines
Message-Id: <uzowcd4og.fsf@ksp.com>
suppose I have a recursive perl subroutine. how do I calculate the
nesting level?
In Lisp I could do something like this:
(defvar *call-level* 0 "*The nesting level.")
(defun nesting ()
(let ((*call-level* (1+ *call-level*)))
(format t "~vtcall level: ~r~%" *call-level* *call-level*)
(unless (= *call-level* 10) (nesting))
(format t "~vtcall level: ~r~%" *call-level* *call-level*)
(when (= 1 *call-level*) (format t " - top level over~%"))))
> (nesting)
call level: one
call level: two
call level: three
call level: four
call level: five
call level: six
call level: seven
call level: eight
call level: nine
call level: ten
call level: ten
call level: nine
call level: eight
call level: seven
call level: six
call level: five
call level: four
call level: three
call level: two
call level: one
- top level over
nil
thanks
--
Sam Steingold (http://www.podval.org/~sds/)
Micros**t is not the answer. Micros**t is a question, and the answer is Linux,
(http://www.linux.org) the choice of the GNU (http://www.gnu.org) generation.
A computer scientist is someone who fixes things that aren't broken.
------------------------------
Date: Wed, 17 Nov 1999 19:49:31 -0500
From: Jeff Pinyan <jeffp@crusoe.net>
Subject: Re: nesting level in perl subroutines
Message-Id: <Pine.GSO.4.10.9911171943330.24181-100000@crusoe.crusoe.net>
[posted & mailed]
On Nov 17, Sam Steingold blah blah blah:
> suppose I have a recursive perl subroutine. how do I calculate the
> nesting level?
>
> In Lisp I could do something like this:
(snipped (lines (of (lisp) ) ) ) ;)
You can either send a variable along to the function that figures it out,
or use a local variable. The local variable idea is better, so I'll
demonstrate it:
sub iter {
local $iter = ($iter || 0) + 1;
# do whatever with @_
if ($call_function_again) {
iter(...);
}
}
Because $iter is a local() variable and not a my() variable, it stays in
existence so it can be used when iter() calls itself. To see what I mean,
try the following:
sub using_my {
my $iter = ($iter || 0) + 1;
print "$iter\n";
using_my() if $iter < 5;
}
sub using_local {
local $iter = ($iter || 0) + 1;
print "$iter\n";
using_local() if $iter < 5;
}
Call both of those functions. Prepare to be bombarded by output from the
using_my() function.
--
MIDN 4/C PINYAN, USNR, NROTCURPI http://www.pobox.com/~japhy/
jeff pinyan: japhy@pobox.com perl stuff: japhy+perl@pobox.com
"The Art of Perl" http://www.pobox.com/~japhy/book/
CPAN ID: PINYAN http://www.perl.com/CPAN/authors/id/P/PI/PINYAN/
PerlMonth - An Online Perl Magazine http://www.perlmonth.com/
------------------------------
Date: Wed, 17 Nov 1999 16:56:19 -0800
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Net::Telnet SMTP monitor flakes out
Message-Id: <Pine.GSO.4.10.9911171649170.16575-100000@user2.teleport.com>
On Wed, 17 Nov 1999, Gregor Mosheh wrote:
> The original version of this program used a bunch of Expect scripts
> that did the same thing: telnet, look for the string "220", return 0
> on failure - and the Expect programs did the same thing, going off 5
> times a day when the SMTP was very probably responding just fine.
Doesn't sound like a Perl problem, then. Maybe your mailserver is infested
with termites - but then you should be asking in a newsgroup about
termites, rather than one about Perl.
But maybe you want to fix your program to hold off on paging you until it
sees three or more consecutive failures over a (say) five minute period.
That way, I'd expect that you should have fewer false alarms. Making your
program log its activities may also prove helpful.
> $test{'smtp'} && ( &test_smtp($host) || &test_smtp($host)
> || &test_smtp($host) || &error($host,"SMTP not responding") );
That's much more obfuscated than I'd recommend.
> local($line, $foosocket);
You probably want my() rather than local().
> return ($line =~ /^220 /) ? 1 : 0 ;
Probably you want this line instead, or maybe something even simpler.
$line =~ /^220 /;
Good luck with it!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 17 Nov 1999 17:12:38 -0800
From: "Mark Ruedy" <mruedy@alidian.com>
Subject: Re: No Fork in NT Perl and Print to socket
Message-Id: <38335142$0$216@nntp1.ba.best.com>
Since there is no fork() in my version of Perl, is there another way to
accomplish this:
# Avoid deadlock by forking. - can't fork for any known windows
implemetation
if (my($child) = fork) {
while(<STDIN>) {
print S;
}
} else {
while(<S>) {
print;
}
}
This code was lifted from "Programming Perl" - a sample script for creating
a two-way socket conversation.
Thanks
David Cassell <cassell@mail.cor.epa.gov> wrote in message
news:3828C664.4C60E58C@mail.cor.epa.gov...
> hdesa@bellsouth.net wrote:
> >
> > 1. Fork is not supported in the Perl verison that comes with the NT
> > Resource Kit. Is there another perl, that runs on NT, that has Fork.
>
> Good news: yes;
> Bad news: get ready to install Perl by yourself.
>
> You can install Perl using cygwin32 and egcs. This was covered
> in an article in the Spring 1999 issue of The Perl Journal.
> You'll get fork(), but everything will be noticeably slower.
> after all, you're running on top of middleware now.
>
> Otherwise, wait until next year, when ActiveState's Perl will
> come out with a functional emulation of fork() .
>
> Or you could install linux or FreeBSD on that box and have
> fork() to play with...
>
> David
> --
> David Cassell, OAO cassell@mail.cor.epa.gov
> Senior computing specialist
> mathematical statistician
------------------------------
Date: Wed, 17 Nov 1999 15:15:36 -0800
From: Samay <samay1NOsaSPAM@hotmail.com.invalid>
Subject: NT and Pipe
Message-Id: <0221c012.0e4deeb1@usw-ex0102-016.remarq.com>
Hi, I have 2 programs running,
(I can combine them into one program, Currently They are running as one
program, I need to seperate it to reduce the processing wait.)
ProgA need to pass the data to ProgB contineously.
ProgB takes little time to process the data
ProgA is based upon the user input
ProgB is solely dependent upon the data from ProgA.
How do I accomplish it?
Possible Solution I am thinking
1. Pipe
2. Database
3. File
which approach is better??
the amout of data passed at a time is not large..
may be 100 to 200 bytes
Pipes/Exec/Fork etc are for UNIX.
and my platform is NT.
If anyone has successfully implemented PerlIPC or something similar on
NT, let me know.
Also any pointers are welcome..
* Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!
------------------------------
Date: Thu, 18 Nov 1999 00:14:20 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: NT and Pipe
Message-Id: <wxHY3.22521$YI2.1028408@typ11.nn.bcandid.com>
In article <0221c012.0e4deeb1@usw-ex0102-016.remarq.com>,
Samay <samay1NOsaSPAM@hotmail.com.invalid> wrote:
>Pipes/Exec/Fork etc are for UNIX.
>and my platform is NT.
Have you tried pipes on NT? They sound like the cleanest solution
among those you mention.
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
The Internet stock bubble didn't burst on 1999-11-08. Hurrah!
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: Wed, 17 Nov 1999 19:03:45 -0500
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: Perl bug??? help me!!!
Message-Id: <x3yso24zmvy.fsf@tigre.matrox.com>
bmccoy@foiservices.com (Brett W. McCoy) writes:
> Also Sprach Diego Fernandez <nightwolf@inea.com.ar>:
>
> >Try this :
> >
> >print ("Bug" == "B");
> >
> >it returns 1 !!!! True!
> >
> >What is wrong?!
>
> You are using == (which is for comparing numbers) to compare strings.
> Perl is trying to make your strings numbers, but since there are no
> numbers involved, they are both the same thing. Try running this with the
> -w and use strict -- it won't even compile the program.
Why not? Did you test?
% perl -wl
use strict;
print "B" == "Bob";
__END__
Argument "Bob" isn't numeric in eq at - line 2.
Argument "B" isn't numeric in eq at - line 2.
1
The '1' is still printed.
--Ala
------------------------------
Date: Wed, 17 Nov 1999 17:16:53 -0800
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Perl Programmers Needed. Dallas, Texas USA (experienced only)
Message-Id: <38335385.5B157961@mail.cor.epa.gov>
Jeff S. Dickson wrote:
>
> Sandbox Studios HR wrote:
[snip]
> > We're hiring full-time and part-time Perl programmers for our Dallas
> > offices. Experienced programmers only. Work on different Internet
[snip]
> What's the point of advertising world wide for jobs specific to a
> particular area?
Surely you've noticed that all Texans assume everyone else is
dying to move there. :-)
David, whose brother is going to get him for this...
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Wed, 17 Nov 1999 17:23:19 -0800
From: toby_toby_toby <toby_toby_tobyNOtoSPAM@hotmail.com.invalid>
Subject: perl stumper
Message-Id: <0a0133f8.2f9ed36b@usw-ex0102-016.remarq.com>
One of the folks in my team stumped me with this
trivial hunk of code. It really seems like it
should work. Unfortunately, perl says "Use of
unitialized value..." when the second line is
read from the file.
Any clues?
-toby
#!perl -w
use strict;
open (IN, "notes.txt");
my($line) = <IN>;
print "first line is $line";
$line = <IN>;
print "second line is $line";
* Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!
------------------------------
Date: Thu, 18 Nov 1999 01:44:19 GMT
From: andrew-johnson@home.com (Andrew Johnson)
Subject: Re: perl stumper
Message-Id: <TRIY3.3342$Zu4.42521@news1.rdc1.mb.home.com>
In article <0a0133f8.2f9ed36b@usw-ex0102-016.remarq.com>,
toby_toby_toby <toby_toby_tobyNOtoSPAM@hotmail.com.invalid> wrote:
[snip]
! should work. Unfortunately, perl says "Use of
! unitialized value..." when the second line is
! read from the file.
!
! Any clues?
! -toby
[snip]
! my($line) = <IN>;
2 clues:
1) perldoc -f my
2) when clue 1 says see '...' for details, do so.
andrew
--
Andrew L. Johnson http://www.manning.com/Johnson/
I've always maintained a cordial dislike for indent, because it's
usually right.
-- Larry Wall in <199806221558.IAA07251@wall.org>
------------------------------
Date: Thu, 18 Nov 1999 01:55:40 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: perl stumper
Message-Id: <w0JY3.23873$YI2.1044967@typ11.nn.bcandid.com>
In article <0a0133f8.2f9ed36b@usw-ex0102-016.remarq.com>,
toby_toby_toby <toby_toby_tobyNOtoSPAM@hotmail.com.invalid> wrote:
>Unfortunately, perl says "Use of
>unitialized value..." when the second line is
>read from the file.
You're being bitten by context. my ($line) provides a list context to
<IN>, which proceeds to read all the lines from the file. Since
there's only one item in the list on the LHS, all but the first line
gets thrown away. So when you try to read more from the file, there's
nothing left to read, so you get undef to indicate EOF.
my $line will solve your problem.
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
The Internet stock bubble didn't burst on 1999-11-08. Hurrah!
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: Wed, 17 Nov 1999 22:24:44 GMT
From: barber@saintpatrick.org.DONT_SPAM_ME
Subject: Perl, CGI, ServerPush, & an almost infinite loop
Message-Id: <38332b26.80227801@news.newsguy.com>
I have a program that pulls images off of a web cam at timed intervals
and saves that image as webcam.jpg. I'm trying to write a script that
will be the src in an img tag, so that I can refresh the image without
requiring the browser to "Reload". My problem is two-fold.
1. With the script listed below, the while(1){} loop, of course,
launches an infinite loop that doesn't die when the remote browser
closes the window. How would I go about having the loop end itself
when the remote connection is broken?
2. Even with the infinite loop, the image will display itself properly
the first time, and I keep receiving data in the browser but the image
doesn't update. Is it the placement of my Content-type header, or
something else that I need to add/change?
I humbly ask for you assitance.
Paul
print "Content-Type: image/jpeg\n\n";
binmode(STDOUT);
while(1) {
$|="1";
open(WEBCAM,"webcam.jpg");
binmode WEBCAM;
print <WEBCAM>;
close (WEBCAM);
sleep(3);
}
------------------------------
Date: Wed, 17 Nov 1999 23:15:02 GMT
From: barber@saintpatrick.org.DONT_SPAM_ME
Subject: Re: Perl, CGI, ServerPush, & an almost infinite loop
Message-Id: <383334cb.82697182@news.newsguy.com>
Sorry for wasting bandwidth, but I just figured out the image refresh
issue. However, I'd still love to hear how to make a perl cgi-script
end it's own infinite loop when the remote browser closes the
connection. Thanks in advance. The script now looks like this:
# WebCamPush.pl
##############################################
$|="1";
undef $/;
print "Content-type:multipart/x-mixed-replace;boundary=StopStart\n\n";
binmode(STDOUT);
#I'd like to make the following loop a while(1) loop with some kind
#of last statement in there to close when the remote browser
#closers the connection. Is it possible?
for($i=1;$i<=120;$i++) { #I'd like to make this while(1) w/ some
print "\n--StopStart\n";
print "Content-Type: image/jpeg\n\n";
open(WEBCAM,"d:/inetpub/wwwroot/images/webcam/webcam.jpg");
binmode WEBCAM;
print <WEBCAM>;
close (WEBCAM);
sleep(1);
}
print n"\n--StopStart--\n";
------------------------------
Date: Wed, 17 Nov 1999 23:56:35 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: Perl, CGI, ServerPush, & an almost infinite loop
Message-Id: <TgHY3.22494$YI2.1024845@typ11.nn.bcandid.com>
In article <38332b26.80227801@news.newsguy.com>,
<barber@saintpatrick.org.DONT_SPAM_ME> wrote:
>1. With the script listed below, the while(1){} loop, of course,
>launches an infinite loop that doesn't die when the remote browser
>closes the window. How would I go about having the loop end itself
>when the remote connection is broken?
Hmm, that's weird. I'd think it would die with SIGPIPE. You could
check the return value from the print statement and quit if there's an
error.
>2. Even with the infinite loop, the image will display itself properly
>the first time, and I keep receiving data in the browser but the image
>doesn't update. Is it the placement of my Content-type header, or
>something else that I need to add/change?
You need to use server push. You'll probably want to use CGI.pm for
this, although you don't have to; there is information on how this
works in the CGI.pm docs.
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
The Internet stock bubble didn't burst on 1999-11-08. Hurrah!
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: Thu, 18 Nov 1999 00:11:34 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: Perl, CGI, ServerPush, & an almost infinite loop
Message-Id: <WuHY3.22517$YI2.1027763@typ11.nn.bcandid.com>
In article <383334cb.82697182@news.newsguy.com>,
<barber@saintpatrick.org.DONT_SPAM_ME> wrote:
>print "Content-type:multipart/x-mixed-replace;boundary=StopStart\n\n";
You might want to make sure "StopStart" is guaranteed not to occur in
your JPEG data.
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
The Internet stock bubble didn't burst on 1999-11-08. Hurrah!
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: Wed, 17 Nov 1999 23:45:57 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: Posting an Array to a URL
Message-Id: <V6HY3.22458$YI2.1022802@typ11.nn.bcandid.com>
In article <80v7o9$ga6$1@nnrp1.deja.com>, <wesley67@my-deja.com> wrote:
>I need to post an array or filehandle to a URL on a remote server.
>Is there a command in PERL which accomplishes this??
Yes. Look at the docs for LWP -- I think you need LWP::UserAgent for this.
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
The Internet stock bubble didn't burst on 1999-11-08. Hurrah!
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: Wed, 17 Nov 1999 16:27:15 -0800
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Posting an Array to a URL
Message-Id: <Pine.GSO.4.10.9911171626310.16575-100000@user2.teleport.com>
On Wed, 17 Nov 1999 wesley67@my-deja.com wrote:
> I need to post an array or filehandle to a URL on a remote server.
I don't know what you mean, but you probably want LWP from CPAN, which
lets your program become a web browser. Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 17 Nov 1999 18:55:57 -0500
From: Uri Guttman <uri@sysarch.com>
Subject: redmond quote chars (was Re: my Net::FTP script)
Message-Id: <x7ogcssmep.fsf_-_@home.sysarch.com>
>>>>> "M" == Mei <hmpeng@ppserver.tamu.edu> writes:
M> I found the solution now. Just took $ftp->type(“binary”) out
M> from the script. It works.
amazing. redmond converts a proper set of "" (though they should be
single quotes for plain strings) to its fancy quotes. if that were cut
and pasted, perl would not like it. i suspect the author typed it into
his newsreader and uncle bill decided for him what he meant. too bad
uncle bill was wrong again.
in emacs/gnus it shows: \223binary\224
just another reason to avoid redmondware.
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: Wed, 17 Nov 1999 17:19:55 -0800
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: redmond quote chars (was Re: my Net::FTP script)
Message-Id: <3833543B.A3C8E3F8@mail.cor.epa.gov>
Uri Guttman wrote:
>
> >>>>> "M" == Mei <hmpeng@ppserver.tamu.edu> writes:
>
> M> I found the solution now. Just took $ftp->type(“binary”) out
> M> from the script. It works.
>
> amazing. redmond converts a proper set of "" (though they should be
> single quotes for plain strings) to its fancy quotes. if that were cut
> and pasted, perl would not like it. i suspect the author typed it into
> his newsreader and uncle bill decided for him what he meant. too bad
> uncle bill was wrong again.
Unfortunately, it doesn't even have to be Redmondware that is
responsible, if Mei cut-and-pasted from a word processor.
WeirdPerfect and Amus Pro [to name but two others besides
MS Worm] also like to throw in smart-quotes. Most people
doing word processing never think twice about it. But
people who get typed material to include in programs have
been bitten by this on win32.
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Wed, 17 Nov 1999 19:32:05 -0600
From: "Darin Dugan" <s1dugan@@exnet..iastate..edu>
Subject: Re: Regular Expressions
Message-Id: <80vkv0$4l6$1@news.iastate.edu>
If you ONLY want to know that there are two semicolons on a line with
something between them, try something straightforward like:
open(FILE, "/path/to/file") || die "Can't open file: $!\n";
while (<FILE>) {
if (/\;.+\;/) {
print "found it\n";
} # end if
} # end while
HTH
D
"Luis Figueiredo" <panzer@hfeles.pt> wrote in message
news:80s6in$rhp$1@duke.telepac.pt...
> I need to find at least two ; (semi-colons) in a string to execute a block
> of code.
> The ; are scattered all over the string, spliting the keyword of that
> particular text.
>
> I need this match, to be able to differentiate the keywords, from
> semi-colons in the middle of the text.
>
> The structure of the file is like this:
>
> title
> keyword: blah;blah;blah;blah;blah;
>
> Text
> Text
> ......
> Text
> Text
> ======
> The code i'm using is like this:
> $x="any;text;split;with;semi-colons;";
> if ($x =~ /;{2, }/) {print "yes";};
> i tryed on using
> if ($x =~ /\;{2, }/) {print "yes";};
>
> Hoping that the semicolon was causing the problem, but with no results.
> I'm using the number 2 as an example, 3 or 4 would be more apropriated.
> Luis Figueiredo
------------------------------
Date: Wed, 17 Nov 1999 17:47:14 -0800
From: "Steven Lybeck" <alanis@softhome.net>
Subject: Re: Script Effiency
Message-Id: <80vm1n$rut$1@ultra.sonic.net>
Hey,
Te script looks pretty well-written. It looks like most of the scripts I
wrote when I was just bginning with perl too. There are a few things that
could be done more efficiently. Like when you are reading the file, you can
take out the entire "while ($person=<ALUMNI>) {}" loop and do exactly the
same thing with "@people = <ALUMNI>;"
Anyways, it seems like you are doing very well considering the fact that you
have only been using perl for 2 weeks.
~ Steven E. Lybeck
steven@neteze.com
alanis@softhome.net
------------------------------
Date: Wed, 17 Nov 1999 23:38:59 GMT
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: Trying to use a variable as an operator
Message-Id: <80ve8h$fe4$1@monet.op.net>
In article <38330ABA.7FA1804C@mail.cor.epa.gov>,
David Cassell <cassell@mail.cor.epa.gov> wrote:
>> o I borrowed this from the APL folks
>>
>> o Those APL folks are twisted. Stay away from them.
>
>Hey, how can you say bad things about a language with a domino
>for an operator?
When did I say anything bad about APL?
> [I wrote a lot of programs using that domino.]
That is certainly one of the cooler operators.
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 1414
**************************************
