[29988] in Perl-Users-Digest
Perl-Users Digest, Issue: 1231 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jan 25 06:09:43 2008
Date: Fri, 25 Jan 2008 03: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 Fri, 25 Jan 2008 Volume: 11 Number: 1231
Today's topics:
Re: A "deep" hash to/from a file? <none@none.none>
Re: best way to store binary image data in a variable u <jack_posemsky@yahoo.com>
best way to store binary image data in a variable using <jack_posemsky@yahoo.com>
Re: best way to store binary image data in a variable u <someone@example.com>
Re: Can't Install Perl as Non-Root <Dawmail333@gmail.com>
Re: Can't Install Perl as Non-Root <Dawmail333@gmail.com>
Re: Can't Install Perl as Non-Root <Dawmail333@gmail.com>
E-classifieds review <rashida.guide@gmail.com>
Re: File::SortedSeek not working <tzhai2007@gmail.com>
Re: Get an arbitrary hash key, quickly. <ben@morrow.me.uk>
new CPAN modules on Fri Jan 25 2008 (Randal Schwartz)
not defined v. eq undef <john1949@yahoo.com>
Re: not defined v. eq undef <1usa@llenroc.ude.invalid>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 25 Jan 2008 08:32:35 GMT
From: Pat <none@none.none>
Subject: Re: A "deep" hash to/from a file?
Message-Id: <Xns9A30FD0FEB7Dnone@140.99.99.130>
Jürgen Exner wrote:
> You may want to have a look a
> Data::Dumper - stringified perl data structures, suitable for both
> printing and "eval"
>
> It is designed for specifically that purpose.
Thanks for all the suggestions. Using Dumper and eval() turned out to be
pretty straightforward. Just a slight reformatting was needed to match the
Dumper syntax.
Pat
------------------------------
Date: Thu, 24 Jan 2008 22:19:35 -0800 (PST)
From: Jack <jack_posemsky@yahoo.com>
Subject: Re: best way to store binary image data in a variable using image magick
Message-Id: <afb8abed-55d1-4e6d-986b-84da9cde27a3@q21g2000hsa.googlegroups.com>
On Jan 24, 10:17=A0pm, Jack <jack_posem...@yahoo.com> wrote:
> Hi all,
>
> Just wanted to know the code for doin this, such that I can use the
> variable for doing other kinds of methods against it..
>
> I tried this, and I can printout the binary data, but I am finding you
> can assign the image data to a variable for further processing.. any
> ideas ? =A0I noticed that this line: =A0 =A0$img->Write('jpg:-'); =A0 actu=
ally
> displayed the image data, but how do I assign that binary data to a
> variable ??
>
> use Image::Magick;
> my $img =3D new Image::Magick;
> $x=3D $img->Read("c:\\tmp\\ean81.bmp");
>
> ## doesnt work: =A0 =A0$img->Write('$temp');
Hi forgot to say when I print $img or $x I get ---
Image::Magick=3DARRAY(0x2260a4)
------------------------------
Date: Thu, 24 Jan 2008 22:17:29 -0800 (PST)
From: Jack <jack_posemsky@yahoo.com>
Subject: best way to store binary image data in a variable using image magick
Message-Id: <5305cfa2-99d5-4c5c-8e97-2cb27dc1a5df@e25g2000prg.googlegroups.com>
Hi all,
Just wanted to know the code for doin this, such that I can use the
variable for doing other kinds of methods against it..
I tried this, and I can printout the binary data, but I am finding you
can assign the image data to a variable for further processing.. any
ideas ? I noticed that this line: $img->Write('jpg:-'); actually
displayed the image data, but how do I assign that binary data to a
variable ??
use Image::Magick;
my $img = new Image::Magick;
$x= $img->Read("c:\\tmp\\ean81.bmp");
## doesnt work: $img->Write('$temp');
------------------------------
Date: Fri, 25 Jan 2008 10:59:07 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: best way to store binary image data in a variable using image magick
Message-Id: <%hjmj.14412$vp3.13248@edtnps90>
Jack wrote:
>
> Just wanted to know the code for doin this, such that I can use the
> variable for doing other kinds of methods against it..
>
> I tried this, and I can printout the binary data, but I am finding you
> can assign the image data to a variable for further processing.. any
> ideas ? I noticed that this line: $img->Write('jpg:-'); actually
> displayed the image data, but how do I assign that binary data to a
> variable ??
>
> use Image::Magick;
> my $img = new Image::Magick;
> $x= $img->Read("c:\\tmp\\ean81.bmp");
>
> ## doesnt work: $img->Write('$temp');
Did you read their web page at:
http://www.imagemagick.org/script/perl-magick.php
Hint: ImageToBlob
John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order. -- Larry Wall
------------------------------
Date: Thu, 24 Jan 2008 17:16:11 -0800 (PST)
From: dawmail333 <Dawmail333@gmail.com>
Subject: Re: Can't Install Perl as Non-Root
Message-Id: <c3586621-0f35-4937-8773-2ad2d2ba4735@u10g2000prn.googlegroups.com>
On Jan 24, 10:39=A0pm, Ben Morrow <b...@morrow.me.uk> wrote:
> Quoth dawmail333 <Dawmail...@gmail.com>:
>
> > On Jan 24, 2:45=A0pm, dawmail333 <Dawmail...@gmail.com> wrote:
> > > On Jan 24, 2:22=A0pm, Ben Morrow <b...@morrow.me.uk> wrote:
>
> > > > --- lib/File/Spec/Unix.pm =A0 =A0 =A0 Thu Jan 24 04:18:08 2008
> > > > +++ lib/File/Spec/Unix.pm.cwd =A0 Thu Jan 24 04:19:40 2008
> > > > @@ -475,7 +475,7 @@
> > > > =A0# File::Spec subclasses use this.
> > > > =A0sub _cwd {
> > > > =A0 =A0 =A0require Cwd;
> > > > - =A0 =A0Cwd::getcwd();
> > > > + =A0 =A0Cwd::cwd();
> > > > =A0}
>
> > > That patch didn't work, so I manually changed the line in question.
>
> It applied when it left here (I checked), so your newsreader made a mess
> of it somehow.
>
> <snip>
>
> > Sorry, I fixed this problem as well. =A0I have hit another one:
>
> > make[1]: Leaving directory `/home/.bazooka/dawliam/perl-5.10.0/ext/
> > Digest/SHA'
>
> > =A0 =A0 =A0 =A0 Making Encode (dynamic)
> > opendir(../../lib/../../../..): Permission denied at ../../lib/
> > ExtUtils/MakeMake
> > r.pm line 182
>
> OK, this is getting silly... one more try, then I'm giving up :).
>
> Ben
>
> --- lib/Cwd.pm =A0Tue Dec 18 10:47:07 2007
> +++ lib/Cwd.pm.cwd =A0 =A0 =A0Thu Jan 24 12:33:29 2008
> @@ -501,6 +501,11 @@
> =A0sub _perl_abs_path
> =A0{
> =A0 =A0 =A0my $start =3D @_ ? shift : '.';
> +
> + =A0 =A0# this just returns a path down from /, without attempting to
> + =A0 =A0# resolve .. or symlinks. It *may* be sufficient to build perl.
> + =A0 =A0return $start =3D~ m!^/! ? $start : cwd() . '/' . $start;
> +
> =A0 =A0 =A0my($dotdots, $cwd, @pst, @cst, $dir, @tst);
>
> =A0 =A0 =A0unless (@cst =3D stat( $start ))
It worked!!! It said the patch ended unexpectedly, but it still
patched, and Perl is installed!
Just a question though, I set the prefix to /home/.bazooka/dawliam/
bin/
thinking that it would then be /home/.bazooka/dawliam/bin/perl,
but instead, it is /home/.bazooka/dawliam/bin/bin/perl.
Is it possible to shift it, and not have to remake or reinstall the
CPAN packages I installed?
------------------------------
Date: Thu, 24 Jan 2008 17:24:03 -0800 (PST)
From: dawmail333 <Dawmail333@gmail.com>
Subject: Re: Can't Install Perl as Non-Root
Message-Id: <28fd99e4-5bc1-49c2-88ff-40244690df27@s27g2000prg.googlegroups.com>
On Jan 24, 10:39=A0pm, Ben Morrow <b...@morrow.me.uk> wrote:
> Quoth dawmail333 <Dawmail...@gmail.com>:
>
> > On Jan 24, 2:45=A0pm, dawmail333 <Dawmail...@gmail.com> wrote:
> > > On Jan 24, 2:22=A0pm, Ben Morrow <b...@morrow.me.uk> wrote:
>
> > > > --- lib/File/Spec/Unix.pm =A0 =A0 =A0 Thu Jan 24 04:18:08 2008
> > > > +++ lib/File/Spec/Unix.pm.cwd =A0 Thu Jan 24 04:19:40 2008
> > > > @@ -475,7 +475,7 @@
> > > > =A0# File::Spec subclasses use this.
> > > > =A0sub _cwd {
> > > > =A0 =A0 =A0require Cwd;
> > > > - =A0 =A0Cwd::getcwd();
> > > > + =A0 =A0Cwd::cwd();
> > > > =A0}
>
> > > That patch didn't work, so I manually changed the line in question.
>
> It applied when it left here (I checked), so your newsreader made a mess
> of it somehow.
>
> <snip>
>
> > Sorry, I fixed this problem as well. =A0I have hit another one:
>
> > make[1]: Leaving directory `/home/.bazooka/dawliam/perl-5.10.0/ext/
> > Digest/SHA'
>
> > =A0 =A0 =A0 =A0 Making Encode (dynamic)
> > opendir(../../lib/../../../..): Permission denied at ../../lib/
> > ExtUtils/MakeMake
> > r.pm line 182
>
> OK, this is getting silly... one more try, then I'm giving up :).
>
> Ben
>
> --- lib/Cwd.pm =A0Tue Dec 18 10:47:07 2007
> +++ lib/Cwd.pm.cwd =A0 =A0 =A0Thu Jan 24 12:33:29 2008
> @@ -501,6 +501,11 @@
> =A0sub _perl_abs_path
> =A0{
> =A0 =A0 =A0my $start =3D @_ ? shift : '.';
> +
> + =A0 =A0# this just returns a path down from /, without attempting to
> + =A0 =A0# resolve .. or symlinks. It *may* be sufficient to build perl.
> + =A0 =A0return $start =3D~ m!^/! ? $start : cwd() . '/' . $start;
> +
> =A0 =A0 =A0my($dotdots, $cwd, @pst, @cst, $dir, @tst);
>
> =A0 =A0 =A0unless (@cst =3D stat( $start ))
Oh great, I can't seem to install some modules. Considering there is
an earlier version of perl on the system, what special configuration
do I need to do?
------------------------------
Date: Thu, 24 Jan 2008 18:06:39 -0800 (PST)
From: dawmail333 <Dawmail333@gmail.com>
Subject: Re: Can't Install Perl as Non-Root
Message-Id: <345b3264-215f-47a5-bb99-df42ff37d3b9@l32g2000hse.googlegroups.com>
On Jan 24, 10:39=A0pm, Ben Morrow <b...@morrow.me.uk> wrote:
> Quoth dawmail333 <Dawmail...@gmail.com>:
>
> > On Jan 24, 2:45=A0pm, dawmail333 <Dawmail...@gmail.com> wrote:
> > > On Jan 24, 2:22=A0pm, Ben Morrow <b...@morrow.me.uk> wrote:
>
> > > > --- lib/File/Spec/Unix.pm =A0 =A0 =A0 Thu Jan 24 04:18:08 2008
> > > > +++ lib/File/Spec/Unix.pm.cwd =A0 Thu Jan 24 04:19:40 2008
> > > > @@ -475,7 +475,7 @@
> > > > =A0# File::Spec subclasses use this.
> > > > =A0sub _cwd {
> > > > =A0 =A0 =A0require Cwd;
> > > > - =A0 =A0Cwd::getcwd();
> > > > + =A0 =A0Cwd::cwd();
> > > > =A0}
>
> > > That patch didn't work, so I manually changed the line in question.
>
> It applied when it left here (I checked), so your newsreader made a mess
> of it somehow.
>
> <snip>
>
> > Sorry, I fixed this problem as well. =A0I have hit another one:
>
> > make[1]: Leaving directory `/home/.bazooka/dawliam/perl-5.10.0/ext/
> > Digest/SHA'
>
> > =A0 =A0 =A0 =A0 Making Encode (dynamic)
> > opendir(../../lib/../../../..): Permission denied at ../../lib/
> > ExtUtils/MakeMake
> > r.pm line 182
>
> OK, this is getting silly... one more try, then I'm giving up :).
>
> Ben
>
> --- lib/Cwd.pm =A0Tue Dec 18 10:47:07 2007
> +++ lib/Cwd.pm.cwd =A0 =A0 =A0Thu Jan 24 12:33:29 2008
> @@ -501,6 +501,11 @@
> =A0sub _perl_abs_path
> =A0{
> =A0 =A0 =A0my $start =3D @_ ? shift : '.';
> +
> + =A0 =A0# this just returns a path down from /, without attempting to
> + =A0 =A0# resolve .. or symlinks. It *may* be sufficient to build perl.
> + =A0 =A0return $start =3D~ m!^/! ? $start : cwd() . '/' . $start;
> +
> =A0 =A0 =A0my($dotdots, $cwd, @pst, @cst, $dir, @tst);
>
> =A0 =A0 =A0unless (@cst =3D stat( $start ))
It worked! I installed perl! Now, the trick is, what configuration
do I need to install modules? There is another version of perl which
I can't install modules to, so can you tell me what configuration I
need?
------------------------------
Date: Fri, 25 Jan 2008 03:00:31 -0800 (PST)
From: Rashida <rashida.guide@gmail.com>
Subject: E-classifieds review
Message-Id: <23b2d790-7e71-4eff-a38c-756fd4872f97@e32g2000prn.googlegroups.com>
AJ Classifieds is a fully functional Classifieds Site with full
administration controls. The user can search for postings by
Description and Main-category. Moreover, there is no registration for
postings. The user can hide his/her email id. The user has the option
of editing and deleting the posting. User can verify his/her email
before publishing the posting.
Sources: http://www.ajclassifieds.net/features.php
------------------------------
Date: Thu, 24 Jan 2008 20:24:16 -0800 (PST)
From: worker <tzhai2007@gmail.com>
Subject: Re: File::SortedSeek not working
Message-Id: <8b6fe278-7389-466a-91fd-510102ff35c9@i3g2000hsf.googlegroups.com>
On Jan 24, 4:00 pm, xhos...@gmail.com wrote:
> worker <tzhai2...@gmail.com> wrote:
> > On Jan 24, 12:36 pm, "J. Gleixner" <glex_no-s...@qwest-spam-
> > no.invalid> wrote:
> > > worker wrote:
> > > > Hi, all,
> > > > I am using this File::SortedSeek module to search a big data file
> > > > and it is not working.
>
> > > > The data file has these entries:
>
> > > > 01/01/1960,0.75
> > > > 01/02/1960,0.00
>
> The example code produced file like this:
>
> 01/10/1949,0.1
> 01/02/1950,0.2
> 1/1/1960,7.0
> 1/2/1960,8.0
> 3/3/1980,9.0
>
> It is not canonical, as the sometimes it is zero-padded and sometimes
> it is not. It does appear to be in a reasonable sorted order, but I
> don't know if that is by design or by accident (If you designed something
> to sort it properly, why doesn't it canonicalize it while it is at it?)
>
> But isn't clear if the semantics are day/month/year or month/day/year,
> as both are compatible with the given order. I'm assuming day/month/year
>
> ...
>
> > $line = <DTEST>;
> > chomp ($line);
> > $tell = File::SortedSeek::alphabetic(*TEST,$line,\&munge_string);
>
> The query $line needs to be munged in way compatible with the querent
> lines' munging. Otherwise it won't work. The easiest way to do this is to
> pass in munge_string($line) rather than $line.
>
>
>
> > sub munge_string {
> > my $line = shift || return undef;
> > # return ($line =~ m/\|(\w+)$/) ? $1 : undef;
> > # return ($line =~ m/^[0-9]+\/[0-9]+\/[0-9]+,/) ? $1 : undef;
> > return ($line =~ m/^\/,/) ? $1 : undef;
> > }
>
> The function has to munge the data in such a way that the lines of the
> file being searched are in alphabetic sorted order after the munging. With
> the sort order your file already has, it thus has to reorder the fields so
> that the most significant (year) comes first.
>
> return ($line =~ m/(^[0-9]+)\/([0-9]+)\/([0-9]+)(,|$)/) ?
> sprintf "%04d%02d%02d", $3,$2,$1 : undef;
>
> The (,|$) is so that it will work on the query, which is not followed by a
> comma, as well as the querent.
>
> Xho
>
> --
> --------------------http://NewsReader.Com/--------------------
> The costs of publication of this article were defrayed in part by the
> payment of page charges. This article must therefore be hereby marked
> advertisement in accordance with 18 U.S.C. Section 1734 solely to indicate
> this fact.
thnx for the explanation.
I made the following changes according to your suggestions:
$aSimDateMunged = &munge_string($aSimDate);
$tell = File::SortedSeek::alphabetic(*FRAW,$aSimDateMunged,
\&munge_string);
return ($line =~ m/(^[0-9]+)\/([0-9]+)\/([0-9]+)(,|$)/) ?
sprintf "%04d%02d%02d", $3,$1,$2 : undef;
my data is in month/day/year.
once I tried it, this is what I got as response:
Name "main::tell" used only once: possible typo at ztest.pl line 22.
Ark, File::SortedSeek got to EOF
Failed to find: 'SCALAR(0x354c0)'
The search mode for the file was 'Ascending order'
$line: undef
$next: undef
File size: 74 Bytes
$top: 55 Bytes
$bottom: 74 Bytes
Perhaps try reversing the search mode
Are you using the correct method - alhpabetic or numeric?
If you think it is a bug please send a bug report to:
jfreeman@tassie.net.au
A sample of the file, the call to this module and
this error message will help to fix the problem
Use of uninitialized value in concatenation (.) or string at ztest.pl
line 25, <
TEST> line 8.
Found it?::
Help?
------------------------------
Date: Fri, 25 Jan 2008 00:05:49 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Get an arbitrary hash key, quickly.
Message-Id: <tnln65-d5t.ln1@osiris.mauzo.dyndns.org>
Quoth xhoster@gmail.com:
> I need a work queue, but I don't really care about the order (LIFO, FIFO,
> random) in which things come out of it. Either is pretty simple and
> efficient with a Perl array, and either would suffice. But I want the
> queue to not hold duplicate entries. I could use an array as a stack or
> queue, with a parallel hash to be checked to prevent duplicates from being
> entered. But why keep parallel data structures? Just use the hash as the
> queue:
>
> while (key %hash) {
> my $to_do=each %hash;
> delete $hash{$to_do};
> ## do stuff with $to_do, which might make new entries in %hash
> };
>
> Well, except that this gets really slow on large hashes.
I would have thought the obvious method would be
my (@queue, %done);
while (my $to_do = shift @queue) {
exists $done{$to_do} and next;
$done{$to_do} = 1;
process_stuff($to_do);
}
obviously, if you wanted to deliberately requeue something you would
need to know that, and delete the hash entry. I realize you're trying to
avoid parallel data structures, but $done is pretty much
self-maintaining, so I don't know if that applies here.
> I suspect the each operator does a linear scan of all the buckets until it
> finds an occupied one. With a hash that used to be big but now isn't (and
> so has lots of empty buckets), this behaves poorly, essentially being N^2
> to empty a large hash.
Presumably you could fix this with
%hash = %hash;
if that would be helpful. Of course, you'll copy everything.
> If I just use scalar %hash instead of scalar keys %hash, then the slow down
> doesn't occur because "each" scans the buckets from where it left off last
> time, instead of from the beginning each time. (At first I thought it was
> scalar keys %hash that was being slow and was going to post about *that*,
> but then I realized that keys' reseting of the iterator was causing "each"
> to be slow). But you shouldn't change a hash at the same time you iterate
> over it because things might get missed. Presumably, anything missed will
> be found on the next time through the iterator, so this might work without
> the slowdown:
Presumably also things might get found twice, depending on how the
buckets get reorganized. Since you're always deleting the current
element before calling each again that shouldn't be a problem here.
> Any comments on this code? Is there some less quirky way to do this
> efficiently? Is there a simple (as simple as perl's internals can get)
> way to fix "each" so that it doesn't have this degenerate case?
Presumably switching to something like BerkeleyDB::BTREE would also fix
this problem, since btrees are designed to be iterated over. I don't
know how much grief the tie overhead would cause in this case;
presumably an implementation could be made that used U/u magic directly
rather than tie magic, and so avoided the method calls.
Ben
------------------------------
Date: Fri, 25 Jan 2008 05:42:15 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Fri Jan 25 2008
Message-Id: <Jv6qIF.oB7@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.
AI-MegaHAL-0.06_01
http://search.cpan.org/~chorny/AI-MegaHAL-0.06_01/
Perl interface to the MegaHAL natural language conversation simulator.
----
Algorithm-LBFGS-0.11
http://search.cpan.org/~laye/Algorithm-LBFGS-0.11/
Perl extension for L-BFGS
----
Apache-Session-1.85_01
http://search.cpan.org/~chorny/Apache-Session-1.85_01/
A persistence framework for session data
----
CPAN-Reporter-1.07_05
http://search.cpan.org/~dagolden/CPAN-Reporter-1.07_05/
Adds CPAN Testers reporting to CPAN.pm
----
Cache-Memcached-Fast-0.08
http://search.cpan.org/~kroki/Cache-Memcached-Fast-0.08/
Perl client for memcached, in C language
----
Carp-Clan-Share-0.01
http://search.cpan.org/~rkrimen/Carp-Clan-Share-0.01/
Share your Carp::Clan settings with your whole Clan
----
Carp-Clan-Share-0.011
http://search.cpan.org/~rkrimen/Carp-Clan-Share-0.011/
Share your Carp::Clan settings with your whole Clan
----
Catalyst-Plugin-Authentication-0.10005
http://search.cpan.org/~jayk/Catalyst-Plugin-Authentication-0.10005/
Infrastructure plugin for the Catalyst authentication framework.
----
DBIx-Class-0.08009
http://search.cpan.org/~jrobinson/DBIx-Class-0.08009/
Extensible and flexible object <-> relational mapper.
----
Data-FeatureFactory-0.03-r2
http://search.cpan.org/~sixtease/Data-FeatureFactory-0.03-r2/
evaluate features normally or numerically
----
File-Slurp-9999.13
http://search.cpan.org/~drolsky/File-Slurp-9999.13/
Efficient Reading/Writing of Complete Files
----
HTML-Template-Compiled-0.91
http://search.cpan.org/~tinita/HTML-Template-Compiled-0.91/
Template System Compiles HTML::Template files to Perl code
----
Keystone-Resolver-1.13
http://search.cpan.org/~mirk/Keystone-Resolver-1.13/
an OpenURL resolver
----
LEOCHARRE-CLI-1.11
http://search.cpan.org/~leocharre/LEOCHARRE-CLI-1.11/
useful subs for coding cli scripts
----
LWP-UserAgent-iTMS_Client-0.22
http://search.cpan.org/~billh/LWP-UserAgent-iTMS_Client-0.22/
libwww-perl client for Apple iTunes music store
----
Mail-DKIM-0.30.1
http://search.cpan.org/~jaslong/Mail-DKIM-0.30.1/
Signs/verifies Internet mail with DKIM/DomainKey signatures
----
MooseX-InsideOut-0.001
http://search.cpan.org/~hdp/MooseX-InsideOut-0.001/
inside-out objects with Moose
----
ObjectDBI-0.10
http://search.cpan.org/~kjh/ObjectDBI-0.10/
Perl Object Persistence in an RDBMS using DBI
----
POE-Component-Server-NSCA-0.02
http://search.cpan.org/~bingos/POE-Component-Server-NSCA-0.02/
a POE Component that implements NSCA daemon functionality
----
POE-Component-Server-Syslog-1.10
http://search.cpan.org/~bingos/POE-Component-Server-Syslog-1.10/
syslog services for POE
----
POE-Component-SimpleDBI-1.20
http://search.cpan.org/~apocal/POE-Component-SimpleDBI-1.20/
Asynchronous non-blocking DBI calls in POE made simple
----
Perl-Repository-APC-2.000_000285
http://search.cpan.org/~andk/Perl-Repository-APC-2.000_000285/
Class modelling "All Perl Changes" repository
----
RRD-Simple-1.44
http://search.cpan.org/~nicolaw/RRD-Simple-1.44/
Simple interface to create and store data in RRD files
----
SMS-Send-IS-Vit-0.02
http://search.cpan.org/~avar/SMS-Send-IS-Vit-0.02/
SMS::Send driver for vit.is
----
SMS-Send-IS-Vodafone-0.02
http://search.cpan.org/~avar/SMS-Send-IS-Vodafone-0.02/
SMS::Send driver for vodafone.is
----
Socket-GetAddrInfo-0.08_5
http://search.cpan.org/~pevans/Socket-GetAddrInfo-0.08_5/
RFC 2553's getaddrinfo and getnameinfo functions.
----
Template-Like-0.06
http://search.cpan.org/~askadna/Template-Like-0.06/
Lightweight Template Engine.
----
Test-C2FIT-0.08
http://search.cpan.org/~tjbyrne/Test-C2FIT-0.08/
A direct Perl port of Ward Cunningham's FIT acceptance test framework for Java.
----
Test-Manifest-1.22_02
http://search.cpan.org/~bdfoy/Test-Manifest-1.22_02/
interact with a t/test_manifest file
----
Text-Quoted-2.05
http://search.cpan.org/~ruz/Text-Quoted-2.05/
Extract the structure of a quoted mail message
----
Tripletail-0.40
http://search.cpan.org/~hio/Tripletail-0.40/
Tripletail, Framework for Japanese Web Application
----
URL-Grab-1.4
http://search.cpan.org/~opitz/URL-Grab-1.4/
Perl extension for blah blah blah
----
Weather-Google-0.01
http://search.cpan.org/~possum/Weather-Google-0.01/
Perl interface to Google's Weather API
----
Win32-IE-SlideShow-0.01
http://search.cpan.org/~ishigaki/Win32-IE-SlideShow-0.01/
show and manipulate your slides on IE
----
Win32-IE-SlideShow-0.02
http://search.cpan.org/~ishigaki/Win32-IE-SlideShow-0.02/
show and manipulate your slides on IE
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: Fri, 25 Jan 2008 09:19:36 -0000
From: "John" <john1949@yahoo.com>
Subject: not defined v. eq undef
Message-Id: <6tOdnd0H26w1NATanZ2dnUVZ8rOdnZ2d@eclipse.net.uk>
Hi
Are these the same?
if ($x eq undef) {print "hi"}
if (not defined $x) {print "hi}
If so, which is preferred?
Thank you
John
Note: I have tried posting to perl beginners (the obvious choice for a
simple question) but the posts do not appear.
------------------------------
Date: Fri, 25 Jan 2008 10:56:02 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: not defined v. eq undef
Message-Id: <Xns9A303C5BD790Aasu1cornelledu@127.0.0.1>
"John" <john1949@yahoo.com> wrote in
news:6tOdnd0H26w1NATanZ2dnUVZ8rOdnZ2d@eclipse.net.uk:
> Hi
use strict;
use warnings;
> Are these the same?
No.
> if ($x eq undef) {print "hi"}
> if (not defined $x) {print "hi}
Can't find string terminator '"' anywhere before EOF at C:\Temp\t.pl
line 2.
> If so, which is preferred?
Testing equality with undef will generate a warning regardless of the
value of $x.
unless ( defined $x )
or
if ( not defined $x )
would not. They would also convey the intended meaning better.
> Note: I have tried posting to perl beginners (the obvious choice for a
> simple question) but the posts do not appear.
You can ask all Perl related questions here. However, you should read
and follow the posting guidelines to get the best help.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
clpmisc guidelines: <URL:http://www.augustmail.com/~tadmc/clpmisc.shtml>
------------------------------
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 1231
***************************************
