[29847] in Perl-Users-Digest
Perl-Users Digest, Issue: 1090 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Dec 5 03:09:43 2007
Date: Wed, 5 Dec 2007 00:09:08 -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 Wed, 5 Dec 2007 Volume: 11 Number: 1090
Today's topics:
Re: DBI; error in $handle->execute() <glex_no-spam@qwest-spam-no.invalid>
Re: Error when Updating Oracle <mritty@gmail.com>
Re: File::Find make me mad <hjp-usenet2@hjp.at>
Re: File::Find make me mad <rvtol+news@isolution.nl>
Re: How to change MAX_PATH value? <nospam-abuse@ilyaz.org>
Re: How to change MAX_PATH value? <nospam-abuse@ilyaz.org>
How to make thumbnail image from web page? <Karon@trenk.hrt>
mallinfo from perl <user42@zip.downwithspam.com.au>
new CPAN modules on Wed Dec 5 2007 (Randal Schwartz)
Re: OT raibow <stoupa@practisoft.cz>
Re: OT raibow <stoupa@practisoft.cz>
Perl version used when running the script lfchew1@yahoo.com
Re: Perl version used when running the script <jurgenex@hotmail.com>
Re: Perl version used when running the script <ben@morrow.me.uk>
Play wav or sound file. <timothytmaiden@gmail.com>
Re: Play wav or sound file. <ben@morrow.me.uk>
Re: Play wav or sound file. <timothytmaiden@gmail.com>
Re: Play wav or sound file. <rkb@i.frys.com>
Problem installing Email-Send package <xxxxxxx@pacbell.net>
Re: Problem installing Email-Send package <ben@morrow.me.uk>
Tk 804.027_502 <slaven@rezic.de>
Re: What is the use of s { } { } <stoupa@practisoft.cz>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 04 Dec 2007 09:59:56 -0600
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: DBI; error in $handle->execute()
Message-Id: <4755797d$0$10302$815e3792@news.qwest.net>
Yakov wrote:
> If DBI's $handle->execute() returned error, do I need to call $handle->finish() ?
You rarely need to call finish, however no you don't need to call
finish. If your execute returns an error you'd likely want to die
and there wouldn't be anything in $handle to finish().
perldoc DBI
finish
$rc = $sth->finish;
Indicates that no more data will be fetched from this statement
handle before it is either executed again or destroyed. The finish
method is rarely needed, but [...]
------------------------------
Date: Tue, 4 Dec 2007 09:31:05 -0800 (PST)
From: Paul Lalli <mritty@gmail.com>
Subject: Re: Error when Updating Oracle
Message-Id: <0931b1c1-76d8-4cc2-b263-490081c00c44@y5g2000hsf.googlegroups.com>
On Dec 4, 12:06 pm, IUXO <arturo_...@hotmail.com> wrote:
> When updating a table in oracle send me the follow message
>
> Issuing rollback() for database handle being DESTROY'd without
> explicit disconnect().
>
> but the update was ok
>
> What is the meaning of this message?
It means you didn't call
$dbh->disconnect();
before your program ended, and so DBI has issued
$dbh->rollback();
for you, which, if your RDMS supports transactions correctly, will
undo any changes since you last called
$dbh->commit();
Note, though, that if $dbh->{AutoCommit} is turned on, then all
updates/inserts/deletes are automatically committed, so the rollback()
will have no effect.
When I write DBI applications, I usually include a block similar to
this:
END {
if ($?) { #exiting with error
$dbh->rollback();
} else {
$dbh->commit();
}
$dbh->disconnect();
}
But your mileage may vary.
Paul Lalli
------------------------------
Date: Tue, 4 Dec 2007 21:13:37 +0100
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: File::Find make me mad
Message-Id: <slrnflbd7l.8e2.hjp-usenet2@hrunkner.hjp.at>
On 2007-12-03 23:55, Dr.Ruud <rvtol+news@isolution.nl> wrote:
> Todd schreef:
>> I got the simplest form for this questions :)
>>
>> perl -MFile::Find -e '
>> find sub { unlink if /\.ape$/} , shift || "."
>> '
>
> perl -wle'
> $p = shift || ".";
> print for <$p/*.ape>
> ' optional/path
That doesn't search subdirectories.
hp
------------------------------
Date: Wed, 5 Dec 2007 02:42:37 +0100
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: File::Find make me mad
Message-Id: <fj53ig.1hs.1@news.isolution.nl>
Peter J. Holzer schreef:
> Dr.Ruud:
>> Todd:
>>> I got the simplest form for this questions :)
>>>
>>> perl -MFile::Find -e '
>>> find sub { unlink if /\.ape$/} , shift || "."
>>> '
>>
>> perl -wle'
>> $p = shift || ".";
>> print for <$p/*.ape>
>> ' optional/path
>
> That doesn't search subdirectories.
Ah yes, totally forgot about that part. I was actually trying to come up
with an IO::All example, but that took me too much time, so I did the
glob instead.
perl -MIO::All -wle'
$_->unlink for io(shift || ".")->filter(sub{/\.ape$/})->All_Files
'
(which doesn't try to unlink directories named *.ape)
I must admit that I was quite disappointed when I found that
print for io(".")->All_Files(/\.ape$/)
didn't work.
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Tue, 4 Dec 2007 23:23:28 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: How to change MAX_PATH value?
Message-Id: <fj4nhg$2lsq$1@agate.berkeley.edu>
[A complimentary Cc of this posting was sent to
sonet
<sonet.all@gmail.com>], who wrote in article <fij9hb$n8b$1@netnews.hinet.net>:
> I need write data to a file that filename length > 255.
Which filesystem? Definitely not FAT or NTFS... Or the NTFS
restriction of 255, is it per-component-of-filename, or
whole-filename?
> Summary of my perl5 (revision 5 version 8 subversion 8) configuration:
> Platform:
> osname=MSWin32, osvers=5.00, archname=MSWin32-x86-multi-thread
If your filesystem supports this, did you try UNC paths, like
\\.\LONG_FILE_NAME
I've heard that the newer MS kernels support these...
In short, I doubt it is a Perl limitation (but I know close to 0 about
Win*...).
Hope this helps,
Ilya
------------------------------
Date: Tue, 4 Dec 2007 23:36:17 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: How to change MAX_PATH value?
Message-Id: <fj4o9h$2m2o$1@agate.berkeley.edu>
[A complimentary Cc of this posting was NOT [per weedlist] sent to
Ilya Zakharevich
<nospam-abuse@ilyaz.org>], who wrote in article <fj4nhg$2lsq$1@agate.berkeley.edu>:
> [A complimentary Cc of this posting was NOT [per weedlist] sent to
> sonet
> <sonet.all@gmail.com>], who wrote in article <fij9hb$n8b$1@netnews.hinet.net>:
> > I need write data to a file that filename length > 255.
>
> Which filesystem? Definitely not FAT or NTFS... Or the NTFS
> restriction of 255, is it per-component-of-filename, or
> whole-filename?
I see (on WPedia):
the file system supports paths up to about 32,000 Unicode characters
with each path component (directory or filename) up to 255
characters long
So if your compiler was stupid enough to define MAX_PATH as 255, you
are hosed. Although very few places of perl will actually use it, so
if the CRTL is able to get/put short files, you are in business.
If everything else fails, write a short program which opens STDOUT to
the file, and starts your script. Eg, if your shell supports longer
file names, start your script as
yourscript.pl > long_file
Hope this helps,
Ilya
------------------------------
Date: Wed, 5 Dec 2007 09:03:54 +0100
From: "Trenk" <Karon@trenk.hrt>
Subject: How to make thumbnail image from web page?
Message-Id: <fj5m11$t5$1@ss408.t-com.hr>
How to make thumbnail image from web page?
Some thing like networksolutions.com do.
eg. http://www.networksolutions.com/whois/results.jsp?domain=perl.com
Tnx.
------------------------------
Date: Wed, 05 Dec 2007 09:46:44 +1100
From: Kevin Ryde <user42@zip.downwithspam.com.au>
Subject: mallinfo from perl
Message-Id: <87ve7ejcx7.fsf@blah.blah>
Is there an interface to mallinfo() from perl lurking anywhere?
I thought to include its info in my program as development diagnostics
(if available of course, which it's not on all systems, and leaving
aside the question of quite how useful it is or isn't ...).
------------------------------
Date: Wed, 5 Dec 2007 05:42:16 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Wed Dec 5 2007
Message-Id: <JsKAIG.1B49@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.
Apache2-ASP-1.21
http://search.cpan.org/~johnd/Apache2-ASP-1.21/
Perl extension for ASP on mod_perl2.
----
BDB-1.2
http://search.cpan.org/~mlehmann/BDB-1.2/
Asynchronous Berkeley DB access
----
CGI-Application-Plugin-ActionDispatch-0.91
http://search.cpan.org/~jaywhy/CGI-Application-Plugin-ActionDispatch-0.91/
Perl extension
----
CatalystX-CRUD-0.16
http://search.cpan.org/~karman/CatalystX-CRUD-0.16/
CRUD framework for Catalyst applications
----
Coat-Persistent-0.0_0.2
http://search.cpan.org/~sukria/Coat-Persistent-0.0_0.2/
Simple Object-Relational mapping for Coat objects
----
Config-Model-0.616
http://search.cpan.org/~ddumont/Config-Model-0.616/
Model to create configuration validation tool
----
Config-Options-0.02
http://search.cpan.org/~ealleniii/Config-Options-0.02/
Module to provide a configuration hash with option to read from file.
----
Coro-4.3
http://search.cpan.org/~mlehmann/Coro-4.3/
coroutine process abstraction
----
Crypt-XXTEA-1.00
http://search.cpan.org/~andot/Crypt-XXTEA-1.00/
XXTEA encryption arithmetic module.
----
DOCSIS-ConfigFile-0.02
http://search.cpan.org/~eidolon/DOCSIS-ConfigFile-0.02/
Decodes and encodes DOCSIS config-files for cable-modems
----
DOCSIS-ConfigFile-0.03
http://search.cpan.org/~eidolon/DOCSIS-ConfigFile-0.03/
Decodes and encodes DOCSIS config-files for cablemodems
----
Data-Rlist-1.36
http://search.cpan.org/~aspindler/Data-Rlist-1.36/
A lightweight data language for Perl, C and C++
----
Email-MIME-XPath-0.005
http://search.cpan.org/~hdp/Email-MIME-XPath-0.005/
access MIME documents via XPath queries
----
Geography-NationalGrid-TW-0.04
http://search.cpan.org/~leeym/Geography-NationalGrid-TW-0.04/
Module to convert Taiwan Datum (TWD67/TM2, TWD97/TM2) to/from Latitude and Longitude
----
InSilicoSpectro-1.3.12
http://search.cpan.org/~alexmass/InSilicoSpectro-1.3.12/
Open source Perl library for proteomics
----
InSilicoSpectro-1.3.13
http://search.cpan.org/~alexmass/InSilicoSpectro-1.3.13/
Open source Perl library for proteomics
----
JSON-XS-2.0
http://search.cpan.org/~mlehmann/JSON-XS-2.0/
JSON serialising/deserialising, done correctly and fast
----
KSx-IndexManager-0.003
http://search.cpan.org/~hdp/KSx-IndexManager-0.003/
high-level invindex management interface
----
KSx-Searcher-Abstract-0.002
http://search.cpan.org/~hdp/KSx-Searcher-Abstract-0.002/
build searches from Perl data structures
----
List-Extract-0.01
http://search.cpan.org/~lodin/List-Extract-0.01/
grep and splice combined
----
List-Pairwise-0.26
http://search.cpan.org/~tdrugeon/List-Pairwise-0.26/
map/grep arrays and hashes pairwise
----
Mail-Audit-DKIM-0.001
http://search.cpan.org/~rjbs/Mail-Audit-DKIM-0.001/
Mail::Audit plugin for domain key verification
----
Mail-Audit-DKIM-0.002
http://search.cpan.org/~rjbs/Mail-Audit-DKIM-0.002/
Mail::Audit plugin for domain key verification
----
Moose-0.32
http://search.cpan.org/~stevan/Moose-0.32/
A complete modern object system for Perl 5
----
MooseX-AttributeHelpers-0.06
http://search.cpan.org/~stevan/MooseX-AttributeHelpers-0.06/
Extend your attribute interfaces
----
MooseX-Getopt-0.07
http://search.cpan.org/~stevan/MooseX-Getopt-0.07/
A Moose role for processing command line options
----
Net-Appliance-Session-0.16
http://search.cpan.org/~oliver/Net-Appliance-Session-0.16/
Run command-line sessions to network appliances
----
Net-Appliance-Session-0.17
http://search.cpan.org/~oliver/Net-Appliance-Session-0.17/
Run command-line sessions to network appliances
----
OIS-0.04
http://search.cpan.org/~slanning/OIS-0.04/
Perl binding for the OIS C++ input framework
----
Ogre-0.33
http://search.cpan.org/~slanning/Ogre-0.33/
Perl binding for the OGRE C++ graphics library
----
Ogre-BetaGUI-0.01
http://search.cpan.org/~slanning/Ogre-BetaGUI-0.01/
----
POE-Component-SmokeBox-Recent-0.02
http://search.cpan.org/~bingos/POE-Component-SmokeBox-Recent-0.02/
A POE component to retrieve recent CPAN uploads.
----
Palm-Keyring-0.96_06
http://search.cpan.org/~andrew/Palm-Keyring-0.96_06/
Handler for Palm Keyring databases.
----
QDBM_File-0.03
http://search.cpan.org/~yamato/QDBM_File-0.03/
Tied access to Quick Database Manager
----
SVN-S4-1.020
http://search.cpan.org/~wsnyder/SVN-S4-1.020/
Wrapper for Subversion
----
Slackware-Slackget-0.14
http://search.cpan.org/~dupuisarn/Slackware-Slackget-0.14/
The main slack-get 1.0 library
----
Slackware-Slackget-Network-Connection-DEBUG-0.5
http://search.cpan.org/~dupuisarn/Slackware-Slackget-Network-Connection-DEBUG-0.5/
This class iimplements the debug:// protocol driver for Slackware::Slackget::Network::Connection
----
Test-Virtual-Filesystem-0.11
http://search.cpan.org/~cdolan/Test-Virtual-Filesystem-0.11/
Validate a filesystem
----
Text-CSV-Separator-0.19
http://search.cpan.org/~enell/Text-CSV-Separator-0.19/
Determine the field separator of a CSV file
----
Text-Perlate-0.93
http://search.cpan.org/~bilbo/Text-Perlate-0.93/
Template module using Perl as the langauge.
----
Text-Perlate-0.94
http://search.cpan.org/~bilbo/Text-Perlate-0.94/
Template module using Perl as the langauge.
----
Tie-DxHash-1.03
http://search.cpan.org/~kruscoe/Tie-DxHash-1.03/
keeps insertion order; allows duplicate keys
----
Tk-804.027_502
http://search.cpan.org/~srezic/Tk-804.027_502/
a graphical user interface toolkit for Perl
----
chklinks-3.07
http://search.cpan.org/~imacat/chklinks-3.07/
A non-threaded Perl link checker
----
onto-perl-1.05
http://search.cpan.org/~easr/onto-perl-1.05/
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/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Wed, 5 Dec 2007 04:35:18 +0100
From: "Petr Vileta" <stoupa@practisoft.cz>
Subject: Re: OT raibow
Message-Id: <fj57a0$f6i$1@ns.felk.cvut.cz>
Lars Haugseth wrote:
> * "Peter J. Holzer" <hjp-usenet2@hjp.at> wrote:
>>
>> On 2007-12-01 03:37, Petr Vileta <stoupa@practisoft.cz> wrote:
>>> I'm looking for some algorithm what generate the same table but
>>> more similar to rainbow.
>>
>> Convert from RGB to HSV then sort by H.
>
> How should the shades of grey be sorted, ie. where do they
> fit in a rainbow-like ordering? :-)
In context to my primary question this is very simple :-)
#FFFFFF
#CCCCCC
#999999
#666666
#333333
#000000
--
Petr Vileta, Czech republic
(My server rejects all messages from Yahoo and Hotmail. Send me your
mail from another non-spammer site please.)
Please reply to <petr AT practisoft DOT cz>
------------------------------
Date: Wed, 5 Dec 2007 04:37:57 +0100
From: "Petr Vileta" <stoupa@practisoft.cz>
Subject: Re: OT raibow
Message-Id: <fj57a0$f6i$2@ns.felk.cvut.cz>
Lars Haugseth wrote:
>>> You don't see me asking for restaurant recommendations here, do you?
>>
>> No, thanks ;-) I not need to know good restaurants, but many people
>> here use Perl for webs and trafic in groups about html or www is 1
>> message per month :-(
>
> The cause of that particular traffic problem is that people post their
> www and html related questions in groups dedicated to Perl
> programming.
You are not right. Many times I sent something to www newsgroup but I was be a
single man there :-)
--
Petr Vileta, Czech republic
(My server rejects all messages from Yahoo and Hotmail. Send me your
mail from another non-spammer site please.)
Please reply to <petr AT practisoft DOT cz>
------------------------------
Date: Tue, 4 Dec 2007 21:36:05 -0800 (PST)
From: lfchew1@yahoo.com
Subject: Perl version used when running the script
Message-Id: <f8d65de9-a024-4ddc-bdb9-59f089ae2e7c@d21g2000prf.googlegroups.com>
If I need to use a certain perl version only to run by script, is
there a way to check that before my script continue down the main body
of the code?
Or is there any way we can check the version?
------------------------------
Date: Wed, 05 Dec 2007 05:55:00 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Perl version used when running the script
Message-Id: <U2r5j.3370$QS.3142@trndny03>
lfchew1@yahoo.com wrote:
> If I need to use a certain perl version only to run by script, is
> there a way to check that before my script continue down the main body
> of the code?
perldoc -f use
> Or is there any way we can check the version?
perldoc perlvar
and check for $^V
jue
------------------------------
Date: Wed, 5 Dec 2007 07:34:04 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Perl version used when running the script
Message-Id: <cs0i25-qn1.ln1@osiris.mauzo.dyndns.org>
Quoth "Jürgen Exner" <jurgenex@hotmail.com>:
> lfchew1@yahoo.com wrote:
>
> > Or is there any way we can check the version?
>
> perldoc perlvar
> and check for $^V
$] is safer when dealing with potentially old perls.
Ben
------------------------------
Date: Tue, 4 Dec 2007 10:08:21 -0800 (PST)
From: Cehotec - Tim <timothytmaiden@gmail.com>
Subject: Play wav or sound file.
Message-Id: <f23164b5-fcc6-44b6-96aa-2e749ddb5e00@w40g2000hsb.googlegroups.com>
I use perl script for an application which allows users to include
their own code to be ran during the application.
How can I go about creating a sub that you play a wav file. I am not
looking to open the wav with my default player.. but to actually play
the wav. any suggestions would be greatly appricaited. THANKS
------------------------------
Date: Tue, 4 Dec 2007 18:28:10 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Play wav or sound file.
Message-Id: <qqig25-41k.ln1@osiris.mauzo.dyndns.org>
Quoth Cehotec - Tim <timothytmaiden@gmail.com>:
> I use perl script for an application which allows users to include
> their own code to be ran during the application.
>
> How can I go about creating a sub that you play a wav file. I am not
> looking to open the wav with my default player.. but to actually play
> the wav.
Basically: how would you play a wav without Perl? Then get Perl to do
the the same way.
You haven't said what OS or desktop system you are using. Most provide
some means of playing a wav from the command-line; under most Unixes you
can use sox(1). Under Win32 I guess you could invoke mplayer2.exe,
though I don't know how you'd go about hiding the window it brings up.
A quick search of CPAN for e.g. 'audio' or 'sound' brings up lots of
potentially useful modules, though again you'd need to say what OS you
were using to know which could help you.
Ben
------------------------------
Date: Tue, 4 Dec 2007 20:57:04 -0800 (PST)
From: Cehotec - Tim <timothytmaiden@gmail.com>
Subject: Re: Play wav or sound file.
Message-Id: <28b6bca3-a803-4850-a4b9-87dffffd2100@a35g2000prf.googlegroups.com>
On Dec 4, 1:28 pm, Ben Morrow <b...@morrow.me.uk> wrote:
> Quoth Cehotec - Tim <timothytmai...@gmail.com>:
>
> > I use perl script for an application which allows users to include
> > their own code to be ran during the application.
>
> > How can I go about creating a sub that you play a wav file. I am not
> > looking to open the wav with my default player.. but to actually play
> > the wav.
>
> Basically: how would you play a wav without Perl? Then get Perl to do
> the the same way.
>
> You haven't said what OS or desktop system you are using. Most provide
> some means of playing a wav from the command-line; under most Unixes you
> can use sox(1). Under Win32 I guess you could invoke mplayer2.exe,
> though I don't know how you'd go about hiding the window it brings up.
>
> A quick search of CPAN for e.g. 'audio' or 'sound' brings up lots of
> potentially useful modules, though again you'd need to say what OS you
> were using to know which could help you.
>
> Ben
Thanks for the reply. I am using perl on a windows xp system. It's
not necessary a large file that I want to play. I just want to play
something a little more elaborate then a system beep. Say for
instance a user does something wrong, I would like a sound to play.
Thanks again.
------------------------------
Date: Tue, 4 Dec 2007 21:39:19 -0800 (PST)
From: Ron Bergin <rkb@i.frys.com>
Subject: Re: Play wav or sound file.
Message-Id: <0658d436-3312-4b0d-973b-87caef9c9375@s12g2000prg.googlegroups.com>
On Dec 4, 8:57 pm, Cehotec - Tim <timothytmai...@gmail.com> wrote:
> On Dec 4, 1:28 pm, Ben Morrow <b...@morrow.me.uk> wrote:
>
>
>
> > Quoth Cehotec - Tim <timothytmai...@gmail.com>:
>
> > > I use perl script for an application which allows users to include
> > > their own code to be ran during the application.
>
> > > How can I go about creating a sub that you play a wav file. I am not
> > > looking to open the wav with my default player.. but to actually play
> > > the wav.
>
> > Basically: how would you play a wav without Perl? Then get Perl to do
> > the the same way.
>
> > You haven't said what OS or desktop system you are using. Most provide
> > some means of playing a wav from the command-line; under most Unixes you
> > can use sox(1). Under Win32 I guess you could invoke mplayer2.exe,
> > though I don't know how you'd go about hiding the window it brings up.
>
> > A quick search of CPAN for e.g. 'audio' or 'sound' brings up lots of
> > potentially useful modules, though again you'd need to say what OS you
> > were using to know which could help you.
>
> > Ben
>
> Thanks for the reply. I am using perl on a windows xp system. It's
> not necessary a large file that I want to play. I just want to play
> something a little more elaborate then a system beep. Say for
> instance a user does something wrong, I would like a sound to play.
> Thanks again.
I haven't used it myself, but Win32::Sound looks to be a good
possibility.
http://search.cpan.org/~jdb/libwin32-0.28/Sound/Sound.pm
------------------------------
Date: Wed, 05 Dec 2007 01:42:07 GMT
From: "a" <xxxxxxx@pacbell.net>
Subject: Problem installing Email-Send package
Message-Id: <Pln5j.22943$4V6.9435@newssvr14.news.prodigy.net>
Hi,
I'm trying to setup perl (I have ActivePerl 5.8.8) so I can install Bugzilla
3.0.2 on Windows XP Pro, and Email-Send is one of the recquired packages.
When I try to install this package I get this message:
C:\Program Files\bugzilla-3.0.2>ppm install Email-Send
ppm install failed: Installing Module-Pluggable-3.01 for Email-Send would
downgrade Devel::InnerPackage from version 0.3 to 0.2, Module::Pluggable
from version 3.6 to 3.01, and Module::Pluggable::Object from version 3.6 to
0; use --force to install regardless
Any ideas how to fix this? Is it ok to force the installation despite the
warning?
Thanks,
a
------------------------------
Date: Wed, 5 Dec 2007 07:29:05 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Problem installing Email-Send package
Message-Id: <1j0i25-qn1.ln1@osiris.mauzo.dyndns.org>
Quoth "a" <xxxxxxx@pacbell.net>:
>
> I'm trying to setup perl (I have ActivePerl 5.8.8) so I can install Bugzilla
> 3.0.2 on Windows XP Pro, and Email-Send is one of the recquired packages.
>
> When I try to install this package I get this message:
>
> C:\Program Files\bugzilla-3.0.2>ppm install Email-Send
> ppm install failed: Installing Module-Pluggable-3.01 for Email-Send would
> downgrade Devel::InnerPackage from version 0.3 to 0.2, Module::Pluggable
> from version 3.6 to 3.01, and Module::Pluggable::Object from version 3.6 to
> 0; use --force to install regardless
>
> Any ideas how to fix this? Is it ok to force the installation despite the
> warning?
Since Email::Send is pure-Perl, I'd probably just get ahold of nmake
(it's a free download from Microsoft: see perldoc perlwin32) and install
it with CPAN.pm. If any of the dependancies fail, you'll need to install
them manually with ppm (roll on Strawberry Perl, I say :) ).
OTOH, unless you have something that already depends on the installed
versions of M::P and D::IP, downgrading them shouldn't cause you any
problems.
Ben
------------------------------
Date: Tue, 4 Dec 2007 21:14:07 GMT
From: Slaven Rezic <slaven@rezic.de>
Subject: Tk 804.027_502
Message-Id: <JsJq22.oIn@zorch.sf-bay.org>
There's a new development release of Tk:
| The uploaded file
|
| Tk-804.027_502.tar.gz
|
| has entered CPAN as
|
| file: $CPAN/authors/id/S/SR/SREZIC/Tk-804.027_502.tar.gz
| size: 6925604 bytes
| md5: de27018b7106de3d748f8dd194d9fbdd
|
| No action is required on your part
| Request entered by: SREZIC (Slaven ReziÄ<87>)
| Request entered on: Tue, 04 Dec 2007 21:02:14 GMT
| Request completed: Tue, 04 Dec 2007 21:03:31 GMT
This one can be regarded as a "release candidate". I plan to make a
real release when perl 5.10.0 comes out.
Tk should build on common operating systems like Linux, FreeBSD,
Solaris 10, Windows (at least using Strawberry Perl), and Mac OS X
(using the X server). Unfortunately cygwin is known to not built, but
I think this is the same situation as with Tk 804.027. Test failures
are possible, especially window manager and font related ones, but
should be rare. Don't hesitate to report them, either by mail or via
CPAN testers.
To install the tarball you can use the CPAN shell:
perl -MCPAN -eshell
install SREZIC/Tk-804.027_502.tar.gz
To test it without installing try:
perl -MCPAN -eshell
test SREZIC/Tk-804.027_502.tar.gz
Perl/Tk development may be tracked in the subversion repository
http://svn.perl.org/modules/Tk
Regards,
Slaven
--
Slaven Rezic - slaven <at> rezic <dot> de
tknotes - A knotes clone, written in Perl/Tk.
http://ptktools.sourceforge.net/#tknotes
------------------------------
Date: Wed, 5 Dec 2007 04:44:53 +0100
From: "Petr Vileta" <stoupa@practisoft.cz>
Subject: Re: What is the use of s { } { }
Message-Id: <fj57a1$f6i$3@ns.felk.cvut.cz>
Subra wrote:
> Hi,
>
> Can any one tell me, whats does the "s { } { }" operator used for in
> the below code ?
>
> next unless s{^(\s*\w+\s+$stat_pid\s+(\d+)\s+)\d+\s+.*$pattern$}
> {$1};
>
In RegExp you can use almost any delimiters. Most used are
s/PATERN/REPLACEMENT/;
but when I want to use / somewhere in the regexp then I tend to write it as
s#some/patern#REPLACEMENT#;
This allow me to avoid escaping /. Use basic syntax for example above this
will be write as
s/some\/patern/REPLACEMENT/;
You can use parenthesis too but in this case you must use left and right to
pair these.
--
Petr
Skype: callto://fidokomik
Na mail uvedeny v headeru zpravy nema cenu nic posilat, konci to v PR*
:-)
Odpovidejte na petr na practisoft cz
Petr Vileta, Czech republic
(My server rejects all messages from Yahoo and Hotmail. Send me your
mail from another non-spammer site please.)
Please reply to <petr AT practisoft DOT cz>
------------------------------
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 1090
***************************************
