[13557] in Perl-Users-Digest
Perl-Users Digest, Issue: 967 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Oct 1 19:07:10 1999
Date: Fri, 1 Oct 1999 16:05:13 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <938819113-v9-i967@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 1 Oct 1999 Volume: 9 Number: 967
Today's topics:
***HELP REQUESTED*** <ginsburg@eesn13.ews.uiuc.edu>
Re: ***HELP REQUESTED*** (Larry Rosler)
Re: activeperl chokes on this line (Larry Rosler)
Re: activeperl chokes on this line <gellyfish@gellyfish.com>
Advice from the Wise whos_john_galt@my-deja.com
Again: perlcc <gregab@gbsoft.net>
ANY SUGGESTIONS FOR THIS? <brett.keenan@compaq.com>
Browser Toolbar Buttons <kanux@caux.art>
Re: Browser Toolbar Buttons (Larry Rosler)
Re: Browser Toolbar Buttons <kanux@caux.art>
Re: Bye Tom? (WAS: Re: injecting "my" varibales into ca (Ilya Zakharevich)
Re: Bye Tom? (WAS: Re: injecting "my" varibales into ca (Craig Berry)
Re: Bye Tom? (WAS: Re: injecting "my" varibales into ca <elaine@chaos.wustl.edu>
Re: Bye Tom? (WAS: Re: injecting "my" varibales into ca <pjl@NOSPAM.com>
Re: Bye Tom? (WAS: Re: injecting "my" varibales into ca <pjl@NOSPAM.com>
Re: Bye Tom? (WAS: Re: injecting "my" varibales into ca <elaine@chaos.wustl.edu>
Re: Bye Tom? (WAS: Re: injecting "my" varibales into ca <pjl@NOSPAM.com>
Re: Bye Tom? (WAS: Re: injecting "my" varibales into ca <pjl@NOSPAM.com>
Re: Bye Tom? (WAS: Re: injecting "my" varibales into ca <pjl@NOSPAM.com>
Re: Bye Tom? (WAS: Re: injecting "my" varibales into ca <cassell@mail.cor.epa.gov>
Re: Catching errors in anouther name space. <admin@gatewaysolutions.net>
Re: CONTEST: Range Searching <ltl@rgsun5.viasystems.com>
Deformatting records <jason.nospam@pointshare.com>
Re: explicit package name error? <ltl@rgsun5.viasystems.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 1 Oct 1999 15:05:49 -0500
From: ginsburg idan <ginsburg@eesn13.ews.uiuc.edu>
Subject: ***HELP REQUESTED***
Message-Id: <Pine.GSO.4.10.9910011458300.16296-100000@eesn13.ews.uiuc.edu>
Greetings,
I have a quick and (hopefully) simple question a perl user can answer.
Given the following input:
NGC 3201-V11\>Fourcade, C.R., Laborde, J.R. 1966, {\it Atlas y
Cat. Estrellas Var. en Cum. Glob.\/} (Cordoba: Obs. Astr.), pl.
14 {\bf (incorrect)}\\
I run this script on it:
while(<>){
s/\n\s*(\w+)\s([\w\s\-\.\^\'\(\)\/\{\}\`#\\\$+]*\\\>)/\n\\item\[$1
$2\\hfill\]\n/sg;
print;
}
Which produces the following output:
\item[NGC 3201-V11\>\hfill]
Fourcade, C.R., Laborde, J.R. 1966, {\it Atlas y
Cat. Estrellas Var. en Cum. Glob.\/} (Cordoba: Obs. Astr.), pl.
\item[14 {\bf (incorrect)}\\
However, I don't want:
14 {\bf (incorrect)}\\
to be converted to:
\item[14 {\bf (incorrect)}\\
I figured the \\\> would ensure that the string has to end in \> in order
for the string to be converted, but apparently this is not the case!
Does anyone know how to fix the script so that the string has to end in \>
in order for the conversion to take place (ie. the 14 {\bf (incorrect)}\\
is not converted). Thank you very much!
-Idan
------------------------------
Date: Fri, 1 Oct 1999 14:57:49 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: ***HELP REQUESTED***
Message-Id: <MPG.125ece3b71e3ae0c98a01f@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <Pine.GSO.4.10.9910011458300.16296-
100000@eesn13.ews.uiuc.edu> on Fri, 1 Oct 1999 15:05:49 -0500, ginsburg
idan <ginsburg@eesn13.ews.uiuc.edu> says...
> I have a quick and (hopefully) simple question a perl user can answer.
Are you not a Perl user yourself?
> Given the following input:
>
> NGC 3201-V11\>Fourcade, C.R., Laborde, J.R. 1966, {\it Atlas y
> Cat. Estrellas Var. en Cum. Glob.\/} (Cordoba: Obs. Astr.), pl.
> 14 {\bf (incorrect)}\\
>
> I run this script on it:
>
> while(<>){
>
> s/\n\s*(\w+)\s([\w\s\-\.\^\'\(\)\/\{\}\`#\\\$+]*\\\>)/\n\\item\[$1
> $2\\hfill\]\n/sg;
>
> print;
> }
>
> Which produces the following output:
>
> \item[NGC 3201-V11\>\hfill]
> Fourcade, C.R., Laborde, J.R. 1966, {\it Atlas y
> Cat. Estrellas Var. en Cum. Glob.\/} (Cordoba: Obs. Astr.), pl.
> \item[14 {\bf (incorrect)}\\
How can I break this to you gently? What you report is simply not
possible.
When you read one line at a time, each "\n" in the input file ends the
input string. So it cannot match at the beginning of the string and
then other things that follow.
> However, I don't want:
> 14 {\bf (incorrect)}\\
> to be converted to:
> \item[14 {\bf (incorrect)}\\
> I figured the \\\> would ensure that the string has to end in \> in order
> for the string to be converted, but apparently this is not the case!
> Does anyone know how to fix the script so that the string has to end in \>
> in order for the conversion to take place (ie. the 14 {\bf (incorrect)}\\
> is not converted). Thank you very much!
Your approach works OK for me.
Here is a functional test program, with your regex (minus the bogus
line-split) replaced by a more compact version. I had to remove the
'\\' (single backslash) from the character class to eliminate the
problem you report above. You were also losing the space after the
first word capture.
#!/usr/local/bin/perl -w
use strict;
local $/; # Read the entire file in at once!
while (<DATA>) {
s%\n\s*(\w+\s[\w\s.^'()/{}`#\$+-]*\\\>)%\n\n\\item[$1\\hfill]\n%g;
print;
}
__END__
NGC 3201-V11\>Fourcade, C.R., Laborde, J.R. 1966, {\it Atlas y
Cat. Estrellas Var. en Cum. Glob.\/} (Cordoba: Obs. Astr.), pl.
14 {\bf (incorrect)}\\
NGC 3201-V11\>Fourcade, C.R., Laborde, J.R. 1966, {\it Atlas y
Cat. Estrellas Var. en Cum. Glob.\/} (Cordoba: Obs. Astr.), pl.
14 {\bf (incorrect)}\\
Output (starts with two newlines):
\item[NGC 3201-V11\>\hfill]
Fourcade, C.R., Laborde, J.R. 1966, {\it Atlas y
Cat. Estrellas Var. en Cum. Glob.\/} (Cordoba: Obs. Astr.), pl.
14 {\bf (incorrect)}\\
\item[NGC 3201-V11\>\hfill]
Fourcade, C.R., Laborde, J.R. 1966, {\it Atlas y
Cat. Estrellas Var. en Cum. Glob.\/} (Cordoba: Obs. Astr.), pl.
14 {\bf (incorrect)}\\
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 1 Oct 1999 13:11:39 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: activeperl chokes on this line
Message-Id: <MPG.125eb553cab9a93998a01e@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <37f8090b.12065555@news.nohayman.net> on Fri, 01 Oct 1999
19:23:06 GMT, Nnickee <nnickee@nnickee.com> says...
> I have a text file which has as part of the first line:
>
> NNICÑ„sÑ„sÑ„sÑ„sÑ„sÑ„sÑ„s Ñ„s Ñ„s ÑŽ‚ŠKEE
^
"\cZ"
E:\>od -h foo.txt
00 4E 4E 49 43 D1 84 73 16 D1 84 73 17 D1 84 73 18
20 D1 84 73 19 D1 84 73 1A D1 84 73 1B D1 84 73 1C
40 D1 84 73 1D D1 84 73 1E D1 8E 82 8A 4B 45 45
57
Eight leading zeros trimmed to kill the line wrapping.
See the 1A in 000027. That indicates end-of-file for a Windows/DOS text
file.
Gosh, what powerful tools I have on my Windows NT system!
> when I try to do anything with that line, winperl just dies. even a
> simple
> $line = $_;
> print "$line";
> fails.
>
> that particular line isn't important to my script, but the lines
> following it are, and I can't seem to get past that line into the meat
> of my text file (oddly enough, the same line passes thru on unix perl
> without any problems) ..
>
> any ideas?
Use binmode() after you open the file, then for each line read, do
s/\r\n/\n/;
> My newsserver seriously sux, so if you reply
> and if you want me to see your reply
> kindly cc me
Sure, you're polite and I'm kind.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 1 Oct 1999 21:19:23 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: activeperl chokes on this line
Message-Id: <7t38gr$4bt$1@gellyfish.btinternet.com>
On Fri, 01 Oct 1999 19:23:06 GMT Nnickee wrote:
> I have a text file which has as part of the first line:
>
> NNICÑ„sÑ„sÑ„sÑ„sÑ„sÑ„sÑ„s Ñ„s Ñ„s ÑŽ‚ŠKEE
>
> when I try to do anything with that line, winperl just dies. even a
> simple
> $line = $_;
> print "$line";
> fails.
>
> that particular line isn't important to my script, but the lines
> following it are, and I can't seem to get past that line into the meat
> of my text file (oddly enough, the same line passes thru on unix perl
> without any problems) ..
>
> any ideas?
>
binmode ?
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Fri, 01 Oct 1999 21:24:22 GMT
From: whos_john_galt@my-deja.com
Subject: Advice from the Wise
Message-Id: <7t38po$j32$1@nnrp1.deja.com>
I sincerely appreciate any assistance.
Being a young student of Perl, I have been able to develope my passion
for programming through the need of cgi applications for an Internet
based business, for which I am co-founder.
I have recently been exposed to the opportunity to create a database
management system designed to provide reporting capabilities for
information stored on various servers...
I currently use a UNIX Virtual Server for my Internet presence, my Perl
programming experience is limited to cgi apps and the database
management my Internet Classifieds Publication requires.
I have not sold myself for more than I am, but I have sold my vigor.
With this, the IT Manager explained his vision of reporting the
information gathered on the SQL servers to the companies intranet on an
NT system. I am clueless to NT except from a users point of view. But
the entire time I listened to his desires I excitedly said to myself,
Perl can do that.
I will need to access the SQL servers and manage MS Access files and
output the results via HTML and JavaScript, the latter I am fairly
fluent.
I've tasted some of the Microsoft products, but believe that Perl is my
answer for this.
I would greatly appreciate any advice the wise could offer on where I
should start reading...I frequently reference many different books on
Perl, but I am clueless on NT and the installation and operation of
Perl on NT. I am not even able, though only tried halfheartedly, to
perform Perl executions on my Win 98 PC. I expect reading to provide
guidance as I dive head first into this project.
Thanks for your time.
Joey Cutchins
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Fri, 01 Oct 1999 22:52:49 +0200
From: Grega Bremec <gregab@gbsoft.net>
Subject: Again: perlcc
Message-Id: <37F51F21.43F8CF6E@gbsoft.net>
Hi, all,
first of all, I'd like to thank you, Vishal, for your comprehensive
description of the problem issues.
The problem I described, namely the syntax errors in generated code,
staid pretty much the same, even if I tried compiling using a
non-threaded perl 5.005_61, only the "thr undeclared" messages were
gone. I was very surprised later on when I tried it as a last resort, to
see that everything compiled just fine if only I chdir-ed to the
directory my module was in, even on threaded 5.005_03, but not on
threaded 5.005_61. Being used to compiling Java classes where a normal
thing to do would be executing the compiler from top-level directory, I
found it odd that one is to compile perl classes in their "homedir".
There is, however one final question - does compiling a script that
uses class modules (in source, "require"d rather than "use"d) result in
a self-contained executable, or do I have to recompile modules as well?
And - if I compile class modules that "require" each other, are they
embedded in one another or not? It all seems to me they are, becuause
*.so files are about 1Mb in size, although I've built a shared
libperl.so.
Thanx again in advance,
Grega
--
-----------------
Grega Bremec
Vrbnje 60
4240 Radovljica
Slovenija
+386 64 710 267
---------------------------
------------------------------
Date: Fri, 01 Oct 1999 16:56:56 -0400
From: Brett Keenan <brett.keenan@compaq.com>
Subject: ANY SUGGESTIONS FOR THIS?
Message-Id: <37F52018.9B11EB24@compaq.com>
I have this line of code:
$status=system("$run_segue >& test.log")/256;
where I want to execute this run_segue.sh script and put its outputs
into test.log, however, when I run this piece of code, all of
run_segue.sh's data is printed out on the screen instead of being
dumped into the test.log file. When I execute the command outside of
the PERL script at the Unix prompt, it works fine. Does anyone have
suggestions on how I might get this to work or anyone know of good
places to read about how PERL's output buffers are written to? Thanks
Brett
------------------------------
Date: Fri, 01 Oct 1999 20:17:48 GMT
From: "Kanux" <kanux@caux.art>
Subject: Browser Toolbar Buttons
Message-Id: <MF8J3.1810$jg2.1949@news20.bellglobal.com>
I'm newbie in CGI script.
Is there a way to access the "Back/Forward" buttons on IE/NC browser toolbar
using CGI script ?
Caux
------------------------------
Date: Fri, 1 Oct 1999 15:39:59 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Browser Toolbar Buttons
Message-Id: <MPG.125ed81d2e121f798a020@nntp.hpl.hp.com>
In article <MF8J3.1810$jg2.1949@news20.bellglobal.com> on Fri, 01 Oct
1999 20:17:48 GMT, Kanux <kanux@caux.art> says...
> I'm newbie in CGI script.
> Is there a way to access the "Back/Forward" buttons on IE/NC browser toolbar
> using CGI script ?
No. A Perl prgram launched through the CGI interface and running on the
server cannot directly control the browser. There may be Javascript
solutions, though.
Next time you have a question, use your newsreader's cross-posting
capability instea of posting independently to more than one newsgroup.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 01 Oct 1999 23:05:02 GMT
From: "Kanux" <kanux@caux.art>
Subject: Re: Browser Toolbar Buttons
Message-Id: <y6bJ3.2043$jg2.2050@news20.bellglobal.com>
Thanks and note made.
Kieu
Larry Rosler <lr@hpl.hp.com> wrote in message
news:MPG.125ed81d2e121f798a020@nntp.hpl.hp.com...
> In article <MF8J3.1810$jg2.1949@news20.bellglobal.com> on Fri, 01 Oct
> 1999 20:17:48 GMT, Kanux <kanux@caux.art> says...
> > I'm newbie in CGI script.
> > Is there a way to access the "Back/Forward" buttons on IE/NC browser
toolbar
> > using CGI script ?
>
> No. A Perl prgram launched through the CGI interface and running on the
> server cannot directly control the browser. There may be Javascript
> solutions, though.
>
> Next time you have a question, use your newsreader's cross-posting
> capability instea of posting independently to more than one newsgroup.
>
> --
> (Just Another Larry) Rosler
> Hewlett-Packard Laboratories
> http://www.hpl.hp.com/personal/Larry_Rosler/
> lr@hpl.hp.com
------------------------------
Date: 1 Oct 1999 21:48:04 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: Bye Tom? (WAS: Re: injecting "my" varibales into callers scope)
Message-Id: <7t3a6k$icr$1@charm.magnus.acs.ohio-state.edu>
[A complimentary Cc of this posting was sent to Ala Qumsieh
<aqumsieh@matrox.com>],
who wrote in article <x3yyadnt9wi.fsf@tigre.matrox.com>:
> Do your homework. Tom is only a "condescending jerk" to those who
> don't appreciate the long hours he put in making Perl more accessible
> to everyone. Those people seem to be saying "your time is not
> important to us. Our time is valuable. Now tell us what the FAQs say
> because we are too damn lazy to read it ourselves."
You could not be more wrong. I think the *total* effect of Tom on Perl
is *very* negative. Just observe p5p meltdown...
Ilya
------------------------------
Date: Fri, 01 Oct 1999 22:14:34 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Bye Tom? (WAS: Re: injecting "my" varibales into callers scope)
Message-Id: <rvaciah63i515@corp.supernews.com>
Elaine -HFB- Ashton (elaine@chaos.wustl.edu) wrote:
: Craig Berry wrote:
: > Last year, Tom C. posted rather vicious ad hominem attacks against me
: > because I questioned his position on free software. I wrote him off at
: > that point. Since then, my work has largely shifted from Perl to
: > server-side Java -- not through conscious choice, really, but I have had a
: > lingering slight distaste for Perl, thanks to Tom's tight association with
: > it.
:
: This makes absolutely no sense at all. How does one person a language
: make? If you like Perl and use it great, if not, how does Tom's style of
: argument deter you from using what you need to?
Please reread my post carefully. I have not stopped using Perl, I have
been doing *less* of it (and more Java). I did not say Tom's attitudes
detered me, I mused on the timing of my shift in emphasis and the
possibility that my slight distaste for Perl -- due to Tom C.'s large and
prominent role as documentor and advocate for the language -- had played a
role in the type of work I ended up pursuing more avidly.
If tomorrow I were offered an exciting, well-paid contract for Perl group,
I'd probably end up using it more again. My situation is more one in
which these days, given two equally attractive projects in Perl and Java,
I'll tend to pick Java. That wasn't true a year ago, and my intuition
tells me Tom C. had a hand in changing my preferences in this area.
: Why are people so touchy-feely, sensitive, etc. over something so
: incredibly impersonal as email and Usenet.
This is the grand mistake. Email and Usenet are, or can be, quite
personal. Communication through words typed at a terminal can be every
bit as inflammatory, hateful, and damaging as words spoken in person.
What's more, the recipient is not physically present, so body-language
reactions and other queues which might lead to empathy and moderation are
absent. Hence the tendency to 'flame wars' of a style, intensity, and
duration not often seen among coworkers in a technical field in real life,
face-to-face situations.
: Have you met the man, has he insulted your mother, has he
: threatened you physically?
No, no, and no. He insulted me, however, which I take almost as seriously
as insults to my mother. :)
: jesus h. t. christ people, get a life.
...said the woman jumping into the thread... :)
: Complete rubbish, may we stop this and get on with the usual rubbish?
:
: *grumble*
Sounds like a good idea. Um, how do you strip whitespace from the front
and back of a string?
--
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| "There it is; take it." - William Mulholland
------------------------------
Date: Fri, 01 Oct 1999 18:25:00 -0400
From: Elaine -HFB- Ashton <elaine@chaos.wustl.edu>
Subject: Re: Bye Tom? (WAS: Re: injecting "my" varibales into callers scope)
Message-Id: <37F5346A.21637A5D@chaos.wustl.edu>
Ilya Zakharevich wrote:
> You could not be more wrong. I think the *total* effect of Tom on Perl
> is *very* negative. Just observe p5p meltdown...
Well, we could digress into a philosophical discussion of cause and
effect, but why should Tom be singled out when many others join in? I'm
not saying you are wrong or right, just that I'm not part of the victim
society we seem to inhabit in the late 20th century.
If Aquinas was correct in the Summa, then we as humans have free will
and with free will comes choice and with choice comes a wide range of
options.
My mentor many moons ago illustrated a very important lesson, silence.
Silence is the most powerful weapon or statement when dealing with an
opponent as it is often a reaction they seek.
e.
------------------------------
Date: 01 Oct 1999 22:32:11 GMT
From: "Paul J. Lucas" <pjl@NOSPAM.com>
Subject: Re: Bye Tom? (WAS: Re: injecting "my" varibales into callers scope)
Message-Id: <37f5366b$0$206@nntp1.ba.best.com>
In <37F2B42C.AC4BF70D@mail.cor.epa.gov> David Cassell <cassell@mail.cor.epa.gov> writes:
>Paul J. Lucas wrote:
>[snip]
>> Since when does Tom deserve decency?
>Since people like you have been driving him nuts, ignoring the thousands and
>thousands of person-hours of work he has put into the FAQ and the docs and the
>free scripts and the free modules and the Perl code and the Perl advocacy and
>everything else he has contributed to this NG and to Perl over the years.
Were you paying attention? Tom's problem with me had nothing to
do with technical content. He pissed and moaned because I used
a spam-foiling e-mail address. He wants to fight spammers, yet,
when I asked how using a real e-mail address accomplishes that,
he was ston silent.
Your comment above has nothing to do with all that.
I never said I didn't value all his work on Perl; but his
PERSONALITY leaves much to be desired. It's often true that
the WAY you say something far outweights WHAT you say.
- Paul
------------------------------
Date: 01 Oct 1999 22:33:57 GMT
From: "Paul J. Lucas" <pjl@NOSPAM.com>
Subject: Re: Bye Tom? (WAS: Re: injecting "my" varibales into callers scope)
Message-Id: <37f536d5$0$203@nntp1.ba.best.com>
In <1103_938701728@prague_main> Jenda@Krynicky.cz (Jenda Krynicky) writes:
>On 29 Sep 1999 22:27:59 GMT, "Paul J. Lucas" <pjl@NOSPAM.com> wrote:
>> In <slrn7uuk78.k8j.*@dragons.duesouth.net> *@dragons.duesouth.net (Matthew Bafford) writes:
>>
>> >Tom Christiansen:
>> >: I don't really think this forum deserves any more help at all, from me,
>> >: or from anyone. You can suffer by yourselves.
>>
>> >Thank you Tom for all you've done for clpm over the years. It's a
>> >shame to see another of the original Perlers drop out; we'll miss you.
>>
>> I won't. How can anybody think he's NOT a major asshole?
>> He seems like an angry, bitter little man.
>If you see that your work is ignored, that people keep asking the same stupid
>questions over and over again you realy cannot feel too well.
Again, this has nothing to do with that; this all started over
me using a spam-proof address; it has nothing to do with having
anybody's work ignored.
- Paul
------------------------------
Date: Fri, 01 Oct 1999 18:43:15 -0400
From: Elaine -HFB- Ashton <elaine@chaos.wustl.edu>
Subject: Re: Bye Tom? (WAS: Re: injecting "my" varibales into callers scope)
Message-Id: <37F538B1.62A4FBBC@chaos.wustl.edu>
Craig Berry wrote:
> detered me, I mused on the timing of my shift in emphasis and the
> possibility that my slight distaste for Perl -- due to Tom C.'s large and
> prominent role as documentor and advocate for the language -- had played a
> role in the type of work I ended up pursuing more avidly.
Right, so one person, as a personification of a language helped you move
on to something else? I find that, perhaps, rather weak minded. Perhaps
I am stubborn or something, but I just don't see how that could or
should happen.
> I'll tend to pick Java. That wasn't true a year ago, and my intuition
> tells me Tom C. had a hand in changing my preferences in this area.
Pure speculation. I don't get warm fuzzies from Tom either, but
certainly not he or anyone else would influence my choice of Perl vs.
another language. I live in New England so maybe I'm used to crusty
bastards and cold winters. Are you suggesting, perhaps, that the Java
community, if there is one, is full of love for you?
> This is the grand mistake. Email and Usenet are, or can be, quite
> personal. Communication through words typed at a terminal can be every
> bit as inflammatory, hateful, and damaging as words spoken in person.
This is a fallacy of the 'new to the net set'. I don't find either to be
personal in any way and still send snail mail as a form of personal
communication. I can walk away from an email, but I cannot walk away
from someone in my face or a handwritten note possibly embellished with
artwork and such.
Which is not to say, however, that the medium is completely impersonal,
but vapid tirades between strangers via email/usenet is pretty silly. It
ultimately means nothing.
> No, no, and no. He insulted me, however, which I take almost as seriously
> as insults to my mother. :)
People insult each other every day without taking it so personally.
Maybe it is because I'm a woman and have had to endure a lot more crap
than the average guy in technology, but may I recommend that you get
over it and move on with life? I'm sure Tom has insulted me on a number
of occasions though, honestly, I can't remember any of them.
> Sounds like a good idea. Um, how do you strip whitespace from the front
> and back of a string?
Scissors :)
e.
------------------------------
Date: 01 Oct 1999 22:35:50 GMT
From: "Paul J. Lucas" <pjl@NOSPAM.com>
Subject: Re: Bye Tom? (WAS: Re: injecting "my" varibales into callers scope)
Message-Id: <37f53746$0$208@nntp1.ba.best.com>
In <x3y670sv3c2.fsf@tigre.matrox.com> Ala Qumsieh <aqumsieh@matrox.com> writes:
>"Paul J. Lucas" <pjl@fuckoff.com> writes:
>> Since when does Tom deserve decency?
>Then perhaps you shouldn't be consulting perldoc or any of the on-line
>perl docs and FAQs. You shouldn't be reading the Llama either, or the
>Camel, and certainly not the Ram. You shouldn't be reading the
>FMTEYEWTK series and shouldn't download the PPT.
>Actually, you shouldn't be using Perl at all.
*NOBODY* deserves to have a personality as abrasive as Tom's
"overlooked" just because he's done a lot of good technical
work (which I neither dispute nor ever commented on).
Again, technical issues are being mixed with personality issues.
They are, however, distinct.
- Paul
------------------------------
Date: 01 Oct 1999 22:38:50 GMT
From: "Paul J. Lucas" <pjl@NOSPAM.com>
Subject: Re: Bye Tom? (WAS: Re: injecting "my" varibales into callers scope)
Message-Id: <37f537fa$0$208@nntp1.ba.best.com>
In <011019991225430567%gleeson@unimelb.edu.au> Martin Gleeson <gleeson@unimelb.edu.au> writes:
>In article <37f2ab3b$0$219@nntp1.ba.best.com>, Paul J. Lucas <pjl@fuckoff.com>
>wrote:
>> Since when does Tom deserve decency?
>Why don't you tell us, Mr pjl@fuckoff.com?
>You are obviously the authority on the subject.
Name one person in this newsgroup whom I have criticized or
flamed except for Tom.
- Paul
------------------------------
Date: 01 Oct 1999 22:46:57 GMT
From: "Paul J. Lucas" <pjl@NOSPAM.com>
Subject: Re: Bye Tom? (WAS: Re: injecting "my" varibales into callers scope)
Message-Id: <37f539e1$0$206@nntp1.ba.best.com>
In <37F5072C.8473645B@chaos.wustl.edu> Elaine -HFB- Ashton <elaine@chaos.wustl.edu> writes:
>Craig Berry wrote:
>> Last year, Tom C. posted rather vicious ad hominem attacks against me
>> because I questioned his position on free software. I wrote him off at
>> that point. Since then, my work has largely shifted from Perl to
>> server-side Java -- not through conscious choice, really, but I have had a
>> lingering slight distaste for Perl, thanks to Tom's tight association with
>> it.
>This makes absolutely no sense at all. How does one person a language
>make? If you like Perl and use it great, if not, how does Tom's style of
>argument deter you from using what you need to?
Well, in my case, due to Tom's behavior, I have gone through
all my documentation (for my products) that cite the
"Programming Perl" book as a reference and changed the authors
from "Wall, Chrisiansen, and Swartz" to simply "Wall, et al."
I dislike the idea of crediting an asshole despite his
technical achievements. (Sorry, Randal, since you're the baby
that got thrown out with the bathwater.)
I also dislike the idea of recommending said book (but not to
the point of actually not recommending it) knowing Tom will get
royalty money from it.
- Paul
------------------------------
Date: Fri, 01 Oct 1999 16:04:07 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Bye Tom? (WAS: Re: injecting "my" varibales into callers scope)
Message-Id: <37F53DE7.B89DD512@mail.cor.epa.gov>
I R A Darth Aggie wrote:
>
> On Thu, 30 Sep 1999 17:35:53 -0700, David Cassell
> <cassell@mail.cor.epa.gov>, in <37F401E9.506F9A33@mail.cor.epa.gov>
> wrote:
[stuff]
> + mathematical statistician
>
> AIIIIIIIIIEEEEEEEEEEEEEE. I work for statisticians...
What more can I say, except.. BWAHAHAHAHA!!!!
In fact, I may even know one or more of said statisticians.
David, fighting the urge to say "BWAHAHAHAHA!!!!" again...
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Fri, 1 Oct 1999 15:41:04 -0500
From: "Scott Beck" <admin@gatewaysolutions.net>
Subject: Re: Catching errors in anouther name space.
Message-Id: <rva6tdfk3i530@corp.supernews.com>
Tom Phoenix <rootbeer@redcat.com> wrote in message
news:Pine.GSO.4.10.9910011109050.19155-100000@user2.teleport.com...
> On Fri, 1 Oct 1999, Scott Beck wrote:
>
> > > > Did you look at the code Tom?
> > >
> > > I saw what you posted. I didn't see what you didn't post.
> >
> > What didn't I post?
>
> I couldn't see the code in the modules you used. If there is an 'exit'
> being used in one of those modules, that could be your problem. (There
> shouldn't be one, but who knows?)
>
> At this point, I recommend sprinkling lines like this
>
> warn "Got to checkpoint fleagle";
>
> throughout your program. If you're using something which routes warnings
> to your browser, you should be able to identify which line is the last one
> to execute. Then, it should be (fairly) simple to track down what's
> terminating your program.
>
> Good luck with it!
>
Thanks Tom I would try it but well the project just switched servers with
hopefuly more up to date modules.
BTW
Is this your site?
http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 1 Oct 1999 21:42:13 GMT
From: lt lindley <ltl@rgsun5.viasystems.com>
Subject: Re: CONTEST: Range Searching
Message-Id: <7t39rl$bmn$1@rguxd.viasystems.com>
In comp.lang.perl.misc Jeff Yoak <jeff@yoak.com> wrote:
:>My thought was to go from here to something that doesn't have to do
:>all that shifting and pushing and just keep track of the most recently
:>added list item with modula division and use a lot more slices. That
:>might make it a bit faster.
Abigail did that in her solution. It was cool. But I'm not sure that
it buys you all that much. perl doesn't shuffle the actual line data
around when you push and shift the array; it just shifts pointers
around and in a pretty smart way at that. The calculations required
for the indicies may eat up any savings. It would be an interesting
benchmark.
:> I'm also a little curious about handling
:>the actual pattern. I admit I've only tested mine of simple text
:>matches and haven't really thought through what would happen if you
:>tried something more complex. I noticed some people manipulated the
:>pattern that came in, but I couldn't see the reason for the things
:>done.
I think I was the only one to mangle the pattern other than those who
looked for enclosing / chars. I did it to allow spaces between words
to match across a line boundary. But that exceeded the stated problem
requirement and the resulting program was too slow to use in the general
case where you didn't need that capability (not to mention being a memory
pig).
:>Thanks for the problem, Tom.
It was an interesting problem and I was able to apply something I learned
to a rent paying problem this week. That is always cool.
I've never bothered to register in the moderated group, so followups
set to clpm only.
--
// Lee.Lindley /// I used to think that being right was everything.
// @bigfoot.com /// Then I matured into the realization that getting
//////////////////// along was more important. Except on usenet.
------------------------------
Date: Fri, 1 Oct 1999 15:43:02 -0700
From: "Jason Brooks" <jason.nospam@pointshare.com>
Subject: Deformatting records
Message-Id: <37f538c3@news.pointshare.com>
Hi, my name is Jason.
I am trying to parse records sent to me. the format is comma delimited, but
most of the fields are also encased in double quotes. here's the rub: I
can't just split on commas, because there are commas inside the data fields
also.
I want to nuke the commas between pairs of double quotes so I can later just
strip off the doublel quotes and split on commas.
My thoughts are thus: do a match on a beginning and end double quote, then
search and replace commas between these double quotes. My idea has worked
with the following flaw: I can get the script to print out (as a test) the
contents between the double quotes, but when it loops back to where it left
off, I cannot get it to ignore the second double quote.
If you respond to this message, please also respond to my email address at
jasonb-nospam-@pointshare.com. Thanks...
Here's my script so far along with a test case...
#!/usr/bin/perl -w
$_=qq{"5286869","901","A","01",,"xservices",,"50","6022","000223",,,"3452 nw
FUR LOOP","pdx","wa","45223","0000","01","67","2","FINANCIAL
SERVICES","1424","00","KRP","19920601","00000000","00000000",,"042523866","0
601",,"01","8810",,,,"C/O KeyorRP, WORKERS COMP MANAGER","127 PUBLIC
SQUARE","smyrna","OH","44114","0000","0000000000",,"19920629"};
print "$_\n\n";
while (/\G\"(.*?(?=\"))/cg) #search for double quotes ...
{
print "$1\tpos= ".pos. "\n" ;
# $temp = pos;
# pos $_ = ++$temp ;
# print "newpos= ". pos ."\n";
}
print "$_\n\n";
------------------------------
Date: 1 Oct 1999 20:49:17 GMT
From: lt lindley <ltl@rgsun5.viasystems.com>
Subject: Re: explicit package name error?
Message-Id: <7t36od$aom$1@rguxd.viasystems.com>
Jody Fedor <JFedor@datacom-css.com> wrote:
:>I have the following subroutine:
:>sub getpathvars {
:> my $buffer = $ENV{'PATH_INFO'};
:> $buffer =~ s/\///;
:> my($cartid,$pageid) = split(/\//, $buffer);
^^--- These variables are only visible withing the lexical scope
in which they are declared.
:> }
:>After calling the subroutine I use the variable $cartid like this:
:>print "<TABLE width=100%>
:><TR ALIGN='TOP'>
:><TD ALIGN='LEFT' WIDTH=25%><A
:>HREF='http://www.onlysupplies.com/cgi-bin/serve.pl/$cartid/index.htm'>[Back]
:></A><A
:>HREF='http://www.onlysupplies.com/cgi-bin/serve.pl/$cartid/sitemap.htm'>[Sit
:>emap]</A></TD>
:><TD WIDTH=50%></TD>
:><TD ALIGN='MIDDLE' WIDTH=25%><IMG SRC='/gif/os200.gif' HEIGHT=30 WIDTH=200
:>ALT='OnlySupplies.Com'><BR><CENTER><FONT FACE='Arial'
:>SIZE=2><B>1-800-832-8226</B></FONT></CENTER></TD>
:></TR>
:></TABLE>";
:>Where I obviously want perl to provide the $cartid (ie. 1023) in the
:>outputted html.
:>I'm getting this error on the server:
:>Global symbol "$cartid" requires explicit package name at search.pl line 27.
:>PS - I am using strict.
Good. That is helping you find the error. Since the lexical variable
$cartid that you populated in the subroutine is not visible where you
are using it, the strict pragma is telling you that you have to give
$cartid a fully qualified package name (not that there exists any
such fully qualified package name in your program, but that is how
you know it is a bug :-).
Fish: Move the my declaration of the 2 variables above the subroutine
declaration, then just assign to them without a my. They will be
"file scoped lexicals" then and will be visible from that point to
the bottom of the file. Or you could arrange for your subroutine to
return the useful values (actually, it does already return them in array
context), then assign the return values to variables that are
scoped where you need them.
Fishing Lesson: perldoc perlsub # and concentrate on the section
titled "Private Variables via my()"
--
// Lee.Lindley /// I used to think that being right was everything.
// @bigfoot.com /// Then I matured into the realization that getting
//////////////////// along was more important. Except on usenet.
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 967
*************************************
