[28476] in Perl-Users-Digest
Perl-Users Digest, Issue: 9840 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Oct 13 06:05:46 2006
Date: Fri, 13 Oct 2006 03:05:07 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 13 Oct 2006 Volume: 10 Number: 9840
Today's topics:
Re: beginner trying to use Getopt::Long <mark.leeds@morganstanley.com>
bless an object in a BEGIN block (Singleton) <zhushenli@gmail.com>
Re: bless an object in a BEGIN block (Singleton) anno4000@radom.zrz.tu-berlin.de
Re: bless an object in a BEGIN block (Singleton) <m@remove.this.part.rtij.nl>
Re: bless an object in a BEGIN block (Singleton) <zhushenli@gmail.com>
Re: bless an object in a BEGIN block (Singleton) anno4000@radom.zrz.tu-berlin.de
Re: bless an object in a BEGIN block (Singleton) <zhushenli@gmail.com>
Data inheritence with classes in Perl don.hosek@gmail.com
Re: Data inheritence with classes in Perl (reading news)
Re: Data inheritence with classes in Perl anno4000@radom.zrz.tu-berlin.de
Re: FAQ 4.36 How can I expand variables in text strings <m@remove.this.part.rtij.nl>
Re: FAQ 4.36 How can I expand variables in text strings anno4000@radom.zrz.tu-berlin.de
Re: Finding uneven file permissions with Perl <source@netcom.com>
Re: Finding uneven file permissions with Perl anno4000@radom.zrz.tu-berlin.de
Re: myspace meets tucows and planetsourcecode? PeateyK@gmail.com
new CPAN modules on Fri Oct 13 2006 (Randal Schwartz)
openGL 0.5 perl module problem, again <thedwig@gmail.com>
print sybase system stored procedure output to filehand peter.brown@exemail.com.au
Re: Problems with DBI and DBD::mysql (on Mac OS X 10.4, loutrenka@gmail.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 12 Oct 2006 21:06:15 -0700
From: "markpark" <mark.leeds@morganstanley.com>
Subject: Re: beginner trying to use Getopt::Long
Message-Id: <1160712375.900024.153290@i3g2000cwc.googlegroups.com>
Thank you very much to all of you who replied to my question. All of
you had variations in
your answers but I'm sure that they are all correct. This list is
really
amazing but at the same time i'll try not to abuse it and only ask
questions after I've tried my hardest. I really learned a lot and
really appreciate the
generosity and knowledge.
Mark
Jim Gibson wrote:
> In article <1160681534.877771.219400@b28g2000cwb.googlegroups.com>,
> Paul Lalli <mritty@gmail.com> wrote:
>
> > markpark wrote:
> > > I was hoping that someone could help me. I'm new to the list and I'm at
> > > a job
> > > and kind of under pressure and don't know who else to ask.
>
> [snip]
>
> > > sample of how it would be run. it's easier if one puts below in a shell
> > > script so
> > > that typing at command line is minimized.
> > >
> > > /u/etlfs/dev/users/leedsmar/res/proj2/perl_src/makedriver.pl
> > > -driverfile=r_driver -startdate=20060120 -enddate=20060130
> > > -starttime=00:00:01 -endtime=00:05:00 -currency=eur/usd.FXEBSLN
> > > -exchange=fxebsln -datadir=/u/etlfs/dev/users/leedsmar/res/proj2/wrk
> > > -outfile=test.dat
> >
> > Be very careful doing this. If by some chance you also had (for
> > example) -o, -u, -t, -f, -i, -l, and -e as valid options, I believe
> > calling your options with only one dash would set each of those
> > options, rather than 'outfile'. Use two dashes to eliminate the
> > ambiguity.
>
> That is not the default behavior. Getopt::Long will only accept
> "bundled" single-character options if
> Getopt::Long::Configure("bundling") has been called and
> Getopt::Long::Configure("bundling_override") has _not_ been called.
>
> --
> Jim Gibson
>
> Posted Via Usenet.com Premium Usenet Newsgroup Services
> ----------------------------------------------------------
> ** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
> ----------------------------------------------------------
> http://www.usenet.com
------------------------------
Date: 13 Oct 2006 00:02:31 -0700
From: "Davy" <zhushenli@gmail.com>
Subject: bless an object in a BEGIN block (Singleton)
Message-Id: <1160722951.570932.298010@i3g2000cwc.googlegroups.com>
Hi all,
A perl design pattern document talk about Singleton.
(http://www.perl.com/pub/a/2003/06/13/design1.html?page=2)
My problem is what's the BEGIN block mean? I just can not find it in
Perl Doc.
package Name;
my $singleton;
BEGIN {
$singleton = {
attribute => 'value',
another => 'something',
};
bless $singleton, "Name";
}
sub new {
my $class = shift;
return $singleton;
}
About Singleton: GoF calls the special case when there is a single
resource that everyone needs to share the singleton pattern. Perhaps
the resource is a hash of configuration parameters. Everyone should be
able to look there, but it should only be built on startup (and
possibly rebuilt on some signal).
Best regards,
Davy
------------------------------
Date: 13 Oct 2006 07:22:15 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: bless an object in a BEGIN block (Singleton)
Message-Id: <4p8t57Fhm4kaU1@news.dfncis.de>
Davy <zhushenli@gmail.com> wrote in comp.lang.perl.misc:
> Hi all,
>
> A perl design pattern document talk about Singleton.
> (http://www.perl.com/pub/a/2003/06/13/design1.html?page=2)
>
> My problem is what's the BEGIN block mean? I just can not find it in
> Perl Doc.
It's in perlmod.
A BEGIN block is executed as soon as it is compiled, thus before
any run-time action happens.
> package Name;
> my $singleton;
> BEGIN {
> $singleton = {
> attribute => 'value',
> another => 'something',
> };
> bless $singleton, "Name";
> }
> sub new {
> my $class = shift;
> return $singleton;
> }
If the code is part of a module the BEGIN block is not necessary
(unless code not shown makes it so). It may be needed if the singleton
class is defined within a script that uses it at run time.
> About Singleton: GoF calls the special case when there is a single
GoF?
> resource that everyone needs to share the singleton pattern. Perhaps
> the resource is a hash of configuration parameters. Everyone should be
> able to look there, but it should only be built on startup (and
> possibly rebuilt on some signal).
Anno
------------------------------
Date: Fri, 13 Oct 2006 09:40:31 +0200
From: Martijn Lievaart <m@remove.this.part.rtij.nl>
Subject: Re: bless an object in a BEGIN block (Singleton)
Message-Id: <pan.2006.10.13.07.40.28.276487@remove.this.part.rtij.nl>
On Fri, 13 Oct 2006 07:22:15 +0000, anno4000 wrote:
>> About Singleton: GoF calls the special case when there is a single
>
> GoF?
Gang of Four, the authors of "Design Patterns". One of those books
every programmer should read.
M4
--
Redundancy is a great way to introduce more single points of failure.
------------------------------
Date: 13 Oct 2006 02:02:20 -0700
From: "Davy" <zhushenli@gmail.com>
Subject: Re: bless an object in a BEGIN block (Singleton)
Message-Id: <1160730140.526567.130000@m7g2000cwm.googlegroups.com>
anno4000@radom.zrz.tu-berlin.de wrote:
> Davy <zhushenli@gmail.com> wrote in comp.lang.perl.misc:
> > Hi all,
> >
> > A perl design pattern document talk about Singleton.
> > (http://www.perl.com/pub/a/2003/06/13/design1.html?page=2)
> >
> > My problem is what's the BEGIN block mean? I just can not find it in
> > Perl Doc.
>
> It's in perlmod.
>
> A BEGIN block is executed as soon as it is compiled, thus before
> any run-time action happens.
[snip]
Hi,
If I call Name->new() several times, the $singleton will have only one
copy in memory.
But as you said, if not use BEGIN, the $singleton will have one copy
according to one object.
Is my understanding right?
Best regards,
Davy
>
> > package Name;
> > my $singleton;
> > BEGIN {
> > $singleton = {
> > attribute => 'value',
> > another => 'something',
> > };
> > bless $singleton, "Name";
> > }
> > sub new {
> > my $class = shift;
> > return $singleton;
> > }
>
> If the code is part of a module the BEGIN block is not necessary
> (unless code not shown makes it so). It may be needed if the singleton
> class is defined within a script that uses it at run time.
>
> > About Singleton: GoF calls the special case when there is a single
>
> GoF?
>
> > resource that everyone needs to share the singleton pattern. Perhaps
> > the resource is a hash of configuration parameters. Everyone should be
> > able to look there, but it should only be built on startup (and
> > possibly rebuilt on some signal).
>
> Anno
------------------------------
Date: 13 Oct 2006 09:14:58 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: bless an object in a BEGIN block (Singleton)
Message-Id: <4p93oiFho70lU1@news.dfncis.de>
Davy <zhushenli@gmail.com> wrote in comp.lang.perl.misc:
>
> anno4000@radom.zrz.tu-berlin.de wrote:
> > Davy <zhushenli@gmail.com> wrote in comp.lang.perl.misc:
> > > Hi all,
> > >
> > > A perl design pattern document talk about Singleton.
> > > (http://www.perl.com/pub/a/2003/06/13/design1.html?page=2)
> > >
> > > My problem is what's the BEGIN block mean? I just can not find it in
> > > Perl Doc.
> >
> > It's in perlmod.
> >
> > A BEGIN block is executed as soon as it is compiled, thus before
> > any run-time action happens.
> [snip]
> Hi,
>
> If I call Name->new() several times, the $singleton will have only one
> copy in memory.
Right. "new" is a misnomer here, it always gives you the pre-created
single object of the class.
> But as you said, if not use BEGIN, the $singleton will have one copy
> according to one object.
> Is my understanding right?
BEGIN doesn't change what the code in the block does, it only determines
when it does it, namely as early as possible. I don't think it's
necessary in the original context.
Anno
------------------------------
Date: 13 Oct 2006 03:00:15 -0700
From: "Davy" <zhushenli@gmail.com>
Subject: Re: bless an object in a BEGIN block (Singleton)
Message-Id: <1160733615.717722.186170@m73g2000cwd.googlegroups.com>
anno4000@radom.zrz.tu-berlin.de wrote:
> Davy <zhushenli@gmail.com> wrote in comp.lang.perl.misc:
> >
> > anno4000@radom.zrz.tu-berlin.de wrote:
> > > Davy <zhushenli@gmail.com> wrote in comp.lang.perl.misc:
> > > > Hi all,
> > > >
> > > > A perl design pattern document talk about Singleton.
> > > > (http://www.perl.com/pub/a/2003/06/13/design1.html?page=2)
> > > >
> > > > My problem is what's the BEGIN block mean? I just can not find it in
> > > > Perl Doc.
> > >
> > > It's in perlmod.
> > >
> > > A BEGIN block is executed as soon as it is compiled, thus before
> > > any run-time action happens.
> > [snip]
> > Hi,
> >
> > If I call Name->new() several times, the $singleton will have only one
> > copy in memory.
>
> Right. "new" is a misnomer here, it always gives you the pre-created
> single object of the class.
>
> > But as you said, if not use BEGIN, the $singleton will have one copy
> > according to one object.
> > Is my understanding right?
>
> BEGIN doesn't change what the code in the block does, it only determines
> when it does it, namely as early as possible. I don't think it's
> necessary in the original context.
[snip]
Thanks!
But design pattern Singleton means there is only one copy in the memory
that everyone (every object) can share. So I think there must be some
meaning to "bless in BEGIN block".
I have searched bless in this group and find "bless means link the
reference to the class". Therefore, if "bless in BEGIN i.e. bless at
compile time", maybe only one reference is generated?
Best regards,
Davy
>
> Anno
------------------------------
Date: 12 Oct 2006 21:01:29 -0700
From: don.hosek@gmail.com
Subject: Data inheritence with classes in Perl
Message-Id: <1160712089.115472.196360@m7g2000cwm.googlegroups.com>
As I'm getting a bit deeper into working with some object-oriented
design in Perl, I'm running into a big problem with how I deal with
things: In, say C++, I could have
class foo {
protected int bar
}
class baz : public foo {
void mymethod {
bar=6;
}
}
to give a grossly simplified example of what I'd like to do. But by
default, there is no data inheritence in perl. So if I have
package foo;
use Class::Std;
my %bar_of : ATTR;
package baz;
use Class::Std;
use base qw(foo);
sub mymethod {
my $self=shift;
$bar_of{$self}=6;
}
Won't work. What would the best way of dealing with this be?
------------------------------
Date: Fri, 13 Oct 2006 05:13:28 GMT
From: "Mumia W. (reading news)" <paduille.4059.mumia.w@earthlink.net>
Subject: Re: Data inheritence with classes in Perl
Message-Id: <YfFXg.6421$Lv3.1099@newsread1.news.pas.earthlink.net>
On 10/12/2006 11:01 PM, don.hosek@gmail.com wrote:
> As I'm getting a bit deeper into working with some object-oriented
> design in Perl, I'm running into a big problem with how I deal with
> things: In, say C++, I could have
>
> class foo {
> protected int bar
> }
>
> class baz : public foo {
> void mymethod {
> bar=6;
> }
> }
>
> to give a grossly simplified example of what I'd like to do. But by
> default, there is no data inheritence in perl. So if I have
>
> package foo;
> use Class::Std;
> my %bar_of : ATTR;
>
> package baz;
> use Class::Std;
> use base qw(foo);
>
> sub mymethod {
> my $self=shift;
> $bar_of{$self}=6;
> }
>
> Won't work. What would the best way of dealing with this be?
>
Read this: perldoc perltooc
This module might also help:
http://search.cpan.org/search?query=Class%3A%3AData%3A%3AInheritable&mode=module
--
Mumia W.
paduille.4059.mumia.w@earthlink.net
This is a temporary e-mail to help me catch some s-p*á/m.
------------------------------
Date: 13 Oct 2006 07:51:23 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: Data inheritence with classes in Perl
Message-Id: <4p8urrFgvhpqU1@news.dfncis.de>
<don.hosek@gmail.com> wrote in comp.lang.perl.misc:
> As I'm getting a bit deeper into working with some object-oriented
> design in Perl, I'm running into a big problem with how I deal with
> things: In, say C++, I could have
>
> class foo {
> protected int bar
> }
>
> class baz : public foo {
> void mymethod {
> bar=6;
> }
> }
>
> to give a grossly simplified example of what I'd like to do. But by
> default, there is no data inheritence in perl. So if I have
>
> package foo;
> use Class::Std;
> my %bar_of : ATTR;
>
> package baz;
> use Class::Std;
> use base qw(foo);
>
> sub mymethod {
> my $self=shift;
> $bar_of{$self}=6;
The line above is wrong in two ways.
You are not supposed to access the attribute hashes of other classes
directly. It would be impossible if the classes were written correctly,
with bare blocks around the attribute hashes. You must define an
accessor method in class foo and use that in bar::mymethod.
Also you need to use the identity() function when you access an
attribute hash "$bar_of{ identity $self} = ...".
> }
>
> Won't work. What would the best way of dealing with this be?
Your code doesn't show what you expect to happen, neither in C
nor in Perl. What does "won't work" mean?
At a guess, this may come closer:
package foo;
use Class::Std;
{
my %bar_of : ATTR( :set<bar> :get<bar>);
}
package baz;
use base qw(foo);
sub mymethod {
my $self=shift;
$self->set_bar( 6);
}
my $baz = baz->new;
$baz->mymethod;
print $baz->get_bar, "\n";
Anno
------------------------------
Date: Fri, 13 Oct 2006 09:45:01 +0200
From: Martijn Lievaart <m@remove.this.part.rtij.nl>
Subject: Re: FAQ 4.36 How can I expand variables in text strings?
Message-Id: <pan.2006.10.13.07.45.00.844223@remove.this.part.rtij.nl>
On Thu, 12 Oct 2006 18:03:02 -0700, PerlFAQ Server wrote:
> Let's assume that you have a string that contains placeholder
> variables.
>
> $text = 'this has a $foo in it and a $bar';
>
> You can use a substitution with a double evaluation. The first /e
> turns $1 into $foo, and the second /e turns $foo into its value. You
> may want to wrap this in an "eval": if you try to get the value of an
> undeclared variable while running under "use strict", you get a fatal
> error.
>
> eval { $text =~ s/(\$\w+)/$1/eeg };
> die if $@;
What is wrong with
$text = eval "$text";
M4
--
Redundancy is a great way to introduce more single points of failure.
------------------------------
Date: 13 Oct 2006 09:53:00 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: FAQ 4.36 How can I expand variables in text strings?
Message-Id: <4p95vsFhkummU1@news.dfncis.de>
Martijn Lievaart <m@remove.this.part.rtij.nl> wrote in comp.lang.perl.misc:
> On Thu, 12 Oct 2006 18:03:02 -0700, PerlFAQ Server wrote:
>
> > Let's assume that you have a string that contains placeholder
> > variables.
> >
> > $text = 'this has a $foo in it and a $bar';
> >
> > You can use a substitution with a double evaluation. The first /e
> > turns $1 into $foo, and the second /e turns $foo into its value. You
> > may want to wrap this in an "eval": if you try to get the value of an
> > undeclared variable while running under "use strict", you get a fatal
> > error.
> >
> > eval { $text =~ s/(\$\w+)/$1/eeg };
> > die if $@;
>
> What is wrong with
> $text = eval "$text";
It's utter nonsense, that's what's wrong. Take the time to run your
code at least once before posting.
Anno
------------------------------
Date: Fri, 13 Oct 2006 07:56:37 GMT
From: David Harmon <source@netcom.com>
Subject: Re: Finding uneven file permissions with Perl
Message-Id: <456b3ee9.234632062@news.west.earthlink.net>
On Thu, 12 Oct 2006 09:42:59 -0700 in comp.lang.perl.misc, Joe Smith <joe@inwap.com> wrote,
>Paul Lalli wrote:
>> my $user = ($mode / 8**2) % 8;
>> my $group = ($mode / 8) % 8;
>> my $other = $mode % 8;
>
>Another way of getting the same results by using different
>operators is:
>
>my($user,$group,$other) = (($mode&0700)>>16, ($mode&070)>>8), $mode&07);
Wouldn't that be >>6 and >>3
In C, which I am more familiar with, >>16 and >>8 would be shift right by 16 bits and by 8 bits respectively, which would be too many.
------------------------------
Date: 13 Oct 2006 09:33:10 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: Finding uneven file permissions with Perl
Message-Id: <4p94qmFhos8tU1@news.dfncis.de>
David Harmon <bad@example.invalid> wrote in comp.lang.perl.misc:
> On Thu, 12 Oct 2006 09:42:59 -0700 in comp.lang.perl.misc, Joe Smith
> <joe@inwap.com> wrote,
> >Paul Lalli wrote:
> >> my $user = ($mode / 8**2) % 8;
> >> my $group = ($mode / 8) % 8;
> >> my $other = $mode % 8;
> >
> >Another way of getting the same results by using different
> >operators is:
> >
> >my($user,$group,$other) = (($mode&0700)>>16, ($mode&070)>>8), $mode&07);
>
> Wouldn't that be >>6 and >>3
> In C, which I am more familiar with, >>16 and >>8 would be shift right
> by 16 bits and by 8 bits respectively, which would be too many.
Right, the shifts should be 6, 3 and 0. Also the parentheses don't
match up. Third, it is simpler to shift first and mask then, because
only one mask (7) is needed:
my ( $user, $group, $other) = (
( $mode >> 6) & 7,
( $mode >> 3) & 7,
$mode & 7,
);
or
my ($user,$group,$other) = map 7 & ( $mode >> $_) => 6, 3, 0;
Anno
------------------------------
Date: 12 Oct 2006 17:47:43 -0700
From: PeateyK@gmail.com
Subject: Re: myspace meets tucows and planetsourcecode?
Message-Id: <1160700463.728912.277310@e3g2000cwe.googlegroups.com>
Mad Scientist Jr wrote:
> Is there a myspace type site that is a place for programmers to post
> their apps for people to download? It would have to be user friendly
> like tucows but allow a programmer to create their own home page where
> they can post their apps (including open source if they wish). People
> can network and link to each other, rate other's apps, and search for
> code by platform/language/keyword/most popular, etc. It would support
> EVERY platform imaginable, from 8-bit atari code to .NET and Java apps.
> Does anything like this exist?
Since this is c.l.lisp, try:
common-lisp.net
but if you have to use other languages, look to these:
sourceforge.net = open-source only
freshmeat.net = prefers open source
------------------------------
Date: Fri, 13 Oct 2006 04:42:08 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Fri Oct 13 2006
Message-Id: <J72528.1zFM@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-Instrument-0.01
http://search.cpan.org/~gozer/Apache2-Instrument-0.01/
----
Catalyst-Plugin-Authentication-Credential-HTTP-0.08
http://search.cpan.org/~nuffin/Catalyst-Plugin-Authentication-Credential-HTTP-0.08/
HTTP Basic and Digest authentication for Catalyst.
----
Catalyst-Plugin-Session-0.13
http://search.cpan.org/~nuffin/Catalyst-Plugin-Session-0.13/
Generic Session plugin - ties together server side storage and client side state required to maintain session data.
----
Catalyst-Plugin-Setenv-0.01
http://search.cpan.org/~jrockway/Catalyst-Plugin-Setenv-0.01/
Allows you to set up the environment from Catalyst's config file.
----
DBIx-Class-Schema-Loader-0.03007_01
http://search.cpan.org/~blblack/DBIx-Class-Schema-Loader-0.03007_01/
Dynamic definition of a DBIx::Class::Schema
----
Deco-0.10
http://search.cpan.org/~narked/Deco-0.10/
Module for simulating body tissue during a scuba dive
----
Drupal-Module-Starter-0.04
http://search.cpan.org/~smcnabb/Drupal-Module-Starter-0.04/
Create Drupal Module starter files
----
Email-Address-1.861
http://search.cpan.org/~rjbs/Email-Address-1.861/
RFC 2822 Address Parsing and Creation
----
Email-Address-1.871
http://search.cpan.org/~rjbs/Email-Address-1.871/
RFC 2822 Address Parsing and Creation
----
Email-MIME-1.853
http://search.cpan.org/~rjbs/Email-MIME-1.853/
Easy MIME message parsing.
----
Email-MIME-ContentType-1.011
http://search.cpan.org/~rjbs/Email-MIME-ContentType-1.011/
Parse a MIME Content-Type Header
----
File-Attributes-Recursive-0.02
http://search.cpan.org/~jrockway/File-Attributes-Recursive-0.02/
Inherit file attributes from parent directories.
----
IPC-PerlSSH-0.01
http://search.cpan.org/~pevans/IPC-PerlSSH-0.01/
a class for executing remote perl code over an SSH link
----
Java-Swing-0.13
http://search.cpan.org/~philcrow/Java-Swing-0.13/
Perl extension providing direct access to the Java Swing API
----
Mail-DomainKeys-0.88
http://search.cpan.org/~anthonyu/Mail-DomainKeys-0.88/
A perl implementation of DomainKeys
----
Module-Build-Convert-0.42
http://search.cpan.org/~schubiger/Module-Build-Convert-0.42/
Makefile.PL to Build.PL converter
----
Module-Util-1.02
http://search.cpan.org/~mattlaw/Module-Util-1.02/
Module name tools and transformations
----
Net-CIDR-MobileJP-v0.0.1
http://search.cpan.org/~tokuhirom/Net-CIDR-MobileJP-v0.0.1/
mobile ip address in Japan
----
Net-CIDR-MobileJP-v0.0.2
http://search.cpan.org/~tokuhirom/Net-CIDR-MobileJP-v0.0.2/
mobile ip address in Japan
----
Net-GPSD-0.26
http://search.cpan.org/~mrdvt/Net-GPSD-0.26/
Provides a perl interface to the gpsd daemon.
----
Net-Whois-ARIN-0.11
http://search.cpan.org/~tcaine/Net-Whois-ARIN-0.11/
ARIN whois client
----
PAR-Dist-0.21
http://search.cpan.org/~smueller/PAR-Dist-0.21/
Create and manipulate PAR distributions
----
POE-Component-IRC-5.06
http://search.cpan.org/~bingos/POE-Component-IRC-5.06/
a fully event-driven IRC client module.
----
PPM-Make-0.88
http://search.cpan.org/~rkobes/PPM-Make-0.88/
Make a ppm package from a CPAN distribution
----
RT-View-Directory-1.7
http://search.cpan.org/~jesse/RT-View-Directory-1.7/
----
Sys-SigAction-0.08
http://search.cpan.org/~lbaxter/Sys-SigAction-0.08/
Perl extension for Consistent Signal Handling
----
Task-Email-PEP-All-6284.193
http://search.cpan.org/~rjbs/Task-Email-PEP-All-6284.193/
every Perl Email Project distribution, for testing
----
Task-Email-PEP-NoStore-6284.193
http://search.cpan.org/~rjbs/Task-Email-PEP-NoStore-6284.193/
every Perl Email Project distribution... except Email::Store
----
Test-Class-0.19
http://search.cpan.org/~adie/Test-Class-0.19/
Easily create test classes in an xUnit/JUnit style
----
Text-ASCIIMathML-0.2
http://search.cpan.org/~nodine/Text-ASCIIMathML-0.2/
Perl extension for parsing ASCIIMathML text into MathML
----
Text-ASCIIMathML-0.3
http://search.cpan.org/~nodine/Text-ASCIIMathML-0.3/
Perl extension for parsing ASCIIMathML text into MathML
----
Thread-Cancel-1.04
http://search.cpan.org/~jdhedden/Thread-Cancel-1.04/
Cancel (i.e., kill) threads
----
Thread-Suspend-1.08
http://search.cpan.org/~jdhedden/Thread-Suspend-1.08/
Suspend and resume operations for threads
----
Touch-0.01
http://search.cpan.org/~smpeters/Touch-0.01/
touch a file
----
WWW-Google-Notebook-0.01
http://search.cpan.org/~jiro/WWW-Google-Notebook-0.01/
Perl interface for Google Notebook
----
WWW-Search-PubMed-1.002
http://search.cpan.org/~gwilliams/WWW-Search-PubMed-1.002/
Search the NCBI PubMed abstract database
----
threads-shared-1.04
http://search.cpan.org/~jdhedden/threads-shared-1.04/
Perl extension for sharing data structures between threads
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: 12 Oct 2006 17:53:10 -0700
From: "thedwig@gmail.com" <thedwig@gmail.com>
Subject: openGL 0.5 perl module problem, again
Message-Id: <1160700790.510662.318010@b28g2000cwb.googlegroups.com>
hi.
%tar -xvf OpenGL-0.5.tar.gz
%cd OpenGL-0.5
%perl Makefile.PL
and then i met messages.....
Note (probably harmless): No library found for -lGLUT
Note (probably harmless): No library found for -lGLX
Note (probably harmless): No library found for -lMesaGLU
Note (probably harmless): No library found for -lMesaGLUT
Note (probably harmless): No library found for -lMesaGLX
Note (probably harmless): No library found for -lXIE
how can i solve this problem? help...
ok. i got it- library isn't exist-
but, how can i install this libraries (GLUT, GLX, etc.)???? -help
------------------------------
Date: 12 Oct 2006 19:39:39 -0700
From: peter.brown@exemail.com.au
Subject: print sybase system stored procedure output to filehandle
Message-Id: <1160707179.455563.259070@i3g2000cwc.googlegroups.com>
Hi - is there a simple way to redirect the output from a Sybase system
stored proc [sp_recompile] to an open filhandle - currently the output
- 'Each stored procedure and trigger that uses table 'xxxxx will be
recompiled the next time it is executed.' - is printed on the console.
thx
pete
here's a snip of the code ...
while ( @row = $sth->fetchrow_array ) {
print LOG "Updating statistics for table $dostats\nSTART $row[0]\n";}
$sth = $dbh->prepare("update statistics $dostats");
$sth->execute || die "update stats failed on table $dostats.\n";
$sth = $dbh->prepare("sp_recompile $dostats"); <== problem cmd
$sth->execute || die "sp_recompile failed on table $dostats.\n";
...
------------------------------
Date: 12 Oct 2006 18:03:41 -0700
From: loutrenka@gmail.com
Subject: Re: Problems with DBI and DBD::mysql (on Mac OS X 10.4, Intel)
Message-Id: <1160701421.736921.201790@i42g2000cwa.googlegroups.com>
I am having the same problem and have the same (on Mac OS X 10.4,
Intel) as you.
I have installed both modules via cpan and rechecked that they are up
to date.
Getting Frustrated
> Ben Morrow wrote :
> >
> > You almost certainly don't have the mysql client libraries installed
> > correctly, or somehow you are picking up a different version from when
> > you built DBD::mysql.
>
> Okay, thank you for this information.
> But still I don't know, how I can fix this.
> I have read the installation instructions for DBI::mysql but I have to
> admit that I do not understand too much of it.
>
> Greetings
> Martin
>
> --
> perl -e '$S=[[73,116,114,115,31,96],[108,109,114,102,99,112],
> [29,77,98,111,105,29],[100,93,95,103,97,110]];
> for(0..3){for$s(0..5){print(chr($S->[$_]->[$s]+$_+1))}}'
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 9840
***************************************
