[16422] in Perl-Users-Digest
Perl-Users Digest, Issue: 3834 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jul 28 14:10:29 2000
Date: Fri, 28 Jul 2000 11:10:19 -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: <964807819-v9-i3834@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 28 Jul 2000 Volume: 9 Number: 3834
Today's topics:
Installing a module <six4eight@NOSPAMhotmail.com>
Re: Making and extracting from XML-like string (Mark W. Schumann)
Re: New Site: (Abigail)
Re: newb q - help with write to file script <toyboy@toy.eyep.net>
Re: newb q - help with write to file script <DNess@Home.Com>
Re: newb q - help with write to file script <toyboy@toy.eyep.net>
Re: newb q - help with write to file script <toyboy@toy.eyep.net>
Re: newb q - help with write to file script <toyboy@toy.eyep.net>
Re: newb q - help with write to file script <red_orc@my-deja.com>
Re: newb q - help with write to file script <samara_biz@hotmail.com>
Re: newb q - help with write to file script <toyboy@toy.eyep.net>
Re: newb q - help with write to file script <uri@sysarch.com>
Re: newb q - help with write to file script <toyboy@toy.eyep.net>
Re: newb q - help with write to file script <toyboy@toy.eyep.net>
Re: newb q - help with write to file script <russ_jones@rac.ray.com>
Re: newb q - help with write to file script (Decklin Foster)
Re: newb Q, Our perl guy left!! <iltzu@sci.invalid>
Re: newb Q, Our perl guy left!! (Bruce Salem)
Re: newb Q, Our perl guy left!! <toyboy@toy.eyep.net>
Re: newb Q, Our perl guy left!! <toyboy@toy.eyep.net>
Re: newb Q, Our perl guy left!! <toyboy@toy.eyep.net>
Re: newb Q, Our perl guy left!! <godzilla!@stomp.stomp.tokyo>
Re: newb Q, Our perl guy left!! <toyboy@toy.eyep.net>
NEWB Q: CGI and DATABASSE eric_lyon@my-deja.com
Re: os type (Bruce Salem)
Re: os type (Bruce Salem)
Perl Position: Portland, OR <jobs@onsitetech.com>
Re: regexp match inside a time interval ? <billy@arnis-bsl.com>
Re: return value of `eval "use lib"' (M.J.T. Guy)
Re: Setting multiple cookies... molar_tooth@my-deja.com
Re: To sys op - get me off your email list <newsposter@cthulhu.demon.nl>
Tutorial suggestions for a new programmer <saraj_martin@time-inc.com>
Re: Tutorial suggestions for a new programmer <sariq@texas.net>
Win32::ODBC & ConfigDSN & Sybase SQL Anywhere <heinej@jaguar.rockvillemd.ncr.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 28 Jul 2000 17:14:33 GMT
From: "Eelke Kleijn" <six4eight@NOSPAMhotmail.com>
Subject: Installing a module
Message-Id: <Zbjg5.4988$Gd1.40754@Typhoon.bART.nl>
Hi everyone,
I'm have problems installing the MIME-Base64-2-2.11 module in a selfmade
directory. The webserver has perl support, but doesn't support this module,
so I figured I would install it myself. I have created an empty directory in
my cgi-bin named perl, and uploaded MIME-Base64-2-2.11.tar.gz into it. After
that, I untarred and:
make Makefile.PL
make
make test
make install => All goes well until the install, perl gives the following
error:
/cgi-bin/perl//lib/perl5/site_perl/i386-linux/perllocal.pod: No such file or
directory.
I think this is because perl thinks I have installed perl in the directory
/cgi-bin/perl ?? Or isn't that the problem?
Anyway, I don't know what caused the error. I did everything according to
the FAQ.
Thanx in advance,
Eelke Kleijn
------------------------------
Date: 28 Jul 2000 12:32:12 -0400
From: catfood@apk.net (Mark W. Schumann)
Subject: Re: Making and extracting from XML-like string
Message-Id: <8lscic$pig@junior.apk.net>
In article <1qh2oskin0j695ij254bfbuhl63qch80ob@4ax.com>,
Bart Lateur <bart.lateur@skynet.be> wrote:
>Mark W. Schumann wrote:
>
>>The thing about using regexes is that you'll have to deal with
>>funkiness like:
>>
>> <address type=email>
>> Fred & Barney@stonehenge.com <a couple of great guys>
>> </address>
>>
>>or
>>
>> <formulation>
>> if x < y and y > 0 but z < 1 if and only if y > 1, then who knows?
>> </formulation>
>
>Both are not legal XML. XML::Parser won't accept it. You MUST escape all
>literal "<", "&" and ">" characters by entities ("<", "&" and
>">" respectively).
Okay. I didn't know that.
[ponder]
Oh, of *course* it has to work that way. How silly of me.
>XML *is* simple to parse. The only snag for doing it with regexes is
>that tags may be split over several lines.
Cool.
>If XML::Parser is too strict, something derived from HTML::Parser might
>do the trick. I dunno, maybe HTML::Parser *is* already updated so it can
>accept that funky "<tag/>" style tag syntax as well.
Thanks for pointing out my error. I learned something new today.
------------------------------
Date: 28 Jul 2000 13:10:16 EDT
From: abigail@foad.org (Abigail)
Subject: Re: New Site:
Message-Id: <slrn8o3fjf.vcg.abigail@alexandra.foad.org>
Rafael Garcia-Suarez (rgarciasuarez@free.fr) wrote on MMDXXIII September
MCMXCIII in <URL:news:slrn8o2ifs.gk7.rgarciasuarez@rafael.kazibao.net>:
** Abigail wrote in comp.lang.perl.misc:
** >perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/'
**
** This one is really amazing.
**
** It reminds me some demonstrations on formal languages shown in the
** book 'Godel,Escher,Bach'...
**
** I wonder how fast the NFA behaves to solve the match?
Incredibly slow. It isn't even in P-SPACE.
Abigail
--
print v74.117.115.116.32.97.110.111.116.104.101.114.
v32.80.101.114.108.32.72.97.99.107.101.114.10;
------------------------------
Date: Fri, 28 Jul 2000 11:35:22 -0400
From: jtoy <toyboy@toy.eyep.net>
Subject: Re: newb q - help with write to file script
Message-Id: <3981A83A.F0F02E9B@toy.eyep.net>
According to Greg Bacon, you can't ask these kind of questions. Ask him
yourself.
pooh23@my-deja.com wrote:
> Hello,
> I'm trying to get data from a survey form and write to a file. I'm
> getting syntax error when I test it out on my computer at lines 8 and
> 18. Could someone tell what syntaxical errors I may have?
>
> CODE:
>
> #!/usr/perl/bin -w
> use strict;
>
> $printmail = 'data/surveydata.dat';
>
> read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'})
>
> foreach split(/&/, $buffer) { #line 8
> ($name, $value) = split(/=/, $buffer);
>
> #maybe call function here that will parse hexidecimal
>
> open(FILE, ">>$printmail") or die "Can't open file";
> print FILE "$name";
> print FILE "\n";
> print FILE "$value";
> close(FILE);
> } #line 18
>
> print "Content-type: text/html\n\n";
> print "<html><head><title>Thank you</title></head>\n";
> print "<body><h1>Thank you for completing our survey!!</h1>";
> print "</body>";
>
> Thanks.
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
--
Jason Toy
toyboy@toy.eyep.net
http://toy.eyep.net
------------------------------
Date: Fri, 28 Jul 2000 15:35:54 GMT
From: David Ness <DNess@Home.Com>
Subject: Re: newb q - help with write to file script
Message-Id: <3981A867.D06940E4@Home.Com>
jtoy wrote:
>
> According to Greg Bacon, you can't ask these kind of questions. Ask him
> yourself.
>
> pooh23@my-deja.com wrote:
>
> > Hello,
> > I'm trying to get data from a survey form and write to a file. I'm
> > getting syntax error when I test it out on my computer at lines 8 and
> > 18. Could someone tell what syntaxical errors I may have?
...
Don't speak for others.
You are entitled to you own (worthless?) opinions, but not, IMO, to claim
what others might or might not do. They, clearly, can speak for themselves.
------------------------------
Date: Fri, 28 Jul 2000 11:52:46 -0400
From: jtoy <toyboy@toy.eyep.net>
Subject: Re: newb q - help with write to file script
Message-Id: <3981AC4E.AFBCC7BA@toy.eyep.net>
shut up
David Ness wrote:
> jtoy wrote:
> >
> > According to Greg Bacon, you can't ask these kind of questions. Ask him
> > yourself.
> >
> > pooh23@my-deja.com wrote:
> >
> > > Hello,
> > > I'm trying to get data from a survey form and write to a file. I'm
> > > getting syntax error when I test it out on my computer at lines 8 and
> > > 18. Could someone tell what syntaxical errors I may have?
> ...
>
> Don't speak for others.
>
> You are entitled to you own (worthless?) opinions, but not, IMO, to claim
> what others might or might not do. They, clearly, can speak for themselves.
--
Jason Toy
toyboy@toy.eyep.net
http://toy.eyep.net
------------------------------
Date: Fri, 28 Jul 2000 11:54:31 -0400
From: jtoy <toyboy@toy.eyep.net>
Subject: Re: newb q - help with write to file script
Message-Id: <3981ACB7.97E01E6E@toy.eyep.net>
it is ok to say that I shouldn't talk for others, but you should never
insult(you are worhtless?) like that.
David Ness wrote:
> jtoy wrote:
> >
> > According to Greg Bacon, you can't ask these kind of questions. Ask him
> > yourself.
> >
> > pooh23@my-deja.com wrote:
> >
> > > Hello,
> > > I'm trying to get data from a survey form and write to a file. I'm
> > > getting syntax error when I test it out on my computer at lines 8 and
> > > 18. Could someone tell what syntaxical errors I may have?
> ...
>
> Don't speak for others.
>
> You are entitled to you own (worthless?) opinions, but not, IMO, to claim
> what others might or might not do. They, clearly, can speak for themselves.
--
Jason Toy
toyboy@toy.eyep.net
http://toy.eyep.net
------------------------------
Date: Fri, 28 Jul 2000 11:57:37 -0400
From: jtoy <toyboy@toy.eyep.net>
Subject: Re: newb q - help with write to file script
Message-Id: <3981AD71.14B40C93@toy.eyep.net>
Get a definition of 'opinion', according to my statement, I used the word
'according' which means 'if you look at this info(according)' then it is true.
Opinions are more like 'I believe that you wasted your time posting here.'
jtoy wrote:
> shut up
>
> David Ness wrote:
>
> > jtoy wrote:
> > >
> > > According to Greg Bacon, you can't ask these kind of questions. Ask him
> > > yourself.
> > >
> > > pooh23@my-deja.com wrote:
> > >
> > > > Hello,
> > > > I'm trying to get data from a survey form and write to a file. I'm
> > > > getting syntax error when I test it out on my computer at lines 8 and
> > > > 18. Could someone tell what syntaxical errors I may have?
> > ...
> >
> > Don't speak for others.
> >
> > You are entitled to you own (worthless?) opinions, but not, IMO, to claim
> > what others might or might not do. They, clearly, can speak for themselves.
>
> --
> Jason Toy
> toyboy@toy.eyep.net
> http://toy.eyep.net
--
Jason Toy
toyboy@toy.eyep.net
http://toy.eyep.net
------------------------------
Date: Fri, 28 Jul 2000 15:52:26 GMT
From: Rodney Engdahl <red_orc@my-deja.com>
Subject: Re: newb q - help with write to file script
Message-Id: <8lsa7o$l6o$1@nnrp1.deja.com>
In article <8ls3gm$flm$1@nnrp1.deja.com>,
pooh23@my-deja.com wrote:
> Hello,
> I'm trying to get data from a survey form and write to a file. I'm
> getting syntax error when I test it out on my computer at lines 8 and
> 18. Could someone tell what syntaxical errors I may have?
>
> CODE:
>
> #!/usr/perl/bin -w
> use strict;
>
> $printmail = 'data/surveydata.dat';
>
> read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'})
>
missing semi-colon at end of line.
> foreach split(/&/, $buffer) { #line 8
> ($name, $value) = split(/=/, $buffer);
>
> #maybe call function here that will parse hexidecimal
>
> open(FILE, ">>$printmail") or die "Can't open file";
> print FILE "$name";
> print FILE "\n";
> print FILE "$value";
> close(FILE);
> } #line 18
>
> print "Content-type: text/html\n\n";
> print "<html><head><title>Thank you</title></head>\n";
> print "<body><h1>Thank you for completing our survey!!</h1>";
> print "</body>";
>
> Thanks.
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
>
--
Some drink at the fountain of knowledge...others just gargle.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Fri, 28 Jul 2000 11:52:20 -0400
From: "Alex T." <samara_biz@hotmail.com>
Subject: Re: newb q - help with write to file script
Message-Id: <3981AC34.BFACC628@hotmail.com>
"Good argument"
jtoy wrote:
> shut up
>
> David Ness wrote:
>
> > jtoy wrote:
> > >
> > > According to Greg Bacon, you can't ask these kind of questions. Ask him
> > > yourself.
> > >
> > > pooh23@my-deja.com wrote:
> > >
> > > > Hello,
> > > > I'm trying to get data from a survey form and write to a file. I'm
> > > > getting syntax error when I test it out on my computer at lines 8 and
> > > > 18. Could someone tell what syntaxical errors I may have?
> > ...
> >
> > Don't speak for others.
> >
> > You are entitled to you own (worthless?) opinions, but not, IMO, to claim
> > what others might or might not do. They, clearly, can speak for themselves.
>
> --
> Jason Toy
> toyboy@toy.eyep.net
> http://toy.eyep.net
------------------------------
Date: Fri, 28 Jul 2000 12:24:24 -0400
From: jtoy <toyboy@toy.eyep.net>
Subject: Re: newb q - help with write to file script
Message-Id: <3981B3B8.199BDA9B@toy.eyep.net>
I know
"Alex T." wrote:
> "Good argument"
>
> jtoy wrote:
>
> > shut up
> >
> > David Ness wrote:
> >
> > > jtoy wrote:
> > > >
> > > > According to Greg Bacon, you can't ask these kind of questions. Ask him
> > > > yourself.
> > > >
> > > > pooh23@my-deja.com wrote:
> > > >
> > > > > Hello,
> > > > > I'm trying to get data from a survey form and write to a file. I'm
> > > > > getting syntax error when I test it out on my computer at lines 8 and
> > > > > 18. Could someone tell what syntaxical errors I may have?
> > > ...
> > >
> > > Don't speak for others.
> > >
> > > You are entitled to you own (worthless?) opinions, but not, IMO, to claim
> > > what others might or might not do. They, clearly, can speak for themselves.
> >
> > --
> > Jason Toy
> > toyboy@toy.eyep.net
> > http://toy.eyep.net
------------------------------
Date: Fri, 28 Jul 2000 16:54:38 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: newb q - help with write to file script
Message-Id: <x7lmym5h69.fsf@home.sysarch.com>
>>>>> "j" == jtoy <toyboy@toy.eyep.net> writes:
j> I know
j> "Alex T." wrote:
>> "Good argument"
>>
>> jtoy wrote:
>>
>> > shut up
>> >
he was being sarcastic. but it was wasted on such an experienced worldly
high school kid who makes so much money.
to quote that great philosopher curly (from city slickers):
"i take shits bigger than you."
just go away before you have a chance to grow up. if you hang around and
perchance mature, you will be so embarrassed at your current
behavior.
18 year olds who know everything. what a concept!
and as always, my new rule applies, the kewler the nickname, the lamer
the poster.
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: Fri, 28 Jul 2000 13:15:21 -0400
From: jtoy <toyboy@toy.eyep.net>
Subject: Re: newb q - help with write to file script
Message-Id: <3981BFA9.9BE45F65@toy.eyep.net>
I agree that I a high school kid. I am not experienced worldy. I do think
that I know more about computers then the average person. Because I am young,
I geel proud that I make a lot of money, but If I was old and making the same
money then I wouldn't be so happy. I'm sorry if you thought I was trying to
show off, I was just trying to post stupid comments there like everyone else on
that thread. I would think that you are the one who is less mamture if you
have to talk back and yell at me. It is expected for punbks like me to act
like this. It is not expected for a 'teacher' (as you are acting0 to try and
teach and talk shit in the same sentence. Your point failed when you started
to insult me. Thank you for trying though.
Uri Guttman wrote:
> >>>>> "j" == jtoy <toyboy@toy.eyep.net> writes:
>
> j> I know
> j> "Alex T." wrote:
>
> >> "Good argument"
> >>
> >> jtoy wrote:
> >>
> >> > shut up
> >> >
>
> he was being sarcastic. but it was wasted on such an experienced worldly
> high school kid who makes so much money.
>
> to quote that great philosopher curly (from city slickers):
>
> "i take shits bigger than you."
>
> just go away before you have a chance to grow up. if you hang around and
> perchance mature, you will be so embarrassed at your current
> behavior.
>
> 18 year olds who know everything. what a concept!
>
> and as always, my new rule applies, the kewler the nickname, the lamer
> the poster.
>
> uri
>
> --
> Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
> SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
> The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
> The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: Fri, 28 Jul 2000 13:18:50 -0400
From: jtoy <toyboy@toy.eyep.net>
Subject: Re: newb q - help with write to file script
Message-Id: <3981C07A.D07018D6@toy.eyep.net>
BTW, I'm glad you followed the post from above. then you know why I'm posting
here( In regards to the nice man G*&^ $%^&*, I can't say his name) 18 year
olds and don't know anything is a more correct phrase. I don't know shit, I
agree, but you know what...neither does anyone else in this world. Life is
bullshit. I hope you don't believe in god and dying and how to make money and
gov, because its all BS. Prove it to me and I'll believe you. I never said I
knew it all.
Uri Guttman wrote:
> >>>>> "j" == jtoy <toyboy@toy.eyep.net> writes:
>
> j> I know
> j> "Alex T." wrote:
>
> >> "Good argument"
> >>
> >> jtoy wrote:
> >>
> >> > shut up
> >> >
>
> he was being sarcastic. but it was wasted on such an experienced worldly
> high school kid who makes so much money.
>
> to quote that great philosopher curly (from city slickers):
>
> "i take shits bigger than you."
>
> just go away before you have a chance to grow up. if you hang around and
> perchance mature, you will be so embarrassed at your current
> behavior.
>
> 18 year olds who know everything. what a concept!
>
> and as always, my new rule applies, the kewler the nickname, the lamer
> the poster.
>
> uri
>
> --
> Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
> SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
> The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
> The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: Fri, 28 Jul 2000 12:19:41 -0500
From: Russ Jones <russ_jones@rac.ray.com>
Subject: Re: newb q - help with write to file script
Message-Id: <3981C0AD.FC71A56B@rac.ray.com>
jtoy wrote:
>
> I agree that I a high school kid. I am not experienced worldy.
( more drivel removed )
Sound like anyone we know, perl machos? When will we ever learn?
--
Russ Jones - HP OpenView IT/Operatons support
Raytheon Aircraft Company, Wichita KS
russ_jones@rac.ray.com 316-676-0747
Quae narravi, nullo modo negabo. - Catullus
------------------------------
Date: Fri, 28 Jul 2000 17:57:17 GMT
From: decklin+usenet@red-bean.com (Decklin Foster)
Subject: Re: newb q - help with write to file script
Message-Id: <1Qjg5.8236$f_5.34600@news1.rdc1.ct.home.com>
jtoy <toyboy@toy.eyep.net> writes:
> shut up
Please stop changing your email address; it makes it more of a chore
to killfile you.
--
There is no TRUTH. There is no REALITY. There is no CONSISTENCY. There
are no ABSOLUTE STATEMENTS. I'm very probably wrong. -- BSD fortune(6)
------------------------------
Date: 28 Jul 2000 16:08:34 GMT
From: Ilmari Karonen <iltzu@sci.invalid>
Subject: Re: newb Q, Our perl guy left!!
Message-Id: <964800360.22405@itz.pp.sci.fi>
In article <39818F97.E828E8E6@tcgfinancial.com>, jtoy wrote:
>Ilmari Karonen wrote:
>>
>> *plonk*
Has anyone else noticed how this guy keeps changing his From: line?
*re-plonk*
--
Ilmari Karonen - http://www.sci.fi/~iltzu/
"The screwdriver *is* the portable method." -- Abigail
Please ignore Godzilla^Wjtoy and its pseudonyms - do not feed the troll.
------------------------------
Date: 28 Jul 2000 15:50:34 GMT
From: bruces@canopus.Sun.COM (Bruce Salem)
Subject: Re: newb Q, Our perl guy left!!
Message-Id: <8lsa4a$s8s$1@engnews1.eng.sun.com>
In article <so18mpfu3j134@corp.supernews.com>,
Craig Berry <cberry@cinenet.net> wrote:
>jtoy (jtoy@tcgfinancial.com) wrote:
>: Oh and BTW, why do 90% of the posts say either help, new Q, ???, or some other
>: help desk related stuff?
>
>Because 90% of people don't have a clue. Like you, judging from the post
>just before this. Plonk-o-rama.
jtoy -- Before you trash your perl app, because you don't know perl
and do know python, consider approiateness of the application language to
the job. If you find perl to be better, go hire yourself a competant perl
guy and be done with it.
The row that got started in this thread is due to your subject line
and the attitude that it implies that you don't want to deal with perl and
are asking people who can get big bucks consulting to give you free consulting
because you posted the question here.
I lurk this group and don't ask casual questions because I know how
much the people with expertise resent being put upon by people who want quick
and free answers to questions they could readily answer by putting out alittle
effort, like reading the docs that come with perl. I am considering unsubscribing
from this group because most of the volume appears to be from people who are lazy.
I have never asked a question here because I have so far been able to solve all
my questions by reading the docs, looking at other code, and by looking at
this group, but there is alot of chaff to filter through because of the flood
of questions that could be desposed of with alittle effort by the posters. The
ocassional gem posted here is still worth sifting through all the dross, but
there is alot of it.
I have a good friend who teaches perl in a local college, in Silicon
Valley. He is really fed up with the lack of iniative of his students and with
the continual demand of people to be spoon-fed info they could get if they
would only read. I know the same problem as I have done tech-support and know
that some customers either can't read, or don't make the effort. Anyone who
has done helpdesk work knows this problem. It is very annoying. I know of many
situations where people who need introductory training call the support lines
because either they or their employer is too cheap to get them to training.
Helpdesks, tech. support and this newsgroup is not for introductory training.
The trade off is either to take time and learn what you need to know,
or hire someone who knows what you need in order to get the task you have
been mandated to do. Period. This group is not a substitute for you getting
your job done as effectively as you can. Other people have told you the
same things with much fewer words and less tact. Please let this thread die
now. Maybe you would have been better served if you had posted a job announcement
on your local jobs newsgroup asking for a perl programmer in the first place.
--
Bruce B. Salem
Sun Microsystems, Inc.
Email: bruce.salem@eng.sun.COM
*******Standard Disclaimer*****
------------------------------
Date: Fri, 28 Jul 2000 12:26:03 -0400
From: jtoy <toyboy@toy.eyep.net>
Subject: Re: newb Q, Our perl guy left!!
Message-Id: <3981B41B.E3D9997C@toy.eyep.net>
Sorry about that Ilmari, I have several different Netscape profiles. I will
only use one account when I come here, my bad.
Ilmari Karonen wrote:
> In article <39818F97.E828E8E6@tcgfinancial.com>, jtoy wrote:
> >Ilmari Karonen wrote:
> >>
> >> *plonk*
>
> Has anyone else noticed how this guy keeps changing his From: line?
>
> *re-plonk*
>
> --
> Ilmari Karonen - http://www.sci.fi/~iltzu/
> "The screwdriver *is* the portable method." -- Abigail
> Please ignore Godzilla^Wjtoy and its pseudonyms - do not feed the troll.
------------------------------
Date: Fri, 28 Jul 2000 12:26:18 -0400
From: jtoy <toyboy@toy.eyep.net>
Subject: Re: newb Q, Our perl guy left!!
Message-Id: <3981B42A.DC343DE7@toy.eyep.net>
Oh yeah,
plonk........
Ilmari Karonen wrote:
> In article <39818F97.E828E8E6@tcgfinancial.com>, jtoy wrote:
> >Ilmari Karonen wrote:
> >>
> >> *plonk*
>
> Has anyone else noticed how this guy keeps changing his From: line?
>
> *re-plonk*
>
> --
> Ilmari Karonen - http://www.sci.fi/~iltzu/
> "The screwdriver *is* the portable method." -- Abigail
> Please ignore Godzilla^Wjtoy and its pseudonyms - do not feed the troll.
------------------------------
Date: Fri, 28 Jul 2000 12:44:33 -0400
From: jtoy <toyboy@toy.eyep.net>
Subject: Re: newb Q, Our perl guy left!!
Message-Id: <3981B871.6ACF6C6B@toy.eyep.net>
I agree with everyon thing you say. My respect. I'm sorry for posting with such a
stupid line. I gues I will have to learn some perl then. You are right, my post said
out loud " I don't know perl and don't want to learn, but I want someone to fix
this". I am also a student(just finished HS actually) and I am very initiative, but I
didn't want to go try learning other things because I'm already in the middle of too
much other stuff(python, expect/tcl, OpenBSD, Linux, C, and all that other fun stuff),
but I eventually want to learn ALL of perl, just not now becuase I also have work(NT,
Linux, Novell on top of that we use a primarily VGAnyLAN topology mixed with ethernet
and tokenring!!). I myself would rather fix the perl app myself before hiring
someone. I would have never asked the question if I actually did actively code in
perl, its just that right now, I don't want anything to do with perl, I just wanted to
use a total of 15 mins to solve this problem, but it doesn't look like its going to be
solved too fast. I can't use python because our website isn't hosted at home now and
you know that most webhosters only allow perl scripts.
Thank you for a more polite approach to my horrible original post, but I am unable to
stop this thread because of the negative posts that others and myself have posted. I
intend to reply to each message. Whether this is good or bad, I don't know, but I am
compelled at the results I got at this newsgroup. Not to strart a flame, but I fell
worm and cozy in all other newsgroups I post too. I actually already knew how the
perl group was because of the 'attitude of perl users' that I've heard about(I'm not
saying a bad additude, I can't think of a good description, but for me to describe it,
I'd say 'How BSD people think of the Linux crowd) BTW, in a couple of months I will
be back and I will show you what I have learned in perl. To everyone else, please do
not reply if it isn't 'pleasant'. Thank you.
Bruce Salem wrote:
> In article <so18mpfu3j134@corp.supernews.com>,
> Craig Berry <cberry@cinenet.net> wrote:
> >jtoy (jtoy@tcgfinancial.com) wrote:
> >: Oh and BTW, why do 90% of the posts say either help, new Q, ???, or some other
> >: help desk related stuff?
> >
> >Because 90% of people don't have a clue. Like you, judging from the post
> >just before this. Plonk-o-rama.
>
> jtoy -- Before you trash your perl app, because you don't know perl
> and do know python, consider approiateness of the application language to
> the job. If you find perl to be better, go hire yourself a competant perl
> guy and be done with it.
>
> The row that got started in this thread is due to your subject line
> and the attitude that it implies that you don't want to deal with perl and
> are asking people who can get big bucks consulting to give you free consulting
> because you posted the question here.
>
> I lurk this group and don't ask casual questions because I know how
> much the people with expertise resent being put upon by people who want quick
> and free answers to questions they could readily answer by putting out alittle
> effort, like reading the docs that come with perl. I am considering unsubscribing
> from this group because most of the volume appears to be from people who are lazy.
> I have never asked a question here because I have so far been able to solve all
> my questions by reading the docs, looking at other code, and by looking at
> this group, but there is alot of chaff to filter through because of the flood
> of questions that could be desposed of with alittle effort by the posters. The
> ocassional gem posted here is still worth sifting through all the dross, but
> there is alot of it.
>
> I have a good friend who teaches perl in a local college, in Silicon
> Valley. He is really fed up with the lack of iniative of his students and with
> the continual demand of people to be spoon-fed info they could get if they
> would only read. I know the same problem as I have done tech-support and know
> that some customers either can't read, or don't make the effort. Anyone who
> has done helpdesk work knows this problem. It is very annoying. I know of many
> situations where people who need introductory training call the support lines
> because either they or their employer is too cheap to get them to training.
> Helpdesks, tech. support and this newsgroup is not for introductory training.
>
> The trade off is either to take time and learn what you need to know,
> or hire someone who knows what you need in order to get the task you have
> been mandated to do. Period. This group is not a substitute for you getting
> your job done as effectively as you can. Other people have told you the
> same things with much fewer words and less tact. Please let this thread die
> now. Maybe you would have been better served if you had posted a job announcement
> on your local jobs newsgroup asking for a perl programmer in the first place.
>
> --
> Bruce B. Salem
> Sun Microsystems, Inc.
> Email: bruce.salem@eng.sun.COM
> *******Standard Disclaimer*****
------------------------------
Date: Fri, 28 Jul 2000 09:56:09 -0700
From: "Godzilla!" <godzilla!@stomp.stomp.tokyo>
Subject: Re: newb Q, Our perl guy left!!
Message-Id: <3981BB29.E37D1E0F@stomp.stomp.tokyo>
jtoy wrote:
> various weenie waggers wrote:
> ...but I am unable to stop this thread because of the
> negative posts that others and myself have posted....
You and the rest of you boys here are just a bunch
of weenie waggers from my personal perspective. My
Life's experience tells me shoveling mule manure is
more productive than what you boys consistently do;
sit in front of your computers proclaiming to our
world your own to be the biggest of all.
Mine is the biggest.
Is not.
Is too.
Is not.
Is too.
Is not.
Jeeesshh... you boys and your articles are such a waste of time.
Sho nuff plenty o' mule manure around here to shovel.
Godzilla!
--
@© = (a .. z); @® = qw (7 15 4 26 9 12 12 1 18 15 3 11 19);
srand(time() ^ ($$ + ($$ << 15)));
sub G { rand(1000) < 500 ? "\u$1" : "\l$1" ; }
foreach $¿ (@®) { $¢ = $©[$¿-1]; $¢ =~ s/([a-z])/G($1)/gie;
if ($¢ =~ /($©[0])/i) { $¢ = "$¢ "; } print $¢; }
print "!"; exit;
------------------------------
Date: Fri, 28 Jul 2000 13:19:21 -0400
From: jtoy <toyboy@toy.eyep.net>
Subject: Re: newb Q, Our perl guy left!!
Message-Id: <3981C099.12AA6816@toy.eyep.net>
I agree
"Godzilla!" wrote:
> jtoy wrote:
>
> > various weenie waggers wrote:
>
> > ...but I am unable to stop this thread because of the
> > negative posts that others and myself have posted....
>
> You and the rest of you boys here are just a bunch
> of weenie waggers from my personal perspective. My
> Life's experience tells me shoveling mule manure is
> more productive than what you boys consistently do;
> sit in front of your computers proclaiming to our
> world your own to be the biggest of all.
>
> Mine is the biggest.
>
> Is not.
>
> Is too.
>
> Is not.
>
> Is too.
>
> Is not.
>
> Jeeesshh... you boys and your articles are such a waste of time.
> Sho nuff plenty o' mule manure around here to shovel.
>
> Godzilla!
>
> --
> @© = (a .. z); @® = qw (7 15 4 26 9 12 12 1 18 15 3 11 19);
> srand(time() ^ ($$ + ($$ << 15)));
> sub G { rand(1000) < 500 ? "\u$1" : "\l$1" ; }
> foreach $¿ (@®) { $¢ = $©[$¿-1]; $¢ =~ s/([a-z])/G($1)/gie;
> if ($¢ =~ /($©[0])/i) { $¢ = "$¢ "; } print $¢; }
> print "!"; exit;
------------------------------
Date: Fri, 28 Jul 2000 17:22:55 GMT
From: eric_lyon@my-deja.com
Subject: NEWB Q: CGI and DATABASSE
Message-Id: <8lsfh9$pjd$1@nnrp1.deja.com>
Hi,
I really need help ! i work with win95 and i'd like to connect my cgi
scripts to my MS access databasse (or my OCELOT databasse), the problem
is that i have no idea how i can do that, usually i test my CGI script
on my computer using a local server (SAMBAR 4.1).
Any help would be really appreciated.
Thanks !
Sade.
PS: the OCELOT databasse is the only BD that i've found to do some SQL
with win 95, is there a better (and free_ one ?
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 28 Jul 2000 16:17:46 GMT
From: bruces@canopus.Sun.COM (Bruce Salem)
Subject: Re: os type
Message-Id: <8lsbna$l2$1@engnews1.eng.sun.com>
In article <39817CBE.327BF9B3@systemonic.de>,
Paul Schwann <paul.schwann@systemonic.de> wrote:
>Hi folks,
>
>is there a way to determine the os or at least the platform type within
>a perl script? (like os == "WINDOWS", os == "UNIX", os == "SOLARIS"
>etc.)
>
>Paul
pus:util % perl -e ' $foo = `uname -a`; print $foo; '
SunOS canopus 5.8 Generic sun4u sparc SUNW,Ultra-60
You can use the SunOS and '5\.[3-8' to get solaris
'uname' should get it on most other *nix systems.
Windows, don't know. Maybe Active Perl has some platform related module.
--
Bruce B. Salem
Sun Microsystems, Inc.
Email: bruce.salem@eng.sun.COM
*******Standard Disclaimer*****
------------------------------
Date: 28 Jul 2000 16:24:02 GMT
From: bruces@canopus.Sun.COM (Bruce Salem)
Subject: Re: os type
Message-Id: <8lsc32$120$1@engnews1.eng.sun.com>
% perl -e ' print "$^O\n"; '
solaris
The $foo = `uname -a`; would help if you really need to know more
about the particular Solaris system.
--
Bruce B. Salem
Sun Microsystems, Inc.
Email: bruce.salem@eng.sun.COM
*******Standard Disclaimer*****
------------------------------
Date: Fri, 28 Jul 2000 10:14:02 -0700
From: "Hiring Manager" <jobs@onsitetech.com>
Subject: Perl Position: Portland, OR
Message-Id: <%gjg5.677$au3.113590@news.uswest.net>
ONSITE! Technology is looking for an motivated, resourceful Perl programmer
with experience coding database-driven websites. Responsibilities will range
from complete back-end site development to site maintenance, and include
collaborative site design and prototype development. Understanding of HTML
and basic JavaScript programming required, additional experience in other
web technologies such as ASP, PHP, Java and DHTML is a bonus.
Our server environments are Windows and UNIX, in-house development on
Windows.
We are an aggressive e-business solution provider located in a loft close to
downtown Portland, OR. We offer a competitive salary and benefits package
coupled with a great work environment and flexible hours. Ping-pong, rock
and roll, and caffeine keep us moving.
Go on, impress us with your portfolio.
Send your cover letter and resume to: jobs@onsitetech.com or fax it to
503-233-8016.
No phone calls please.
------------------------------
Date: Fri, 28 Jul 2000 10:27:32 -0500
From: Ilja Tabachnik <billy@arnis-bsl.com>
Subject: Re: regexp match inside a time interval ?
Message-Id: <3981A664.FC78F721@arnis-bsl.com>
Margarit Nickolov wrote:
>
> In article <MPG.13ea329f29f83e0e98abf5@nntp.hpl.hp.com>,
> Larry Rosler <lr@hpl.hp.com> wrote:
> > In article <8lootb$20c$1@nnrp1.deja.com> on Thu, 27 Jul 2000 07:38:19
> > GMT, man@rila.bg <man@rila.bg> says...
> > > Hello All, need a help, question follows:
> > > I want if some regexp has not matched for a specified time(1-2
> secs),
> > > then the match statement should be interrupted(some flag set) and
> > > script continues the statement after regexp match.
> > >
> > > example of what I need:
> > >
> > > if( m/complex regexp over huge string(file)/ ) {
> > > #ok
> > > }
> > >
> > > if( $failure_flag ) { # if failure, then flag is set
> > > #failure
> > > }
> >
> > perlfaq8: "How do I timeout a slow event?"
>
> I have already tried this, but when control is returned from alarm-sub,
> macthing the pattern continues(control is not passed on the statement
> after, what I really need). May be I miss something, here is example of
> the code, which does NOT work:
>
> package filters::lib::Weather_generic;
>
> use strict;
> use vars qw/$errstr/;
>
> sub fetch {
> undef $errstr;
> my $url = shift;
> local $_ = shift; # content of HTML-page
> my %result = ();
> my $host;
>
> local $SIG{ALRM} = sub { $errstr = "Can not parse
> '$url'(timeouted)\n";
> warn "caught ALRM:$errstr"; return (); };
> alarm 1; # if not matched for that time, probably will never match.
>
> # $1 - city, $2 - img_src, $3 - img_alt(cloudy...), $4 - curr_temp
> $url =~ m|^(http://)?[^/]+|; # only host is not stripped
> $host = $&;
>
> if(
> m/<p>\s*(\d+)\s*<\/p>.*?<font\s+face=.*?>\s*<b>\s*([^,]+).*?<img\s+src="([^"]
> +).*?<font face=.*?>\s*<b>\s*([^<]*).*?Current Temp:\s*<b>([.\d]+)/ios ) {
> %result = ('zip' => $1, 'city' => $2, 'img_src' => "$host$3", 'img_alt' =>
> $4, 'curr_temp' => $5); } else { $errstr = "Can not parse '$url'\n"; return
> (); }#if match alarm 0; return () if defined $errstr; #alarm is caught
> return %result; }#fetch
>
> 1;
>
Please re-read 'perldoc perlipc', section "Signals".
At the very bottom this sections contains some info
about timeouts and a code example.
eval {
local $SIG{ALRM} = sub { die "alarm" };
alarm 10;
# do your time-consuming operation here
alarm 0;
};
if ($@ =~ /alarm/)
{
# do something usefull
}
Got the idea?
Hope this helps.
Ilja.
------------------------------
Date: 28 Jul 2000 16:57:33 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: return value of `eval "use lib"'
Message-Id: <8lse1t$ofp$1@pegasus.csx.cam.ac.uk>
Sweth Chandramouli <sweth+perl@gwu.edu> wrote:
> Odd, since the Perl Cookbook has this example of how to
>trap exceptions in use statements:
>
>unless (eval "use $mod") {
> warn "couldn't load $mod: $@";
>}
Then the Cookbook is just plain wrong. That doesn't work, and never
has worked in any version of Perl. Watch:
DB<1> x scalar eval 'use lib "perl"'
0 undef <---------- undef returned
DB<2> x @INC
0 'perl' <---------- but the 'use lib' has worked
1 '/home/mjtg/perl5.005_03/lib'
2 '/home/mjtg/perl5.005_03/lib'
3 '/home/mjtg/perl5.005_03/lib'
4 '.'
DB<3>
The *only* correct way to determine if an eval() succeeded is to test $@.
Mike Guy
------------------------------
Date: Fri, 28 Jul 2000 17:09:32 GMT
From: molar_tooth@my-deja.com
Subject: Re: Setting multiple cookies...
Message-Id: <8lseo7$p04$1@nnrp1.deja.com>
I noticed your post while looking for a solution to this problem. I'm
using my deja so I don't know for sure if you've got a solution yet but
this is what I came up with:
use CGI qw(:all);
use strict;
my $date = cookie_expiry_date(365); #calls a fuction to
format the date
my $cookie1 = cookie(-name=>'one',
-value=>"test1",
-expires=>$date);
my $cookie2=cookie(-name=>"two",
-value=>"test2",
-expires=>$date);
my $cookie3 = cookie(-name=>'three',
-value=>"test3",
-expires=>$date);
my $cookie4=cookie(-name=>"four",
-value=>"test4",
-expires=>$date);
my $cookie5 = cookie(-name=>'five',
-value=>"test5",
-expires=>$date);
my $cookie6=cookie(-name=>"six",
-value=>"test6",
-expires=>$date);
print "Set-Cookie: ",$cookie1->as_string,"\n";
print "Set-Cookie: ",$cookie2->as_string,"\n";
print "Set-Cookie: ",$cookie3->as_string,"\n";
print "Set-Cookie: ",$cookie4->as_string,"\n";
print "Set-Cookie: ",$cookie5->as_string,"\n";
print "Set-Cookie: ",$cookie6->as_string,"\n";
print header;
Calling the print header after trying to set the cookies cleared up all
my problems.
Hope this helps.
I emailed as well as posted this because the original post is nearly a
month old and you may have given up looking for an answer
In article <sm4b20inop382@corp.supernews.com>,
"colinr" <colinrei@oz.net> wrote:
> If I set only one cookie this way it works great, but I need to set 2
in the
> same HTTP header.
> This is what I'm trying (which doesn't work right)...
>
> while ( ($geid, $prog ) = $sth->fetchrow_array) {
> my $cook1 = "progress=$prog;path=/";
> my $cook2 = "usr=$geid;path=/";
>
> print "Set-Cookie: $cook1\n";
> print "Set-Cookie: $cook2\n";
> print "Location:
> http://citiweb1.citicorp.com/citiweb-
dev/pbgcps/citifolio/splash0a.html\n\n"
> ;
> exit;
> }
>
> So I retrieve their info from the DB, then try to put it in a couple
strings
> and use them to set the cookies, then redirect the user. This
doesn't work,
> and the server returns an error.
>
> What am I doing wrong, or is there a better way?
>
> Thanks much,
>
> Colin R.
>
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 28 Jul 2000 16:13:33 GMT
From: Erik van Roode <newsposter@cthulhu.demon.nl>
Subject: Re: To sys op - get me off your email list
Message-Id: <8lsbfd$p4q$1@internal-news.uu.net>
Jonathan Stowe <gellyfish@gellyfish.com> wrote:
> On Wed, 26 Jul 2000 20:19:18 -0800, Gerald Newton Wrote:
>> For months I have been getting perl messages asking questions about perl
>> coming from this news group. It is my understanding that recent federal
>> regulations will allow me to sue on this. I do not want any email about
>> perl from this news group.
> Wahaay - He's back.
And still clueless.
Erik
------------------------------
Date: Fri, 28 Jul 2000 11:22:29 -0400
From: Sara Jane Martin <saraj_martin@time-inc.com>
Subject: Tutorial suggestions for a new programmer
Message-Id: <3981A535.E70C69EB@time-inc.com>
As part of my job I have to program in perl but I have not used the
language before. I've used other programming languages and I'm looking
for suggestions for a tutorial/reference that would help me get started.
Online tutorials and books are welcomed.
Thanks,
Sara
------------------------------
Date: Fri, 28 Jul 2000 10:49:23 -0500
From: Tom Briles <sariq@texas.net>
Subject: Re: Tutorial suggestions for a new programmer
Message-Id: <3981AB83.6084E7F8@texas.net>
Sara Jane Martin wrote:
>
> As part of my job I have to program in perl but I have not used the
> language before. I've used other programming languages and I'm looking
> for suggestions for a tutorial/reference that would help me get started.
> Online tutorials and books are welcomed.
http://www.perl.com/
There's a section on 'Learning Perl' (the activity, not the book...).
- Tom
------------------------------
Date: Fri, 28 Jul 2000 12:35:42 -0400
From: "Jeff Heine" <heinej@jaguar.rockvillemd.ncr.com>
Subject: Win32::ODBC & ConfigDSN & Sybase SQL Anywhere
Message-Id: <3981b5d2@rpc1284.daytonoh.ncr.com>
Hi,
I'm trying to add a new DSN for a SQL Anywhere database:
Here's my code snippet:
if (!Win32::ODBC::ConfigDSN(ODBC_ADD_DSN, 'Sybase SQL Anywhere 5.0'
, ("DSN=USPS_AJ", "UID=dba", "PWD=pos1", 'Driver =
c:\sqlany50\win32\wod50t.dll'
, 'Start = C:\sqlany50\win32\dbclient.exe -x tcpip{host=153.84.100.5}
USPS_AJ'
, 'EngineName = USPS_AJ', 'DatabaseName = R300', 'AutoStop = yes', 'Agent
= client'))) {
print "FAILED!\n";
Win32::ODBC::DumpError();
}
it gives me the following error because of the 'Start = ' line:
---------- Error Report: ----------
Errors for the package:
Connection Number:
Error number: 911
Error message: "Illegal use of reserved characters []{}(),?*!@;"
-----------------------------------
Who's giving this error? Perl, ODBC, SQL Anywhere?
How can I specify a TCPIP host address within my startline without usng the
squirley brackets?
Anyone out there doing anything like this?
Any assistance would be greatly appreciated
Thanks
J
------------------------------
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 3834
**************************************
