[28262] in Perl-Users-Digest
Perl-Users Digest, Issue: 9626 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Aug 18 18:06:07 2006
Date: Fri, 18 Aug 2006 15:05:07 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 18 Aug 2006 Volume: 10 Number: 9626
Today's topics:
Re: get() not working...need help usenet@DavidFilmer.com
How to install module when I am not allowed to install zaifengwang@gmail.com
Re: How to install module when I am not allowed to inst <mgarrish@gmail.com>
Re: How to redefine a sub during testing? <Peter@PSDT.com>
Re: HOW to rename a NPH script ? <sherm@Sherm-Pendleys-Computer.local>
Re: HOW to rename a NPH script ? <mgarrish@gmail.com>
Re: Makefile.PL requires parameters for Sendmail::Milte <larry.grant.dc@gmail.com>
Re: Makefile.PL requires parameters for Sendmail::Milte <rvtol+news@isolution.nl>
Re: MySql +DBI problem <john@castleamber.com>
Re: MySql +DBI problem <DJStunks@gmail.com>
Re: Not able to connect socket .... <sisyphus1@nomail.afraid.org>
Re: Not able to connect socket .... <uri@stemsystems.com>
Re: Numbers & Whitespace Help! <digitalje@yahoo.com>
Out Of Memory! - error <zoraxus@gmail.com>
Re: Out Of Memory! - error usenet@DavidFilmer.com
reverse dns sihyung@gmail.com
Re: reverse dns axel@white-eagle.invalid.uk
Re: reverse dns <john@castleamber.com>
Re: reverse dns <uri@stemsystems.com>
Re: The Semicolon Wars as a software industry and human <bik.mido@tiscalinet.it>
Re: who needs perl when you haev happs? <bik.mido@tiscalinet.it>
Re: who needs perl when you haev happs? <DJStunks@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 18 Aug 2006 10:58:14 -0700
From: usenet@DavidFilmer.com
Subject: Re: get() not working...need help
Message-Id: <1155923894.092712.253660@75g2000cwc.googlegroups.com>
Matt Garrish wrote:
> DF> Hmmm. I'm not familiar with the '...' command either.
> You've seriously never encountered the range operator before? ; )
Not as a standalone command (which is what the OP's 'code' showed).
And it's not even semicolon terminated. Maybe that's a Perl6 thing...
--
David Filmer (http://DavidFilmer.com)
------------------------------
Date: 18 Aug 2006 09:58:59 -0700
From: zaifengwang@gmail.com
Subject: How to install module when I am not allowed to install moudule in system directory?
Message-Id: <1155920339.400449.66730@p79g2000cwp.googlegroups.com>
I want to install module PDF::API2 under the environment of campus
network - the administor does not allow me install this module
system-wide.
I used "PPM>set root u:\mydirectory" and "PPM>set build
u:\mydirectory" to tell PPM that I want to install the module in my
private directory, the result is as following:
"unknown or ambiguous setting 'root'/'build'. see help setting".
I appreciate very much if you can help me out with this question.
James
------------------------------
Date: 18 Aug 2006 11:50:22 -0700
From: "Matt Garrish" <mgarrish@gmail.com>
Subject: Re: How to install module when I am not allowed to install moudule in system directory?
Message-Id: <1155927022.063220.306190@m73g2000cwd.googlegroups.com>
zaifengwang@gmail.com wrote:
> I want to install module PDF::API2 under the environment of campus
> network - the administor does not allow me install this module
> system-wide.
>
> I used "PPM>set root u:\mydirectory" and "PPM>set build
> u:\mydirectory" to tell PPM that I want to install the module in my
> private directory, the result is as following:
> "unknown or ambiguous setting 'root'/'build'. see help setting".
>
Did you just make those settings up? I've never seen/heard of any root
or build settings in ppm. Have a look at the documentation:
http://aspn.activestate.com/ASPN/docs/ActivePerl/5.8/faq/ActivePerl-faq2.html
You'll need to go to the cpan shell if you want to build in a specific
directory. PPM does have a target option, but that just allows you to
pick a Perl distro to install the module for if you have multiple
versions on your machine.
------------------------------
Date: Fri, 18 Aug 2006 13:16:06 GMT
From: Peter Scott <Peter@PSDT.com>
Subject: Re: How to redefine a sub during testing?
Message-Id: <pan.2006.08.18.13.16.06.654348@PSDT.com>
On Thu, 17 Aug 2006 15:50:47 +0000, kj wrote:
> During testing it'd often be *very handy* to be able to redefine
> a function/subroutine. (E.g., subroutine Foo::A gets a particular
> value from subroutine Foo::B, which in turn performs some elaborate
> websearch to get this value; it would simplify the testing of Foo::A
> tremendously to be able to replace Foo::B with a simple sub that
> returns a hard-coded value, thus decoupling the testing of Foo::A
> from the testing of Foo::B.)
See Test::MockModule. There is also a tutorial article on perl.com.
--
Peter Scott
http://www.perlmedic.com/
http://www.perldebugged.com/
------------------------------
Date: Fri, 18 Aug 2006 10:21:35 -0400
From: Sherm Pendley <sherm@Sherm-Pendleys-Computer.local>
Subject: Re: HOW to rename a NPH script ?
Message-Id: <m264gqyvio.fsf@Sherm-Pendleys-Computer.local>
Ulrich Mueller <umu@hrz.tu-chemnitz.de> writes:
> On Fri, 18 Aug 2006, Sherm Pendley wrote:
>
>> You could use mod_rewrite to add the nph- prefix to requests within a given
>> directory. You'd still need to keep the prefix on your files, but at least
>> it wouldn't be visible to users.
>>
> I've tried this before, but when user asked for http://.../hallo,
> nph-test.cgi was correctly executed as nph, but then in the browser
> there was written http://.../nph-test.cgi as well. So is there a way
> the hallo is rewritten internally, but not for the user's browser.
It might be worth investigating the Alias and/or AliasMatch directives - they
can (re)define the mapping from URL to filenames.
Whether the prefix of the file name or the URL is used to determine whether
to run the script as NPH is the obvious question, of course - but I'm afraid
I don't know the answer offhand. Sorry. You'll probably be able to get an
answer to that one in an Apache group.
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: 18 Aug 2006 11:29:02 -0700
From: "Matt Garrish" <mgarrish@gmail.com>
Subject: Re: HOW to rename a NPH script ?
Message-Id: <1155925742.293164.52920@i42g2000cwa.googlegroups.com>
Ulrich Mueller wrote:
> On Fri, 18 Aug 2006, Sherm Pendley wrote:
>
> > Ulrich Mueller <umu@hrz.tu-chemnitz.de> writes:
> >
> > > so please leave it in context,
> > > I want the PERL script to tell apache,
> > > I asked for some lines of PERL CODE, preferably,
> > > sorry, if you misunderstood, English is not my mothertongue,
> >
> > Sorry, but *you* have misunderstood. We get the question just fine. The
> > answer is no, you cannot do that from inside the Perl script. The Apache
>
> Hallo Sherm,
> thanks for your reply, meanwhile I ve read
> http://augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
> and I didn't want to disturb your group, promised,
> and in case the answer is *NO*, then that question doesn't belong here,
> but how should me unexperienced programmer know before,
Give me a break! I told you at the start that though your question
makes passing reference to Perl it is an Apache configuration issue and
you'd be better off posting somewhere else. For someone who demands
context I'm surprised how quickly you conveniently forgot that part.
This isn't your personal help desk, and the more you whine and cry like
a baby (as you've done throughout this thread), the less likely you'll
be to find anyone to help you in the future.
Matt
------------------------------
Date: 18 Aug 2006 10:38:19 -0700
From: "Larry" <larry.grant.dc@gmail.com>
Subject: Re: Makefile.PL requires parameters for Sendmail::Milter
Message-Id: <1155922699.212371.58660@h48g2000cwc.googlegroups.com>
Sisyphus wrote:
> "Larry" <larry.grant.dc@gmail.com> wrote in message
> .
> .
> >
> > Hmmm... sorry to be dense, but...
> > 1) Do I need to build sendmail from source?
>
> Yes - unless you can find a suitable RPM.
>
> > 2) What are the 2 parameters I need to provide to Makefile.PL
> >
>
> Seems to me that the 'README' that's part of the Sendmail::Milter source
> answers both of those questions (and more).
>
> Cheers,
> Rob
OK, I looked at the README and it is only slightly less cryptic than
the message that Makefile.PL spits out
VVVVVVVVVVVVVVVVVVVVVVVVVVVV
Building Sendmail::Milter
-------------------------
Begin by building sendmail, libmilter, and perl with -Dusethreads.
Next,
perform the following commands:
% perl Makefile.PL ../sendmail ../sendmail/obj.FreeBSD.4.0-RELEASE.i386
% make
% make install
The paths ../sendmail and ../sendmail/obj.FreeBSD.4.0-RELEASE.i386
should point
to the sendmail source tree and the sendmail build directory,
respectively.
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
This does not answer either question. It does not make clear (at least
to me) whether I have to build sendmail from source myself or if I can
use the sendmail built by my package maintainter. It also does not
clarify what the heck the "sendmail source tree" and the "sendmail
build directory" refer to (respectively!).
<soapbox>
It is actually quite typical of open-source documentation... it takes
you most of the way, then leaves you hanging, much like a former
girlfriend of mine.
</soapbox>
Anyway, I eventually did resort to building sendmail from source
(although I am still not convinced that I really needed to, and I
certainly don't understand why I should have to, just to install this
Perl module, but hey, it's free software, right? Your money cheerfully
refunded if you are not completely satisfied!) but the only way I could
figure out what stupid parameters to give it was by guessing, then
deciphering the error messages for clues. But after all that effort, I
eventually did get it to give up the goods (same with the girlfriend).
------------------------------
Date: Fri, 18 Aug 2006 19:59:30 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: Makefile.PL requires parameters for Sendmail::Milter
Message-Id: <ec567o.1ck.1@news.isolution.nl>
Larry schreef:
> But after
> all that effort, I eventually did get it to give up the goods (same
> with the girlfriend).
Perl is one of my girlfriends too.
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: 18 Aug 2006 16:23:36 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: MySql +DBI problem
Message-Id: <Xns982373E324841castleamber@130.133.1.4>
"Paul Lalli" <mritty@gmail.com> wrote:
> So if you can't open the file, you print an error and keep on going,
> regardless?
Yup, it's called "I feel lucky" :-D.
--
John Experienced Perl programmer: http://castleamber.com/
Perl help, tutorials, and examples: http://johnbokma.com/perl/
------------------------------
Date: 18 Aug 2006 10:59:24 -0700
From: "DJ Stunks" <DJStunks@gmail.com>
Subject: Re: MySql +DBI problem
Message-Id: <1155923964.158272.263610@74g2000cwt.googlegroups.com>
uttamhoode@gmail.com wrote:
> hi all,
> i have a perl scipt which reads a CSV file and inserts the values
> into a mysql database.
> CSV file has around 75000 lines.
by the way, you can insert CSV files directly into a MySQL database
through "LOAD DATA [LOCAL] INFILE" and it will be orders of magnitude
faster than inserting line by line...
-jp
------------------------------
Date: Sat, 19 Aug 2006 00:58:06 +1000
From: "Sisyphus" <sisyphus1@nomail.afraid.org>
Subject: Re: Not able to connect socket ....
Message-Id: <44e5d66e$0$11968$afc38c87@news.optusnet.com.au>
"Brian McCauley" <nobull67@gmail.com> wrote in message
news:1155903135.421132.126670@p79g2000cwp.googlegroups.com...
> Swanand.Kakade@gmail.com wrote:
>
> > my $paddr = sockaddr_in($port, gethostbyname('proddev'));
>
> You are calling gethostbyname() in a list context.
>
> I think you meant to say.
>
> my $paddr = sockaddr_in($port, scalar(gethostbyname('proddev')));
>
> > bind(SERVER, $paddr) or die "bind: $!";
> > listen(SERVER, SOMAXCONN) or die "listen: $!";
>
> Anyhow, is there any reason you listen on a specific IP address rather
> than just INADDR_ANY?
>
Mind you ... I *do* have a local network, and I placed the server script
that I posted, on 192.168.0.3, amending it so that 'my $host =
'192.168.0.3';'. That was the only change I made to the server script.
I changed the client script (running on 192.168.0.1) so that $host =
'192.168.0.3';'. That was the only change that I made to the client script
that I posted.
The server script still runs fine ... it just sits there waiting for a
connection. But whenever I run the client script it dies with "connect:
Unknown error at client.pl line 21", for reasons that I don't understand.
I assume it dies because Socket.pm is basically a heap of shit ... but
that's unlikely to be a correct assumption :-)
Anyway ... I'm just thankful that the socket scripts I use (using
IO::Socket) work without *any* aggravation.
Cheers,
Rob
------------------------------
Date: Fri, 18 Aug 2006 11:11:30 -0400
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Not able to connect socket ....
Message-Id: <x7lkpmuli5.fsf@mail.sysarch.com>
>>>>> "SK" == Swanand Kakade <Swanand.Kakade@gmail.com> writes:
SK> But i want connect to specific ip address and specific port...
SK> INADDR_ANY connects to 0.0.0.0: 0(port) ....
SK> which will work at any time?
SK> but how can i connect to specific and send and receive messages...
first off, don't top post. read the group guidelines which are posted
regularly.
as others have said, you should use IO::Socket as it will clean up your
code and make your life easier.
and finally, you say connect but you use a listen call which is used for
servers waiting for others to connect to. this means you are confused
about what socket calls to make for what purpose. bind/listen are meant
for servers. for client connections you need the connect call. or in
IO::Socket you just need the new() constructor with either a single
host:port string or a list of key/values. it can be used to do a client
connect or setup a listen socket for a server but not both.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: 18 Aug 2006 11:23:49 -0700
From: "digitalje" <digitalje@yahoo.com>
Subject: Re: Numbers & Whitespace Help!
Message-Id: <1155925429.313299.287420@b28g2000cwb.googlegroups.com>
Hey Paul,
Didn't think about the ".". Thanks for picking that up.
The other items are ok. I am converting the string into a number after
validating and the process is smart enough to know that:
5. --> 5.0
.4 --> 0.4
etc...
Thanks.
Paul Lalli wrote:
> digitalje wrote:
> > > > > Is there a regular expression that I could use that would fail if a
> > > > > number has a white space(s)embedded in it?
> > Shorter and neater:
> >
> > ^\d*\.{0,1}\d*$
>
> You understand that each of the following would pass this test, right?
>
> "5."
> "."
> ".4"
> ".0000"
> ""
>
> Paul Lalli
------------------------------
Date: 18 Aug 2006 13:45:40 -0700
From: "Zaphod Beeblebrox" <zoraxus@gmail.com>
Subject: Out Of Memory! - error
Message-Id: <1155933940.532847.226250@h48g2000cwc.googlegroups.com>
Hello All;
Please forgive me if this is somewhere in the group but I am a little
clueless about this:
When running a Perl script:
_____________________________________
Characteristics of this binary (from libperl):
Compile-time options: PERL_MALLOC_WRAP USE_LARGE_FILES USE_PERLIO
Built under linux
Compiled at Aug 17 2006 09:52:18
@INC:
/usr/local/lib/perl5/5.8.8/i686-linux
/usr/local/lib/perl5/5.8.8
/usr/local/lib/perl5/site_perl/5.8.8/i686-linux
/usr/local/lib/perl5/site_perl/5.8.8
/usr/local/lib/perl5/site_perl
___________________________
I get an Out Of Memory! error.
Now, I am attempting to pull all the lines out of a really large file :
2162788 -rwx------ 1 xxxxxxx xxxxxxx 2212526628 2006-08-16 15:08
Data_20060816.log
Sample of data:
20060816093111,@@a,B,NT,1.98,1.97,853,,1.99,948,,1.98,1.97,1.97,U@,Z,Z,5000,79400,,,,,,131033,,|,1.97,1155735051,2B
20060816093118,@@a,Q00,NT,1.97,853,,,1.99,897,,,Z,0,0,R,0,378651,1155735060
20060816093128,@@a,Q00,NT,1.97,853,,,1.99,948,,,Z,0,0,R,0,395594,1155735070
20060816093133,@@a,Q00,NT,1.97,853,,,1.99,902,,,Z,0,0,R,0,403342,1155735075
20060816093133,@@a,Q00,NT,1.97,1393,,,1.99,902,,,Z,0,0,R,0,404373,1155735075
20060816093134,@@a,B,NT,1.99,1.97,1393,,1.99,902,,1.99,1.97,1.97,U@,Z,Z,4600,84000,,,,,,143314,,|,1.97,1155735075,3B
I want to strip out all of the lines that have the 8th field blank (
actually , NULL not blank).
Using the perl debugger (perl -d <script> <file> ) it fails on putting
the file into an array:
Loading DB routines from perl5db.pl version 1.28
Editor support available.
Enter h or `h h' for help, or `man perldebug' for more help.
main::(TradeQuoteCanBlankExch.pl:10):
10: $now_string = strftime "%a%b%e%H:%M:%S%Y", localtime;
DB<1> n
main::(TradeQuoteCanBlankExch.pl:11):
11: my $symbol = $ARGV[0];#gets the file
DB<1> n
main::(TradeQuoteCanBlankExch.pl:12):
12: chomp($symbol);#doesn't do shit for some reason
DB<1> n
main::(TradeQuoteCanBlankExch.pl:13):
13: open(MYFILE,$symbol) || die "opening testfile: $!";
DB<1> n
main::(TradeQuoteCanBlankExch.pl:14):
14: @stuff=<MYFILE>;
DB<1> n
Sits here forever and then
Out of Memory!
This is the root of the problem. I am wondering if there is a more
efficient way of reading a really large file into an array.
Any words of wisdom?
Thanks in advance.
Z
------------------------------
Date: 18 Aug 2006 13:57:09 -0700
From: usenet@DavidFilmer.com
Subject: Re: Out Of Memory! - error
Message-Id: <1155934629.371677.191290@m73g2000cwd.googlegroups.com>
Zaphod Beeblebrox wrote:
> I am wondering if there is a more efficient way of reading
> a really large file into an array.
The best way to do that is to not do that. It's rarely necessary or
advisable to read a file into an array (especially a large file).
Instead of doing something like this:
my @stuff=<MYFILE>;
foreach my $line_of_stuff( @stuff ) {
# do stuff with stuff
}
do something like this:
while ( my $line_of_stuff = <MYFILE> ) {
# do stuff with stuff
}
Except use lexical filehandles (with better names) and the
three-argument form of file open... but that's all another rant (read
more in 'Perl Best Practices' by Damian Conway)
--
David Filmer (http://DavidFilmer.com)
------------------------------
Date: 18 Aug 2006 11:40:08 -0700
From: sihyung@gmail.com
Subject: reverse dns
Message-Id: <1155926408.574596.200530@75g2000cwc.googlegroups.com>
Does anybody know how to perform a reverse dns that returns the number
of domains associated with a certain IP? Thanks
------------------------------
Date: Fri, 18 Aug 2006 19:20:31 GMT
From: axel@white-eagle.invalid.uk
Subject: Re: reverse dns
Message-Id: <3qoFg.3039$cw.1638@fed1read03>
sihyung@gmail.com wrote:
> Does anybody know how to perform a reverse dns that returns the number
> of domains associated with a certain IP? Thanks
No.
DNS does not work that way... hint... domains do not have IP numbers.
Now go away unless you have a something Perl related to say.
Axel
------------------------------
Date: 18 Aug 2006 20:26:08 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: reverse dns
Message-Id: <Xns98239D0204C10castleamber@130.133.1.4>
axel@white-eagle.invalid.uk wrote:
> sihyung@gmail.com wrote:
>> Does anybody know how to perform a reverse dns that returns the number
>> of domains associated with a certain IP? Thanks
>
> No.
>
> DNS does not work that way... hint... domains do not have IP numbers.
What the OP means (guess) is that for a given IP address he wants to
get a list of all domains that are hosted on that address.
The Perl question could be, which CPAN module can be used to accomplish
this. Net::DNS maybe?
--
John Experienced Perl programmer: http://castleamber.com/
Perl help, tutorials, and examples: http://johnbokma.com/perl/
------------------------------
Date: Fri, 18 Aug 2006 16:47:17 -0400
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: reverse dns
Message-Id: <x7sljtsre2.fsf@mail.sysarch.com>
>>>>> "JB" == John Bokma <john@castleamber.com> writes:
JB> axel@white-eagle.invalid.uk wrote:
>> sihyung@gmail.com wrote:
>>> Does anybody know how to perform a reverse dns that returns the number
>>> of domains associated with a certain IP? Thanks
>>
>> No.
>>
>> DNS does not work that way... hint... domains do not have IP numbers.
JB> What the OP means (guess) is that for a given IP address he wants to
JB> get a list of all domains that are hosted on that address.
JB> The Perl question could be, which CPAN module can be used to accomplish
why even use a module? the getXXbyXX functions support basic reverse dns
lookups.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: 18 Aug 2006 22:40:05 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: The Semicolon Wars as a software industry and human condition
Message-Id: <699ce2hrjfohm09ptcku7q8bom451gds1n@4ax.com>
On 17 Aug 2006 06:42:55 -0700, "Xah Lee" <xah@xahlee.org> wrote:
>Of interest:
>
>• The Semicolon Wars, by Brian Hayes. 2006.
> http://www.americanscientist.org/template/AssetDetail/assetid/51982
[snip]
>• What Languages to Hate, Xah Lee, 2002
>http://xahlee.org/UnixResource_dir/writ/language_to_hate.html
Cool! From the former:
: Today's missionaries take an upbeat approach, spending more time in promoting their own religion and less in dissing the other person's beliefs. The message is no longer "You'll burn in hell if you write C." It's "Look what a paradise Python offers you!" (I think maybe I liked the old sermons better.)
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 18 Aug 2006 23:03:48 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: who needs perl when you haev happs?
Message-Id: <po9ce2pbl3pmhd2cjljk7h4vammo2v7vlf@4ax.com>
On 18 Aug 2006 03:07:06 -0700, "gavino" <bootiack@yahoo.com> wrote:
>Subject: who needs perl when you haev happs?
(BTW: s/ev/ve/)
>What applications benefit from HAppS?
[snip]
>I am not saying that using HAppS, you could serve all of eBay on a
>single box. I am saying that your application is likely to be well
>within the constraints required for HAppS to make sense for it.
perl -le 'print 42'
Notwithstanding your verbose description, I only have a slight idea
about what HAppS is. And that is enough to know that I don't care.
Though I know I *do* need perl, let alone love it. But thanking you
for sharing with us this prescious bit of information, I'd like to add
that I do *not* want to contradict you: please do enjoy HAppS, and
forget about the group - it's mostly filled with people who still
needs and like perl like me.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 18 Aug 2006 14:58:13 -0700
From: "DJ Stunks" <DJStunks@gmail.com>
Subject: Re: who needs perl when you haev happs?
Message-Id: <1155938293.901632.152570@m79g2000cwm.googlegroups.com>
gavino wrote:
> What applications benefit from HAppS?
>
> HTTP requests and SMTP envelopes encapsulate transactions and not vice
> versa.
> Note: doing otherwise with LAMP is considered bad design because it
> implies a requirement to maintain and garbage collect database
> connections arbitrarily. So this should not be a high hurdle.
>
> All operating data fits in memory (store blobs on disk.)
> Note: Although this seems like a high hurdle, COTS servers with 12gb of
> memory are readily accessible and some vendors let you reach up to
> 500gb of RAM. FYI, eBay has around 50M active users. If you maintained
> 1k of queryable data for each of their users, you would need only 50GB.
> (You would also need to recompile your app for 64bits so the math is a
> little more involved but you get my point).
>
> You don't need more CPU power to server your app than you can obtain in
> a single machine.
> Note: I have not benchmarked this code yet, but another Haskell server
> was benchmarked at near 1000 HTTP transactions per second on a Pentium
> 4 in 2000. Modern web servers with similar architecture can serve 10k
> HTTP transactions per second. eBay serves 400M page views per day,
> which comes to an average load of 5000 hps and a peak load of perhaps
> 50k hps. In other words, an OTS 8 CPUs system, could handle all of
> eBay's HTTP traffic.
>
> I am not saying that using HAppS, you could serve all of eBay on a
> single box. I am saying that your application is likely to be well
> within the constraints required for HAppS to make sense for it.
how many more of these rhetorical BS Perl-vs-everything questions are
you going to ask anyway?
change the record, dude...
-jp
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 V10 Issue 9626
***************************************
