[12404] in Perl-Users-Digest
Perl-Users Digest, Issue: 6004 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jun 15 14:07:51 1999
Date: Tue, 15 Jun 99 11:00:22 -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 Tue, 15 Jun 1999 Volume: 8 Number: 6004
Today's topics:
Re: Address Resolution Using Perl to Query Exchange <cassell@mail.cor.epa.gov>
Re: Afraid to ask about Y2K! (I R A Aggie)
Re: Afraid to ask about Y2K! (Mitchell Morris)
Re: Afraid to ask about Y2K! <flavell@mail.cern.ch>
Re: Child processes, "Please wait" pages <cassell@mail.cor.epa.gov>
Re: Dynamic Regular Expression <uri@sysarch.com>
Re: Environment variables. (I R A Aggie)
Re: File Uploading <upsetter@ziplink.net>
Re: Get last execution time for a cron job <gary@rdss.com>
Re: How do I trim a string? (Larry Rosler)
Re: IO::Socket, Socket <tchrist@mox.perl.com>
Re: mail list customisation <cassell@mail.cor.epa.gov>
Re: overwrite "print" ? (Andrew Allen)
Re: parse a string in triplet ? (M.J.T. Guy)
Re: Perl "constructors" <jdporter@min.net>
Re: Perl "constructors" <dme7@cornell.edu>
Re: Redirection but no 'Back' (Abigail)
Re: Regular Expressions (Philip 'Yes, that's my address' Newton)
removing $array[$i]Many Thank bernd1615@my-deja.com
Re: strange problem for multithread programming... <bbense+comp.lang.perl.misc.Jun.15.99@telemark.stanford.edu>
What is functional difference between .pm and .pl? <neil@pacifier.com>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 15 Jun 1999 10:48:12 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Address Resolution Using Perl to Query Exchange
Message-Id: <376691DC.463A5FB4@mail.cor.epa.gov>
Pedro Miguel Raposo wrote:
> [snip]
>
> The Netscape PerLDAP module works just fine with Activestate Perl.
>
> Go to http://developer.netscape.com/tech/directory, and check it out
Hmm. Isn't this the module that ActiveState took off their
server because it was so buggy and broken?
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: 15 Jun 1999 16:56:52 GMT
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: Afraid to ask about Y2K!
Message-Id: <slrn7md1ks.qat.fl_aggie@thepentagon.com>
On Tue, 15 Jun 1999 15:42:27 GMT, Bart Lateur <bart.lateur@skynet.be>, in
<37687326.33785850@news.skynet.be> wrote:
+ Many people really seem to think that civilisation will end at jan 1,
+ 2000, 12 AM.
This is a bad thing?
+ >According to the great Perl guru himself, Tom Christiansen we, who call
+ >ourselves programmers, are displaying our ignorance by using software
+ >such as Deja.com - in his words "Web browsers masquerading as lame
+ >excuses for real newsreaders are notoriously bad ...".
+ I doubt if TomC is really referring to use of Deja.com or DejaNews.com.
Tom is refering to using deja as a posting mechanism. I found it to be
clunky and hard-to-use, so I gave up and now use slrn, instead.
This is different than "using deja to look up previous discussions
about Y2K".
For instance.
James
------------------------------
Date: 15 Jun 1999 17:27:13 GMT
From: mgm@unpkhswm04.bscc.bls.com (Mitchell Morris)
Subject: Re: Afraid to ask about Y2K!
Message-Id: <slrn7md37g.87k.mgm@unpkhswm04.bscc.bls.com>
In article <7k5njd$nbp$1@nnrp1.deja.com>, finsol@ts.co.nz wrote:
>In article <slrn7m9t5s.jp8.mgm@unpkhswm04.bscc.bls.com>,
> mmorris@mindspring.com wrote:
><SNIP>
> I'll put on my instructor's hat and pass along a few tidbits.
>>
>> The best way to audit code written in Perl is to find several people
>who are
>> experienced in both Perl and code auditing and have them audit the
>code
>> (duh). This is, by the way, the same way you would audit code written
>in any
>> language ... Perl isn't magic in this regard.
><SNIP>
>Thankyou for being one of the contributors to this newsgroup to
>acknowledge that Perl programs do need to be audited for Y2K problems.
As far as I can tell, no one is claiming that all Perl programs are free of
any class of error. Many people are claiming that the single executable named
"perl" is itself free of Y2K-related errors. Please try to maintain this
distinction, as it is very important. As an analogy, Microsoft Visual C++ may
or may not be free of Y2K-related concerns. That fact has absolutely no
bearing on whether or not any given C++ program is similarly free of
Y2K-related concerns, even if it is compiled with MSVC++.
If you don't see this distinction, and that it is a significant distinction,
then your "professionalism" is rather more like "malfeasance" in my
opinion.
[snip]
>
>I would also like to thankyou for your very comprehensive an exhaustive
>instructions on how to perform a Y2K audit on Perl code. Unfortunately
>it seems that you have very limited experience of the real world -
>perhaps you are an academic? Few, if any, IT departments have the
>luxury of a team of competent programmers assigned to task of
>application familiarisation, regular meetings to discuss strategy,
>findings, documentation etc. etc. Get real!
Perhaps it would behoove you to learn to read posting headers. You will
find at the top of all my postings a line that reads:
Organization: BellSouth Cellular Corp
Last time I checked, that was absolutely nothing like an academic
institution, but rather more like a large corporate entity busily serving
millions of cellular telephone customers their wireless connectivity.
In addition to your mischaracterization of me, you also completely missed the
point of a code review. That is, programmers look at their code before they
stuff it on a production box. There was no mention of strategy, application
familiarization, or any such strawman nonsense. I write an interface between
a particular billing subsystem and the rest of the switch provisioning
software, and the other people in my project group read my code before it's
put into production. It doesn't even involve project managers.
>
>Your typical case will be for the Y2K project manager to tick off items
>in his software inventory by getting a single programmer to give
>assurance that everything is OK. This will be required to be done ASAP,
>with minimal expense and with no disruption to normal work loads.
>Anything more than that will require a lot of justification. It would
>certainly be rare that a team would be assigned to a single application.
>
>The method of manually checking masses of code is inefficient and also
>poses the very real problem of loss of concentration. It is simply not
>practical.
Let me see if I've got this straight. You walk into a corporate setting, and
claim that you can either (a) perform yourself or (b) provide a tool whereby
someone else can perform a complete and exhaustive survey of all their
programming output over any number of years and you will find their Y2K
problems? In addition, this will happen without impacting anyone's current
workload? For only a mere pittance, especially compared to their expected
losses should the whole enterprise founder on 1-1-00?
That's amazing! With a capital A!
I'd say that either (a) you're a fraud and aren't actually claiming to do any
work, or (b) are prepared to assume a new name and identity if any actionable
claims arise from your failure to properly insulate your clients from
Y2K-related issues.
[more logorrhea snipped]
I've been employed as a professional programmer since 1983. Your supposed 22
years of experience looks less like 22 years worth of new programming
challenges, than it does 22 years worth of self-important posturing. Your
track record says nothing at all in that a great deal of my income used to be
cleaning up after some trained monkey of a paper-pusher wrote some piece or
another of an accounting system in dBase and foisted it upon his one-time
employer. I suspect that you're the type of person I get paid to clean up
after. The fact that you're pretending to clean up after even lower forms of
life matters not a whit.
Since you seem intent on displaying your continued imperviousness to facts,
I'll bid you good day, and best of luck to your attorneys. I'm sure they'll
be very busy once your chicanery comes to light.
+Mitchell
--
Mitchell Morris
| <- You must be smarter than this stick to ride the Internet
-- Mike Handler, paraphrased from Bev White
------------------------------
Date: Tue, 15 Jun 1999 19:27:01 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: Afraid to ask about Y2K!
Message-Id: <Pine.HPP.3.95a.990615192143.19963A-100000@hpplus01.cern.ch>
On Tue, 15 Jun 1999, Bart Lateur wrote:
> Many people really seem to think that civilisation will end at jan 1,
> 2000, 12 AM.
How can 12 be "AM"? If you mean 00:00, which you presumably do, then
it's exactly half way between two middays, so it's no more accurate to
call it before midday than after midday; and if it's 12:00 then it's
neither before nor after: it _is_ midday! and the disaster, whatever it
may be, will already be underway.
Anyway, the new millennium doesn't start till a year later.
;-}
------------------------------
Date: Tue, 15 Jun 1999 10:17:43 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Child processes, "Please wait" pages
Message-Id: <37668AB7.B00DF83F@mail.cor.epa.gov>
Thomas J. Margolis wrote:
>
> Greetings,
>
> I am working with some very ugly, long Perl legacy code which, prompted by a
You have my deepest sympathies.
> user's form submission, extracts data from a database and prints a report to
> the browser.
That doesn't sound like it should take long, unless you're having
to cool your heels while the database decides it should deign to
finish making the connection. Not to sound like a oracle here
or anything. :-)
Perhaps the real problem is that the code is so verblunget that
it needs to be thrown away and replaced. CGI.pm and DBI.pm
might make your life a lot easier.
> Because this process takes a while, I want a "Please wait"
> page to appear after the user presses Submit, and to be replaced by the
> database report when the extraction process is completed.
>
> What's the best way to approach this? Pipe data to a child script? Fork a
> child process? My main problem has involved headers: I need to send
> non-parsed headers to have the child print the "Waiting" page in the
> interim, but this horrendous legacy code is so tangled with headers...that
> my head hurts from pounding it against my desk.
I would suggest forking off a child to go do the database connect,
carefully closing STDOUT as you go, so that the parent can then
generate your "Please wait" sign without the child tying things
up.
Actually, I would *really* suggest taking a little longer to
completely re-write that pile of.. legacy code.
And take two ibuprofen for that headache.
> Any suggestions, vague or specific, would be appreciated. As long as you're
> nice and play fair.
Nice? Play fair? Don't be silly. This is the ruthless, snide,
newbie-crunching comp.lang.perl.misc! Fear our wrath!
HTH,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: 15 Jun 1999 13:35:15 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Dynamic Regular Expression
Message-Id: <x7ogihfju4.fsf@home.sysarch.com>
>>>>> "BL" == Bart Lateur <bart.lateur@skynet.be> writes:
BL> I really don't understand the aversion for eval(). A module is ok, but
BL> eval() is bad? Why?
BL> Speedwise, I expect eval() to be FASTER than the module. After all,
BL> use() is a superset of eval().
BL> use <- require <- do FILE <- eval
because you are evaling a module once for its code. in your regex thing,
you might eval once per loop to create regexes. as for qr// vs. eval,
remember you are only compiling the regex in qr// while you have to
compile it and the surrounding perl code in eval so it can't win there.
eval is not evil, but it should not be used wantonly. we see cases here
of it being used as variant of symrefs. when regexes were not objects it
made sense to use eval on a sub/closure with regexes. with qr// that no
longer is a good strategy. qr// is simpler to understand than creating
perl code on the fly and evaling it so it is easier to debug and
maintain which is a big win.
BTW do you know you can put the results of multiple qr//'s into a single
regex and still save the compile time?
$rx1 = qr/a+b/ ;
$rx2 = qr/c?d+/ ;
m/$rx1$rx2/ ;
that can solve your 'and' problem too.
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: 15 Jun 1999 17:01:08 GMT
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: Environment variables.
Message-Id: <slrn7md1ss.qat.fl_aggie@thepentagon.com>
On Tue, 15 Jun 1999 17:10:19 +0200, Bernt Rygg <berntr@persbraten.vgs.no>, in
<37666CDA.52D4C352@persbraten.vgs.no> wrote:
+ where can I find a listing of available environment variables
#!perl
foreach $key (sort keys %ENV) {
print "$key == $ENV{$key}\n";
}
ENV is ENV, and it contains what the processes parent gives it, so it
will be different when running perl from a command line as you, as
root, from cron(8), or thru a CGI under a http daemon running as
nobody.
James
------------------------------
Date: Tue, 15 Jun 1999 17:36:29 GMT
From: Scratchie <upsetter@ziplink.net>
Subject: Re: File Uploading
Message-Id: <xaw93.5783$nn.1056066@news.shore.net>
Abigail <abigail@delanet.com> wrote:
: .. have telnet access either. My client really wants the site finished but I'm
: .. stalled because of where it is hosted. So my question is can i upload files
: .. without the cgi.pm module. Is there any way to use ftp from a perl cgi
: .. script? Any help in the right direction would be much appreciated.
: What makes you think you need tech support to install a module?
: You have paying customers and you don't even know the basics about
: installing modules? Poor customers.
The bigger problem is that he's trying to build this app (whatever it is)
on a server that has a very out-of-date perl installed (since CGI.pm isn't
included).
--Art
--
--------------------------------------------------------------------------
National Ska & Reggae Calendar
http://www.agitators.com/calendar/
--------------------------------------------------------------------------
------------------------------
Date: Tue, 15 Jun 1999 13:58:08 -0400
From: Gary Ebert <gary@rdss.com>
To: Simon Lee <silee@hk.super.net>
Subject: Re: Get last execution time for a cron job
Message-Id: <3766942B.4ECA258B@rdss.com>
We do this by having the cron job call a script (in our case a ksh script)
instead of executing the backup directly.
Here is an outline of how the script works:
1) run the backup
2) run the "get the file Index off of the tape command"
3) save the value of the error (hint look at the $? variable)
if the last command returned an error
4a) print backup failed. The Index could not be read off of tape.
Error value is "value"
else
4b) print backup was successful
This causes either the "backup failed" or the "backup was successful" message
to be sent to root via e-mail with a time stamp (at least on HP-UX).
Of course if you are just interested if the backup ran successfully you can
omit step 2. However in my experience just because the backup ran without
error does not mean that you have a useable backup tape.
Hope this helps,
Gary
Simon Lee wrote:
>
> Sorry, My question is how to implement it in Perl ? :-)
>
> I use Solaris, the cron log files are root owned.
>
> Why I need this info is I need to check if the Unix backup are complete for
> our machines. (Get this date and then check it with the time in
> /etc/dumpdates)
>
> Thanks,
> Simon
>
> Malcolm Ray wrote in message ...
> >On Tue, 15 Jun 1999 18:59:39 +0800, Simon Lee <silee@hk.super.net> wrote:
> >>Hi all,
> >>
> >>
> >>Does anyone know how to get the last execution time for a cron job ? For
> >>example, I get a cron job entry:
> >>
> >>0 23 * * * /opt/scripts/unix_backup.sh
> >>
> >>If the current time is 'Tue Jun 15 18:57:08 1999', the last execution
> should
> >>be 'Mon Jun 23:00:00 1999' <-- I just want to get this.
> >>
> >>
> >>
> >>Any idea ?
> >
> >And your perl question is...?
> >
> >Some flavours of cron can be persuaded to log their actions - consult
> >your cron manpage. You *could* read that logfile, though this is rather
> >non-portable. A better method would be to modify the cron job to write
> >a timestamp to a file, which you could then read.
> >--
> >Malcolm Ray University of London Computer Centre
--
Gary Ebert Operations Administrator
Voice: (301) 428-2115 Comtech Mobile Datacom Corporation
Fax: (301) 428-1004 19540 Amaranth Drive
Pager: (800) 777-4681 PIN: 3981842 Germantown, MD 20875-2126
------------------------------
Date: Tue, 15 Jun 1999 10:08:15 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: How do I trim a string?
Message-Id: <MPG.11d028415473dff9989bec@nntp.hpl.hp.com>
[Posted and a courtesy copy sent.]
In article <37667380.0@nnrp1.news.uk.psi.net> on Tue, 15 Jun 1999
16:37:16 +0100, Simon Kerr <skerr@ryder.co.uk> says...
> Hi, I'm trying to trim a string that contains both alphabetic and numeric
> chars. For example, "Call Detail For 012542916".
>
> I want to remove all of the alphabetic (i.e. [a-zA-Z]) characters, so that
> I'm just left with the numberic string ("012542916").
>
> I've tried various functions - string matching, substitution and
> translation. I think I'll use the substr function, as below:
>
> substr($wholestring, n);
>
> where $wholestring = the complete string and n = the length of the
> alphabetical part of the string.
>
> So, I just need to know how to find the length of the alphabetical part of
> the string.
Are you sure you want to do it that way? Here's how to do that in one
line:
$_ = 'Call Detail For 012542916';
substr($_, 0, length +(/(\D+)/)[0]) = "";
But any of the following is much nicer, and I'm sure there are Other
Ways To Do It also.
tr/0-9//cd;
s/\D+//;
s/.+ //;
$_ = (split)[-1];
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 15 Jun 1999 11:16:07 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: IO::Socket, Socket
Message-Id: <37668a57@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc, Benjamin Schweizer <SternSZ@gmx.de> wrote:
:somebody told me to use IO::Socket instead of Socket.
:What is better in IO::Socket?
It has a simpler interface for the simpler operations.
:Has anybody an example for me (I need an multithreaded Server)?
This is convered in the perlipc manpage on your system. It's also
covered in Chapter 17 of the Ram. Download the code from
ftp://ftp.oreilly.com/published/oreilly/perl/cookbook/pcookexamples.tar.gz
--tom
--
I think I can sum up the difference between *BSD and Linux as follows:
"In Linux, new users get flamed for asking questions in the newsgroups
(or heaven forfend, the wrong newsgroup). In *BSD the principals
flame each other." --Warner Losh
------------------------------
Date: Tue, 15 Jun 1999 10:26:43 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
To: daniel@virtualimpact.com.au
Subject: Re: mail list customisation
Message-Id: <37668CD3.3829A11B@mail.cor.epa.gov>
[courtesy cc to poster]
Daniel Barnett wrote:
>
> Hi,
>
> We're after a customization of a Perl mail list script that can be found
> here:
> http://www.robplanet.com/cgi/robmail/
>
> Basically we would like all the output from the script to be presented
> in a HTML template....with the script parsing a different template for
> each output.
>
> I have emailed the scripts original author and have not had a reply.
Perhaps you didn't read the robplanet FAQ at the above URL.
You know, the part where he says that your e-mail has a pathetic
chance of getting answered, and you can forget about personal
fixes. Or maybe the part that says you should use his message
board for help, and maybe another user of the program might
reply. Or maybe the part that says "Rob is NOT a Perl Guru!"
He said, I didn't.
> Please email me if interested.
Sorry, but I don't think you want to know what a good Perl
programmer would charge you to fix this mess.
HAND,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: 15 Jun 1999 17:50:16 GMT
From: ada@fc.hp.com (Andrew Allen)
Subject: Re: overwrite "print" ?
Message-Id: <7k63oo$dp5$2@fcnews.fc.hp.com>
Christoph Bergmann (info@java.seite.net) wrote:
: and: is there any trick to simulate the overriding of "print"?
Another (gross) trick:
#define print myprint
and '-P' on the perl command line. Of course, like Tom said, good
luck getting a function to "act" like print able to handle the two
syntaxes (synta?) For your example, which I believe you were eval-ing
user-entered code, it wouldn't work anyways. Tied filehandles are
probably your best bet.
Andrew
------------------------------
Date: 15 Jun 1999 17:47:22 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: parse a string in triplet ?
Message-Id: <7k63ja$f69$1@pegasus.csx.cam.ac.uk>
Gareth Rees <garethr@cre.canon.co.uk> wrote:
>
>Larry Rosler wrote:
>> print join '+' => map substr($dna, 3 * $_, 3), 0 .. (length $dna)/3;
>
>$_ = $dna; s/\G([ACGT]{3})/$1+/g; print;
Don't do that. It's O(N**2) while most of the other responses are
O(N). And DNA strings can get quite long ...
Mike Guy
------------------------------
Date: Tue, 15 Jun 1999 16:06:21 GMT
From: John Porter <jdporter@min.net>
Subject: Re: Perl "constructors"
Message-Id: <7k5tlj$q1n$1@nnrp1.deja.com>
In article <7k5e3k$jqq$1@nnrp1.deja.com>,
armchair@my-deja.com wrote:
> You did however attempt
> to show some C++ equivalent to the vague Perl statement:
> my $variable = some_function;
If one were to try (however inadvisably) to build a C++ class
framework for easing the translation of Perl code into C++,
one would, I think, develop a Scalar class, whose properties and
behavior would mirror those of Perl's instrinsic scalar type.
Then, when translating the Perl statement
my $x = scalar_result();
into C++, one would probably come up with this statement:
Scalar& x = scalar_result();
And in fact, that is, essentially, what Perl is doing under the
hood when it evaluates a statement such as the former -- although
it is currently implemented in C, not C++.
That is the simple fact of the matter. Do you have any questions?
Or shall we let this one rest?
> And I give you credit for ...
> ...[I] will once again give you credit for something.
I think you know by now where you can stick your worthless "credit".
--
John Porter
Put it on a plate, son. You'll enjoy it more.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 15 Jun 1999 13:39:39 -0400
From: Doug Elias <dme7@cornell.edu>
Subject: Re: Perl "constructors"
Message-Id: <86vhcp8isk.fsf@research.johnson.cornell.edu>
Mr. Chair ...
>From the Merriam-Webster on-line dictionary (www.m-w.com):
Main Entry: equivalent
Pronunciation: -l&nt
Function: adjective
Etymology: Middle English, from Middle French or Late Latin;
Middle French, from Late Latin <I>aequivalent-, aequivalens,
present participle of aequivalEre to have equal power, from
Latin aequi- + valEre to be strong -- more at "wield"
Date: 15th century
1: equal in force, amount, or value; also: equal in area or volume but
not admitting of superposition <a square equivalent to a triangle>
2a: like in signification or import
b: having logical equivalence <equivalent statements>
3: corresponding or virtually identical especially in effect or
function
4 (obsolete): equal in might or authority
5: having the same chemical combining capacity<equivalent quantities
of two elements>
6a: having the same solution set <equivalent equations>
b: capable of being placed in one-to-one correspondence <equivalent
sets>
c: related by an equivalence relation
My guess is that Mr. Porter is using definition-3; which definition do
you subscribe to? If it is not listed here, please provide it, and a
reference for its common usage.
As to your never-ending "give me the equivalent assembler code for the
following", please accept this, again in the spirit of definition-3
above, produced on a Sun Enterprise 10000 using gcc-2.7.2.3 and the
command-line "gcc -S forprint.c -o forprint.s" --
----------------------------------------------------------------------
.file "forprint.c"
gcc2_compiled.:
.section ".rodata"
.align 8
.LLC0:
.asciz "i/j %d/%d\n"
.section ".text"
.align 4
.global main
.type main,#function
.proc 04
main:
!#PROLOGUE# 0
save %sp,-120,%sp
!#PROLOGUE# 1
st %g0,[%fp-20]
st %g0,[%fp-24]
.LL2:
ld [%fp-20],%o0
cmp %o0,9
ble .LL5
nop
b .LL3
nop
.LL5:
nop
.LL6:
ld [%fp-24],%o0
cmp %o0,9
ble .LL9
nop
b .LL7
nop
.LL9:
sethi %hi(.LLC0),%o1
or %o1,%lo(.LLC0),%o0
ld [%fp-20],%o1
ld [%fp-24],%o2
call printf,0
nop
.LL8:
ld [%fp-24],%o1
add %o1,1,%o0
mov %o0,%o1
st %o1,[%fp-24]
b .LL6
nop
.LL7:
.LL4:
ld [%fp-20],%o1
add %o1,1,%o0
mov %o0,%o1
st %o1,[%fp-20]
b .LL2
nop
.LL3:
.LL1:
ret
restore
.LLfe1:
.size main,.LLfe1-main
.ident "GCC: (GNU) 2.7.2.3"
----------------------------------------------------------------------
Mr. Porter, your patience is awe-inspiring.
doug
--
Doug Elias, Ph.D.
__|_ Internet: dme7@cornell.edu
dr _|_)oug USmail: Director of Technology
(_| Parker Center/Johnson Grad. School of Mgmt.
(_|__lias 302 Sage Hall/C.U./Ithaca/N.Y./14853-6201
| Phone: 607-255-3521 Fax: 607-254-4590
------------------------------
Date: 14 Jun 1999 23:31:19 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Redirection but no 'Back'
Message-Id: <slrn7mbm93.cmq.abigail@alexandra.delanet.com>
Mike (mike@5starserv.com) wrote on MMCXIII September MCMXCIII in
<URL:news:37654BB7.C47D0C8A@5starserv.com>:
^^ I am using the perl script redir.pl which I understand to be a pretty
^^ common script in use. I am experiencing a problem that I cannot figure
^^ out. The script executes fine and sends the user to another site. If
^^ the user clicks his/her 'back' button, they are not sent back to the
^^ page with the script, they remain at the site to which they were
^^ redirected.
Not with my browser. Back is back.
^^ Is this the way the script was made to work? If not, have I configured
^^ it incorrectly?
^^ Could it be a problem with the page at the other site?
This is not a Perl issue. Ask elsewhere.
Abigail
--
perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Tue, 15 Jun 1999 17:12:20 GMT
From: nospam.newton@gmx.net (Philip 'Yes, that's my address' Newton)
Subject: Re: Regular Expressions
Message-Id: <37668443.289444233@news.nikoma.de>
On Mon, 14 Jun 1999 13:46:47 -0700, "Robert Giuli [Temp]"
<show@netcom.com> wrote:
>THIS IS A TEST - PLEASE IGNORE THIS
OK, I did -- what now? And what's this doing in the middle of a
thread? And in clpm, of all places?
Cheers,
Philip
--
Philip Newton <nospam.newton@gmx.net>
------------------------------
Date: Tue, 15 Jun 1999 16:34:05 GMT
From: bernd1615@my-deja.com
Subject: removing $array[$i]Many Thank
Message-Id: <7k5v9s$qr3$1@nnrp1.deja.com>
Dear Participants,
I know there is the substitution operator in Perl.
But is there also a delete operator ?
foreach (@array) {
if ( $_ =~ /#matches something/ ) {
# delete $array[$i] }
}
Many thanks in advance !
Markus Banach
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 15 Jun 1999 17:10:57 GMT
From: <bbense+comp.lang.perl.misc.Jun.15.99@telemark.stanford.edu> ;
Subject: Re: strange problem for multithread programming...
Message-Id: <7k61f1$fmk$1@nntp.Stanford.EDU>
In article <Pine.GSO.4.02A.9906101018230.26349-100000@user2.teleport.com>,
Tom Phoenix <rootbeer@redcat.com> wrote:
>On 10 Jun 1999, GEMINI wrote:
>
>> Not a GLOB reference at /usr/local/lib/perl5/5.00502/SelectSaver.pm
^- this is your
problem. Threads on a Unix box are pretty much unusable with anything
less than 5.00503. Even then they are kind of problematical. There is
some debate whether the current scheme can ever really work or not.
Fun to play with, but in alot of ways likely to be a dead end.
Native threads in C can be a big win, in perl to date they
are a fun toy to play and learn with.
- - Booker C. Bense
Version: 2.6.2
iQCVAwUBN2aJHgD83u1ILnWNAQGxMgP/XDHj+OpH8/rxeWCcUlTew9btP0/e/QHu
PbZdHv0yIPK/izud9N//ztu7QJTq51jzjSjcCanLCOVx8kIS7RsNt8aS5ZF1KkCf
2Ek3KsVMViTWvAQAnpsXFkD/1gJOuNg2W0CI3np/HAkTPPx5uli9Dco3awfcysjS
DHVtyol9qQo=
=RiAo
-----END PGP SIGNATURE-----
------------------------------
Date: 15 Jun 1999 10:54:22 PST
From: Neil <neil@pacifier.com>
Subject: What is functional difference between .pm and .pl?
Message-Id: <3766934e.0@news.pacifier.com>
I have used and hacked many .pl and .cgi scripts, but I'm
now curious enough to want to learn more. I understand that
foo.pm is a "perl module" but what distinguishes this from
a "perl script"?
I have a Virtual Server in which I run perl scripts. Could
I also run perl modules in my cgi-bin directory as well or
is a module more of a library installed by the sysadmin?
I have read that perl modules are generally part of CPAN
which is a huge clearninghouse of perl modules. So I browsed
CPAN and was impressed by the volume of material available.
Though it was a bit like a warehouse full of boxes each with
a cryptic label. This was difficult to navigate. Any explanations
of what CPAN is all about would be appreciated. Thanks.
Neil
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 6004
**************************************
