[30775] in Perl-Users-Digest
Perl-Users Digest, Issue: 2020 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Dec 1 03:10:15 2008
Date: Mon, 1 Dec 2008 00:09:11 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 1 Dec 2008 Volume: 11 Number: 2020
Today's topics:
Re: FAQ 9.4 How do I remove HTML from a string? <1usa@llenroc.ude.invalid>
Re: FAQ 9.4 How do I remove HTML from a string? <tim@burlyhost.com>
Help: Process data <openlinuxsource@gmail.com>
Re: Help: Process data <tadmc@seesig.invalid>
Re: Help: Process data <1usa@llenroc.ude.invalid>
Re: Help: Process data <openlinuxsource@gmail.com>
Re: Help: Process data <openlinuxsource@gmail.com>
Re: Help: Process data <tim@burlyhost.com>
Re: how to force a symbolic link? <sriseetha1986@gmail.com>
Re: Huge files manipulation (David Combs)
Re: if ($line == $count++) <jurgenex@hotmail.com>
Re: if ($line == $count++) <tim@burlyhost.com>
Re: if ($line == $count++) <tim@burlyhost.com>
Re: if ($line == $count++) <spamtrap@dot-app.org>
Re: Locales on Win32, with numbers <1usa@llenroc.ude.invalid>
Mathematica 7 compares to other languages <xahlee@gmail.com>
new CPAN modules on Mon Dec 1 2008 (Randal Schwartz)
Re: out of memory <jurgenex@hotmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 01 Dec 2008 05:02:14 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: FAQ 9.4 How do I remove HTML from a string?
Message-Id: <Xns9B67609ECBAasu1cornelledu@127.0.0.1>
Tim Greer <tim@burlyhost.com> wrote in news:QH0Yk.3917$zQ3.854
@newsfe12.iad:
> sln@netherlands.com wrote:
>
>> But, your dip-shit, know-nothing attitute is in my hands, you know
>> nothing dumb-ass!
>
...
> I made a simple suggestion, and nothing condones your
> response now.
Some people have *all* the fun and they leave none for anyone else.
Don't take him seriously.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
comp.lang.perl.misc guidelines on the WWW:
http://www.rehabitation.com/clpmisc/
------------------------------
Date: Sun, 30 Nov 2008 22:12:16 -0800
From: Tim Greer <tim@burlyhost.com>
Subject: Re: FAQ 9.4 How do I remove HTML from a string?
Message-Id: <5fLYk.38297$zQ3.3408@newsfe12.iad>
A. Sinan Unur wrote:
> Some people have *all* the fun and they leave none for anyone else.
>
> Don't take him seriously.
>
I never took him serious, but I did attempt to offer a suggestion.
Didn't mean to cause a stir about it with him. Anyway, I've filtered
him after this fiasco. :-)
--
Tim Greer, CEO/Founder/CTO, BurlyHost.com, Inc.
Shared Hosting, Reseller Hosting, Dedicated & Semi-Dedicated servers
and Custom Hosting. 24/7 support, 30 day guarantee, secure servers.
Industry's most experienced staff! -- Web Hosting With Muscle!
------------------------------
Date: Mon, 01 Dec 2008 11:06:18 +0800
From: Amy Lee <openlinuxsource@gmail.com>
Subject: Help: Process data
Message-Id: <pan.2008.12.01.03.06.17.586917@gmail.com>
Hello,
I use perl to parse something I need to further process. Here's the data.
1306 0
7539 0
7595 0
7626 0
7671 0
7705 0
7835 0
7903 0
7906 1
7941 0
7952 0
7956 0
7977 0
7988 0
8030 1
8091 0
8122 0
8180 0
8259 1
8413 1
8546 0
8653 0
8689 0
8709 0
8761 1
8766 1
8793 0
8825 0
8845 0
9046 0
9080 0
9104 0
9148 0
9183 0
9220 0
9337 0
9361 0
9363 0
9500 0
9518 0
9805 0
10644 1
10775 1
11121 0
11241 1
11268 0
11600 1
11609 0
11628 0
11642 0
11655 1
11666 0
11825 0
12088 0
12154 0
12165 0
12244 0
12261 0
12281 0
12308 1
12327 0
12404 0
12477 0
12744 1
12768 0
12878 0
12936 0
12954 0
12995 0
13061 0
13096 0
13192 0
13257 0
13274 0
13349 1
13388 0
13437 0
13453 0
13587 1
13628 0
13655 0
13927 0
13938 0
13968 0
13998 0
14008 0
14078 0
14114 0
14117 0
14142 0
14156 0
14330 1
14342 0
14474 0
14562 0
14601 0
14652 0
14661 0
14704 0
14838 0
14888 1
15043 0
15046 0
15138 1
15155 0
15488 0
15628 0
15652 0
15684 1
15837 0
15843 0
16006 0
16239 0
16257 0
16338 0
16466 0
16504 0
16647 0
16838 1
16885 0
16908 1
16939 1
17112 0
17134 0
17159 0
17171 1
17273 0
17380 0
17390 0
17401 0
17591 1
17886 1
17943 0
18014 0
18128 0
18156 0
18208 0
18360 1
18505 0
18705 1
18742 0
18765 0
19127 0
19379 0
19412 0
19652 0
19843 1
20042 0
20152 0
20169 0
20185 1
20350 0
20390 0
20396 0
20462 1
27431 1
27620 1
57044 0
229054 1
272925 1
292029 1
331301 1
331383 0
350184 1
351519 1
351737 1
352558 1
354488 1
356501 1
357387 1
359564 1
360429 1
360731 1
361239 1
363227 1
364226 1
364438 1
And what I want to do is count how many continuous 0 and 1 present (the
second column). I have set up a minimal value such 5. All of them who has
less than 5 continuous 0 and 1 will ommit and larger than or equal to 5 I
will save as result.
Could you show me some ideas to do this?
Thank you very much.
Best Regards,
Amy Lee
------------------------------
Date: Sun, 30 Nov 2008 21:48:02 -0600
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: Help: Process data
Message-Id: <slrngj6nji.499.tadmc@tadmc30.sbcglobal.net>
Amy Lee <openlinuxsource@gmail.com> wrote:
> And what I want to do is count how many continuous 0 and 1 present (the
> second column). I have set up a minimal value such 5. All of them who has
> less than 5 continuous 0 and 1 will ommit and larger than or equal to 5 I
> will save as result.
>
> Could you show me some ideas to do this?
my @buffer;
my $value = '666';
while ( <DATA> ) {
my(undef, $this) = split;
if ( $this == $value )
{ push @buffer, $_ }
else {
print @buffer, "\n" if @buffer >= 5;
$value = $this;
@buffer = ();
}
}
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Mon, 01 Dec 2008 04:23:20 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Help: Process data
Message-Id: <Xns9B66EDEBF6B60asu1cornelledu@127.0.0.1>
Amy Lee <openlinuxsource@gmail.com> wrote in
news:pan.2008.12.01.03.06.17.586917@gmail.com:
> And what I want to do is count how many continuous 0 and 1 present
> (the second column). I have set up a minimal value such 5. All of them
> who has less than 5 continuous 0 and 1 will ommit and larger than or
> equal to 5 I will save as result.
>
> Could you show me some ideas to do this?
Use proper statistics software to analyze runs. Other than that, doing
this in Perl is not hard but you should actually try to do it instead of
asking others to do it for you. You have been here long enough to know how
to ask a question.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
comp.lang.perl.misc guidelines on the WWW:
http://www.rehabitation.com/clpmisc/
------------------------------
Date: Mon, 01 Dec 2008 13:07:19 +0800
From: Amy Lee <openlinuxsource@gmail.com>
Subject: Re: Help: Process data
Message-Id: <pan.2008.12.01.05.07.18.647513@gmail.com>
On Sun, 30 Nov 2008 21:48:02 -0600, Tad J McClellan wrote:
> Amy Lee <openlinuxsource@gmail.com> wrote:
>
>> And what I want to do is count how many continuous 0 and 1 present (the
>> second column). I have set up a minimal value such 5. All of them who has
>> less than 5 continuous 0 and 1 will ommit and larger than or equal to 5 I
>> will save as result.
>>
>> Could you show me some ideas to do this?
>
>
> my @buffer;
> my $value = '666';
> while ( <DATA> ) {
> my(undef, $this) = split;
> if ( $this == $value )
> { push @buffer, $_ }
> else {
> print @buffer, "\n" if @buffer >= 5;
> $value = $this;
> @buffer = ();
> }
>
> }
Dear sir,
Thank you very much. Anyway, I find that my data contains something like
18163447 0
18163544 1
18166485 0
18166503 0
18166850 0
18166940 0
18167197 0
18167775 +
18168287 0
18168474 0
18168621 1
18168869 1
18170273 1
18170629 1
18171082 1
18171510 +
18171767 0
18173494 1
18173873 1
.. ...
So that means if it reads "+" signal then will stop counting but start
count from the next cycle. For example.
18166485 0 #1
18166503 0 #2
18166850 0 #3
18166940 0 #4
18167197 0 #5, it's okay
18167775 + #no counting
18168287 0 #1
18168474 0 #2
So could you tell me how to do this?
Thank you very much.
Amy
------------------------------
Date: Mon, 01 Dec 2008 13:35:54 +0800
From: Amy Lee <openlinuxsource@gmail.com>
Subject: Re: Help: Process data
Message-Id: <pan.2008.12.01.05.35.53.34438@gmail.com>
On Sun, 30 Nov 2008 21:48:02 -0600, Tad J McClellan wrote:
> Amy Lee <openlinuxsource@gmail.com> wrote:
>
>> And what I want to do is count how many continuous 0 and 1 present (the
>> second column). I have set up a minimal value such 5. All of them who has
>> less than 5 continuous 0 and 1 will ommit and larger than or equal to 5 I
>> will save as result.
>>
>> Could you show me some ideas to do this?
>
>
> my @buffer;
> my $value = '666';
> while ( <DATA> ) {
> my(undef, $this) = split;
> if ( $this == $value )
> { push @buffer, $_ }
> else {
> print @buffer, "\n" if @buffer >= 5;
> $value = $this;
> @buffer = ();
> }
>
> }
I have a little problem, could you tell me why do you use such block?
my(undef, $this) = split;
> if ( $this == $value )
> { push @buffer, $_ }
I cannot read understand. Thank you.
Amy
------------------------------
Date: Sun, 30 Nov 2008 22:22:46 -0800
From: Tim Greer <tim@burlyhost.com>
Subject: Re: Help: Process data
Message-Id: <WoLYk.11294$kn7.6681@newsfe08.iad>
Amy Lee wrote:
> I have a little problem, could you tell me why do you use such block?
>
> my(undef, $this) = split;
The above will split (on whitespace, by default), with the $this
variable being assigned the value of 0 or 1 -- given your example (the
second field in the line, is either 1 or 0, and since the conditional
isn't checking or caring what the first field is, the first field is
just undefined and not assigned anything).
>>if ( $this == $value )
If the value of $this is equal to (==) $value (whatever $value you set
to), then it will...
>>{ push @buffer, $_ }
Push (add) $_ (the string value for that line) to the @buffer array.
--
Tim Greer, CEO/Founder/CTO, BurlyHost.com, Inc.
Shared Hosting, Reseller Hosting, Dedicated & Semi-Dedicated servers
and Custom Hosting. 24/7 support, 30 day guarantee, secure servers.
Industry's most experienced staff! -- Web Hosting With Muscle!
------------------------------
Date: Sun, 30 Nov 2008 23:25:34 -0800 (PST)
From: sri <sriseetha1986@gmail.com>
Subject: Re: how to force a symbolic link?
Message-Id: <813a33a8-9c44-4a3e-8b5d-89b71441c3bb@k36g2000pri.googlegroups.com>
On Nov 30, 1:35 am, Eric Pozharski <why...@pozharski.name> wrote:
> On 2008-11-29, John W. Krahn <some...@example.com> wrote:
>
> > Peng Yu wrote:
>
> >> In shell, 'ln' has an option -f. I'm wondering if there is such option
> >> for symlink in perl.
>
> > -e 'oldlink' and unlink 'oldlink';
> > symlink 'yourfile', 'oldlink' or die "oldlink: $!";
>
> If my understanding of unlink(2) and symlink(2) is correct either one
> would fail or both. Anyway there's race, so:
>
> unlink 'oldlink;
> symlink 'yourfile', 'oldlink' or die $!;
>
> Then what's wrong with that:
>
> #/usr/bin/perl
> use strict;
> use warnings;
> use File::Temp qw|tempfile|;
> use File::Basename;
> my ($link, $yourfile) = ( @ARGV );
> my ($fd, $fn) = ( dirname($link), basename $link );
> my($fh), $fn = tempfile "$fn.XXXXXX", DIR => $fd;
> unlink $fn or die "unlink: $!";
> symlink $yourfile, $fn or die "symlink: die $!";
> close $fd;
> rename $fn, $link or die "rename: $!";
> __END__
>
> Did I really needed to keep I<$fn> open?
>
> --
> Torvalds' goal for Linux is very simple: World Domination
Why are you trying much complex method to create a symbolic link ??
my ($link, $yourfile) = ( @ARGV );
symlink $yourfile, $link or die "symlink: die $!";
I think this will give you the result...
------------------------------
Date: Mon, 1 Dec 2008 02:16:14 +0000 (UTC)
From: dkcombs@panix.com (David Combs)
Subject: Re: Huge files manipulation
Message-Id: <ggvhde$2fa$1@reader1.panix.com>
In article <slrngi1bk9.kms.tadmc@tadmc30.sbcglobal.net>,
Tad J McClellan <tadmc@seesig.invalid> wrote:
>sln@netherlands.com <sln@netherlands.com> wrote:
>
>> I can do this for you with custom algorithym's.
> ^^
> ^^
>
>Your algorithym (sic) possesses something?
>
>
>> Let me know if your interrested, post a contact email address.
> ^^^^
> ^^^^
>
>Put in apostrophe's where they are not needed, leave them out
What's with the schools these days?
On the net, at least, I hardly ever see "you're" any more -- it's
always "your".
(I bet the Chinese and Russians don't make that mistake! :-( )
David
------------------------------
Date: Sun, 30 Nov 2008 19:24:21 -0800
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: if ($line == $count++)
Message-Id: <m2m6j41kqanefhgfnacsnfkt8v83oa014f@4ax.com>
dkcombs@panix.com (David Combs) wrote:
>One good thing about google groups is that it has access
>to stuff from months and years ago -- posts long gone
>from whatever local or isp-maintained usenet cash you might have
>access to.
Well, kind of.
The Usenet archive known as DejaNews used to be better before Google
bought it and renamed it Google Groups.
Now in Google I can't even get a threaded tree view any longer.
jue
------------------------------
Date: Sun, 30 Nov 2008 19:46:32 -0800
From: Tim Greer <tim@burlyhost.com>
Subject: Re: if ($line == $count++)
Message-Id: <t6JYk.6061$v37.4888@newsfe01.iad>
David Combs wrote:
> In article <NJnPk.34387$gD3.12037@newsfe01.iad>,
> Tim Greer <tim@burlyhost.com> wrote:
>>April wrote:
>>
>>> On Nov 1, 2:12Â pm, Tim Greer <t...@burlyhost.com> wrote:
>>>>
>>>> >> See the difference (for example) between $count++ and ++$count.
>>>>
>>>> <please don't quote signatures>
>>>>
>>>
>>> thanks Tim, I'll pay attention to this .. you know if you use Google
>>> Groups, then all the quotes are hidden automaticaly and you get a
>>> nice
>>> and clean interface. If you get a chance give it a try and you may
>>> like it. If you want to check the quotes, you can, and also all the
>>> posts for the same topic are in the same spot. I thought people are
>>> using this kind of web tools nowadays and did not pay much
>>> attention, besides I'm not familiar with the good old tradition
>>> either.
>>>
>>
>>There are a lot of issues with services such as google groups. I'm
>>not interested in it at all (I won't get into the reasons why google
>>groups is less desirable in every single way, as that's best left to
>>another
>>topic in another group). Anyway, you might check to see if there's a
>>configuration option in some 'preferences' area to view signatures or
>>not have it quote them, or something. It just makes followups appear
>>confusing as to whom typed what sometimes.
>>--
<please don't quote signatures>
>
> One good thing about google groups is that it has access
> to stuff from months and years ago -- posts long gone
> from whatever local or isp-maintained usenet cash you might have
> access to.
>
>
> David
That debate would more accurately be about news readers, rather than
archiving usenet articles. Speaking of, my news reader is configured
(by me) to not display already "read" usenet articles that are over
30-60 days old, so I'm unsure why you've been replying to such old
articles in this group today? It makes it difficult to follow (and I
really dislike google groups, so I'm not going there to check the
history of this thread :-)
--
Tim Greer, CEO/Founder/CTO, BurlyHost.com, Inc.
Shared Hosting, Reseller Hosting, Dedicated & Semi-Dedicated servers
and Custom Hosting. 24/7 support, 30 day guarantee, secure servers.
Industry's most experienced staff! -- Web Hosting With Muscle!
------------------------------
Date: Sun, 30 Nov 2008 19:47:36 -0800
From: Tim Greer <tim@burlyhost.com>
Subject: Re: if ($line == $count++)
Message-Id: <t7JYk.6062$v37.319@newsfe01.iad>
Jürgen Exner wrote:
> dkcombs@panix.com (David Combs) wrote:
>>One good thing about google groups is that it has access
>>to stuff from months and years ago -- posts long gone
>>from whatever local or isp-maintained usenet cash you might have
>>access to.
>
> Well, kind of.
> The Usenet archive known as DejaNews used to be better before Google
> bought it and renamed it Google Groups.
> Now in Google I can't even get a threaded tree view any longer.
>
> jue
Agreed, Dejanews was far better, and I've not used it much since google
took over (if I ever do need to refer to an old article).
--
Tim Greer, CEO/Founder/CTO, BurlyHost.com, Inc.
Shared Hosting, Reseller Hosting, Dedicated & Semi-Dedicated servers
and Custom Hosting. 24/7 support, 30 day guarantee, secure servers.
Industry's most experienced staff! -- Web Hosting With Muscle!
------------------------------
Date: Mon, 01 Dec 2008 01:50:28 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: if ($line == $count++)
Message-Id: <m17i6kpex7.fsf@dot-app.org>
dkcombs@panix.com (David Combs) writes:
> One good thing about google groups is that it has access
> to stuff from months and years ago -- posts long gone
> from whatever local or isp-maintained usenet cash you might have
> access to.
Google's archives are still there whether I use it for everyday posting
and reading or not.
sherm--
--
My blog: http://shermspace.blogspot.com
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Mon, 01 Dec 2008 05:12:19 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Locales on Win32, with numbers
Message-Id: <Xns9B67216A1DEasu1cornelledu@127.0.0.1>
damjensen@gmail.com wrote in news:c093587e-5695-4a3a-ad73-c1a707561813
@k36g2000yqe.googlegroups.com:
> Danish POSIX local, which fails (drops decimal value):
> use strict;
> use locale;
> use POSIX;
>
> POSIX::setlocale( &POSIX::LC_ALL, "da" );
> my $number1 = "-123,44";
> my $number2 = 10;
> my $result = $number1 / $number2;
>
> printf ('%4.4f', $result);
> printf ('%4.4f', $number1 * -1);
I would not call the following a 'fail':
C:\DOCUME~1\asu1\LOCALS~1\Temp> cat t.pl
use strict;
use locale;
use POSIX;
POSIX::setlocale( &POSIX::LC_ALL, "da" );
my $number1 = "-123,44";
my $number2 = 10;
my $result = $number1 / $number2;
printf ("%4.4f\n", $result);
printf ("%4.4f\n", $number1 * -1);
C:\DOCUME~1\asu1\LOCALS~1\Temp> t
-12,3440
123,4400
C:\DOCUME~1\asu1\LOCALS~1\Temp> perl -v
This is perl, v5.10.0 built for MSWin32-x86-multi-thread
(with 5 registered patches, see perl -V for more detail)
Copyright 1987-2007, Larry Wall
Binary build 1004 [287188] provided by ActiveState
http://www.ActiveState.com
Built Sep 3 2008 13:16:37
Tested on a U.S. English Windows XP SP3 system. Hope this helps.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
comp.lang.perl.misc guidelines on the WWW:
http://www.rehabitation.com/clpmisc/
------------------------------
Date: Sun, 30 Nov 2008 19:30:48 -0800 (PST)
From: Xah Lee <xahlee@gmail.com>
Subject: Mathematica 7 compares to other languages
Message-Id: <13d5dff7-9aac-4385-91ee-d6e58177497f@i24g2000prf.googlegroups.com>
Wolfram Research's Mathematica Version 7 has just been released.
See:
http://www.wolfram.com/products/mathematica/index.html
Among it's marketing material, it has a section on how mathematica
compares to competitors.
http://www.wolfram.com/products/mathematica/analysis/
And on this page, there are sections where Mathematica is compared to
programing langs, such as C, C++, Java, and research langs Lisp,
ML, ..., and scripting langs Python, Perl, Ruby...
See:
http://www.wolfram.com/products/mathematica/analysis/content/ProgrammingLan=
guages.html
http://www.wolfram.com/products/mathematica/analysis/content/ResearchLangua=
ges.html
http://www.wolfram.com/products/mathematica/analysis/content/ScriptingLangu=
ages.html
Note: I'm not affliated with Wolfram Research Inc.
Xah
=E2=88=91 http://xahlee.org/
=E2=98=84
------------------------------
Date: Mon, 1 Dec 2008 05:42:22 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Mon Dec 1 2008
Message-Id: <KB6nuM.10KI@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
BDB-Wrapper-0.24
http://search.cpan.org/~hikarine/BDB-Wrapper-0.24/
Wrapper module for BerkeleyDB.pm
----
DBD-Pg-2.11.6
http://search.cpan.org/~turnstep/DBD-Pg-2.11.6/
PostgreSQL database driver for the DBI module
----
Data-Util-0.29_02
http://search.cpan.org/~gfuji/Data-Util-0.29_02/
A selection of utilities for data and data types
----
Data-Util-0.30
http://search.cpan.org/~gfuji/Data-Util-0.30/
A selection of utilities for data and data types
----
Date-Korean-0.0.1
http://search.cpan.org/~aero/Date-Korean-0.0.1/
Conversion between Korean solar / lunisolar date.
----
Devel-DLMProf-0.041
http://search.cpan.org/~kitano/Devel-DLMProf-0.041/
----
Devel-PerlySense-0.0166
http://search.cpan.org/~johanl/Devel-PerlySense-0.0166/
Perl IDE backend with Emacs frontend
----
Email-Blaster-0.0001_05
http://search.cpan.org/~johnd/Email-Blaster-0.0001_05/
Scalable Mass Email System
----
Email-Blaster-0.0001_06
http://search.cpan.org/~johnd/Email-Blaster-0.0001_06/
Scalable Mass Email System
----
Email-Blaster-1.0000
http://search.cpan.org/~johnd/Email-Blaster-1.0000/
Scalable Mass Email System
----
HTTP-Engine-0.0.19
http://search.cpan.org/~yappo/HTTP-Engine-0.0.19/
Web Server Gateway Interface and HTTP Server Engine Drivers (Yet Another Catalyst::Engine)
----
Math-GSL-0.15_04
http://search.cpan.org/~leto/Math-GSL-0.15_04/
Perl interface to the GNU Scientific Library (GSL)
----
Module-Starter-Plugin-Template-TeTe-0.06
http://search.cpan.org/~rubykat/Module-Starter-Plugin-Template-TeTe-0.06/
Module::Starter plugin for Text::Template templates
----
Muldis-D-0.52.0
http://search.cpan.org/~duncand/Muldis-D-0.52.0/
Formal spec of Muldis D relational DBMS lang
----
Net-OpenID-Consumer-Lite-0.02
http://search.cpan.org/~tokuhirom/Net-OpenID-Consumer-Lite-0.02/
OpenID consumer library for minimalist
----
Object-Tiny-XS-1.00
http://search.cpan.org/~smueller/Object-Tiny-XS-1.00/
Class building as simple as it gets and FAST
----
Object-Tiny-XS-1.01
http://search.cpan.org/~smueller/Object-Tiny-XS-1.01/
Class building as simple as it gets and FAST
----
OpenResty-0.5.3
http://search.cpan.org/~agent/OpenResty-0.5.3/
General-purpose web service platform for web applications
----
Pod-Advent-0.08
http://search.cpan.org/~davidrw/Pod-Advent-0.08/
POD Formatter for The Perl Advent Calendar
----
Rubyish-Attribute-1.0
http://search.cpan.org/~shelling/Rubyish-Attribute-1.0/
ruby-like accessor builder: attr_accessor, attr_writer and attr_reader.
----
Rubyish-Perl-0.10
http://search.cpan.org/~gugod/Rubyish-Perl-0.10/
----
SOAPjr-1.0.1
http://search.cpan.org/~robman/SOAPjr-1.0.1/
the love child of SOAP and JR (JSON-RPC)
----
SQLite-Work-0.1002
http://search.cpan.org/~rubykat/SQLite-Work-0.1002/
report on and update an SQLite database.
----
Search-InvertedIndex-Simple-BerkeleyDB-1.01
http://search.cpan.org/~rsavage/Search-InvertedIndex-Simple-BerkeleyDB-1.01/
Build indexes for a set of search keys; Search using BerkeleyDB
----
Tie-FieldVals-0.6202
http://search.cpan.org/~rubykat/Tie-FieldVals-0.6202/
an array tie for a file of enhanced Field:Value data
----
XML-RSS-1.40
http://search.cpan.org/~shlomif/XML-RSS-1.40/
creates and updates RSS files
----
Zucchini-0.0.12
http://search.cpan.org/~chisel/Zucchini-0.0.12/
turn templates into static websites
----
autodie-1.995
http://search.cpan.org/~pjf/autodie-1.995/
Replace functions with ones that succeed or die with lexical scope
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion
------------------------------
Date: Sun, 30 Nov 2008 19:29:14 -0800
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: out of memory
Message-Id: <obm6j4db94i7ub49jjl5p9np68bdgm6ep6@4ax.com>
dkcombs@panix.com (David Combs) wrote:
>In article <ajomg4pn7tnqfkhntv0tp1b9a9n56pe5tf@4ax.com>,
>Jürgen Exner <jurgenex@hotmail.com> wrote:
>
>>
>>Another approach: sort both input files. There are many sorting
>>algorithms around,
>
>Question: why not simply use the standard unix (linux) "sort" program?
Sure, nothing wrong with that as long as you can get it to sort by your
desired sorting criteria. Perl is somewhat more powerful in that regard
because you can define your own custom compare function.
Sorry, has been too long ago, I don't remember what the OPs requirements
were.
jue
------------------------------
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 V11 Issue 2020
***************************************
