[30512] in Perl-Users-Digest
Perl-Users Digest, Issue: 1755 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jul 30 09:09:45 2008
Date: Wed, 30 Jul 2008 06:09: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 Wed, 30 Jul 2008 Volume: 11 Number: 1755
Today's topics:
Re: Append newline to files <m@rtij.nl.invlalid>
behavior of m// operator <user@serverrb.net>
Re: behavior of m// operator (Zak B. Elep)
Bug found in Open Perl IDE perl5db.pl module <matteo_vitturi@virgilio.it>
Re: Can I upload Perl program in unicode? <john1949@yahoo.com>
Re: Extracting bits out of huge numbers <bugbear@trim_papermule.co.uk_trim>
Re: FAQ 4.2 Why is int() broken? <hjp-usenet2@hjp.at>
Hash order (was: what is the expression mean?) <hjp-usenet2@hjp.at>
Re: Is there any module to get the cdrom infomation? <RedGrittyBrick@SpamWeary.foo>
Re: Is there any module to get the cdrom infomation? <cmic@caramail.com>
new CPAN modules on Wed Jul 30 2008 (Randal Schwartz)
Re: Parallel search in Perl and other languages <hjp-usenet2@hjp.at>
parse postfix stream <christian.vallant@traussnig.at>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 30 Jul 2008 07:30:52 +0200
From: Martijn Lievaart <m@rtij.nl.invlalid>
Subject: Re: Append newline to files
Message-Id: <pan.2008.07.30.05.30.52@rtij.nl.invlalid>
On Tue, 29 Jul 2008 20:14:01 +0000, Jürgen Exner wrote:
> Martijn Lievaart <m@rtij.nl.invlalid> wrote:
>>2) Or investigate if it are only the Windows files missing a trailing
>>lineseparator, it's a typical Windows problem.
>
> And here you just fell into the trap.
>
> If "\n" is a line _seperator_, then a trailing line separator would
> simply indicate another emtpy line at the end of the file:
> "foo\nbar\n"
> would contains 3 lines, 'foo', 'bar' and an empty line.
>
> If on the other hand "\n" is a line _terminator_ then the above string
> would contain 2 lines. And
> "foo\nbar\n\buzz"
> would still be only two lines with some trailing junk.
You're right. But on Windows, it's a line separator[1]. On Unix, it's a
line terminator. So there is no correct way.
M4
[1] Although many programs follow Unix conventions, so it's ill advised
to rely on this.
------------------------------
Date: Tue, 29 Jul 2008 23:47:03 -0500
From: Nathan <user@serverrb.net>
Subject: behavior of m// operator
Message-Id: <pmSjk.13766$LG4.1210@nlpi065.nbdc.sbc.com>
According to the documentation this program should print nothing since
m// uses the last successful pattern match from m//, split, etc. However
on my linux box it prints 1:
#!/usr/bin/perl -w
$a = "a";
$b = "b";
split /a/,$a;
print $b =~ m//;
Is the documentation wrong?
-Nathan
------------------------------
Date: Wed, 30 Jul 2008 13:54:01 +0800
From: zakame@zakame.net (Zak B. Elep)
Subject: Re: behavior of m// operator
Message-Id: <m21w1b5346.fsf@zakame.net>
Nathan <user@serverrb.net> writes:
> According to the documentation this program should print nothing since
> m// uses the last successful pattern match from m//, split, etc. However
> on my linux box it prints 1:
>
> #!/usr/bin/perl -w
>
> $a = "a";
> $b = "b";
> split /a/,$a;
> print $b =~ m//;
>
> Is the documentation wrong?
No, it is correct. `print' emits 1 because the succeeding match
operation ($b =~ m//) succeeded (m// essentially matches a `null'
string, which $b has:
,----[ perl -de 0 ]
| 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::(-e:1): 0
| DB<1> ($a, $b) = ( qw(a b) )
|
| DB<2> x split /a/ => $a
| empty array
| DB<3> print $b =~ m//
| 1
| DB<4> x $b =~ m//
| 0 1
| DB<5>
`----
Because you used `=~', m// tries to match from $b, not from $a (really
$_) as you would expect.
--
I like the idea of 256 bits, though: 32 for the (Unicode) character leaves
room for 224 Bucky bits, which ought to be enough for anyone.
-- Roland Hutchinson, in alt.folklore.computers
------------------------------
Date: Wed, 30 Jul 2008 02:21:26 -0700 (PDT)
From: mattsteel <matteo_vitturi@virgilio.it>
Subject: Bug found in Open Perl IDE perl5db.pl module
Message-Id: <97cb2532-4380-46d6-968f-7a22a60b7be1@a1g2000hsb.googlegroups.com>
Hello all.
I'm using this IDE since months, and have to say this is a good IDE,
light, simple, easy to use, but not bug-free ;-)
I found a subtle bug in perl5db.pl module (that is shipped with the
IDE for Windows available from SurceForge);
Trying this piece of script:
my $code =3D sub { print "hello\n" } ;
print "Let's call $code\n";
$code->();
print "Done.\n";
During a normal debug session, moving the mouse over the variable
$code (that is a code-reference i.e. ref($code) returns CODE), the IDE
replies with an =93<undef>=94 which is not true. The same thing happens
listing $code in the =93variable=94 watch-window.
I tried to fix it and patched the perl5db.pl module to handle this
case, so the IDE replies something like
=93$code: code =3D 0x1a81c40=94.
Since the module source is more than 700 lines long, I think useful
giving here the four chunks I added: I simply added another "elsif"
case just before the ending "else", so you should be able to insert
these few lines directly in your dbTemplate.txt in the correct
position.
#within SizeOfDerefValue sub:
} elsif ($refType eq 'CODE') {
return length($reference);
#within ShortEval sub:
} elsif ($refType eq 'CODE') {
$reference =3D~ /\((.*)\)/;
return "code =3D $1";
#within LongEval sub:
} elsif ($refType eq 'CODE') {
$reference =3D~ /\((.*)\)/;
$retValue =3D "code =3D $1";
#within ShowDerefValues sub:
} elsif ($refType eq 'CODE') {
$type =3D "code";
$reference =3D~ /\((.*)\)/;
$value =3D "$1";
I hope this helps.
Regards.
------------------------------
Date: Wed, 30 Jul 2008 07:37:38 +0100
From: "John" <john1949@yahoo.com>
Subject: Re: Can I upload Perl program in unicode?
Message-Id: <g6p27i$fmv$1@news.albasani.net>
"Bill H" <bill@ts1000.us> wrote in message
news:fd3681e1-d79a-47bb-862d-7edd735feef0@l42g2000hsc.googlegroups.com...
On Jul 29, 5:54 pm, nntpman68 <news1...@free.fr> wrote:
> Just out of curiosity:
>
> What was now the root cause?
>
> bye
>
> N
>
>
>
> John wrote:
> > "szr" <sz...@szromanMO.comVE> wrote in message
> >news:g6nfae0241m@news4.newsguy.com...
> >> Ben Bullock wrote:
> >>> On Tue, 29 Jul 2008 09:57:57 +0200, Christian Winter wrote:
>
> >>>> John schrieb:
> >>>>> If a Perl script can be encoded in UTF8, the problem must lie with
> >>>>> the upload. I use WS_FTP Pro on my Windows (sorry) machine
> >>> A lot of people here use Perl on Windows. One of my main uses for Perl
> >>> is manipulating Microsoft Word/Excel documents via Win32::OLE.
>
> >>>>> and vsftpd on my
> >>>>> linux server. I need to look at the setup on both.
> >>> Did you know you can use Explorer as an ftp client on Windows? It's
> >>> fairly handy.
>
> >>>> Also have a look at line endings, windows-style line ends
> >>>> (CRLF) generally don't mix well with Perl on *nix systems
> >>> The only problem with these on Unix systems is "bad interpreter"
> >>> messages if there is a ^M at the end of the #! line. But these
> >>> messages come from the shell, not Perl itself. Perl is able to cope
> >>> with any kind of line endings on Unix, so you can run your scripts
> >>> as "perl myscript" it will be OK.
> >> Another little trick I've used before in such situations is, after
> >> uploading, go to your Linux shell and open the script in 'pico', then
> >> save
> >> the file. When pico saves the file, it will have converted any \CR\LF
> >> sequences to just LF. I am not sure who it handles UTF8, however. And
> >> I'm
> >> sure there are other tools for converting as well.
>
> >> --
> >> szr
>
> > Good news. It is all working fine now. I tested it with French, German,
> > Persian, Chinese and Greek.
> > I had some problems with DBI and MySQL with Perl and UTF8 but I managed
> > to
> > get that to work too.
> > Many thanks for all the input.
> > Regards
> > John- Hide quoted text -
>
> - Show quoted text -
Was wondering that myself
Bill H
Hi
Here's the solution.
On my Windows machine I use ScITE as my editor for Perl. I set the ENCODING
as UTF8 and I can see all the correct characters - whether German , Chinese,
etc. However I save with ENCODING set to 8-bit. I upload with WS_FTP PRO.
WS_FTP is set to auto mode so that any .PL: is transferred as ASCII. On the
linux server, I use vsftpd. In the conf file I set both ascii_upload_enable
and ascii_download_enable to YES. The unicode characters are displayed
correctly.
There is probably a more elegant solutuion.
Hope that helps.
John
------------------------------
Date: Wed, 30 Jul 2008 09:32:31 +0100
From: bugbear <bugbear@trim_papermule.co.uk_trim>
Subject: Re: Extracting bits out of huge numbers
Message-Id: <6v2dnZAqHPyCug3VnZ2dnUVZ8uOdnZ2d@posted.plusnet>
hofer wrote:
> Hi,
>
> Now I would like to extract certain bits out of this huge number:
>
> Example Bits 16 bis 12 should result in 0b00001 == 0x1 == 1
> Bits 17 bis 12 should result in 0b100001 == 0x21 == 33
>
I don't understand your examples :-(
BugBear
------------------------------
Date: Wed, 30 Jul 2008 09:33:47 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: FAQ 4.2 Why is int() broken?
Message-Id: <slrng906ar.esc.hjp-usenet2@hrunkner.hjp.at>
On 2008-07-29 15:57, szr <szrRE@szromanMO.comVE> wrote:
> Peter J. Holzer wrote:
>> On 2008-07-28 17:56, szr <szrRE@szromanMO.comVE> wrote:
>>> Peter J. Holzer wrote:
>>>> On 2008-07-28 06:12, Jürgen Exner <jurgenex@hotmail.com> wrote:
>>>>> "szr" <szrRE@szromanMO.comVE> wrote:
>>>>>> it needs just one decimal digit
>>>>>
>>>>> Irrelevant because your typical computer does not use decimal
>>>>> numbers but binary numbers, just like Peter said.
>>>>
>>>> Actually, I didn't write what "a typical computer" uses, just what
>>>> happens when a binary system is used (which is what perl uses on
>>>> most (all?) platforms - COBOL uses normally uses decimal).
>>>
>>> Even among different types of computers floating point calculations
>>> are not all done the same. For instance, I have a graphing
>>> calculator, which is essentially tiny computer with a 6 MHz cpu and
>>> yet it can do many floating point calculations more accurately than
>>> my dual core cpu desktop.
>>
>> I'm not up to date with calculators (the last one I bought was an
>> HP-48 20 years ago), but frankly, I doubt that it is more accurate.
>> It has probably less than 15 digits of mantissa. It probably does its
>> computations in decimal, which makes them even less accurate, but the
>> errors *match* *your* *expectations*, so you don't notice then.
>
>
> My point was, on graphing calculators I've used (which has mainly
> consisted of Texas Instrument TI-8*'s), the results are what you'd
> expect them to me math wise for the most part. That is, what you'd
> expect if you were to do it using plain ol' pencil and paper.
Please note the words you are using yourself: "expect" and "for the most
part". A calcutor uses decimal arithmetic, just like you do when you use
pencil and paper. So it will produce the correct results in the same
cases and it will make the same errors - it will do what you expect. But
that doesn't mean it is more accurate in general - only for decimal
numbers.
>>> Granted, it's a calculator, but I have often wondered why it
>>> seems to be able to handle such calculations better than a CPU that's
>>> over 400 times faster.
>>
>> Different target. Calculators can be slow - they do only primitive
>> computations, and if they finish them in a short but noticable time
>> its still "fast enough". A modern CPU is supposed to be able to do
>> hundreds of millions such computations per second. Calculators are
>> also rarely used for computations where accuracy is much of an issue
>> - 8 or 12 digits are enough. But they are used by people who expect
>> 0.1 * 10 to be 1.0 but aren't overly surprised if 1/3*3 is 0.9999999.
>
> Testing on a TI-89 (which does have a hefty amount of precision)
> entering "1/3*3.0" yields "1." and so does "0.1*10", and Perl seems to
> give the same results. On what hardware, language, or such, do you end
> up getting 0.99999.. from 1/3*3.0 ?
For example on my HP-48 calculator. It uses 12 decimal places, so 1/3 is
0.333333333333. 0.333333333333 * 3 is clearly 0.999999999999.
I don't have my old TI-57 at hand (it's about 600 km away), but IIRC it
used 11 decimal digits and displayed only 8. So 1/3 would be
0.33333333333 (displayed as 0.3333333), multiplication with 3 would then
yield 0.99999999999 (displayed as 1). So, you see "1", but the error is
still there. If you subtract 1.0, you will get 1E-11.
(deja vu: I had almost exactly this discussion with my room mate 22
years ago: He claimed that his TI was more accurate than my HP because
1/3*3 *displayed* 1 instead of 0.999999999999. Changing the calculation
into 1/3*3-1 showed otherwise: He got 1E-11, I got 1E-12, which is
clearly the smaller error.)
For 64-bit binary floating point numbers, 1.0/3.0 is
0.333333333333333314829616256247390992939472198486328125
times 3 would be .999999999999999944488848768742172978818416595458984375
exactly, but that cannot be represented in 53 bits of mantissa, so it
needs to be rounded - up in this case, so the result is indeed 1.0
exactly. So here we have a case where a calculation in decimal cannot
possibly produce the correct result, but in binary it will (only by
chance, granted. But even if the result had been rounded down the error
would still be only ~ 1.1E-16, quite a bit lower than on the HP-48 or
TI-57).
>> [1] Incidentally, I know of one modern processor (the IBM Power6)
>> which implements full decimal floating point arithmetic in
>> hardware.
>
> I remember back in the days of the 486 processor you had a separate
> "Math Co-Processor",
You mean the days *before* the 486 processor.
The 486 was the first intel processor which had an integrated FP
unit instead of a separate coprocessor.
> I wonder what would happen if they reinstituted
> that idea, but on a more powerful/modern scale?
The "math coprocessor" is still there. It's just on the same chip. And
the FP unit of a Pentium 4 is much, much more powerful than the 387 was.
hp
------------------------------
Date: Wed, 30 Jul 2008 08:42:46 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Hash order (was: what is the expression mean?)
Message-Id: <slrng903b6.esc.hjp-usenet2@hrunkner.hjp.at>
On 2008-07-29 19:46, Eric Pozharski <whynot@pozharski.name> wrote:
> Peter J. Holzer <hjp-usenet2@hjp.at> wrote:
>> On 2008-07-28 19:06, Eric Pozharski <whynot@pozharski.name> wrote:
>>> B<keys> intentionally mangles its output (C<perldoc -f keys> has
>>> more). (Hmm,.. documentation says that order would be different
>>> between different runs of the same code since 5.8.1. As of 5.8.8
>>> it's not. Debian specific quirks? Again?)
>> No, not debian specific. The algorithm was changed again some time
>> after 5.8.1.
After some poking around: Definitely before 5.8.4, probably in 5.8.2
(perl582delta mentions that the implementation has changed to become
binary compatible with 5.8.0 again, but doesn't mention that this also
turns off the preseeding in most cases. perl583delta mentions that the
hash code has been refactored but claims that no functional change
occured).
>> Now order changes only if the distribution is detected to
>> be particularly poor. Apparently the documentation wasn't updated.
>
> Documentation drift isn't good. It's very very bad (no smile).
for perldoc -f keys, the change is simple: Just change "is different" to
"may be different". For the longer discussion in perlsec, one would have
to look at the code to see how much of it still applies.
>> hp (who asked the same question not too long ago)
>
> Is it a FAQ already?
>
Does two times count as "frequently"?
hp
------------------------------
Date: Wed, 30 Jul 2008 11:10:34 +0100
From: RedGrittyBrick <RedGrittyBrick@SpamWeary.foo>
Subject: Re: Is there any module to get the cdrom infomation?
Message-Id: <48903e1a$0$26088$db0fefd9@news.zen.co.uk>
Joost Diepenmaat wrote:
> "lofenee" <lofenee@gmail.com> writes:
>
>> I want to check whether a cdrom node under /dev actually exists.
>
> Well, the *node* exists if "-e $path_to_node" returns true. Do you
> also care if there is an actual drive there or if there's a readable
> drive in the disc?
>
> I'm assuming linux behaviour, here.
>
In which case reading 'files' like /proc/ide/hdc/model might help.
--
RGB
------------------------------
Date: Wed, 30 Jul 2008 05:22:57 -0700 (PDT)
From: cmic <cmic@caramail.com>
Subject: Re: Is there any module to get the cdrom infomation?
Message-Id: <69583688-a619-4bfc-b5e5-63e7c56acd08@y38g2000hsy.googlegroups.com>
Hello
On 29 juil, 04:35, "lofenee" <lofe...@gmail.com> wrote:
> I want to check whether a cdrom node under /dev actually exists.
maybe ioctl could help ?
(quick and dirty, sorry ...)
....
open(CDROM, "< /dev/cdrom");
$media = ioctl(CDROM, 0x5327, $status='');
close(CDROM);
if($media eq 101) {
#media is present whith info
...
}
Regards
--
michel marcon aka cmic
------------------------------
Date: Wed, 30 Jul 2008 04:42:21 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Wed Jul 30 2008
Message-Id: <K4syEL.13p5@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.
API-Plesk-1.06
http://search.cpan.org/~nrg/API-Plesk-1.06/
OOP interface to the Plesk XML API (http://www.parallels.com/en/products/plesk/).
----
API-PleskExpand-1.05
http://search.cpan.org/~nrg/API-PleskExpand-1.05/
OOP interface to the Plesk Expand XML API (http://www.parallels.com/en/products/plesk/expand/).
----
Acme-Uenicoede-0.0501
http://search.cpan.org/~schwigon/Acme-Uenicoede-0.0501/
----
AnyEvent-4.23
http://search.cpan.org/~mlehmann/AnyEvent-4.23/
provide framework for multiple event loops
----
AnyEvent-4.231
http://search.cpan.org/~mlehmann/AnyEvent-4.231/
provide framework for multiple event loops
----
App-ZofCMS-Plugin-Tagged-0.0251
http://search.cpan.org/~zoffix/App-ZofCMS-Plugin-Tagged-0.0251/
ZofCMS plugin to fill templates with data from query, template variables and configuration using <TAGS>
----
BDB-1.71
http://search.cpan.org/~mlehmann/BDB-1.71/
Asynchronous Berkeley DB access
----
Bundle-DBD-PO-0.05
http://search.cpan.org/~steffenw/Bundle-DBD-PO-0.05/
A bundle to install all DBD::PO related modules
----
CGI.pm-3.39
http://search.cpan.org/~lds/CGI.pm-3.39/
----
CORBA-JAVA-2.63
http://search.cpan.org/~perrad/CORBA-JAVA-2.63/
----
Catalyst-Action-Wizard-0.006
http://search.cpan.org/~davinchi/Catalyst-Action-Wizard-0.006/
actions like realization of wizards. You need this if you have some multi-actions data gathering which unlikely to be saved in session and to big to pass them as POST or GET parameters.
----
Config-Augeas-0.202
http://search.cpan.org/~ddumont/Config-Augeas-0.202/
Edit configuration files through Augeas C library
----
Config-Model-TkUI-0.202
http://search.cpan.org/~ddumont/Config-Model-TkUI-0.202/
Tk GUI to edit config data through Config::Model
----
DBD-PO-0.05
http://search.cpan.org/~steffenw/DBD-PO-0.05/
DBI driver for PO files
----
DBIx-Class-Storage-CacheProxy-0.02
http://search.cpan.org/~gugu/DBIx-Class-Storage-CacheProxy-0.02/
Caching layer for DBIx::Class
----
DBIx-Class-Storage-CacheProxy-0.03
http://search.cpan.org/~gugu/DBIx-Class-Storage-CacheProxy-0.03/
Caching layer for DBIx::Class
----
DateTime-TimeZone-0.79
http://search.cpan.org/~drolsky/DateTime-TimeZone-0.79/
Time zone object base class and factory
----
File-DirCompare-0.4
http://search.cpan.org/~gavinc/File-DirCompare-0.4/
Perl module to compare two directories using callbacks.
----
Finance-Card-Citibank-1.80
http://search.cpan.org/~mgrimes/Finance-Card-Citibank-1.80/
Check your Citigroup credit card accounts from Perl
----
Games-Go-SGF-Grove-1.01
http://search.cpan.org/~mlehmann/Games-Go-SGF-Grove-1.01/
SGF the Perl way
----
Games-Go-SimpleBoard-1.0
http://search.cpan.org/~mlehmann/Games-Go-SimpleBoard-1.0/
represent a simple go board
----
Games-Go-SimpleBoard-1.01
http://search.cpan.org/~mlehmann/Games-Go-SimpleBoard-1.01/
represent a simple go board
----
Google-Chart-0.05000_03
http://search.cpan.org/~dmaki/Google-Chart-0.05000_03/
Interface to Google Charts API
----
Google-SAML-Response-0.04
http://search.cpan.org/~manni/Google-SAML-Response-0.04/
Generate signed XML documents as SAML responses for Google's SSO implementation
----
Graphics-Color-0.05
http://search.cpan.org/~gphat/Graphics-Color-0.05/
Device and library agnostic color spaces.
----
Gtk2-GoBoard-1.01
http://search.cpan.org/~mlehmann/Gtk2-GoBoard-1.01/
high quality goban widget with sound
----
HTML-DOM-0.012
http://search.cpan.org/~sprout/HTML-DOM-0.012/
A Perl implementation of the HTML Document Object Model
----
HTTP-Cookies-Mozilla-2.00_01
http://search.cpan.org/~bdfoy/HTTP-Cookies-Mozilla-2.00_01/
Cookie storage and management for Mozilla
----
Kx-0.032
http://search.cpan.org/~markpf/Kx-0.032/
Perl extension for Kdb+ http://kx.com
----
Lingua-EN-Tagger-0.15
http://search.cpan.org/~acoburn/Lingua-EN-Tagger-0.15/
Part-of-speech tagger for English natural language processing.
----
MailTools-2.04
http://search.cpan.org/~markov/MailTools-2.04/
----
Math-GSL-0.06_03
http://search.cpan.org/~leto/Math-GSL-0.06_03/
Perl interface to the GNU Scientific Library (GSL) using SWIG
----
MojoMojo-0.999020
http://search.cpan.org/~mramberg/MojoMojo-0.999020/
A Catalyst & DBIx::Class powered Wiki.
----
Net-Amazon-0.50
http://search.cpan.org/~boumenot/Net-Amazon-0.50/
Framework for accessing amazon.com via REST
----
Net-DRI-0.91
http://search.cpan.org/~pmevzek/Net-DRI-0.91/
Interface to Domain Name Registries/Registrars/Resellers
----
Objects-Collection-0.37
http://search.cpan.org/~zag/Objects-Collection-0.37/
Collections of data or objects.
----
PAR-Packer-0.982
http://search.cpan.org/~smueller/PAR-Packer-0.982/
PAR Packager
----
POE-Component-WWW-CPAN-0.0101
http://search.cpan.org/~zoffix/POE-Component-WWW-CPAN-0.0101/
non-blocking wrapper around WWW::CPAN
----
PowerDNS-Backend-MySQL-0.07
http://search.cpan.org/~augie/PowerDNS-Backend-MySQL-0.07/
Provides an interface to manipulate PowerDNS data in the MySQL Backend.
----
Pugs-Compiler-Rule-0.36
http://search.cpan.org/~fglock/Pugs-Compiler-Rule-0.36/
Compiler for Perl 6 regexes
----
Pugs-Compiler-Rule-0.37
http://search.cpan.org/~fglock/Pugs-Compiler-Rule-0.37/
Compiler for Perl 6 regexes
----
RDF-Simple-Serialiser-Notation3-1.015
http://search.cpan.org/~mthurn/RDF-Simple-Serialiser-Notation3-1.015/
Output RDF triples in Notation3 format
----
Rose-DBx-Object-Renderer-0.22
http://search.cpan.org/~danny/Rose-DBx-Object-Renderer-0.22/
Web UI Rendering for Rose::DB::Object
----
Set-Crontab-1.01
http://search.cpan.org/~ams/Set-Crontab-1.01/
----
Sphinx-Manager-0.02
http://search.cpan.org/~jjschutz/Sphinx-Manager-0.02/
Sphinx search engine management (start/stop)
----
TAP-Harness-Archive-0.12
http://search.cpan.org/~lkundrak/TAP-Harness-Archive-0.12/
Create an archive of TAP test results
----
TAP-Harness-JUnit-0.01
http://search.cpan.org/~lkundrak/TAP-Harness-JUnit-0.01/
Generate JUnit compatible output from TAP results
----
TRD-Velocity-0.0.3
http://search.cpan.org/~ichi/TRD-Velocity-0.0.3/
[One line description of module's purpose here]
----
Test-Most-0.11
http://search.cpan.org/~ovid/Test-Most-0.11/
Most commonly needed test functions and features.
----
Test-POE-Server-TCP-0.12
http://search.cpan.org/~bingos/Test-POE-Server-TCP-0.12/
A POE Component providing TCP server services for test cases
----
Text-Editor-Easy-0.35
http://search.cpan.org/~grommier/Text-Editor-Easy-0.35/
A perl module to edit perl code with syntax highlighting and more.
----
Text-Trac-0.13
http://search.cpan.org/~mizzy/Text-Trac-0.13/
Perl extension for formatting text with Trac Wiki Style.
----
WWW-MobileCarrierJP-0.18
http://search.cpan.org/~tokuhirom/WWW-MobileCarrierJP-0.18/
scrape mobile carrier information
----
XML-Generator-XMPP-0.01
http://search.cpan.org/~martijn/XML-Generator-XMPP-0.01/
easily create XMPP packets
----
XML-SAX-IncrementalBuilder-LibXML-0.01
http://search.cpan.org/~martijn/XML-SAX-IncrementalBuilder-LibXML-0.01/
create DOM fragments from SAX events
----
XML-SAX-IncrementalBuilder-LibXML-0.02
http://search.cpan.org/~martijn/XML-SAX-IncrementalBuilder-LibXML-0.02/
create DOM fragments from SAX events
----
constant-lexical-0.01
http://search.cpan.org/~sprout/constant-lexical-0.01/
Perl pragma to declare lexical compile-time constants
----
constant-private-0.02
http://search.cpan.org/~sprout/constant-private-0.02/
Perl pragma to declare private compile-time constants
----
pgtop-0.05
http://search.cpan.org/~cosimo/pgtop-0.05/
display PostgreSQL performance info like `top'
----
v6-0.030
http://search.cpan.org/~fglock/v6-0.030/
An experimental Perl 6 implementation
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: Wed, 30 Jul 2008 10:02:58 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: Parallel search in Perl and other languages
Message-Id: <slrng9081i.esc.hjp-usenet2@hrunkner.hjp.at>
On 2008-07-28 16:43, smallpond <smallpond@juno.com> wrote:
> Peter J. Holzer wrote:
[WideFinder]
>> Other people contributed equivalent programs in other languages, so
>> he now has a nice collection of one or two dozen implementations of
>> the same task in different languages. Last time I looked, the Perl
>> implementation was the fastest.
>
>
> Hard to imagine perl winning for execution speed on any task.
Give the programmer a deadline (like "I need that by tomorrow") and perl
is frequently faster than some nominally faster programming language,
because the perl programmer needs to spend less time with "housekeeping"
and can spend more time finding a better algorithm.
In the case of searching and matching (what WideFinder does), the main
factor for performance is the speed of the RegEx engine (and perl's is
apparently quite fast for many cases).
> The benchmarks game site
[...]
> http://shootout.alioth.debian.org/gp4/index.php
[...]
These are a lot of fun but not very relevant for the real world. Almost
all of the benchmarks focus on specific operations, not on doing a task.
> has a couple of multi-thread tests where perl does much worse than
> most other languages.
If you think you need to use threads in Perl, think again :-).
> Those results aren't totally optimized. perl results are not
> using pp,
How would pp make perl faster? It's not a compiler, just a packager.
hp
------------------------------
Date: Wed, 30 Jul 2008 08:41:35 +0200
From: Christian Vallant <christian.vallant@traussnig.at>
Subject: parse postfix stream
Message-Id: <48900d1f$0$2243$91cee783@newsreader01.highway.telekom.at>
hello!
I would like to use the postfix-command
test unix - n n - 1 pipe
flags=R user=test argv=/usr/bin/test.pl -d -n ${user}
to send an e-mail to an file. Now i have to parse the mail with perl.
has anyone an example, how to read (from stdin) and parse the e-mail. I
was searching by google, but nothing fits.
Best regards
christian
------------------------------
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 1755
***************************************
