[16955] in Perl-Users-Digest
Perl-Users Digest, Issue: 4367 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Sep 18 21:05:31 2000
Date: Mon, 18 Sep 2000 18:05:17 -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: <969325517-v9-i4367@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 18 Sep 2000 Volume: 9 Number: 4367
Today's topics:
$0 not getting set under solaris stickthestick@my-deja.com
Re: 2 Questions tapwater@roomtemperature.dog
Re: 2 Questions <frankie@centurytel.net>
Re: 32-bit perl module not recognized by 64-bit perl (Chris Fedde)
Re: [Q] Two Questions <ren.maddox@tivoli.com>
Aritifical Intelligence... <d.borland@ntlworld.com>
Re: Call a Perlscript within a Javascript <david.obrien@ssmb.com.au>
Re: change .i to .cpp but not .ii with regexp. <ren.maddox@tivoli.com>
commerce.cgi modification gsagers@my-deja.com
Re: Comparing two Directories (Martien Verbruggen)
Re: dir list of unique items <lr@hpl.hp.com>
Re: dir list of unique items <elephant@squirrelgroup.com>
Re: dir list of unique items <syarbrou@nospam.enteract.com>
Re: Easy question, I think <david.obrien@ssmb.com.au>
Re: GLOBAL TELECOMMUTE PROGRAMMERS PERL - JAVA -JS-CSS- (Jerome O'Neil)
Good perl stuff pohanl@my-deja.com
Graphical counter <paolo.ercy@tin.it>
Re: Graphical counter (Abigail)
How to install perl in win98? <ting80427@hotmail.com>
Re: How to install perl in win98? <elephant@squirrelgroup.com>
HTTP::Request lil prob <sushi38@my-deja.com>
Re: If you can write this script or help out let me kno (David H. Adler)
inet_ntoa() <wgshi@cs.ualberta.ca>
Re: Is there a DBI that will connect to MS SQL Server? <cublai@earthlink.net>
Re: Is this terribly inefficient? <lr@hpl.hp.com>
MakeMaker warnings <usenet@hank.org>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 19 Sep 2000 00:52:03 GMT
From: stickthestick@my-deja.com
Subject: $0 not getting set under solaris
Message-Id: <8q6dba$tfb$1@nnrp1.deja.com>
Greetings...
I have a nice script that listens on a port and
does a few things.
I have set $0 at the beginning (before my fork)
so that ps shows somethings sane and informative
instead of the usual $0.
Is there a known problem that $0 doesn't affect
the ps list under solaris 2.7?
The exact same script shows up in ps the correct
way on my linux boxes but on the solaris boxes it
keeps the inital value no matter what I do.
If anyone has any insight to this please email me
as well as post to the list.
chrism{at}buildscape{dot}com
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 18 Sep 2000 16:17:36 -0700
From: tapwater@roomtemperature.dog
Subject: Re: 2 Questions
Message-Id: <39C6A290.5FFE@roomtemperature.dog>
It is all true about Delphi. But here is another truth.
The full version of Delphi costs $2600. I learned that at an
elegantly catered, all day seminar at the Marriot, that Inprise threw
a few months ago.
But the food was great, and I stuffed my pockets with free snacks for
the trip home. If you get an invite to their "show" you will learn
somthing about Delphi, be well treated, and get a 60 day demo CD.
Welcome to the big time, if that's what you want.
I went back to my hovel ,my hamburger helper, my QB, and no pressure
to produce a moneymaker program. Take your choice, a happy slob, or
an uptight go-getter.
Bruce Roberts wrote:
>
> "Frankie" <frankie@centurytel.net> wrote in message
> news:39C5974E.AC51F612@centurytel.net...
>
> > My question is what programming language would you recommend to a
> > complete beginner in programming? I've extensive background in various
> > environments, so I'm not going to be terribly uneasy with the comp, I'm
> > just looking for a good start.
> >
> > The second, and virtually hand in hand with the first, is where to go
> > from there and in what sequence. IOW, I'm thinking (just an example)
> > qbasic to Visual Basic to C to C++ etc? And yes, I'm going to throw in
> > HTML, but I want to go beyond that.
>
> I'd like to make the case for Pascal as both a beginning and advanced
> language - at least the Delphi dialect.
>
> Pascal was initially created as a language that could be used to teach sound
> fundamental programming concepts and that encouraged good programming
> habits. IMO it does an excellent job meeting these goals; and has been
> widely used to teach programming. There are a number of fine texts that
> cover introductory programming using Pascal. You'll also find numerous web
> resources for both Pascal and Delphi.
>
> The Delphi extensions stay true to the spirit of the initial language design
> and provide a true object oriented programming environment. Rather than
> learning a "beginners" programming language then switching to one that
> provides for more advanced programming, ride the wave of rapid application
> development and build directly on initial lessons in Pascal with more
> advanced worked. There are not many programming tasks that Delphi can't
> handle, all with elegance and sound programming.
------------------------------
Date: Mon, 18 Sep 2000 19:22:10 -0500
From: Frankie <frankie@centurytel.net>
Subject: Re: 2 Questions
Message-Id: <39C6B1B2.E78AC8F@centurytel.net>
Bruce Roberts wrote:
>
> "RedX" <RedX@mail.dma.be> wrote in message
> news:8q5khb$ek1$1@news.planetinternet.be...
> > Start with Pascal. It's an easy to learn language and teaches good
> > programming habbits. When you learned the basic's you could switch to C or
> > C++ (or other languages).
>
> I'm curious, why switch to C or C++?
It just looked like a natural flow. Like I said, I'm a rank beginner at
programming;-)
And thanks much for your advice.
--
"I do this really moronic thing that the government doesn't want me to
do. It is called thinking" - George Carlin
Remove * * to reply.
-----------------------------------------------------------------------
Pursuant to US Code, Title 47, Chapter 5, Subchapter II, ¢227,
Any and all nonsolicited commercial E-mail sent to this address
is subject to a download and archival fee in the amount of $500.00 US.
E-Mailing denotes the acceptance of these terms
-----------------------------------------------------------------------
------------------------------
Date: Mon, 18 Sep 2000 23:30:03 GMT
From: cfedde@fedde.littleton.co.us (Chris Fedde)
Subject: Re: 32-bit perl module not recognized by 64-bit perl
Message-Id: <%zxx5.244$W3.190115840@news.frii.net>
In article <8q5ldr$11$1@nnrp1.deja.com>, <bing-du@tamu.edu> wrote:
>Our platform is IRIX64 switch 6.5 10181058 IP27. It has 32bit Perl
>(/usr/local/bin/perl) installed by default. We got bad compilation
>errors when installing DBD::Oracle. So we installed 64-bit Perl. Then
>DBD::Oracle and DBI.pm were installed successfully.
>
>/usr/local/bin/perl points to perl5.00404 and /usr/freeware/bin/perl64
>points to perl5.00503-n64.
>
>In order to use DBI.pm and DBD::Oracle, I have to invoke 64-bit Perl
>(#!/usr/freeware/bin/perl64) in my Perl script. My script also needs
>some other modules which installed under 32-bit Perl, like Digest::MD5,
>Net::LDAP, etc..
>
You'll probably need to install all the necessary modules in the
64bit perl install. Look at 'perldoc CPAN' for some easy ways to
do this. Assuming that you can dynamically link 32bit libraries
into 64bit executables then you might be able to stuff the right
paths into @INC by setting the PERLLIB environment variable, or a
suitable 'use lib' line in the program.
chris
--
chris fedde
303 773 9134
------------------------------
Date: 18 Sep 2000 17:57:27 -0500
From: Ren Maddox <ren.maddox@tivoli.com>
Subject: Re: [Q] Two Questions
Message-Id: <m37l89wboo.fsf@dhcp11-177.support.tivoli.com>
Larry Rosler <lr@hpl.hp.com> writes:
> I would characterise this as a DWIM failure.
>
> The input 00.123 is parsed as '00' . '123' (concatenation), which is
> then evaluated as the decimal integer 00123, which is 123, because the
> leading 0 indicates octal for a literal string only.
I think you are skipping the step where 00 is evaluated as octal 0,
which becomes simply 0, which stringifies to "0". Thus the
concatenation is "0123" (rather than "00123").
Still feels like a DWIM failure, though....
<idle type=speculation>
Hmm... how 'bout octal float....?
</idle>
--
Ren Maddox
ren@tivoli.com
------------------------------
Date: Tue, 19 Sep 2000 01:55:09 +0100
From: "D Borland" <d.borland@ntlworld.com>
Subject: Aritifical Intelligence...
Message-Id: <QJyx5.9705$6T1.140506@news2-win.server.ntlworld.com>
Sorry for the post here, but i don't know where else to put it, and plus, i
am doing this project in Perl... ?
Just gathering other people's opinions, for a project...
So the questions are...
When talking/ using, one of these programs. What is it, that you dislike,
about them.... ?
Lastly, are the any feature, or changes, that you would want to see, in
these types of programs... ?
My opinions, are...
The rapid, swing of conversation subjects, and the inabilitly to answer a
straight, question, without, replying, with another question... !
Less attempt, at trying to cram them with knowledge, and get them to
understand use of language better... Add features, of links, into the
knowledge database of the Bot, that would be relevant to the current subject
of discussion, or question...
Thanks for you time...
';'
------------------------------
Date: Tue, 19 Sep 2000 09:43:16 +1000
From: Dave O'Brien <david.obrien@ssmb.com.au>
Subject: Re: Call a Perlscript within a Javascript
Message-Id: <39C6A894.336AF4B8@ssmb.com.au>
Werner Hofer wrote:
>
> Hello
> i would like to call a Perlscript within a Javascipt-Function. How is this
> possible ( with Server Site Include ? ) ?
>
> Here is an example, witch i would like to realize
>
> Test.html:
> -------------
>
> <html>
> <head>
> <script language="Javascript">
> function abc() {
> call Test.pl // Aufruf des Perlcripts !!!!
> }
> </script>
>
> </head>
> <body onUload="abc()">
> hello world...
> </body>
> </html>
>
> Thank a lot for your help in advance
> Werner
You are better to use SSI, and use a exec statement. You can just put
that statement just after the body tag, and you're hot. The problem is
that it is difficult to maintain form state with this method (when you
submit a form generated by your CGI script, it wants to call a script as
a form action).
I ended up generating the page completely with CGI.pm, and not having an
html file at all. The downside to this, is that you can't use SSI
statements.
goodluck
Dave
------------------------------
Date: 18 Sep 2000 15:40:18 -0500
From: Ren Maddox <ren.maddox@tivoli.com>
Subject: Re: change .i to .cpp but not .ii with regexp.
Message-Id: <m3d7i1wi19.fsf@dhcp11-177.support.tivoli.com>
"Nathaniel Hekman" <NHekman@geo-slope.com> writes:
> Abigail <abigail@foad.org> wrote in message
> news:slrn8scouq.5fq.abigail@alexandra.foad.org...
> > // I read the perlre.html and it says : $ Match the end of the line
> > // Where should I put it ?????
> >
> >
> > Eh, where do you think you should put? Where do you want to match the
> > end of the line?
>
> (pssst: if FX knew the answer, s/he probably wouldn't have asked the
> question, no? we were all newbies at one time.)
Apparently not... or at least there are apparently multiple grades of
newbies. I'm not sure I know many people that wouldn't at least try
the obvious, even if they were unclear on the exact semantics.
Sometimes, if someone asks a question with an obvious answer, the best
way to respond is to simply point out that the answer is obvious.
Often, they will then realize that they were making everything more
complicated than it really is, and step back and learn something.
--
Ren Maddox
ren@tivoli.com
------------------------------
Date: Tue, 19 Sep 2000 00:45:36 GMT
From: gsagers@my-deja.com
Subject: commerce.cgi modification
Message-Id: <8q6cv9$t3m$1@nnrp1.deja.com>
I'm trying to modify a shopping cart script (GPL, so no problems) called
commerce.cgi. I am putting a fabric/quilt store on the web, and need to
be able to allow users to enter decimal quantities (half a yard, etc...)
The script only allows whole numbers at the moment. Ideally, I'd like
to allow only floats and integers, but I can accept it if "fake"
quantities get by, i.e. alphabetic.
I have tried several things to replace the "/\D/" that I've found in the
perl FAQ and in this newsgroup; as well as commenting out the section;
with no luck. I always end up with the "bad_order_note". If anyone can
help me with mods to the script I'd appreciate it. And please, be
explicit--I'm a complete newbie to perl.
Here is what I think is the relevant section of the code, with the
authors original comments. I apologize for the length.
<snip>
# The value will be a quantity and the item will be
# something like "item-0001|12.98|The letter A" as defined in
# the HTML file. Once we extract the initial "item-"
# tag from the string using regular expressions ($item =~
# s/^item-//i;), the resulting string would be something
# like the following:
#
# 2|0001|12.98|The letter A
#
# where 2 is the quantity.
#
# Firstly, it must be a digit ($form_data{$item} =~ /\D/).
# That is, we do not want the clients trying to enter
# values like "a", "-2", ".5" or "1/2". They might be
# able to play havok on the ordering system and a sneaky
# client may even gain a discount because you were not
# reading the order forms carefully.
#
# Secondly, the script will dissallow any zeros
# ($form_data{$item} == 0). In both cases the client will
# be sent to the subroutine bad_order_note located in
# commerce_html_lib.pl.
else
{
if (($form_data{"item-$item"} =~ /\D/) ||
($form_data{"item-$item"} == 0))
{
&bad_order_note;
}
else
{
$quantity = $form_data{"item-$item"};
push (@items_ordered_with_options, "$quantity\|$item\|");
}
}
# End of if ($item ne "$variable" && $form_data{$item} ne "")
}
#End of foreach $item (@items_ordered)
}
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 18 Sep 2000 22:54:06 GMT
From: mgjv@verbruggen.comdyn.com.au (Martien Verbruggen)
Subject: Re: Comparing two Directories
Message-Id: <slrn8sd77t.2cp.mgjv@verbruggen.comdyn.com.au>
On Mon, 18 Sep 2000 12:05:39 -0700,
Tim Conrow <tim@ipac.caltech.edu> wrote:
>
> - Very likely you can make good use of the Find::File module. If so,
> your time is better spent learning to use that than reinventing
> such oft-used code.
ITYM File::Find
Martien
--
Martien Verbruggen |
Interactive Media Division | Useful Statistic: 75% of the people
Commercial Dynamics Pty. Ltd. | make up 3/4 of the population.
NSW, Australia |
------------------------------
Date: Mon, 18 Sep 2000 16:31:40 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: dir list of unique items
Message-Id: <MPG.143045bbef52875298ad87@nntp.hpl.hp.com>
In article <b1tcsskagj8mc2dhltnc91qhgpu1k23n4c@4ax.com> on Mon, 18 Sep
2000 15:04:04 -0500, Steve . <syarbrou@nospam.enteract.com> says...
> I usually get a list of filenames without their extensions by doing
^^^^^^^^^^^^^^^^^^^^^^^^
> something like:
Where do the extensions go away in the code or results you show?
> sub backwards { $b cmp $a; }
What does this do without a sort invocation?
> opendir(DIR, $some_dir) || die "can't opendir $some_dir: $!";
> @dots = grep ! /^\.\.?$/, readdir(DIR);
> closedir DIR;
>
> I now have a bunch of files in a directory, of type html and gif, say
> like:
>
> 20000806.html
> 2000080600.gif
> 2000080601.gif
> 2000080602.gif
> 2000080603.gif
> 20000806_01_b.html
...
> 20000813_04_b.html
> 20000813_05_b.html
> 20000813_06_b.html
> 20000813_07_b.html
> 20000813_t.html
>
> How would I get into @dots, just the following, 20000806.html and
> 2000813.html and all other unique like it as time goes by? Thanks.
Use a more restrictive pattern in the grep.
@files = grep /^\d{8}\.html$/ => readdir DIR;
That should work 'as time goes by', though it does have a Y10K problem.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Tue, 19 Sep 2000 11:20:04 +1100
From: jason <elephant@squirrelgroup.com>
Subject: Re: dir list of unique items
Message-Id: <MPG.14314e32238093a19897b7@localhost>
Steve . <syarbrou@nospam.enteract.com> wrote ..
>I usually get a list of filenames without their extensions by doing
>something like:
>
>sub backwards { $b cmp $a; }
>opendir(DIR, $some_dir) || die "can't opendir $some_dir: $!";
>@dots = grep ! /^\.\.?$/, readdir(DIR);
>closedir DIR;
>
>I now have a bunch of files in a directory, of type html and gif, say
>like:
>
>20000806.html
>2000080600.gif
>2000080601.gif
>2000080602.gif
>2000080603.gif
>20000806_01_b.html
>20000806_02_b.html
>20000806_03_b.html
>20000806_04_b.html
>20000806_05_b.html
>20000806_06_b.html
>20000806_07_b.html
>20000806_t.html
>20000813.html
>2000081300.gif
>2000081301.gif
>2000081302.gif
>2000081303.gif
>2000081304.gif
>20000813_01_b.html
>20000813_02_b.html
>20000813_03_b.html
>20000813_04_b.html
>20000813_05_b.html
>20000813_06_b.html
>20000813_07_b.html
>20000813_t.html
>
>How would I get into @dots, just the following, 20000806.html and
>2000813.html and all other unique like it as time goes by? Thanks.
change your grep to also leave out anything that doesn't conform to the
'yyyymmdd.extension' format .. see the perlre section of the
documentation for more information on regular expressions
perldoc perlre
--
jason -- elephant@squirrelgroup.com --
------------------------------
Date: Mon, 18 Sep 2000 19:19:01 -0500
From: Steve . <syarbrou@nospam.enteract.com>
Subject: Re: dir list of unique items
Message-Id: <55cdss4u99ohg6jnndcebaibq29snf342c@4ax.com>
Thanks Larry. That works great. Can you explan what the d{8} part
does? Thanks.
Steve
On Mon, 18 Sep 2000 16:31:40 -0700, Larry Rosler <lr@hpl.hp.com>
wrote:
>In article <b1tcsskagj8mc2dhltnc91qhgpu1k23n4c@4ax.com> on Mon, 18 Sep
>2000 15:04:04 -0500, Steve . <syarbrou@nospam.enteract.com> says...
>> I usually get a list of filenames without their extensions by doing
> ^^^^^^^^^^^^^^^^^^^^^^^^
>> something like:
>
>Where do the extensions go away in the code or results you show?
>
>> sub backwards { $b cmp $a; }
>
>What does this do without a sort invocation?
>
>> opendir(DIR, $some_dir) || die "can't opendir $some_dir: $!";
>> @dots = grep ! /^\.\.?$/, readdir(DIR);
>> closedir DIR;
>>
>> I now have a bunch of files in a directory, of type html and gif, say
>> like:
>>
>> 20000806.html
>> 2000080600.gif
>> 2000080601.gif
>> 2000080602.gif
>> 2000080603.gif
>> 20000806_01_b.html
>
>...
>
>> 20000813_04_b.html
>> 20000813_05_b.html
>> 20000813_06_b.html
>> 20000813_07_b.html
>> 20000813_t.html
>>
>> How would I get into @dots, just the following, 20000806.html and
>> 2000813.html and all other unique like it as time goes by? Thanks.
>
>Use a more restrictive pattern in the grep.
>
> @files = grep /^\d{8}\.html$/ => readdir DIR;
>
>That should work 'as time goes by', though it does have a Y10K problem.
------------------------------
Date: Tue, 19 Sep 2000 09:47:56 +1000
From: Dave O'Brien <david.obrien@ssmb.com.au>
Subject: Re: Easy question, I think
Message-Id: <39C6A9AC.98FF6241@ssmb.com.au>
Abigail wrote:
>
> James (jluongo@mediaone.net) wrote on MMDLXIX September MCMXCIII in
> <URL:news:39BD925A.C32A4C47@mediaone.net>:
> :: Hmm, I cannot seem to figure this out. I'm a little new with Perl. Say
> :: you had a string that contained a sentence.
> :: eg "This line is a sentence"
> :: What would be the regular expression to search and replace the first
> :: letter of each work with a capital so the sentence would now be:
> :: "This Line Is A Sentence" ??
>
> If you think it's an easy question, perhaps someone asked it before.
> Perhaps it's even frequently asked.
>
> Perhaps you should look at the documents discussing such questions.
>
> Abigail
> --
> perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
> # A raven flying
> # away. A Bard dying near
> # a rose bush. Mumon.
Nice Haiku.
------------------------------
Date: Mon, 18 Sep 2000 22:16:05 GMT
From: jerome@activeindexing.com (Jerome O'Neil)
Subject: Re: GLOBAL TELECOMMUTE PROGRAMMERS PERL - JAVA -JS-CSS-HTML-DREAMWEAVER
Message-Id: <Fuwx5.406$C55.200879@news.uswest.net>
INTERNATIONALTeleCommuter@AllWorldint.com elucidates:
> 15 TO 40 HOURS PER WEEK
>
> $15.00 to $25.00 per hour commensurate with experience.
Bwhaaaaaaaa!!!!!
------------------------------
Date: Tue, 19 Sep 2000 00:41:54 GMT
From: pohanl@my-deja.com
Subject: Good perl stuff
Message-Id: <8q6coe$spm$1@nnrp1.deja.com>
Have you always wanted to have a dictionary or glossary on your
website? It seems many people have webpages containing words
that the average joe doesn't understand. A dictionary or
glossary would be helpful in this case.
There is a eGlossary available for your website, and you do not
need to register, login, signup for anything to get it. Its free.
Just do this...
http://www.edepot.com/cgi-bin/eglossary.pl?book=NAME
substitute NAME with a name for your eGlossary (no spaces). Thats it!!!
Now you can add/modify/delete glossary/dictionary entries with
simply clicks. Plus, the whole internet community can add to it.
Try it out! http://www.edepot.com/cgi-bin/eglossary.pl?book=Computers
will create a glossary for computer technology.
You can do a http://www.edepot.com/cgi-bin/eglossary.pl?book=Perl
to create a Perl glossary. You can simply link the URL and you
are set. Nothing is more simpler.
(as a bonus, if you want your glossary items to automatically popup
like a tooltip in your discussion forums, do this..
http://www.edepot.com/cgi-bin/forums.pl?code=NAME
(use NAME the same as NAME in the eGlossary.
And its FREE!
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 19 Sep 2000 01:08:12 +0200
From: "Willy Wally" <paolo.ercy@tin.it>
Subject: Graphical counter
Message-Id: <8q67gn$mu$1@nslave1.tin.it>
I'm a newbie. I looked for that in the faqs, in Deja and in the newsgroup
but i can't find anything. I wrote a graphical counter for my site and i
made it for dinamically writing the page with the number of the visits.
Then i was looking at the html code of a free counter (xoom) and i can see
that it's assigned to a img tag. I don't know how to do that. I mean, how i
can pass all the numbers to the img tag?? I can't understand how to do that.
I hope someone can help me.
Thank you.
bye.
--
_____________________________
Willy
http://kiss.to/willy73
------------------------------
Date: 19 Sep 2000 00:25:35 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Graphical counter
Message-Id: <slrn8sdchr.5fq.abigail@alexandra.foad.org>
Willy Wally (paolo.ercy@tin.it) wrote on MMDLXXV September MCMXCIII in
<URL:news:8q67gn$mu$1@nslave1.tin.it>:
@@ I'm a newbie. I looked for that in the faqs, in Deja and in the newsgroup
@@ but i can't find anything. I wrote a graphical counter for my site and i
@@ made it for dinamically writing the page with the number of the visits.
@@ Then i was looking at the html code of a free counter (xoom) and i can see
@@ that it's assigned to a img tag. I don't know how to do that. I mean, how i
@@ can pass all the numbers to the img tag?? I can't understand how to do that.
@@ I hope someone can help me.
Do you have a Perl question or are you just rambling about totally
uninteresting off-topic subjects?
Counters haven't been interesting for the past 6 years.
Abigail
--
$_ = "\112\165\163\1648\141\156\157\164\150\145\1628\120\145"
. "\162\1548\110\141\143\153\145\162\0128\177" and &japh;
sub japh {print "@_" and return if pop; split /\d/ and &japh}
------------------------------
Date: Sun, 17 Sep 2000 21:28:48 +0800
From: "EE" <ting80427@hotmail.com>
Subject: How to install perl in win98?
Message-Id: <8q6a4d$54n$1@eng-ser1.erg.cuhk.edu.hk>
I've download the Perl-5.6.0 and window installer from activestate.com and
install it,but how can i install the perl?
------------------------------
Date: Tue, 19 Sep 2000 11:30:18 +1100
From: jason <elephant@squirrelgroup.com>
Subject: Re: How to install perl in win98?
Message-Id: <MPG.1431509924bba0bc9897b8@localhost>
EE <ting80427@hotmail.com> wrote ..
>I've download the Perl-5.6.0 and window installer from activestate.com and
>install it,but how can i install the perl?
umm .. once the installer is installed you just run the .msi file
(double-click it) .. should be called something like
ActivePerl-5.6.0.613.msi
--
jason -- elephant@squirrelgroup.com --
------------------------------
Date: Tue, 19 Sep 2000 00:38:25 GMT
From: Igor Mack <sushi38@my-deja.com>
Subject: HTTP::Request lil prob
Message-Id: <8q6chu$smj$1@nnrp1.deja.com>
Why do keep getting "Error: 400 URL is missing" but when I paste it in
the browser it works fine ?
Thanks in advance
{
use HTTP::Request;
use HTTP::Request::Common;
use LWP::UserAgent;
my $ua = LWP::UserAgent;
my $req = HTTP::Request->new
(POST 'http://testserver/commerce/shop/shop/esdposttest.asp',
['application/x-www-form-urlencoded',[CCName => $tree{'CCName'},
BillToPhone => $tree{'BillToPhone'},
BillToAddress1 => $tree
{'BillToAddress1'},
BillToCity => $tree{'BillToCity'},
BillToState => $tree{'BillToState'},
BillToZip => $tree{'BillToZip'},
BillToCountry => $tree
{'BillToCountry'},
CCNumber => $tree{'CCNumber'},
ExpMonth => $tree{'ExpMonth'},
ExpYear => $tree{'ExpYear'},
BillToEmailAddress => $tree
{'BillToEmailAddress'},
invoice_number => $invoice_number,
]]);
#$req->content_type('application/x-www-form-
urlencoded');
#$req->content('customer_ID');
return ($result = $ua -> request($req)) or die "Can
post on line $_";
}
Thanks in advance
--
Igor Mack.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 18 Sep 2000 22:42:54 GMT
From: dha@panix.com (David H. Adler)
Subject: Re: If you can write this script or help out let me know
Message-Id: <slrn8sd6je.do3.dha@panix6.panix.com>
On 13 Sep 2000 04:26:23 GMT, Valkhorn <valkhorn@aol.com> wrote:
>Umm thanks for the sarcasm but it wont be the same info, it will be better.
>
>If one pulls from 5 or so independent resources and gets their info and
>compiles it it's automatically better...
>
>Duh... and BTW I appreciate your honesty although if you felt that way why did
>you bother to post?
Probably because I missed it and didn't post my usual "don't post jobs
here" post. I'll rectify that now... :-)
You have posted a job posting or a resume in a technical group.
Longstanding Usenet tradition dictates that such postings go into
groups with names that contain "jobs", like "misc.jobs.offered", not
technical discussion groups like the ones to which you posted.
Had you read and understood the Usenet user manual posted frequently
to "news.announce.newusers", you might have already known this. :) (If
n.a.n is quieter than it should be, the relevent FAQs are available at
http://www.faqs.org/faqs/by-newsgroup/news/news.announce.newusers.html)
Please do not explain your posting by saying "but I saw other job
postings here". Just because one person jumps off a bridge, doesn't
mean everyone does. Those postings are also in error, and I've
probably already notified them as well.
If you have questions about this policy, take it up with the news
administrators in the newsgroup news.admin.misc.
There is a Perl Jobs Announce list that may be more helpful to you. See
<http://www.pm.org/mailing_lists.shtml> for details.
Yours for a better usenet,
dha
--
David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
It's amazing what giant mutant ants that are the result of Man's
dabbling with the power of atomic energy can accomplish when they set
themselves to the task. - Mark Rogaski
------------------------------
Date: Mon, 18 Sep 2000 17:45:07 -0600
From: Weiguang Shi <wgshi@cs.ualberta.ca>
Subject: inet_ntoa()
Message-Id: <Pine.SOL.3.96.1000918174110.14825A-100000@stauffer.cs.ualberta.ca>
Hi, there
I am wondering how the "inet_ntoa()" works. Here is my 5-line test script:
-------------------------------------
#! /usr/bin/perl
use Socket;
$ip = 100663296;
print "ip = ", inet_ntoa($ip), "\n";
-------------------------------------
However, I couldn't get it work. The reason was:
Bad arg length for Socket::inet_ntoa, length is 5, should be 4 at ./a.pl line 5.
What's happening here?
Thanks very much.
Weiguang
------------------------------
Date: Mon, 18 Sep 2000 23:44:03 GMT
From: "Captain Ahab" <cublai@earthlink.net>
Subject: Re: Is there a DBI that will connect to MS SQL Server?
Message-Id: <7Nxx5.5161$Vu5.278728@newsread2.prod.itd.earthlink.net>
> but can I connect
> to a modern SQLServer (is that like 7.0 or 2000?) via DBD/DBI
> Perl on linux? Which one?
>
> Can I just reach it with DBD:ODBC? Thanks for any help.
I have had no problems connecting to MSSQL 7.0/2000 with DBI/DBD::ODBC on
NT.
------------------------------
Date: Mon, 18 Sep 2000 15:45:22 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Is this terribly inefficient?
Message-Id: <MPG.14303add1e22fd8f98ad85@nntp.hpl.hp.com>
In article <x7vgvtejag.fsf@home.sysarch.com> on Mon, 18 Sep 2000
16:50:31 GMT, Uri Guttman <uri@sysarch.com> says...
> >>>>> "BL" == Bart Lateur <bart.lateur@skynet.be> writes:
>
> BL> To be honest, I don't understand the GRT preference to turn everything
> BL> into binary strings. What is wrong with plain and simple preformatted
> BL> text strings?
>
> BL> sprintf "%04d%02d%02d", $year, $month, $day
>
> it is a preference of the R in GRT. i initially prefered strings and
> sprintf. the paper shows how to do both and you can even mix and match
> them. pack generates shorter compare keys and therefore is somewhat
> faster. sprintf generates printable keys and can be easier to debug.
String comparison is O(N) in the length of the strings being compared,
which becomes a multiplicative factor in the O(N log N) comparisons. So
the shorter the sortkey, the better.
All the benchmarks posted in this thread are fundamentally flawed,
because the data set of only five elements deemphasizes the sorting time
relative to the time required to compute the sortkeys and extract the
sorted records. With so few data, any method of sorting is likely to be
acceptable.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Mon, 18 Sep 2000 15:56:27 -0700
From: Bill Moseley <usenet@hank.org>
Subject: MakeMaker warnings
Message-Id: <MPG.14303d72bd0e3e6998968b@news.newsguy.com>
I followed the perldoc perlxstut and I'm wondering how to clear up some
warnings:
My module builds an included C library. Here are the two MakeFile.PLs
followed by the errors.
use ExtUtils::MakeMaker;
WriteMakefile(
'NAME' => 'SWISH::Stemmer',
'VERSION_FROM' => 'Stemmer.pm', # finds $VERSION
'LIBS' => [''], # e.g., '-lm'
'DEFINE' => '', # e.g., '-DHAVE_SOMETHING'
'INC' => '', # e.g., '-I/usr/include/other'
'MYEXTLIB' => 'lib/libmylib$(LIB_EXT)',
'dist' => { COMPRESS=>"gzip",
SUFFIX=>"gz",
PREOP=> 'pod2text -80 < Stemmer.pm > README',
},
);
sub MY::postamble {
'
$(MYEXTLIB): lib/Makefile
cd lib && $(MAKE) $(PASSTHRU)
';
}
And now the Makefile.PL for the C library:
use ExtUtils::MakeMaker;
$Verbose = 1;
WriteMakefile(
NAME => 'SWISH::Stemmer::lib',
SKIP => [qw(all static static_lib dynamic dynamic_lib)],
clean => {'FILES' => 'libmylib$(LIB_EXT)'},
);
sub MY::top_targets {
'
all :: static
pure_all :: static
static :: libmylib$(LIB_EXT)
libmylib$(LIB_EXT): $(O_FILES)
$(AR) cr libmylib$(LIB_EXT) $(O_FILES)
$(RANLIB) libmylib$(LIB_EXT)
';
}
During perl Makefile.PL I get:
MakeMaker (v5.45)
Warning (non-fatal): Target 'dynamic' depends on targets in skipped
section 'dynamic_lib'
Warning (non-fatal): Target 'static' depends on targets in skipped
section 'static_lib'
Writing Makefile for SWISH::Stemmer::lib
Writing Makefile for SWISH::Stemmer
Then during make test I get the folowing:
make[1]: Entering directory `/SWISH/Stemmer/lib'
No tests defined for SWISH::Stemmer::lib extension.
make[1]: Leaving directory `/SWISH/Stemmer/lib'
--
Bill Moseley
------------------------------
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 4367
**************************************
