[9756] in Perl-Users-Digest
Perl-Users Digest, Issue: 3350 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Aug 4 22:06:02 1998
Date: Tue, 4 Aug 98 19:00:20 -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, 4 Aug 1998 Volume: 8 Number: 3350
Today's topics:
Re: $|=1 caused a program failure on VMS.. <sugalskd@netserve.ous.edu>
Re: comp.lang.perl.announce redux <pgunn01@ibm.net>
Re: comp.lang.perl.announce redux (I R A Aggie)
Re: comp.lang.perl.announce redux (I R A Aggie)
Re: comp.lang.perl.announce redux <ljz@asfast.com>
Re: comp.lang.perl.announce redux (Gary L. Burnore)
Re: diff-like utility in Perl? <"postmaster"@[127.0.0.1]>
Re: diff-like utility in Perl? <tchrist@mox.perl.com>
Re: Glob problem <dan@dont.spam.me.please.missionrec.com>
Re: hiding user input (John Stanley)
Re: hiding user input (I R A Aggie)
Re: hiding user input (I R A Aggie)
Re: hiding user input (I R A Aggie)
Re: hiding user input (Gary L. Burnore)
Re: hiding user input (Gary L. Burnore)
Re: hiding user input (Chris Nandor)
Re: hiding user input (Gary L. Burnore)
How to delete the last column <rafalk@bellatlantic.net>
Re: How to delete the last column (Bob Trieger)
Re: How to delete the last column <tchrist@mox.perl.com>
NT Perl 5.0 and IIS 4.0 Logon Permissions <jeremyo@releasesoft.com>
NT Perl and IIS 4.0 logon problems przygode@my-dejanews.com
Re: Perl FORMAT in subroutine/function calls "broken" ? <rick.delaney@shaw.wave.ca>
Re: perl problem on dec machine <sugalskd@netserve.ous.edu>
Re: perl5.005 threads: Where's the priority? <sugalskd@netserve.ous.edu>
Re: Perl5.005: any good Thread::kill workaround ideas? <sugalskd@netserve.ous.edu>
Re: Q:Threaded 5.005 Under hpux? <sugalskd@netserve.ous.edu>
Re: response.pm <rick.delaney@shaw.wave.ca>
Re: Single word ouptu from aa array (Kelly Hirano)
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 5 Aug 1998 00:42:44 GMT
From: Dan Sugalski <sugalskd@netserve.ous.edu>
Subject: Re: $|=1 caused a program failure on VMS..
Message-Id: <6q89q4$l2r$5@news.NERO.NET>
GEMINI <dennis@info4.csie.nctu.edu.tw> wrote:
: hi there,
: I have a perl of version 5.004_04 built for VMS_AXP.
: I found that when I used $|=1 with a socket handle,
: it will cause an access violation fatal error as follows:
: what's the matter with it?
Huh. That's not supposed to happen.
1) What version of VMS
2) What version of the C compiler
3) What socket stack?
(You might want to try the vms perl list, BTW--check README.vms for
details)
Dan
------------------------------
Date: Tue, 04 Aug 1998 20:26:01 -0400
From: Pat Gunn <pgunn01@ibm.net>
Subject: Re: comp.lang.perl.announce redux
Message-Id: <35C7A699.68E3@ibm.net>
Tom Christiansen wrote:
> In comp.lang.perl.misc, Randal Schwartz <merlyn@stonehenge.com> writes:
> :And yet, TPJ is not a non-profit organization. Although the contest
> :is run for free, and the results are available freely on the net, it's
> :still substantially sponsored by TPJ, and therefore enhances TPJ's
> :public image and therefore profitability in the long run.
>
> Randal Schwartz is not a non-profit organization. Everyone knows how
> important his business is to him. Therefore, he should resign from the
> moderatorship, since this is merely a tool for him to subtly advertise
> is for-profit organization by keeping in the public eye as moderator.
> He realized this and consented to it several weeks ago, but has since
> reneged. I think he should be held to it, because he was right then,
> and it still holds true. He is immorally using the moderatorship to
> advertise his own for-profit venture.
>
> No?
>
> Then stop bitching about the contest, etc. Take your pick. You can't
> have your cake and eat it, too.
Moderators have discretion over posts allowed in their newsgroup.
Randall can have his cake and eat it too if he wants to.
This isn't to say that you can't have a new newsgroup with a
different moderator created, or to say that you can't express
displeasure
to him...
--
---------------------------------------------------
Pat Gunn, moderator:comp.sys.newton.announce
comoderator:comp.os.os2.moderated
"You can always judge a man by the quality of his enemies." -- Dr Who
http://junior.apk.net/~qc
------------------------------------------------
------------------------------
Date: Tue, 04 Aug 1998 20:42:38 -0500
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: comp.lang.perl.announce redux
Message-Id: <fl_aggie-0408982042380001@aggie.coaps.fsu.edu>
In article <6q7r0s$4ia$8@client3.news.psi.net>, abigail@fnx.com wrote:
+ I R A Aggie (fl_aggie@thepentagon.com) wrote on MDCCXCIX September
+ MCMXCIII in <URL: news:fl_aggie-0408981513560001@aggie.coaps.fsu.edu>:
+ ++ True enough. On the other hand, if your goal is to get your software
+ ++ out in front of as many people as possible, and to get them to use it,
+ ++ perhaps writing the documentation in Swahili isn't feasible...
Sorry, I should have been a bit more expressive in this...try
"writing the documentation in Swahili _only_ isn't feasible".
But then again, perhaps the Swahili software market is quite lucrative?
+ Really? Then why is there an Italian translation of the Camel?
There must be sufficient demand, or its believed to be sufficient, or
someone is doing it on the inexpensive side, or TomC decided to do it
for fun?
Notice, tho, that the Camel wasn't translated into English.
James
------------------------------
Date: Tue, 04 Aug 1998 20:53:01 -0500
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: comp.lang.perl.announce redux
Message-Id: <fl_aggie-0408982053020001@aggie.coaps.fsu.edu>
In article <news-0408981450520001@buzz.hq.alink.net>, news@russo.org
(Chris Russo) wrote:
+ Muhuhahahaha. The above statement is from a person who thinks that people
+ should know the FAQ, the docs, and the culture of Perl before posting to
+ clpmisc.
Oh...oh...so, out of idle curiousity, have the FAQ, the docs (all 1256 pages)
and the other readily available sources of information been translated
into other languages?
James - yeah, I'm being bad, too...
------------------------------
Date: 04 Aug 1998 21:15:04 -0400
From: Lloyd Zusman <ljz@asfast.com>
Subject: Re: comp.lang.perl.announce redux
Message-Id: <ltogu0z0tj.fsf@asfast.com>
abigail@fnx.com (Abigail) writes:
> Jim Brewer (jimbo@soundimages.co.uk) wrote on MDCCXCIX September MCMXCIII
> in <URL: news:u4svt6ukj.fsf@jimbosntserver.soundimages.co.uk>:
> ++ abigail@fnx.com (Abigail) writes:
> ++ > Randal Schwartz (merlyn@stonehenge.com) wrote on MDCCXCVIII September
> ++ > MCMXCIII in <URL: news:8cpveikmvo.fsf@gadget.cscaper.com>:
> ++ > ++ The "worldwide" language of technology is English. It happens to be the
> ++ > ++ only human language I speak, so I lucked out there. There are regional
> ++ > ++ non-English Perl groups that can properly hold announcements in other
> ++ > ++ languages. I'd like to restrict CLPA to articles I can read.
> ++
> ++ Randall made the point clearly. The "worldwide" language of technology
> ++ is English.
>
> Just because English is the most used language in fields of technology
> doesn't mean it is the *only* one. People do speak in German about Perl,
> and many people programming Perl don't have English as their native
> language.
I agree. Furthermore, it's quite *practical* to post announcements in
more languages than English ... this allows the announcements to reach
more people and to be targeted more effectively towards specific
groups that they might be trying to reach. For example, some sort of
English-to-German translation tool would benefit by being announced in
German.
And besides, I'm sure I'm not the only person here who would have
*fun* learning a bit about various non-English languages by reading
these announcements. As it is, I love testing my Spanish knowledge by
trying to decipher all the nuances of the Spanish subway ads here in
NYC.
> [ ... ]
>
> ++ Only that technology is spoken
> ++ with English as a first language. Seems very reasonable to limit
> ++ postings to only the "first" language of a particualr
> ++ discipline. Including Perl. Including c.l.p.a.
>
> Seem totally unreasonable to me. First doesn't mean only.
Again I agree. I don't see how you (Mr. Brewer) derive your
conclusion that we should *limit* c.l.p.a postings to English from the
initial premise that English is the "first" language of this
discipline. Would you care to elaborate on your chain of reasoning?
--
Lloyd Zusman ljz@asfast.com
perl -e '$n=170;for($d=2;($d*$d)<=$n;$d+=(1+($d%2))){for($t=0;($n%$d)==0;
$t++){$n=int($n/$d);}while($t-->0){push(@r,$d);}}if($n>1){push(@r,$n);}
$x=0;map{$x+=(($_>0)?(1<<log($_-0.5)/log(2.0)+1):1)}@r;print"$x\n"'
------------------------------
Date: Wed, 05 Aug 1998 01:35:06 GMT
From: gburnore@databasix.com (Gary L. Burnore)
Subject: Re: comp.lang.perl.announce redux
Message-Id: <35cab675.80244959@nntpd.databasix.com>
On 04 Aug 1998 21:15:04 -0400, in article <ltogu0z0tj.fsf@asfast.com>, Lloyd
Zusman <ljz@asfast.com> wrote:
[snip]
>And besides, I'm sure I'm not the only person here who would have
>*fun* learning a bit about various non-English languages by reading
>these announcements. As it is, I love testing my Spanish knowledge by
>trying to decipher all the nuances of the Spanish subway ads here in
>NYC.
So clpm isn't for people to ask Perl questions that just might be in a faq but
it is a place to learn a new language? Interesting.
>
>> [ ... ]
>>
>> ++ Only that technology is spoken
>> ++ with English as a first language. Seems very reasonable to limit
>> ++ postings to only the "first" language of a particualr
>> ++ discipline. Including Perl. Including c.l.p.a.
>>
>> Seem totally unreasonable to me. First doesn't mean only.
>
>Again I agree. I don't see how you (Mr. Brewer) derive your
>conclusion that we should *limit* c.l.p.a postings to English from the
>initial premise that English is the "first" language of this
>discipline. Would you care to elaborate on your chain of reasoning?
Why don't you post your question in all of the other dialects of the world and
then you'll get an answer.
--
I DO NOT WISH TO RECEIVE EMAIL IN REGARD TO USENET POSTS
---------------------------------------------------------------------------
How you look depends on where you go.
---------------------------------------------------------------------------
Gary L. Burnore | ][3:]3^3:]33][:]3^3:]3]3^3:]3]][3
| ][3:]3^3:]33][:]3^3:]3]3^3:]3]][3
DOH! | ][3:]3^3:]33][:]3^3:]3]3^3:]3]][3
| ][3 3 4 1 4 2 ]3^3 6 9 0 6 9 ][3
Special Sig for perl groups. | Official Proof of Purchase
===========================================================================
------------------------------
Date: Tue, 04 Aug 1998 19:52:24 -0500
From: postmaster <"postmaster"@[127.0.0.1]>
Subject: Re: diff-like utility in Perl?
Message-Id: <6q8acl$8s8$1@farstar.frb.gov>
What if the person asking is on a system which is not Unix and has no
equivalent?
Tom Christiansen wrote:
> [courtesy cc of this posting sent to cited author via email]
>
> In comp.lang.perl.misc,
> Lloyd Zusman <ljz@asfast.com> writes:
> :I know of no such Perl-based `diff', but perhaps someone out there has
> :invented such a thing without having posted it to CPAN.
>
> Is there a Perl-based netstat? Or ps? Or vi?
>
> Sigh.
>
> --tom
> --
> "Any computer scientist who praises orthogonality should be sentenced to
> use an Etch-a-Sketch."
> --Larry Wall
------------------------------
Date: 5 Aug 1998 01:15:28 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: diff-like utility in Perl?
Message-Id: <6q8bng$slb$1@csnews.cs.colorado.edu>
In comp.lang.perl.misc, some lame coward who won't even post under his
own address wrote:
:What if the person asking is on a system which is not Unix and has no
:equivalent?
Those who ignore Unix are doomed to repeat it. These constant requests
for "Where can I get a version of UUTOOL that works even when I am a
prisoner of Pointy Haired Bosses" for all possible values of UUTOOL are
really annoying. If you want Unix, you know where to get it.
--tom
--
#define NULL 0 /* silly thing is, we don't even use this */
--Larry Wall in perl.c from the v4.0 perl source code
------------------------------
Date: Wed, 05 Aug 1998 01:24:53 GMT
From: "Mission A/V" <dan@dont.spam.me.please.missionrec.com>
Subject: Re: Glob problem
Message-Id: <FvOx1.469$GM4.1165913@news2.atl.bellsouth.net>
Tye McQueen wrote in message <6q4ple$3ag@fumnix.metronet.com>...
>dan@NOSTINKINSPAM.nwsl.west.ga.net. (Daniel) writes:
>) open(MYNEWFIL,"/dbase.txt");
>) while(<MYNEWFIL>)
>)
>) $inline = $_
>) ($name,$value) = split(/=/,$inline);
>) local (*GLOB) = $name;
>) $GLOB = $value;
>) etc...
>)
>) This worked great in perl4. Perl 5 tells me
>)
>) Modification of a read-only value attempted at ./cardsearchold.pl line
1277,
>) <MYNEWFIL> chunk 19.
>)
>) The line is "$GLOB = $value;" above
>
>We need to see what $name gets set to. The following example may
>be helpful for understanding why:
>
> % perl
> $name= "]";
> local (*GLOB) = $name;
> print "GLOB=$GLOB\n";
> $GLOB = "value";
> ^D
> GLOB=5.00404
> Modification of a read-only value attempted at - line 4.
>
>$GLOB becomes an alias for $] which shows the current version of
>perl being used and which cannot be modified because it is read-only.
I think the last values passed to it before it dies is
$name = 31
$value = No
Incidently, it makes 20 passes before dying..
Thanks
Daniel
------------------------------
Date: 5 Aug 1998 00:31:30 GMT
From: stanley@skyking.OCE.ORST.EDU (John Stanley)
Subject: Re: hiding user input
Message-Id: <6q8952$lit$1@news.NERO.NET>
In article <6q7laq$1ve$1@rand.dimensional.com>,
Daniel Grisinger <dgris@rand.dimensional.com> wrote:
>In article <m3k94oww1t.fsf@windlord.Stanford.EDU>
>Russ Allbery <rra@stanford.edu> wrote:
>>Daniel Grisinger <dgris@rand.dimensional.com> writes:
>It does matter if a person has been a jerk continuously for ten
>years, in multiple forums, with no provocation. But by not
>maintaining a record we can't track that.
I'm not sure what you gain by tracking that, except an inertia that
prevents you from accepting that people can change. What the record
gives you is the ability to say "four years ago you said something
stupid, so you are probably saying something stupid now..." If it
really is irrelevant that four years ago someone said something stupid,
then keeping a record is also irrelevant.
But that aside, a reliance on DejeNews as a historical record also gives
you a twisted view of USENET historically.
>>> I wrote a little bot named Mortimer last night that will monitor clpm
>>> and automatically repost any X-No-Archive messages without that header.
>>> Unless someone can provide a compelling reason not to, I am going to
>>> start Mortimer monitoring this group later today, and this will
>>> hopefully no longer be an issue.
>>
>>Um.
>>
>>Don't.
I second Russ' request. By forging articles you will make it even more
of an issue. You can make it not an issue by simply ignoring articles
with that header if you don't like them.
>But I don't think that it is network abuse.
It is. I am sure that you would not be happy if someone took a dislike
to your use of some particular header and started reposting your
articles with "corrections" to them. For example, if someone didn't like
the comment in your From: header, or perhaps they just didn't like the
timezone you used in your Date: header. Or maybe they don't like the
Summary or Keywords or Organization you used. Maybe they think you
should have included a summary and they will add one for you.
Once you do it to someone else, you lose the high moral ground when you
demand that they stop doing it to you. It's sort of like the golden
rule. The golden rule doesn't say "do it to them before they do it to
you", or "do it to them because they did it to you". "Do unto others as
you would have them do unto you" is "don't repost other people's
articles with your changes unless you grant them the right to repost
yours."
But even beyond the issue of the poster having control over what he
posts, the problem of duplicate copies of articles still exists. And if
you solve that by forging a cancel for the original, then we get into
the issue of forged cancels.
>I personally feel,
>very strongly, that the no archive header _is_ abuse. I think
>that it is a disgusting, spineless, cowardly attempt to avoid
>responsibility for one's own actions. I have to admit that the
>presence of that header is enough to make me leery of trusting
>even someone who has proven that they are serious. I just can't
>help but wonder what it is that they are trying to hide that
>they won't allow their words to stand.
I cannot imagine how anyone could view posting an article to USENET as
trying to hide something. It is simply beyond comprehension how that
could be true. It would be like trying to hide an affair between a 14
year old and a schoolteacher by conducting it in the middle of the
school gymnasium during assembly.
What X-no-archive does is help prevent someone that was written five
years ago from showing up without any context at all. Yes, the person
the bomb was dropped on can spend his time searching out the context and
posting it, but the bomb has already been dropped.
>>People have the right to say that DejaNews is not allowed to make money
>>off of their posts.
>
>I don't see why people have a right to complain about DejaNews making
>money off of their posts if they don't have a right to complain
>about Worldcom making money off of it or if they don't have a right
>to complain about all the ISPs that make money off of it.
Actually, people do have a right to complain about Worldcom and all the
other ISP's, and some of them have done so, and I am sure that some of
them continue to do so. In the case of DejaNews, however, they can do
more than just complain.
This discussion has come around many times, although less noticably
since the infusion of commercial ISP's. The difference between WorldCom
and DejaNews is that you pay WorldCom for connectivity primarilly, but
DejaNews is being paid primarilly as a USENET archive. If USENET didn't
exist, WorldCom would, but DejaNews would not.
------------------------------
Date: Tue, 04 Aug 1998 21:01:10 -0500
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: hiding user input
Message-Id: <fl_aggie-0408982101100001@aggie.coaps.fsu.edu>
In article <6q7pg8$nqh@fridge.shore.net>, Scratchie <upsetter@ziplink.net>
wrote:
+ Abigail <abigail@fnx.com> wrote:
+ : Supply some message IDs, and maybe people will believe you.
+
+ Gee, sorry, Abby. I didn't realize at the time that my credibility was
+ going to be on the line,
You're the one casting asperations. Put yer money where your mouth is...
it shouldn't be terribly difficult to grep your spool directory.
Hell, you could even write a small perl script to do it for you.
James
------------------------------
Date: Tue, 04 Aug 1998 20:58:52 -0500
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: hiding user input
Message-Id: <fl_aggie-0408982058520001@aggie.coaps.fsu.edu>
In article <6q80t2$iqj$1@ligarius.ultra.net>, sowmaster@juicepigs.com (Bob
Trieger) wrote:
+ Anyways, this is by far the worst thread on c.l.p.m ever. I just wish I
didn't
+ killfile Burnmore last week. Who knows what else I've missed.
Ah, but your blood pressure thanks you. :)
James
------------------------------
Date: Tue, 04 Aug 1998 20:56:40 -0500
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: hiding user input
Message-Id: <fl_aggie-0408982056400001@aggie.coaps.fsu.edu>
In article <uzpdkk3tq.fsf@jimbosntserver.soundimages.co.uk>, Jim Brewer
<jimbo@soundimages.co.uk> wrote:
+ Or, how about this, the reality
+ that reasonable behaviour results in reasonable behaviour?
Doesn't that reasonable behaviour start with initial poster who asks
his question?
+ I was under the impression that you were a proponent of the moderated
+ forum? Has this changed? If not, then simply refrain from insulting us
+ with your brilliance and make your way there.
So, this group is no longer a public forum? when was that voted upon?
+ If and when you choose to respond is this forum please do so in a
+ reasonable and courteous way.
See your first point...
James
------------------------------
Date: Wed, 05 Aug 1998 01:33:04 GMT
From: gburnore@databasix.com (Gary L. Burnore)
Subject: Re: hiding user input
Message-Id: <35c9b634.80180425@nntpd.databasix.com>
On Tue, 04 Aug 1998 20:58:52 -0500, in article
<fl_aggie-0408982058520001@aggie.coaps.fsu.edu>, fl_aggie@thepentagon.com (I R
A Aggie) wrote:
>In article <6q80t2$iqj$1@ligarius.ultra.net>, sowmaster@juicepigs.com (Bob
>Trieger) wrote:
>
>+ Anyways, this is by far the worst thread on c.l.p.m ever. I just wish I
>didn't
>+ killfile Burnmore last week. Who knows what else I've missed.
>
>Ah, but your blood pressure thanks you. :)
Lost it in netcom.* didn't you. Still can't get it back.
--
I DO NOT WISH TO RECEIVE EMAIL IN REGARD TO USENET POSTS
---------------------------------------------------------------------------
How you look depends on where you go.
---------------------------------------------------------------------------
Gary L. Burnore | ][3:]3^3:]33][:]3^3:]3]3^3:]3]][3
| ][3:]3^3:]33][:]3^3:]3]3^3:]3]][3
DOH! | ][3:]3^3:]33][:]3^3:]3]3^3:]3]][3
| ][3 3 4 1 4 2 ]3^3 6 9 0 6 9 ][3
Special Sig for perl groups. | Official Proof of Purchase
===========================================================================
------------------------------
Date: Wed, 05 Aug 1998 01:32:26 GMT
From: gburnore@databasix.com (Gary L. Burnore)
Subject: Re: hiding user input
Message-Id: <35c8b5f0.80112019@nntpd.databasix.com>
On Tue, 04 Aug 1998 21:01:10 -0500, in article
<fl_aggie-0408982101100001@aggie.coaps.fsu.edu>, fl_aggie@thepentagon.com (I R
A Aggie) wrote:
>In article <6q7pg8$nqh@fridge.shore.net>, Scratchie <upsetter@ziplink.net>
>wrote:
>
>+ Abigail <abigail@fnx.com> wrote:
>
>+ : Supply some message IDs, and maybe people will believe you.
>+
>+ Gee, sorry, Abby. I didn't realize at the time that my credibility was
>+ going to be on the line,
>
>You're the one casting asperations. Put yer money where your mouth is...
>it shouldn't be terribly difficult to grep your spool directory.
Ah, more cluelessness from flaggie. Are you now suggesting that his spool
directory keeps posts from more than a month ago? Not all do you know
>Hell, you could even write a small perl script to do it for you.
So could you. Well, maybe not.
--
I DO NOT WISH TO RECEIVE EMAIL IN REGARD TO USENET POSTS
---------------------------------------------------------------------------
How you look depends on where you go.
---------------------------------------------------------------------------
Gary L. Burnore | ][3:]3^3:]33][:]3^3:]3]3^3:]3]][3
| ][3:]3^3:]33][:]3^3:]3]3^3:]3]][3
DOH! | ][3:]3^3:]33][:]3^3:]3]3^3:]3]][3
| ][3 3 4 1 4 2 ]3^3 6 9 0 6 9 ][3
Special Sig for perl groups. | Official Proof of Purchase
===========================================================================
------------------------------
Date: Tue, 04 Aug 1998 21:38:24 -0400
From: pudge@pobox.com (Chris Nandor)
Subject: Re: hiding user input
Message-Id: <pudge-0408982138280001@192.168.0.3>
In article <35d58628.67878076@nntpd.databasix.com>,
whatpartofdontemailme@dontyouunderstand wrote:
# Yeah, you're childish alright. So yes, it IS life. Yours.
No, it is not my life. It is your life, and I control it. I control
you. I control the vertical and the horizontal. I control your bowel
movements and your e-mail. Beware.
--
Chris Nandor mailto:pudge@pobox.com http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6'])
------------------------------
Date: Wed, 05 Aug 1998 01:49:15 GMT
From: gburnore@databasix.com (Gary L. Burnore)
Subject: Re: hiding user input
Message-Id: <35ceba00.81152314@nntpd.databasix.com>
On Tue, 04 Aug 1998 21:38:24 -0400, in article
<pudge-0408982138280001@192.168.0.3>, pudge@pobox.com (Chris Nandor) wrote:
>In article <35d58628.67878076@nntpd.databasix.com>,
>whatpartofdontemailme@dontyouunderstand wrote:
>
># Yeah, you're childish alright. So yes, it IS life. Yours.
>
>No, it is not my life. It is your life, and I control it. I control
>you. I control the vertical and the horizontal. I control your bowel
>movements and your e-mail. Beware.
As I said. Heard it all before pudge. BTW, why do they call you pudge? You
short fat and ugly?
--
I DO NOT WISH TO RECEIVE EMAIL IN REGARD TO USENET POSTS
---------------------------------------------------------------------------
How you look depends on where you go.
---------------------------------------------------------------------------
Gary L. Burnore | ][3:]3^3:]33][:]3^3:]3]3^3:]3]][3
| ][3:]3^3:]33][:]3^3:]3]3^3:]3]][3
DOH! | ][3:]3^3:]33][:]3^3:]3]3^3:]3]][3
| ][3 3 4 1 4 2 ]3^3 6 9 0 6 9 ][3
Special Sig for perl groups. | Official Proof of Purchase
===========================================================================
------------------------------
Date: Tue, 04 Aug 1998 20:44:05 -0400
From: Rafal Konopka <rafalk@bellatlantic.net>
Subject: How to delete the last column
Message-Id: <35C7AAD5.36E7041E@bellatlantic.net>
I'm having a very tough time trying to figure out a way to delete the
last column from an HTML table. What I want to do is get rid of the
last columnaltogether regardless if it's bland or there's text in a
cell. The problems that I face are;
1. The number of columns can be 3-5
2. The last TD might have one or more carriage returns (in the file)
i.e something like:
<TD COLSPAN="1" ROWSPAN="1">
<A HREF+"something.or.other">Somthing
</A>
<P>Some Text</P>
<P>More text</P>
<P> Perhaps more text</P>
</TD>
</TR>
3. The last row's only one <TD> contains COLSPAN attribute spanning the
whole of the table. I assume than when I get rid of the TD's above, I
need to change the COLSPAN to current value -1.
How can I do all this?
I'd greatly appreciate suggestions/help
Rafal
------------------------------
Date: Wed, 05 Aug 1998 01:01:52 GMT
From: sowmaster@juicepigs.com (Bob Trieger)
Subject: Re: How to delete the last column
Message-Id: <6q8b39$o9n$1@strato.ultra.net>
[ posted and mailed ]
rafalk@bellatlantic.net wrote:
-> I'm having a very tough time trying to figure out a way to delete the
-> last column from an HTML table. What I want to do is get rid of the
-> last columnaltogether regardless if it's bland or there's text in a
-> cell. The problems that I face are;
->
-> 1. The number of columns can be 3-5
-> 2. The last TD might have one or more carriage returns (in the file)
-> i.e something like:
->
-> <TD COLSPAN="1" ROWSPAN="1">
-> <A HREF+"something.or.other">Somthing
-> </A>
-> <P>Some Text</P>
-> <P>More text</P>
-> <P> Perhaps more text</P>
-> </TD>
-> </TR>
->
-> 3. The last row's only one <TD> contains COLSPAN attribute spanning the
-> whole of the table. I assume than when I get rid of the TD's above, I
-> need to change the COLSPAN to current value -1.
untested (may even be totally off the wall)
undef $/;
$foo = <FILE>;
$foo =~ s!(</TD>.*)<TD.*?</TD>.*?(</TR>)!$1$2!gsmi;
$foo =~ s!(COLSPAN=)(\d+)!$1($2-1)!;
This should replace the last <TD></TD> before a </TR> and everything between
them.
I ain't too sure about the COLSPAN thing, but you can play with that.
HTH
Bob Trieger
sowmaster@juicepigs.com
" Cost a spammer some cash: Call 1-800-400-1972
Ext: 1949 and let the jerk that answers know
that his toll free number was sent as spam. "
------------------------------
Date: 5 Aug 1998 01:20:05 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: How to delete the last column
Message-Id: <6q8c05$slb$2@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, rafalk@bellatlantic.net writes:
:I'm having a very tough time trying to figure out a way to delete the
:last column from an HTML table. What I want to do is get rid of the
:last columnaltogether regardless if it's bland or there's text in a
:cell.
I'm sure there must be Perl content in this message, since you posted
it to a perl newsgroup, but I for one certainly can't see it.
And how do you judge that a field is boring, anyway?
--tom
--
------------------------------
Date: Tue, 04 Aug 1998 18:35:03 -0700
From: Jeremy Orr <jeremyo@releasesoft.com>
Subject: NT Perl 5.0 and IIS 4.0 Logon Permissions
Message-Id: <35C7B6C7.AD2EA9F4@releasesoft.com>
Hello all,
I am trying to create a perl script that is spawned from a post form web
page. All the script has to do is connect to one file server and copy
files to another file server. However when I run the script I get
permission denied errors constantly. The error is "Logon failure:
unknown user name or bad password."
Here is the perl routine that does the logon:
"
sub sds_apps_move {
$srcpath = "\\\\gilbert\\sds\\sdstestapps\\beckmann\\";
$destpath = "\\\\beckmann\\srapps2\\";
@ls = `dir /B $srcpath`;
foreach $i (@ls) {
print "i'm moving $i now.\n";
#`move $srcpath$i $destpath`;
print "i just moved <B>$srcpath$i</B> to <B>$destpath</B><BR>\n";
}
}
It dies when trying to dir /B the $srcpath.
I have setup the script to have every permission available even
administrator in my domain. Nothing works. I have run the perl script
from the command line on the web server and it works great!
I read something that IIS cannot always access files on remote machines,
is this the case here.
I need help. Either it's an IIS thing or a perl thing, a work around in
either program would be greatly appreciated.
Jeremy Orr
------------------------------
Date: Wed, 05 Aug 1998 01:36:27 GMT
From: przygode@my-dejanews.com
Subject: NT Perl and IIS 4.0 logon problems
Message-Id: <6q8cus$s6a$1@nnrp1.dejanews.com>
Hello all,
I am trying to create a perl script that is spawned from a post form web page.
All the script has to do is connect to one file server and copy files to
another file server. However when I run the script I get permission denied
errors constantly. The error is "Logon failure: unknown user name or bad
password."
Here is the perl routine that does the logon:
"
sub sds_apps_move {
$srcpath = "\\\\gilbert\\sds\\sdstestapps\\beckmann\\";
$destpath = "\\\\beckmann\\srapps2\\";
@ls = `dir /B $srcpath`;
foreach $i (@ls) {
print "i'm moving $i now.\n";
#`move $srcpath$i $destpath`;
print "i just moved <B>$srcpath$i</B> to <B>$destpath</B><BR>\n";
}
}
It dies when trying to dir /B the $srcpath. I have setup the script to have
every permission available even administrator in my domain. Nothing works.
I have run the perl script from the command line on the web server and it
works great!
I read something that IIS cannot always access files on remote machines, is
this the case here.
I need help. Either it's an IIS thing or a perl thing, a work around in
either program would be greatly appreciated.
Jeremy Orr
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Wed, 05 Aug 1998 01:46:05 GMT
From: Rick Delaney <rick.delaney@shaw.wave.ca>
Subject: Re: Perl FORMAT in subroutine/function calls "broken" ?
Message-Id: <35C7BACA.6A18FEA2@shaw.wave.ca>
[posted and mailed]
Michael Genovese wrote:
>
[program]
> Produces the output :
>
> Label = Text1 Number = 30
> Label = Text1 Number = 30
> Label = Text1 Number = 30
>
>
> Am running perl 5.003 (yes, I KNOW it's an older version,
> but I haven't the authority to update the "main" copy
> of perl (/usr/local/bin/perl) myself.
>
Tell your sysadmin it has security problems. Better yet, buy him coffee or
donuts or something.
> Is this correct, or have I found a bug ?
> Also, does it exist in the more recent versions of perl ?
>
Looks buggy to me. I get (with 5.004_04):
Label = Text1 Number = 30
Label = Text2 Number = 600
Label = Text3 Number = 6000
--
Rick Delaney
rick.delaney@shaw.wave.ca
------------------------------
Date: 5 Aug 1998 00:33:00 GMT
From: Dan Sugalski <sugalskd@netserve.ous.edu>
Subject: Re: perl problem on dec machine
Message-Id: <6q897s$l2r$3@news.NERO.NET>
Henryrb <henryrb@aol.com> wrote:
:>Dec machine's kinda vague. What OS is it running? Unix? VMS? RSTS/E? (and
:>I wanna know who did the perl port if it is) RSX? TOPS?
:>
: It's a unix. How do i find out who "did the perl port"?
Gotcha. Can't help much there. (Whoever built perl probably didn't build
in dbm support or something like that)
The perl port question was in reference to a RSTS/E port of perl, and sort
of a joke. (Though a RSTS/E port *would* be cool...)
Dan
------------------------------
Date: 5 Aug 1998 00:22:01 GMT
From: Dan Sugalski <sugalskd@netserve.ous.edu>
Subject: Re: perl5.005 threads: Where's the priority?
Message-Id: <6q88j9$l2r$1@news.NERO.NET>
Michael Schilli <mschilli@blaxxun.com> wrote:
: Hey all,
: just played with the thread functions that come with perl 5.005 -
: looking great! Just one question: Is there a priority that can be
: assigned to a thread?
Nope. That's not in there right now.
Dan
------------------------------
Date: 5 Aug 1998 00:27:49 GMT
From: Dan Sugalski <sugalskd@netserve.ous.edu>
Subject: Re: Perl5.005: any good Thread::kill workaround ideas?
Message-Id: <6q88u5$l2r$2@news.NERO.NET>
Dan Sugalski <sugalsd@peak.org> wrote:
: Jozsef Hollosi (hollosi@sbcm.com) wrote:
: : I just built the new Perl5.005 on Digital Unix and I am trying out the
: : cool threads.
: :
: : My first test is a simple network server that starts two threads (reader
: : and writer) for
: : each accepted connection. The problem is, that when the writer decides
: : it is time to
: : finish, there is no trivial way to tell the reader to also finish,
: : because that is waiting
: : on a file descriptor (until there is some activity on that file
: : descriptor).
: :
: : It would be nice to have something like Thread:kill, but there is none.
: While on the surface what you're asking for doesn't seem all that
: difficult, it's actually quite a challenge to do. Some of the issues are:
: 1) Perl threads are mapped on top of your OS' thread libraries. Most OSes
: use POSIX threads, and there's no way to kill off an individual POSIX
: thread. Besides, killing a thread has a number of non-trivial problems, as
: a thread might be waiting on a mutex, or have aquired one, or have
: incremented/decremented a semaphore or something like that. Exiting an OS
: thread with no cleanup would leave you in an inconsistent state.
This is, unfortunately, incorrect--POSIX *does* provide for a way to
cancel a thread that's currently executing. (Or at least queue up a cancel
notice--pthread_cancel doesn't necessarily kill the thread) It'd certainly
be possible to merge this with the terminate-at-opcode-boundary thread
killing method.
There's still the problem of outstanding mutexes, but that's more a matter
of bookkeeping (and overhead of said bookeeping).
'Swhat I get for posting without double-checking the threads manual... :-(
Dan
------------------------------
Date: 5 Aug 1998 00:39:44 GMT
From: Dan Sugalski <sugalskd@netserve.ous.edu>
Subject: Re: Q:Threaded 5.005 Under hpux?
Message-Id: <6q89kg$l2r$4@news.NERO.NET>
Derek <dereks@fc.hp.com> wrote:
: Folks,
: Just wondering whether anybody has yet tried a thread-enabled build of
: 5.005_01 under hpux? (Either under HPUX 10.20 with DCE threads, or
: under 11.0 with POSIX threads?)
: I had a try under 10.20+DCE, no luck. Compile fails with messages
: quoted below. Haven't yet been able to set up an 11.0 box, so I don't
: know about that.
: Any folks with advice that may save me time?
Try telling Configure you want to add -DOLD_PTHREADS_API to the build. If
DCE threads match the POSIX d4 spec (which they very well might, given the
error you got), this'll help.
You might need to add extra libraries in too.
Dan
------------------------------
Date: Wed, 05 Aug 1998 01:24:06 GMT
From: Rick Delaney <rick.delaney@shaw.wave.ca>
Subject: Re: response.pm
Message-Id: <35C7B5A3.20DC1F4C@shaw.wave.ca>
[posted and mailed]
brejen@intercall.com wrote:
>
> I am getting an error regarding the lines:
> sub error_as_HTML
> {
> my $self = shift;
> my $msg = $self->{'_msg'} || 'Unknown';
> my $title = 'An Error Occurred';
>
> ---------------------------
> my $code = $self->code;
> ---------------------------
>
> return <<EOM;
>
> The message is "can't call method 'code' without a package
> or object reference. Please somebody give me a clue.
>
It's hard to tell with those code fragments. One would suspect that 'code'
is not defined as a method anywhere. Check perldiag for more info on that
error message.
Perhaps you meant 'my $code = $self->{code}'? If so, you'll be recieving a
bill from the Psychic Hotline. ;-)
--
Rick Delaney
rick.delaney@shaw.wave.ca
------------------------------
Date: 4 Aug 1998 17:15:30 -0700
From: hirano@Xenon.Stanford.EDU (Kelly Hirano)
Subject: Re: Single word ouptu from aa array
Message-Id: <6q8872$bs8@Xenon.Stanford.EDU>
In article <0%Mx1.338$ML4.1093024@news4.mia.bellsouth.net>,
MSmith <Msmith@notes.net> wrote:
>Im new to Perl. I'M trying to place a file, a txt file, into an array..then
>print out the first character of the first line..and then the second
>character....etc..but IM having a bit of trouble. IM only able to print out
>a line at a time:
>
>open (INFILE, "c:\\csv\\cpu_in\\test.txt");
>@csvfiles = <INFILE>;
>close (INFILE);
>print @csvfiles[0];
i would strongly recommend that you get a book to help you out (_programming
perl_ is by far the best). change the last line to: print $csvfiles[0]
you can also try perldoc perldata to get online info.
--
Kelly William Hirano Stanford Athletics:
hirano@cs.stanford.edu http://www.gostanford.com/
hirano@alumni.stanford.org (WE) BEAT CAL (AGAIN)! 100th BIG GAME: 21-20
------------------------------
Date: 12 Jul 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 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 3350
**************************************
