[30548] in Perl-Users-Digest
Perl-Users Digest, Issue: 1791 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Aug 13 11:09:44 2008
Date: Wed, 13 Aug 2008 08: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, 13 Aug 2008 Volume: 11 Number: 1791
Today's topics:
Re: CLPM - a help group? <brian.d.foy@gmail.com>
Re: FAQ 5.39 Why do I get weird spaces when I print an <RedGrittyBrick@spamweary.invalid>
Re: FAQ 5.39 Why do I get weird spaces when I print an <brian.d.foy@gmail.com>
new CPAN modules on Wed Aug 13 2008 (Randal Schwartz)
Re: Perl - Statistics and AI <benkasminbullock@gmail.com>
Re: The Importance of Terminology's Quality <see_website@mindprod.com.invalid>
Re: The Importance of Terminology's Quality <arne@vajhoej.dk>
Tone generation question plus Windows XP and Vista info <edgrsprj@ix.netcom.com>
Re: Tone generation question plus Windows XP and Vista <joost@zeekat.nl>
Re: Tone generation question plus Windows XP and Vista <edgrsprj@ix.netcom.com>
Re: Tone generation question plus Windows XP and Vista <joost@zeekat.nl>
Re: what is the option '/gee' used for in the RE expres <whynot@pozharski.name>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 12 Aug 2008 22:38:49 +0200
From: brian d foy <brian.d.foy@gmail.com>
Subject: Re: CLPM - a help group?
Message-Id: <120820082238494280%brian.d.foy@gmail.com>
In article <6pb1a4t3nc7qvoll6us1en2qal544vc5o6@4ax.com>,
<sln@netherlands.com> wrote:
> I've read the FAQ for along time now, so I can only say
> thanks to BDF.
Well, the FAQ's quality is really the sum of a lot of people's comments
and patches that come from right here in this group. I just have the
commit bit. :)
------------------------------
Date: Wed, 13 Aug 2008 10:40:30 +0100
From: RedGrittyBrick <RedGrittyBrick@spamweary.invalid>
Subject: Re: FAQ 5.39 Why do I get weird spaces when I print an array of lines?
Message-Id: <48a2ac0e$0$2509$da0feed9@news.zen.co.uk>
PerlFAQ Server wrote:
> 5.39: Why do I get weird spaces when I print an array of lines?
>
> It's the double quotes, not the "print", doing this. Whenever you
> interpolate an array in a double quote contexts, Perl joins the elements
> of spaces (or whatever is in $", which is a space by default):
In "Perl joins the elements of spaces" shouldn't "of" be "with" or "using"?
------------------------------
Date: Wed, 13 Aug 2008 16:38:31 +0200
From: brian d foy <brian.d.foy@gmail.com>
Subject: Re: FAQ 5.39 Why do I get weird spaces when I print an array of lines?
Message-Id: <130820081638318671%brian.d.foy@gmail.com>
In article <48a2ac0e$0$2509$da0feed9@news.zen.co.uk>, RedGrittyBrick
<RedGrittyBrick@spamweary.invalid> wrote:
> PerlFAQ Server wrote:
> > 5.39: Why do I get weird spaces when I print an array of lines?
> >
> > It's the double quotes, not the "print", doing this. Whenever you
> > interpolate an array in a double quote contexts, Perl joins the elements
> > of spaces (or whatever is in $", which is a space by default):
>
> In "Perl joins the elements of spaces" shouldn't "of" be "with" or "using"?
Right, fixed, thanks :)
------------------------------
Date: Wed, 13 Aug 2008 04:42:23 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Wed Aug 13 2008
Message-Id: <K5Ivqn.1qrK@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.
Acme-StringFormat-0.03
http://search.cpan.org/~gfuji/Acme-StringFormat-0.03/
Smart interface to sprintf()
----
App-ZofCMS-Plugin-FileUpload-0.0101
http://search.cpan.org/~zoffix/App-ZofCMS-Plugin-FileUpload-0.0101/
ZofCMS plugin to handle file uploads
----
App-ZofCMS-Plugin-LinksToSpecs-CSS-0.0101
http://search.cpan.org/~zoffix/App-ZofCMS-Plugin-LinksToSpecs-CSS-0.0101/
easily include links to properties in CSS2.1 specification
----
App-ZofCMS-Plugin-LinksToSpecs-HTML-0.0101
http://search.cpan.org/~zoffix/App-ZofCMS-Plugin-LinksToSpecs-HTML-0.0101/
easily include links to elements in HTML 4.01 specification
----
Audio-MPD-0.19.3
http://search.cpan.org/~jquelin/Audio-MPD-0.19.3/
class to talk to MPD (Music Player Daemon) servers
----
CPAN-Mini-Webserver-0.35
http://search.cpan.org/~lbrocard/CPAN-Mini-Webserver-0.35/
Search and browse Mini CPAN
----
Carp-REPL-0.13
http://search.cpan.org/~sartak/Carp-REPL-0.13/
read-eval-print-loop on die and/or warn
----
CatalystX-CRUD-Controller-RHTMLO-0.14
http://search.cpan.org/~karman/CatalystX-CRUD-Controller-RHTMLO-0.14/
Rose::HTML::Objects CRUD controller
----
CatalystX-CRUD-ModelAdapter-DBIC-0.02
http://search.cpan.org/~karman/CatalystX-CRUD-ModelAdapter-DBIC-0.02/
CRUD for Catalyst::Model::DBIC::Schema
----
CatalystX-ListFramework-Builder-0.19
http://search.cpan.org/~oliver/CatalystX-ListFramework-Builder-0.19/
Instant AJAX web front-end for DBIx::Class, using Catalyst
----
Chart-Clicker-1.99_05
http://search.cpan.org/~gphat/Chart-Clicker-1.99_05/
Powerful, extensible charting.
----
Class-Data-Accessor-0.04004
http://search.cpan.org/~claco/Class-Data-Accessor-0.04004/
Inheritable, overridable class and instance data accessor creation
----
Crypt-PBC-0.851
http://search.cpan.org/~jettero/Crypt-PBC-0.851/
OO interface for the Stanford PBC library
----
Data-Trans-0.01
http://search.cpan.org/~zigorou/Data-Trans-0.01/
Simple data transformer
----
Date-Lima-1.3
http://search.cpan.org/~jettero/Date-Lima-1.3/
A time interval format (2d4h1m4s) like convert_time() from Lima mudlib.
----
DateTime-Format-Pg-0.16002
http://search.cpan.org/~dmaki/DateTime-Format-Pg-0.16002/
Parse and format PostgreSQL dates and times
----
Document-Writer-0.02
http://search.cpan.org/~gphat/Document-Writer-0.02/
Library agnostic document creation
----
Document-Writer-0.03
http://search.cpan.org/~gphat/Document-Writer-0.03/
Library agnostic document creation
----
FileHash-0.01-2
http://search.cpan.org/~daleamon/FileHash-0.01-2/
----
Graphics-Primitive-0.14
http://search.cpan.org/~gphat/Graphics-Primitive-0.14/
Device and library agnostic graphic primitives
----
Graphics-Primitive-Driver-Cairo-0.08
http://search.cpan.org/~gphat/Graphics-Primitive-Driver-Cairo-0.08/
Cairo backend for Graphics::Primitive
----
HTML-CTPP2-2.3.6
http://search.cpan.org/~stellar/HTML-CTPP2-2.3.6/
Perl interface for CTPP2 library
----
HTML-Timeline-1.00
http://search.cpan.org/~rsavage/HTML-Timeline-1.00/
Convert a Gedcom file into a Timeline file
----
HTML-Timeline-1.01
http://search.cpan.org/~rsavage/HTML-Timeline-1.01/
Convert a Gedcom file into a Timeline file
----
HTML-TurboForm-0.26
http://search.cpan.org/~camelcase/HTML-TurboForm-0.26/
----
Jifty-Plugin-OAuth-0.03
http://search.cpan.org/~sartak/Jifty-Plugin-OAuth-0.03/
secure API authentication
----
Layout-Manager-0.11
http://search.cpan.org/~gphat/Layout-Manager-0.11/
2D Layout Management
----
Lingua-JA-Summarize-0.08
http://search.cpan.org/~kazuho/Lingua-JA-Summarize-0.08/
A keyword extractor / summary generator
----
List-Pairwise-0.29
http://search.cpan.org/~tdrugeon/List-Pairwise-0.29/
map/grep arrays and hashes pairwise
----
Maildir-Lite-0.02
http://search.cpan.org/~deian/Maildir-Lite-0.02/
A very simple implementation of Maildir
----
Mewsoft-Pagination-0.40
http://search.cpan.org/~mewsoft/Mewsoft-Pagination-0.40/
Standalone Object-Oriented Efficient Data Pagination
----
MooseX-DOM-0.00004
http://search.cpan.org/~dmaki/MooseX-DOM-0.00004/
Simplistic Object XML Mapper
----
Muldis-D-0.44.0
http://search.cpan.org/~duncand/Muldis-D-0.44.0/
Formal spec of Muldis D relational DBMS lang
----
MySQL-Slurp-0.23
http://search.cpan.org/~ctbrown/MySQL-Slurp-0.23/
Use PIPEs to import a file into MySQL table.
----
Net-LDAP-Class-0.08
http://search.cpan.org/~karman/Net-LDAP-Class-0.08/
object-relational mapper for Net::LDAP
----
Net-Twitter-1.15
http://search.cpan.org/~cthom/Net-Twitter-1.15/
Perl interface to twitter.com
----
Net-Twitter-1.16
http://search.cpan.org/~cthom/Net-Twitter-1.16/
Perl interface to twitter.com
----
Net-Twitter-1.17
http://search.cpan.org/~cthom/Net-Twitter-1.17/
Perl interface to twitter.com
----
OAuth-Lite-1.12
http://search.cpan.org/~lyokato/OAuth-Lite-1.12/
OAuth framework
----
POEIKC-0.02
http://search.cpan.org/~suzuki/POEIKC-0.02/
POE IKC daemon and client
----
Parse-CPAN-Packages-2.28
http://search.cpan.org/~lbrocard/Parse-CPAN-Packages-2.28/
Parse 02packages.details.txt.gz
----
PayflowPro-1482
http://search.cpan.org/~vkhera/PayflowPro-1482/
Library for accessing PayPal's Payflow Pro HTTP interface
----
Perl-Critic-Pulp-6
http://search.cpan.org/~kryde/Perl-Critic-Pulp-6/
some add-on perlcritic policies
----
Perl-Shell-0.01
http://search.cpan.org/~adamk/Perl-Shell-0.01/
A Python-style "command line interpreter" for Perl
----
RDF-Sesame-0.17
http://search.cpan.org/~mndrix/RDF-Sesame-0.17/
Interact with Sesame RDF servers
----
RWDE-483
http://search.cpan.org/~vkhera/RWDE-483/
----
Rose-DBx-Object-Renderer-0.25
http://search.cpan.org/~danny/Rose-DBx-Object-Renderer-0.25/
Web UI Rendering for Rose::DB::Object
----
Scalar-Defer-0.18
http://search.cpan.org/~jesse/Scalar-Defer-0.18/
Lazy evaluation in Perl
----
Shipwright-1.10
http://search.cpan.org/~sunnavy/Shipwright-1.10/
Best Practical Builder
----
Shipwright-1.11
http://search.cpan.org/~sunnavy/Shipwright-1.11/
Best Practical Builder
----
Template-Toolkit-2.19_03
http://search.cpan.org/~abw/Template-Toolkit-2.19_03/
Template Processing System
----
WWW-Metalgate-0.04
http://search.cpan.org/~bokutin/WWW-Metalgate-0.04/
parse http://www.metalgate.jp/.
----
XML-Parser-Lite-Tree-0.04
http://search.cpan.org/~iamcal/XML-Parser-Lite-Tree-0.04/
Lightweight XML tree builder
----
indirect-0.03
http://search.cpan.org/~vpit/indirect-0.03/
Lexically warn about using the indirect object syntax.
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, 13 Aug 2008 03:14:28 +0200 (CEST)
From: Ben Bullock <benkasminbullock@gmail.com>
Subject: Re: Perl - Statistics and AI
Message-Id: <g7tchj$moj$1@aioe.org>
On Tue, 12 Aug 2008 15:52:16 +0100, Ben Morrow wrote:
> Quoth Ben Bullock <benkasminbullock@gmail.com>:
>> On Tue, 12 Aug 2008 03:29:49 +0100, Ben Morrow wrote:
>>
>> > Quoth Ben Bullock <benkasminbullock@gmail.com>:
>> >>
>> >> Anyway Perl is hopeless at numerical stuff, so I doubt anyone is
>> >> seriously using Perl for number crunching.
>> >
>> > http://search.cpan.org/~csoe/PDL-2.4.3/
>>
>> http://search.cpan.org/~csoe/PDL-2.4.3/MANIFEST
>
> Err, yeah? Am I being stupid, or is there something relevant there?
Is the module an example of using Perl for number crunching, or is it an
example of using other languages for the actual number crunching, with a
Perl wrapper? Judging from the list of Fortran and C and Pascal files in
that manifest, the latter.
------------------------------
Date: Tue, 12 Aug 2008 20:26:16 GMT
From: Roedy Green <see_website@mindprod.com.invalid>
Subject: Re: The Importance of Terminology's Quality
Message-Id: <ees3a4d8bkh0gkho1jfba05nt2m8safmmi@4ax.com>
On Tue, 12 Aug 2008 12:28:33 -0700,
jaycx2.3.calrobert@spamgourmet.com.remove (Robert Maas,
http://tinyurl.com/uh3t) wrote, quoted or indirectly quoted someone
who said :
>Note: On IBM 1620, instructions and forward-sweeping data records
>were addressed by their *first* digit, whereas arithmetic fields
>were addressed by their *last* digit, the low-order position, to
>support natural add-and-carry operations. Storage was decimal
>digits, with two extra bits, flag to indicate negative value (if in
>low-order position) or high-order-end (if in any other position),
>and parity.
What a memory you have to recall the precise details of work you did
45 odd years ago.
--
Roedy Green Canadian Mind Products
The Java Glossary
http://mindprod.com
------------------------------
Date: Tue, 12 Aug 2008 20:40:07 -0400
From: =?ISO-8859-1?Q?Arne_Vajh=F8j?= <arne@vajhoej.dk>
Subject: Re: The Importance of Terminology's Quality
Message-Id: <48a22d60$0$90273$14726298@news.sunsite.dk>
Robert Maas, http://tinyurl.com/uh3t wrote:
> John W Kennedy <jwke...@attglobal.net> wrote:
> JWK> Into the 60s, indeed, there were still machines being made
> JWK> that had no instruction comparable to the mainframe BASx/BALx
> JWK> family, or to Intel's CALL. You had to do a subprogram call by
> JWK> first overwriting the last instruction of what you were
> JWK> calling with a branch instruction that would return back to
> JWK> you.
>
> That's not true, that you needed to do that, that there was no
> other way available. The subroutine linkage I invented for S.P.S.
> (Symbolic Programming System, i.e. IBM 1620 assembly language) was
> to reserve a 5-digit space immediately before the subroutine entry
> point for storing the return address. So the caller needed to know
> only one address, the entry point, and do both store-return-address
> and jump relative to that address, rather than needing to know both
> the entry point and the last-instruction-JUMP-needs-patch address
> as independent items of information.
CDC Cyber did something very similar.
Not very recursion friendly.
Arne
------------------------------
Date: Wed, 13 Aug 2008 02:16:08 -0500
From: "E.D.G." <edgrsprj@ix.netcom.com>
Subject: Tone generation question plus Windows XP and Vista information
Message-Id: <a-ednUmlJ_ajFz_VnZ2dnUVZ_q_inZ2d@earthlink.com>
Can Perl generate other tones besides the one produced by the
print "\a";
command?
A program I am developing needs to occasionally generate a less glaring
sound to tell the user when it is time to manually enter some data etc. I
presently generate such sounds by calling external programs.
Windows Vista and XP, and ActivePerl 5.10 are being used. The SendKeys
command is available.
Windows XP and Windows Vista information
In the original post in this thread I stated that Perl can start a
Gnuplot.exe program running in a manner that will allow Perl to continue
running in the background if the following start commands are used.
system 'c:\programs\plot.gnu.lnk';# Windows XP
system 'start c:\programs\plot.gnu.lnk';# Windows Vista
Further checking shows that the
system 'start c:\programs\plot.gnu.lnk';
command will work for both Windows XP and Vista.
------------------------------
Date: Wed, 13 Aug 2008 10:24:06 +0200
From: Joost Diepenmaat <joost@zeekat.nl>
Subject: Re: Tone generation question plus Windows XP and Vista information
Message-Id: <8763q52uhl.fsf@zeekat.nl>
"E.D.G." <edgrsprj@ix.netcom.com> writes:
> Can Perl generate other tones besides the one produced by the
>
> print "\a";
>
> command?
>
> A program I am developing needs to occasionally generate a less
> glaring sound to tell the user when it is time to manually enter some
> data etc. I presently generate such sounds by calling external
> programs.
>
> Windows Vista and XP, and ActivePerl 5.10 are being used. The
> SendKeys command is available.
You probably have Win32::API available on that setup. You can use
window's ancient Beep() method if so:
http://search.cpan.org/~cosimo/Win32-API-0.55/samples/Win32/kernel32.pm#Beep
HTH,
J.
--
Joost Diepenmaat | blog: http://joost.zeekat.nl/ | work: http://zeekat.nl/
------------------------------
Date: Wed, 13 Aug 2008 09:41:03 -0500
From: "E.D.G." <edgrsprj@ix.netcom.com>
Subject: Re: Tone generation question plus Windows XP and Vista information
Message-Id: <lsKdnR3Am_jmbz_VnZ2dnUVZ_rvinZ2d@earthlink.com>
"Joost Diepenmaat" <joost@zeekat.nl> wrote in message
news:8763q52uhl.fsf@zeekat.nl...
> You probably have Win32::API available on that setup. You can use
> window's ancient Beep() method if so:
>
My present Win32::API module does not have that Beep command. If there are
no other suggestions posted I may try to install the Cpan module you
mentioned and see if it works.
------------------------------
Date: Wed, 13 Aug 2008 17:06:10 +0200
From: Joost Diepenmaat <joost@zeekat.nl>
Subject: Re: Tone generation question plus Windows XP and Vista information
Message-Id: <8763q50xb1.fsf@zeekat.nl>
"E.D.G." <edgrsprj@ix.netcom.com> writes:
> "Joost Diepenmaat" <joost@zeekat.nl> wrote in message
> news:8763q52uhl.fsf@zeekat.nl...
>> You probably have Win32::API available on that setup. You can use
>> window's ancient Beep() method if so:
>>
>
> My present Win32::API module does not have that Beep command. If
> there are no other suggestions posted I may try to install the Cpan
> module you mentioned and see if it works.
It's been part of the Win32::API modules since 2003. Did you try
use Win32::kernel32; # note the module
Win32::Beep ( $FREQUENCY, $DURATION );
--
Joost Diepenmaat | blog: http://joost.zeekat.nl/ | work: http://zeekat.nl/
------------------------------
Date: Tue, 12 Aug 2008 23:01:17 +0300
From: Eric Pozharski <whynot@pozharski.name>
Subject: Re: what is the option '/gee' used for in the RE expression?
Message-Id: <dp69n5xnvg.ln2@carpet.zombinet>
Jking <jiangjun_maillist@tom.com> wrote:
*SKIP*
> # Define default interpolation subroutine
> $interpolate =
> sub {
> package blosxom;
Don't. All lowercase modulenames are reserved for magic. You are
unqualified to make magic. If I'm wrong, then you haven't asked
question first. Because you'd be able to find answer yourself.
> my $template = shift;
> $template =~
> s/(\$\w+(?:::)?\w*)/"defined $1 ? $1 : ''"/gee;
L<perlop|/Regexp Quote-Like Operators> has all you need to find answer
yourself (look for C<s/PATTERN/REPLACEMENT/egimosx>). In case you are
illiteral:
First left side captures variable names (lexicals, some fraction of
dynamics, and some fraction of specials). In I<$template>, obviously.
Then captured variable is replaced with right side.
Here trick begins. First C<e> forces right side to be Perl command.
That actually does nothing, since I<$1> is defined (it contains captured
part of I<$template>), captured part is replaced exactly with itself.
The second C<e> B<eval>s that string before. And what B<defined> sees
(when it's executed) is captured variable name (which can be undefined,
in that case it's replaced with empty string).
Discovering what C<g> is left as an exercise for courious reader.
22:53:04 43 [2:0]$ perl -wle '
> $foo = q(xyz);
> $bar = q($foo);
> $bar =~ s/(\$\w+)/$1/e;
> print $bar'
Name "main::foo" used only once: possible typo at -e line 2.
$foo
22:56:26 46 [2:1]$ perl -wle '
> $foo = q(xyz);
> $bar = q($foo);
> $bar =~ s/(\$\w+)/$1/ee;
> print $bar'
Name "main::foo" used only once: possible typo at -e line 2.
xyz
*CUT*
p.s. Did I called dragons again?
--
Torvalds' goal for Linux is very simple: World Domination
------------------------------
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 1791
***************************************
