[7366] in Perl-Users-Digest
Perl-Users Digest, Issue: 991 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Sep 8 01:17:27 1997
Date: Sun, 7 Sep 97 22:00:23 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 7 Sep 1997 Volume: 8 Number: 991
Today's topics:
Re: [Q] Strange pack() results <nicholas@binary9.net>
[R] Review this code for me? <nicholas@binary9.net>
ATM network simulator written in PERL <ysko@watch.kotel.co.kr>
Re: balanced delimiter, a subroutine (Damian Conway)
Re: C++Builder means Future. (Kaz Kylheku)
Re: C++Builder means Future. (Kaz Kylheku)
Re: change shadow on solaris ?? (Andrew Kerr)
Re: Clearing screen in CGI <jbolden@math.ucla.edu>
Re: flock() time (Charles DeRykus)
Re: flock() time <merlyn@stonehenge.com>
Re: Getting rid of ] and [ in perl <ajohnson@gpu.srv.ualberta.ca>
Help: Perl and dll:s (Per Mosseby)
Re: how access netscape' s dbm file? (Paul Marquess)
how to make passwd.pl secure? <fil@amnh.org>
Re: Incredibly basic Newbie question <camerond@mail.uca.edu>
Re: Is Perl for Win32 really as brain damaged as it see <rpsavage@ozemail.com.au>
mSQL mods for Perl compiled on NeXT? (The Rev. James D. Meacham)
Re: Perl on win32 book (Danny Aldham)
Re: Perl script to query a Qi server (Daniel E. Macks)
Re: Shakespearian insult program (Martin Bialasinski)
Re: Shakespearian insult program (Daniel E. Macks)
Re: Speed of goto (was: Re: newbie: how do I break a WH (Andrew M. Langmead)
Re: Time warp - Perl 4 question (Stan Barton)
Re: Where is the FAQ? Not at "www.perl.com"! (Grey Cloak)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 7 Sep 1997 18:21:39 -0400
From: "Nicholas J. Leon" <nicholas@binary9.net>
To: Jason Gloudon <jgloudon@bbn.com>
Subject: Re: [Q] Strange pack() results
Message-Id: <Pine.LNX.3.95.970907181952.5699C-100000@neko.binary9.net>
# >I have a feeling this answer is going to be pretty simple, but I can't
# >seem to get it.
# >
# The string fields in utmp are NULL-terminated strings. You need to use
# a instead of A.
No, that wasn't it. The original structures were defined as
char foobar[12]
which is EXACTLY 12 bytes regardless of it being null-terminated or not.
What the problem WAS, was that gcc was aligning the structures on 4 byte
boundries; therefore any declaration of a 1 or 2 byte element was expanded
to 4 bytes.
A 'x2' in the appropriate place solved the problem.
------------------------------
Date: Sun, 7 Sep 1997 18:12:34 -0400
From: "Nicholas J. Leon" <nicholas@binary9.net>
Subject: [R] Review this code for me?
Message-Id: <Pine.LNX.3.95.970907181029.5699A-101000@neko.binary9.net>
This message is in MIME format. The first part should be readable text,
while the remaining parts are likely unreadable without MIME-aware tools.
Send mail to mime@docserver.cac.washington.edu for more info.
--80609859-455215798-873670354=:5699
Content-Type: TEXT/PLAIN; charset=US-ASCII
I've recently written an implementation of setutent/getutent via an
XSUB. Right now it's fairly specific to my Linux box (at least for the
struct utmp structure). But since this is my first result of this, I
was wondering if someone could glance it over and give me some
suggestions on how to improve it.
Thank you!
--80609859-455215798-873670354=:5699
Content-Type: APPLICATION/octet-stream; name="Utent-1.0.tar.gz"
Content-Transfer-Encoding: BASE64
Content-ID: <Pine.LNX.3.95.970907181234.5699B@neko.binary9.net>
Content-Description: The package
H4sIALwkEzQAA+1ZbW/iRhDmK/srpskHzCkY2xiQoInCBbelJUBjSFOp0snB
C+zF2D57neRa3X/vrjHYvuoKqniplH2kJOaZWc86u894dphQ7NKKKivVwsEA
utKs16EAAKqu5/4mUAAauqI3NE1Tm8yq1tV6AeqHm1KKKKRWAFBwyXThOVb4
LT/mNpsdY0LHxWSz/redQe8HwxzvP4aqKI2v1j2//o1Gsv4q2wJ8/bWmWiuA
sv+p/BNvfP1vrSc8Iw6WR30U7wXZXyYXryGiOGSEg6KYWKDewBx3+n106lkL
7AsZ/ac7Yc8xtulf15L8X2/WNPaiALVW15tC/8fA+XdQjcKg6nhTy6k+Erfq
48BBKAoxGK90QokTtlp8b/CfoI3OwcQYHPJYXZurGyvLHTDzArAxtZgBvBks
vBegHhB35kTYnWI2ni4wTD2Xb7zYhX9ebz54xMSdwzTAFsW2jH4LCMVro4SK
pUHn1ijB5RWUzN/NVivevqULZuj2zHFqTPnh+5+Nm3GGlb2YvzfuzN5wsDKw
/c/Ichu9ucyW6n+d/fcfY5v+tdq6/lNruqpx/bMyUOj/GPCt6ZM1x5CqiYkg
wJ8iEvAE4HsB5apfM93PrtX3LJtz1z2zc/npRdq4ZazAtHRtPIyGd2OIfUJM
4yIC5usLrrZHz6MhDSw/H19tvzkdngpf6//1mwL479iif7XW2Ohf1+pqrP+G
LvR/DJwTd+pENoYz42Fs3A3kxRlKOV4L5JkHc/KeMxkqORww7nbYnfQNuMyo
uVgcdW5+6fyYZxF69oiN1klBKqObYddoob9QMeXa6AtCnft3aJ66je6M3qA3
bjE/GkRTChFd+vAuaqPRaHWLYnQ5z9wCFckMpKgM7NYA/BkHXSn0L7TYBjCa
mD+FUvj8QVuyHGY5kotfzHvyLEWVq4h+oJ99XC4z3726+sT+d09/7ekQF1+E
5E/szTJMecfRxM6PjcPu9jBkueVhNkFYpRjkw3Bm1ykuvJDmR3Nm12lath2s
XL+gInZYzRovszmWlDLbcGwc809GrrxOrbf/G9L8n8j4ADG29n80bXP+U5tx
/lcaisj/x8AmjX/PM6m8uBIKeVNI9Z/0+g4QY5v+1c35T6kr/JoRTU3o/xjg
fZ7c2Stbf6GXBe/JSNdWpqbipRTiy+YHhB3jPnrElUqV0sW1VQb57A/3LK7b
Tv1cArsh1X/S2z9AjK365+/85PzX5L1gVWtoQv9HAfo1ItOnCv8nsFMZP+9B
9iuhJbuOfwF/PayuiMu8HQehSqWCRoH3TGwcpn0dy7U33R45bhYnb5a4NYxf
raXP7i0ShICAgICAgIDAafA39NuZ6gAoAAA=
--80609859-455215798-873670354=:5699--
------------------------------
Date: Mon, 08 Sep 1997 11:12:47 +0900
From: Ko Yeonsuck <ysko@watch.kotel.co.kr>
Subject: ATM network simulator written in PERL
Message-Id: <34135F1F.1339@watch.kotel.co.kr>
Hi,
I am looking for ATM network simulator.
I found out some simulator written in C or C++.
Does anyone know the simulator written in PERl ?
--
Ko, Yeonsuck
KOREA TELECOM Multimedia Technology Research Lab. Internet Team
17 Woomyeondong, Seochogu, Seoul, Korea, 137-792 TEL: +82-2-526-5232
E-mail: ysko@watch.kotel.co.kr FAX: +82-2-526-6942
------------------------------
Date: 7 Sep 1997 20:24:19 GMT
From: damian@cs.monash.edu.au (Damian Conway)
Subject: Re: balanced delimiter, a subroutine
Message-Id: <5uv2hj$2b0$1@towncrier.cc.monash.edu.au>
Jeffrey Bolden <jbolden@math.ucla.edu> writes:
>This subroutine is meant to address an issue raised at
>http://www.perl.com/CPAN-local/doc/manual/html/pod/perlfaq6/
>Can_I_use_Perl_regular_expresio.html
>To quote:
>Can I use Perl regular expressions to match balanced text?
[snip]
You might also like to check out the Text::Balanced module, recently
uploaded to the CPAN.
Damian
------------------------------
Date: 7 Sep 1997 12:03:20 -0700
From: kaz@helios.crest.nt.com (Kaz Kylheku)
Subject: Re: C++Builder means Future.
Message-Id: <5uutpo$r5v$1@helios.crest.nt.com>
In article <3411F49F.C90A6740@MStarMedia.com>,
John Palmieri <JohnP@MStarMedia.com> wrote:
> It will be on IBM's AS/400 which is a UNIX derivitive. I think
AS/400 is a UNIX derivative? What are you smoking?
First of all, the AS/400 is a piece of hardware, a computer. UNIX is software.
Secondly, the AS/400 commonly runs OS/400, which is more related to legacy mainframe
operating systems than anything else.
--
"In My Egotistical Opinion, most people's C programs should be
indented six feet downward and covered with dirt."
-- Blair P. Houghton
------------------------------
Date: 7 Sep 1997 12:07:17 -0700
From: kaz@helios.crest.nt.com (Kaz Kylheku)
Subject: Re: C++Builder means Future.
Message-Id: <5uuu15$r71$1@helios.crest.nt.com>
In article <5utbuo$j9a$1@earth.execpc.com>,
Steve Mading <madings@earth.execpc.com> wrote:
>The AS/400 looked to me to be nothing more than a leftover of
>IBM's past era of computers designed to be nice for COBOL people
>but awful for everyone else.
Did you ever look into the News/400 magazine (or whatever it's called?) It's
chock full of horrid programming examples, in which the first column of each
line has to have some letter like 'D' or 'I'. These cavemen are still stuck
in the days of punched cards. Well over thirty years of free form lexical
analysis in programming languages seems to have passed them over.
--
"In My Egotistical Opinion, most people's C programs should be
indented six feet downward and covered with dirt."
-- Blair P. Houghton
------------------------------
Date: 8 Sep 1997 00:00:35 GMT
From: kerr@cs.uregina.ca (Andrew Kerr)
Subject: Re: change shadow on solaris ??
Message-Id: <5uvf73$dm6$1@sue.cc.uregina.ca>
mgrabenstein@isinet.com wrote:
: I am trying to rewrite the /etc/shadow file on solaris 2.5.1 machine
: (in order to change the user's password).
: Everytime I do all local accounts get locked out. Attempting to "su -" to
: them returns an "id unknown" error. We have NIS on and NIS log ons are not
: affected. Bringing up admintool and clicking the apply fixes the problem,
: but I am not sure why. Anyone know ??
: Any way to prevent it ??
My best guess is that something in the "new" shadow file is not quite
right. Are you missing a colon somewhere, or something to that effect?
Andrew
--
Andrew Kerr
Email: kerr@tdi.uregina.ca
Alternate: kerr@3co.com
Homepage: http://tdi.uregina.ca/~kerr/index.html
Anyone who makes an absolute statement is a fool.
------------------------------
Date: 7 Sep 1997 23:37:02 GMT
From: "Jeffrey Bolden" <jbolden@math.ucla.edu>
Subject: Re: Clearing screen in CGI
Message-Id: <01bcbbe7$0f4a5360$501543a4@loki2>
kchadha@hotmail.com wrote in article <873321728.711@dejanews.com>...
> Hi,
>
> I need to do the following in a CGI
> (very simplified version given below : )
>
> print " This is test 1 "
> print "This is test 2"
> sleep(5)
>
> Clear the screen and
> print "test 3"
> print "test 4"
Look up the tern "server push" in a CGI book. That's what you are looking
for.
------------------------------
Date: Mon, 8 Sep 1997 02:03:03 GMT
From: ced@bcstec.ca.boeing.com (Charles DeRykus)
Subject: Re: flock() time
Message-Id: <EG6313.E5B@bcstec.ca.boeing.com>
In article <3411E6B6.65F90D67@oaktree.net>, Jerry <jfitz@oaktree.net> wrote:
> How long does a second process keep attempting to access a file that has
> been flocked by a previous process?
>
until the lock's released... or the process is euthanized :)
> Is there a default time length, or is there a way to control this length
> of time (i.e., tell the second process to try for only 10 seconds before
> erroring out)?
>
>
raise an exception, e.g.,
$SIG{ALRM} = sub { die "expired" };
alarm(60);
eval { flock() };
alarm(0);
if ($@ =~ /^expired/) {
...
elsif ($@) {
...
HTH,
--
Charles DeRykus
------------------------------
Date: 07 Sep 1997 21:20:19 -0700
From: Randal Schwartz <merlyn@stonehenge.com>
To: ced@bcstec.ca.boeing.com (Charles DeRykus)
Subject: Re: flock() time
Message-Id: <8cn2lo8mik.fsf@gadget.cscaper.com>
>>>>> "Charles" == Charles DeRykus <ced@bcstec.ca.boeing.com> writes:
Charles> raise an exception, e.g.,
Charles> $SIG{ALRM} = sub { die "expired" };
Charles> alarm(60);
Charles> eval { flock() };
Charles> alarm(0);
Charles> if ($@ =~ /^expired/) {
Charles> ...
Charles> elsif ($@) {
Charles> ...
actually, this'd be cooler and safer:
eval {
local $SIG{__DIE__} = 'DEFAULT';
local $SIG{ALRM} = sub { die "expired" };
alarm(60);
#thing that might take time or not
};
alarm(0);
if ($@ =~ /^expired/) { ... }
I'm probably still overlooking something, but that's a closer cut
than yours.
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 358 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@ora.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Sun, 07 Sep 1997 12:30:04 -0500
From: Andrew Johnson <ajohnson@gpu.srv.ualberta.ca>
Subject: Re: Getting rid of ] and [ in perl
Message-Id: <3412E49C.539A6D2B@gpu.srv.ualberta.ca>
Tom Fawcett wrote:
>
> Matt Weber <mweber@vt.edu> writes:
> > How do I get rid of these two charectors in perl: []
> >
> > It should be
> > $value=~ s/[]//g;
> > right???
>
> Quote those square brackets: s/\[\]//g;
> Else it's just another empty character class.
and if you want to remove them when they are
not immediately following each other in a string
you'll want to wrap them back into a character class:
s/[\[\]]//g;
or use an alternation;
s/\[|\]//g;
andrew
------------------------------
Date: 7 Sep 1997 22:09:51 GMT
From: d94-pmo@mumrik.nada.kth.se (Per Mosseby)
Subject: Help: Perl and dll:s
Message-Id: <5uv8nf$gdu$2@news.kth.se>
Hi,
I would be extremely grateful if anyone could give me a hint on the
subject Perl and dll:s. I have a dll that works fine to use with C
programs, but I don't know how to use it in a Perl script I'm planning
to write.
* Is it possible to use the dll in my Perl script?
* Is it easy to do?
* Has anyone done it before me - and is there a source code / hint to
get somewhere?
All help is greatly appriciated - and needed.
/Moz
------------------------------
Date: 7 Sep 1997 20:36:22 GMT
From: pmarquess@bfsec.bt.co.uk (Paul Marquess)
Subject: Re: how access netscape' s dbm file?
Message-Id: <5uv386$a64$1@pheidippides.axion.bt.co.uk>
[Posted & Mailed]
Tony Reeves (areeves@goodnet.com) wrote:
: Hi..
: I'm trying to access the password file that netscape uses for users,
: it is based on Berkely DB file, and I have perl 5.004 and DB_File, and
: DB from Berkely. All test fine in the make test...
: yet, when I try to access the file in perl I can't open it..
: netscape saves the file in two parts.. Users.db and Users.id
: I thought it was standard hash for.. so I tryed the following tie:
: tie %db, "DB_File", "proxyhome/authdb/Users", $DB_HASH;
: yet this wont't open the file.. I've tryed others too.. db btree, and
: different formats of the tie command in the perl book all fail..
: what am I doing wrong?
You probably have the wrong version of Berkeley DB. On my Sun Berkeley
DB 1.85 is needed to access Netscape files.
Paul
------------------------------
Date: 07 Sep 1997 18:13:59 -0400
From: Fil Krohnengold <fil@amnh.org>
Subject: how to make passwd.pl secure?
Message-Id: <eh4t7w7owo.fsf@amnh.org>
Me again with this chunk from the passwd.pl available from CPAN
under scripts/nutshell/ch6/.
[...]
$foo = 'sub badpats {local($_) = @_;study;';
open(BADPATS,$BADPATS); # $BADPATS defined above as a flat
# file in a nonwritable dir (/usr/dict)
while (<BADPATS>) {
($badpat,$maybe) = split(/[\n\t]+/);
($response = $maybe) =~ s/'/\\'/ if $maybe;
$foo .= "return '$response' if /$badpat/;\n";
}
close BADPATS;
$foo .= 'return 0;}';
eval $foo; # Note: this defines sub badpats
[...]
Okay, so here's a subroutine being refined at runtime. Here are my
questions:
1) Why is it necessary to do this? Why not just push the words in the
$BADPATS file into the same array with /usr/dict/words for checking?
[see script for that one]
2) If it is necessay, how can I do this and make it secure enough for
setuid?
Thanks for your help and patience.
-fil
___________________________________________________________________________
Fil Krohnengold | UNIX Systems Admin, Interdepartmental Laboratories
fil@amnh.org | The American Museum of Natural History
212/769-5294 | CPW @ 79thSt / NY, New York / 10024
------------------------------
Date: Sun, 07 Sep 1997 15:26:24 -0500
From: Cameron Dorey <camerond@mail.uca.edu>
Subject: Re: Incredibly basic Newbie question
Message-Id: <34130DEE.F030B589@mail.uca.edu>
Fred wrote:
> I'm just beginning to look at perl. I bought a book which helped
> (although it's a bit over my head for now), and all I'm trying to do
> is
> run a sample perl program under Windows95. Is this possible?
> Unfortunately, the book doesn't mention something this simple.
>
> I'm starting with the most basic Hello World program:
>
> #!/usr/local/bin/perl
> #
> # Program to do the obvious
> #
> print 'Hello world.';
>
> and I simply want to see it do something before I move on to more
> difficult tasks. My problem is that I have no idea how to run the
> damn
> thing (under Windows95). I typed it as text with Notepad, then
> changed
> the filetype to .prl but when I try to run it via the Start/Run
> function of Windows95, it simply opens it as a text file. Do I have to
>
> go to the MS.DOS window? What exact steps do I have to take to run it?
>
>
>From one newbie to another (although I've gotten a bit further than you
so far), hit this webpage: http://hjs.geol.uib.no/Perl/index6.html-ssi .
This will get you up and running right now. I would suggest you have
Gurusamy's port (5.004.02 bindist 04), since it works well for me in
Win95 (Thank you, thank you, thank you, Gurusamy).
I think this might be the second testimonial of Perl5 working well
in Win95, somebody a couple of days ago said he/she had not heard of
anyone having any luck with it.
> Can it be run on a p.c. or does it need to be uploaded first to a UNIX
>
> system?
>
(1) Yes. (2) No.
> If it can be run from a p.c., do I need to compile it first, or is
> that
> part of the run fuction? Do I need a program/compiler that is not part
>
> of the general Windows95 system (and if so, which one, and how do I
> install it?)
>
Perl is an interpreted language, no compiler necessary.
> (Can someone point me to a tutorial or book which covers such
> elementary
> basics?)
See above. There are other tutorials all over the web.
http://www.cgi-resources.com/ leads you to several of them, also.BTW,
which book did you buy? The one that Mark mentioned in his post is being
shipped (according to ORA), but no copies have hit any of the bookstores
around here yet.
Cameron Dorey
camerond@mail.uca.edu
------------------------------
Date: Mon, 08 Sep 1997 10:49:47 +1100
From: Ron Savage <rpsavage@ozemail.com.au>
Subject: Re: Is Perl for Win32 really as brain damaged as it seems?
Message-Id: <34133D9B.1243@ozemail.com.au>
Mark Cartwright wrote:
>
> You wouldn't happen to have a URL for Zip Magic, would you? <g>
> [snip]
Yes. support@mijenix.com.
------------------------------
Date: 8 Sep 1997 04:24:50 GMT
From: jmeacham@meacham.charm.net (The Rev. James D. Meacham)
Subject: mSQL mods for Perl compiled on NeXT?
Message-Id: <5uvumi$rp1$1@news2.charm.net>
Hi all,
I've been having a hell of a time trying to get the mSQL modules
(version 1.1807) to compile on my NeXT 3.3 workstation. Anyone got
these working. I've got all the requisite components, but it quits
compiling at the MySQL section with complaints about undeclared
variables. Any suggestions? Peace,
James
--
-------------------------------------------------------------------
The Rev. James David Meacham
Minister, Webmaster, Philosopher
"If people did not sometimes do silly things, nothing intelligent would ever get done." -- Ludwig Wittgenstein
------------------------------
Date: 7 Sep 1997 19:56:09 -0700
From: danny@lennon.postino.com (Danny Aldham)
Subject: Re: Perl on win32 book
Message-Id: <5uvpg9$spj$1@lennon.postino.com>
Jonathan Tracey (jont@uunet.pipex.com) wrote:
: There is now a perl for win32 book available form O`reilly its a rewrite of
: the learning perl (llama) book and is very good for NT perl people
This book is co-authored by Tom Christiansen, know for posts to
win32 threads that one should get a real OS, a web page that slams
any browser running on a win32 platform, and frequent posts of his
kill file that includes anything to do with win32 or NT . Give it a miss.
--
Danny Aldham SCO Ace , MCSE , JAPH , DAD
I don't need to hide my e-mail address, I broke my sendmail.
------------------------------
Date: 7 Sep 1997 22:10:21 GMT
From: dmacks@sas.upenn.edu (Daniel E. Macks)
Subject: Re: Perl script to query a Qi server
Message-Id: <5uv8od$t5f$1@netnews.upenn.edu>
Pui Ming WONG (s11976@net2.hkbu.edu.hk) said:
: I'm looking for some sample perl scripts that do the job of
: querying staff info stored in a qi server (CCSO nameserver) using
: the ph client program.
: Could someone direct me to any so i don't have to write them
: from scratch as i'm still not too good in the perl lang.
Is there a module on CPAN? I'd guess Ph::* or Qi::* or Net::*.
What does DejaNews tell you about 'qi' in the perl groups?
Hints: yes (it's not in the module list, but it's in the README
of a reasonable guess); yes, and the program works quite well.
dan
--
Daniel Macks
dmacks@a.chem.upenn.edu
dmacks@netspace.org
http://www.netspace.org/~dmacks
------------------------------
Date: 7 Sep 1997 19:46:39 GMT
From: agr30@rrz.Uni-Koeln.DE (Martin Bialasinski)
Subject: Re: Shakespearian insult program
Message-Id: <5uv0av$snf@news.rrz.Uni-Koeln.DE>
> I really like your Shakespearian insult program Eric, even if it is
> kinda high browed. :-)
> Now who's going to be the first to come up with a Bevis and Butthead
> insult program?
My vote for a random BOFH login explanation just in case something strange
happens during the day (like a luser trying to do some real work) :-)
Ciao,
Martin
------------------------------
Date: 7 Sep 1997 21:43:54 GMT
From: dmacks@sas.upenn.edu (Daniel E. Macks)
Subject: Re: Shakespearian insult program
Message-Id: <5uv76q$np3$1@netnews.upenn.edu>
Martin Bialasinski (agr30@rrz.Uni-Koeln.DE) said:
:
: My vote for a random BOFH login explanation just in case something strange
: happens during the day (like a luser trying to do some real work) :-)
The BOFH Excuse Server database is available in fortune format.
Wouldn't be too hard to make it a dbm and then perlize fortune.
dan "Stale file handle (next time use Tupperware(tm)!)"
--
Daniel Macks
dmacks@a.chem.upenn.edu
dmacks@netspace.org
http://www.netspace.org/~dmacks
------------------------------
Date: Sun, 7 Sep 1997 15:40:37 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: Speed of goto (was: Re: newbie: how do I break a WHILE loop?)
Message-Id: <EG5A7q.DuB@world.std.com>
[Tom, I had wished your e-mail message was marked as being a courtesy
copy. Otherwise I would have posted, not e-mailed the following.]
Tom Phoenix <rootbeer@teleport.com> writes:
>
> On Fri, 5 Sep 1997, Andrew M. Langmead wrote:
>
> > Thirdly, goto is coded horribly inefficiently in perl. And since no
> > one seems to be interested in fixing it, it will probably always be
> > that way.
>
I don't think that I was clear about what I meant. What I intended to
express was that goto has very little use in perl. Since there is no
pressing need for a superfast "goto" by either perl5porters or the
perl community at large, no giant clamoring, no large e-mail campains
of "give us gotos", that anyone who is donating time to the
development of perl is spending their time on issues that would better
help at least their own personal perl coding, if not everyone.
It wasn't meant as a gripe, "I want to use gotos all over my code, but
that perl5porters clique won't let me."
> But, seriously, there are many, _many_ things on the to-do list
> which have higher priority than that. That's the trouble with such
> low-priority items: They seem to never get done. Until, of course,
> somebody comes along with both the skill and desire to put it higher
> on his or her own priority list!
Can you imagine a day where the perl interpreter is so close perfect
that the only thing that someone has left to do is to optimize "goto"?
--
Andrew Langmead
------------------------------
Date: Mon, 08 Sep 1997 02:18:54 GMT
From: sbarton@erols.com (Stan Barton)
Subject: Re: Time warp - Perl 4 question
Message-Id: <34135fff.2082268@news.erols.com>
chip@rio.atlantic.net (Chip Salzenberg) wrote:
>According to menyhert@acm.org:
>> I wrote a script using Perl 5.003. It works great. However, it is
>> very complex and long (4500 lines). The problem is that I have to
>> move it back to Perl 4 to guarantee the widest range of acceptance.
>
>I'm sorry.
>
>>I've gotten the script cleaned up and stupified for Perl 4 (no "my" or
>>"sub" arguments, etc). The problem is that whenever my script exceeds
>>2000 lines, every line after line 2000 reports a bogus syntax error.
>
>There probably is a genuine syntax error that's just not obvious.
I agree with the above response. One of my favorite tricks when
something like this happens is move the function somewhere else in the
file and see what errors pop up then. If that doesn't work, try
inserting a few innocuous print commands somewhere in the section in
question and see if the error line number changes.
-----------------------------------------------------------------
Stan Barton
sbarton@erols.com
-----------------------------------------------------------------
------------------------------
Date: 8 Sep 1997 03:43:58 GMT
From: grycloak@greycloak.access.one.net (Grey Cloak)
Subject: Re: Where is the FAQ? Not at "www.perl.com"!
Message-Id: <slrn616tgd.6b9.grycloak@greycloak.access.one.net>
On Fri, 29 Aug 1997 13:29:05 +0200, Doug Seay <seay@absyss.fr> wrote:
>John Desmond Curry wrote:
>>
>> I am a newbie, so please have patience! I have spent hours
>> trying to find the Perl FAQ at the various places that previous
>> messages on this newsgroup (comp.lang.perl.misc) have said that
>> it is at, including "www.perl.com", but none of them exist. So,
>> where is it?
>
>Have you tried the FAQ that comes with recent perl5 distributions?
>Simply "perldoc perlfaq" should be enough. No need to fire up a web
>browser, most everything interesting is already spinning on your disk.
I'm interested in the same.
]# perldoc perlfaq
No documentation found for 'perlfaq'
I running Red Hat 4.2
--
Grey Cloak
_________________________________________
.-. For pagan pages and not guitars .|||||.
:|#|: or naked women |||||||
# http://www.geocities.com/Area51/7614 # o o #
# #\ + /#
__#__ Be one with the Source __) (__
( # ) Use Linux / V \
)(#)( (- : -)
(_____)
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 V8 Issue 991
*************************************
