[29484] in Perl-Users-Digest
Perl-Users Digest, Issue: 728 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Aug 8 14:09:51 2007
Date: Wed, 8 Aug 2007 11:09:12 -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, 8 Aug 2007 Volume: 11 Number: 728
Today's topics:
[Semi-OT] Configuring emacs (was Re: Subroutines and '& <m@rtij.nl.invlalid>
Re: CGI. postgres local install, DBD::Pg fails brian.darkblueb@gmail.com
Re: copy all files <m@rtij.nl.invlalid>
Re: copy all files <josef.moellers@fujitsu-siemens.com>
Re: copy all files <dummy@example.com>
Re: copy all files anno4000@radom.zrz.tu-berlin.de
Re: copy all files <m@rtij.nl.invlalid>
Re: Help in file locking and synchronization ramesh.thangamani@gmail.com
Re: Help in file locking and synchronization ramesh.thangamani@gmail.com
Re: Help in file locking and synchronization xhoster@gmail.com
Re: How to get values and ref types from caller package (Randal L. Schwartz)
How to parse directory structure from FTP LIST <lgt@invalid.com>
Huge Tits! conspiracy.black5@gmail.com
I need to display pdf. <ashishrai@gmail.com>
Re: I need to display pdf. <1usa@llenroc.ude.invalid>
List of all modules installed on a system <ignoramus8011@NOSPAM.8011.invalid>
Re: List of all modules installed on a system <1usa@llenroc.ude.invalid>
Re: List of all modules installed on a system <spamtrap@dot-app.org>
Re: List of all modules installed on a system <ignoramus8011@NOSPAM.8011.invalid>
Re: List of all modules installed on a system <ignoramus8011@NOSPAM.8011.invalid>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 8 Aug 2007 19:47:22 +0200
From: Martijn Lievaart <m@rtij.nl.invlalid>
Subject: [Semi-OT] Configuring emacs (was Re: Subroutines and '&')
Message-Id: <pan.2007.08.08.17.47.22@rtij.nl.invlalid>
On Wed, 08 Aug 2007 10:10:53 -0700, Randal L. Schwartz wrote:
>>>>>> "Martijn" == Martijn Lievaart <m@rtij.nl.invlalid> writes:
>
> Martijn> Emacs suffers from much the same problems. F.i. quote like
> operators are Martijn> not properly recognized, making me write:
>
> Martijn> next if m'^#';
>
> Martijn> instead of
>
> Martijn> next if /^#/;
>
> Martijn> In general I can live with it though.
>
> That's a flaw with perl-mode. cperl-mode is far better, and actively
> maintained. First thing I do with an empty .emacs file is teach it to
> replace perl mode with cperl-mode. :)
Can you give me the magic incantations? I'm not very fluent in emacs-lisp.
TIA,
M4
------------------------------
Date: Tue, 07 Aug 2007 23:28:29 -0700
From: brian.darkblueb@gmail.com
Subject: Re: CGI. postgres local install, DBD::Pg fails
Message-Id: <1186554509.648717.71070@i38g2000prf.googlegroups.com>
On Aug 7, 9:50 am, brian.darkbl...@gmail.com wrote:
> On Aug 7, 8:10 am, "J. Gleixner" <glex_no-s...@qwest-spam-no.invalid>
> wrote:
>
> > brian.darkbl...@gmail.com wrote:
> > > DBD::Pg installed fine on a stock OS X machine. Apache is turned on
> > > via web sharing.
>
> > > When we installed DBD::Pg, it magically 'found' that postgres was
> > > installed in the local (admin) folder instead of /usr/local. All
> > > DBD::Pg test ran as fine.
>
> > > BUT when code runs as a CGI, the CGI user 'www' apparently cannot
> > > access the postgres libraries. A quick attempt at setting a library's
> > > permissions (libq ?) was no help.
>
> > > suggestions welcome
>
> > How do you know 'www' can't access the libraries? What is the error?
>
> I am not at the machine at this moment, but, two knowledgeable people
> looked carefully at the logs and said that this was the case. I will
> be there on the show floor at LinuxWorld later today. Suggestions
> welcome.
a manual fix of permissions did the trick.. nothing more exotic than
that.
------------------------------
Date: Wed, 8 Aug 2007 08:54:30 +0200
From: Martijn Lievaart <m@rtij.nl.invlalid>
Subject: Re: copy all files
Message-Id: <pan.2007.08.08.06.54.28@rtij.nl.invlalid>
On Tue, 07 Aug 2007 10:57:11 +0000, anno4000 wrote:
> John W. Krahn <krahnj@telus.net> wrote in comp.lang.perl.misc:
>> Darius Blaszyk wrote:
>> > Thanks Matt, that works! I was having problems with the copy command
>> > previously when I tried "/dest_dir/." and "/dest_dir/*.*" and
>> > "/dest_dir/*". But it seems I just don't need to add a wildcard after
>> > all.
>> >
>> > One last question, you use "while (</source_dir/*.ext>)" to loop
>> > trough the files, is it possible to check for more extensions in the
>> > same while loop? I tried
>> >
>> > while (</source_dir/*.ext>) || (</source_dir/*.txt>)
>> >
>> > but that doesn't work.
>>
>> while ( </source_dir/*.{ext,txt}> )
>
> ...or
>
> while ( </source_dir/*.ext>, </source_dir/*.txt> )
How is that supposed to work?
M4
------------------------------
Date: Wed, 08 Aug 2007 10:13:39 +0200
From: Josef Moellers <josef.moellers@fujitsu-siemens.com>
Subject: Re: copy all files
Message-Id: <f9btvp$n0c$1@nntp.fujitsu-siemens.com>
Martijn Lievaart wrote:
> On Tue, 07 Aug 2007 10:57:11 +0000, anno4000 wrote:
>=20
>=20
>>John W. Krahn <krahnj@telus.net> wrote in comp.lang.perl.misc:
>>
>>>Darius Blaszyk wrote:
>>>while ( </source_dir/*.{ext,txt}> )
>>
>>...or
>>
>> while ( </source_dir/*.ext>, </source_dir/*.txt> )
>=20
>=20
> How is that supposed to work?
The "Filename Globbing Operator" returns a list of filenames matching=20
the pattern. The line mentioned concatenates the two lists into one.=20
There is no difference in the resulting sequence of files, although I'd=20
guess that the former won't guarantee this while the latter would.
--=20
These are my personal views and not those of Fujitsu Siemens Computers!
Josef M=C3=B6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize (T. Pratchett)
Company Details: http://www.fujitsu-siemens.com/imprint.html
------------------------------
Date: Wed, 08 Aug 2007 10:18:03 GMT
From: "John W. Krahn" <dummy@example.com>
Subject: Re: copy all files
Message-Id: <vLgui.69475$Io4.67595@edtnps89>
anno4000@radom.zrz.tu-berlin.de wrote:
> Martijn Lievaart <m@rtij.nl.invlalid> wrote in comp.lang.perl.misc:
>> On Tue, 07 Aug 2007 10:57:11 +0000, anno4000 wrote:
>>
>>> John W. Krahn <krahnj@telus.net> wrote in comp.lang.perl.misc:
>>>> Darius Blaszyk wrote:
>>>>> Thanks Matt, that works! I was having problems with the copy command
>>>>> previously when I tried "/dest_dir/." and "/dest_dir/*.*" and
>>>>> "/dest_dir/*". But it seems I just don't need to add a wildcard after
>>>>> all.
>>>>>
>>>>> One last question, you use "while (</source_dir/*.ext>)" to loop
>>>>> trough the files, is it possible to check for more extensions in the
>>>>> same while loop? I tried
>>>>>
>>>>> while (</source_dir/*.ext>) || (</source_dir/*.txt>)
>>>>>
>>>>> but that doesn't work.
>>>> while ( </source_dir/*.{ext,txt}> )
>>> ...or
>>>
>>> while ( </source_dir/*.ext>, </source_dir/*.txt> )
>> How is that supposed to work?
>
> Each glob expands individually, then both are flattened into a single
> list.
>
> I only mentioned it because it is closer to the OP's original idea.
But it won't work. A single glob/readline/readdir is special and puts the
results into the $_ variable:
$ perl -MO=Deparse -e'while ( <./*.ext> ) { print }'
use File::Glob ();
while (defined($_ = glob('./*.ext'))) {
print $_;
}
-e syntax OK
However, a list will not:
$ perl -MO=Deparse -e'while ( <./*.ext>, <./*.txt> ) { print }'
use File::Glob ();
while (glob('./*.ext'), glob('./*.txt')) {
print $_;
}
-e syntax OK
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: 8 Aug 2007 11:01:40 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: copy all files
Message-Id: <5htm4kF3k2n3eU1@mid.dfncis.de>
John W. Krahn <krahnj@telus.net> wrote in comp.lang.perl.misc:
> anno4000@radom.zrz.tu-berlin.de wrote:
> > Martijn Lievaart <m@rtij.nl.invlalid> wrote in comp.lang.perl.misc:
> >> On Tue, 07 Aug 2007 10:57:11 +0000, anno4000 wrote:
> >>
> >>> John W. Krahn <krahnj@telus.net> wrote in comp.lang.perl.misc:
> >>>> Darius Blaszyk wrote:
> >>>>> Thanks Matt, that works! I was having problems with the copy command
> >>>>> previously when I tried "/dest_dir/." and "/dest_dir/*.*" and
> >>>>> "/dest_dir/*". But it seems I just don't need to add a wildcard after
> >>>>> all.
> >>>>>
> >>>>> One last question, you use "while (</source_dir/*.ext>)" to loop
> >>>>> trough the files, is it possible to check for more extensions in the
> >>>>> same while loop? I tried
> >>>>>
> >>>>> while (</source_dir/*.ext>) || (</source_dir/*.txt>)
> >>>>>
> >>>>> but that doesn't work.
> >>>> while ( </source_dir/*.{ext,txt}> )
> >>> ...or
> >>>
> >>> while ( </source_dir/*.ext>, </source_dir/*.txt> )
> >> How is that supposed to work?
> >
> > Each glob expands individually, then both are flattened into a single
> > list.
> >
> > I only mentioned it because it is closer to the OP's original idea.
>
> But it won't work. A single glob/readline/readdir is special and puts the
> results into the $_ variable:
>
> $ perl -MO=Deparse -e'while ( <./*.ext> ) { print }'
> use File::Glob ();
> while (defined($_ = glob('./*.ext'))) {
> print $_;
> }
> -e syntax OK
>
>
> However, a list will not:
>
> $ perl -MO=Deparse -e'while ( <./*.ext>, <./*.txt> ) { print }'
> use File::Glob ();
> while (glob('./*.ext'), glob('./*.txt')) {
> print $_;
> }
> -e syntax OK
Oh yes, you are right. I read the while loop for a for loop. Both
for ( <./*.{ext,txt}> ) { ...
for ( <./*.ext>, <./*.txt> ) {
loop over the same files, though perhaps in a different order. That's
what I was thinking of. Pardon the confusion. It's all the DWIMmer's
fault.
Anno
------------------------------
Date: Wed, 8 Aug 2007 15:12:42 +0200
From: Martijn Lievaart <m@rtij.nl.invlalid>
Subject: Re: copy all files
Message-Id: <pan.2007.08.08.13.12.42@rtij.nl.invlalid>
On Wed, 08 Aug 2007 07:30:51 +0000, anno4000 wrote:
>> How is that supposed to work?
>
> Each glob expands individually, then both are flattened into a single
> list.
Right, gottit! Clever.
M4
------------------------------
Date: Tue, 07 Aug 2007 23:17:57 -0700
From: ramesh.thangamani@gmail.com
Subject: Re: Help in file locking and synchronization
Message-Id: <1186553877.746568.266370@x35g2000prf.googlegroups.com>
On Aug 7, 9:09 pm, "Petr Vileta" <sto...@practisoft.cz> wrote:
> ramesh.thangam...@gmail.com wrote:
> > I am working on a script which queries LDAP for a group of people and
> > stores the details in XML preserving the hierarchy. I have used a perl
> > module to create the XML file, the same module can parse it when
> > needed. I will also have a perl script to create the XML file daily so
> > that the details in the XML file are in sync with the LDAP details.
>
> > Now the problem here is there can be synchronization problem when the
> > XML is getting generated
> > by more than one user running the script at the same time. What could
> > be the best approach for this problem. Any suggestions ?
>
> > - I have seen file locking stuff but not sure what needs to be done
> > to avoid any issues .
> > - Will be better to have some timeout and wait to write the file ?.
> > - Or should I skip if the file has already been created like that etc.
>
> How big is the XML file? If not too big then you can lock LDAP table (I
> suppose MySQL), generate XML on the fly and unlock LDAP table.
>
> --
>
> Petr Vileta, Czech republic
> (My server rejects all messages from Yahoo and Hotmail. Send me your mail
> from another non-spammer site please.)
The XML file is just 65 KB.
------------------------------
Date: Tue, 07 Aug 2007 23:22:16 -0700
From: ramesh.thangamani@gmail.com
Subject: Re: Help in file locking and synchronization
Message-Id: <1186554136.882143.48310@z24g2000prh.googlegroups.com>
On Aug 7, 8:47 pm, xhos...@gmail.com wrote:
> ramesh.thangam...@gmail.com wrote:
> > I am working on a script which queries LDAP for a group of people and
> > stores the details in XML preserving the hierarchy. I have used a perl
> > module to create the XML file, the same module can parse it when
> > needed. I will also have a perl script to create the XML file daily so
> > that the details in the XML file are in sync with the LDAP details.
>
> > Now the problem here is there can be synchronization problem when the
> > XML is getting generated
> > by more than one user running the script at the same time. What could
> > be the best approach for this problem. Any suggestions ?
>
> > - I have seen file locking stuff but not sure what needs to be done
> > to avoid any issues .
>
> It depends on exactly what issues you want to avoid. You could have
> your programs, when they decide to build a new file, do so in a local
> uniquely named temp file, then rename that to be the standard location.
> (I don't know how this will work on Windows, renaming an open file or
> renaming a file to overwrite the entry for an open file). This should be
> OK in the sense that the file should not be corrupted by multiple writers,
> but it won't prevent 20 programs from all slamming your LDAP server at the
> same time, each trying to build the new file.
>
I am working on Linux platform so no need to worry about Windows
issues. In addition to the LDAP details i query database to add some
more details, so my aim is to avoid LDAP and DB calls so that i can
query just the XML file for details. Creating a temp file is nice. May
be if user asks for XML file generation i should create a temporary
file and then try to make it the original XML file if no one is trying
to write, but will this be a better idea ?.
> > - Will be better to have some timeout and wait to write the file ?.
>
> It is hard to say what this even means. What operation is being timed
> out? How do you detect it?
>
> > - Or should I skip if the file has already been created like that etc.
>
> Again, I don't know what this means. Could you show the proposed code that
> would implement it?
>
> Xho
>
> --
> --------------------http://NewsReader.Com/--------------------
> Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 08 Aug 2007 15:38:15 GMT
From: xhoster@gmail.com
Subject: Re: Help in file locking and synchronization
Message-Id: <20070808113816.914$c7@newsreader.com>
ramesh.thangamani@gmail.com wrote:
>
> I am working on Linux platform so no need to worry about Windows
> issues. In addition to the LDAP details i query database to add some
> more details, so my aim is to avoid LDAP and DB calls so that i can
> query just the XML file for details. Creating a temp file is nice. May
> be if user asks for XML file generation i should create a temporary
> file and then try to make it the original XML file if no one is trying
> to write, but will this be a better idea ?.
You probably don't need to worry about other people trying to write.
The main file is never written to, it is only ever read, or replaced
with a new (already written, as a temporary file) file by a "rename". So
at no time is the main file written to. You will want the temp file to be
on the same device as the main file it is to replace, so that rename
is atomic.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: Tue, 07 Aug 2007 18:37:56 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
To: Dodger <el.dodgero@gmail.com>
Subject: Re: How to get values and ref types from caller package
Message-Id: <861weest57.fsf@blue.stonehenge.com>
>>>>> "Dodger" == Dodger <el.dodgero@gmail.com> writes:
Dodger> One of the other problems is that some of the coders have decided to
Dodger> go ahead and call this thing numberous times even when they don't need
Dodger> to. Rather than try and hunt down every instance of someone calling
Dodger> for Foo when they already have a Foo object, i wanted to be able to
Dodger> look into the symbol table for the caller, find all the variables
Dodger> there, and check to see if any of the scalars are, in fact, already a
Dodger> Foo, and, if so, just to return that and do nothing else. This would
Dodger> bypass the need to check to make sure it's the right *kind* of Foo
Dodger> because the first time a Foo was grabbed it would be and the
Dodger> environment doesn't change at runtime. It's safe to trust the former
Dodger> Foo is the right kind of Foo.
That seems like the hard way. Why don't you just cache the result from
Foo->new, using some sort of aspect programming (replace ->new with something
that watches the inputs and return values from the real ->new)?
--
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!
--
Posted via a free Usenet account from http://www.teranews.com
------------------------------
Date: Wed, 08 Aug 2007 21:08:01 +0300
From: lg <lgt@invalid.com>
Subject: How to parse directory structure from FTP LIST
Message-Id: <qb1kb314u4aubl3grrbpo6cgrb2km51m84@4ax.com>
I downloaded a directory listing using FTP command LIST. The listing is like
below:
drwxr-xr-x 2 test directory 3072 Aug 8 17:16 .
drwxr-xr-x 4 test directory 9216 Aug 8 20:28 ..
-rw-r--r-- 1 test directory 72 Aug 2 16:32 20155.txt
-rw-r--r-- 1 test directory 76 Feb 14 18:02 41257.txt
-rw-r--r-- 1 test directory 75 Aug 2 16:32 43916.txt
First of all is the directory list standard? Does file/directory name start at
column 56 etc?
If not how do FTP programs parse info if it's not standardised?
------------------------------
Date: Tue, 07 Aug 2007 21:24:08 -0700
From: conspiracy.black5@gmail.com
Subject: Huge Tits!
Message-Id: <1186547048.883668.187800@i13g2000prf.googlegroups.com>
http://www.nasaconspiracy.net/2007/08/huge-tits.html - Huge tits!
would eye lie to you?
------------------------------
Date: Wed, 08 Aug 2007 17:03:48 -0000
From: Ash <ashishrai@gmail.com>
Subject: I need to display pdf.
Message-Id: <1186592628.096967.150000@d55g2000hsg.googlegroups.com>
Can I display pdf file in Perl GUI similar to using plug-in in IE or
Firefox?
I am using wxPerl for building GUI. Thanks a lot for any pointer.
------------------------------
Date: Wed, 08 Aug 2007 17:56:12 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: I need to display pdf.
Message-Id: <Xns99868DC5CE3F8asu1cornelledu@127.0.0.1>
Ash <ashishrai@gmail.com> wrote in news:1186592628.096967.150000
@d55g2000hsg.googlegroups.com:
> Can I display pdf file in Perl GUI similar to using plug-in in IE or
> Firefox?
> I am using wxPerl for building GUI. Thanks a lot for any pointer.
I have never tried it myself, but you could try embedding the Acrobat
ActiveX object or looking for some other PDF rendering engine.
I don't see what this has to do with Perl, though.
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: Wed, 08 Aug 2007 12:41:01 -0500
From: Ignoramus8011 <ignoramus8011@NOSPAM.8011.invalid>
Subject: List of all modules installed on a system
Message-Id: <6_qdnV58mNmwnSfbnZ2dnUVZ_rTinZ2d@giganews.com>
Is there some clever, canonical way to find out out all modules that
were installed on the system via CPAN? I have a server with a lot of
modules installed, that I want to replicate, hence the question.
thanks
i
------------------------------
Date: Wed, 08 Aug 2007 17:53:44 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: List of all modules installed on a system
Message-Id: <Xns99868D5B061F2asu1cornelledu@127.0.0.1>
Ignoramus8011 <ignoramus8011@NOSPAM.8011.invalid> wrote in news:6_qdnV58mNmwnSfbnZ2dnUVZ_rTinZ2d@giganews.com:
> Is there some clever, canonical way to find out out all modules that
> were installed on the system via CPAN? I have a server with a lot of
> modules installed, that I want to replicate, hence the question.
When it comes to anything other than changing your posting id,
you are indeed a lazy ignoramus.
Read the FFAQ:
C:\Home> perldoc -q "How do I find which modules are installed on my system?"
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: Wed, 08 Aug 2007 13:54:39 -0400
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: List of all modules installed on a system
Message-Id: <m24pj929pc.fsf@dot-app.org>
Ignoramus8011 <ignoramus8011@NOSPAM.8011.invalid> writes:
> Is there some clever, canonical way to find out out all modules that
> were installed on the system via CPAN? I have a server with a lot of
> modules installed, that I want to replicate, hence the question.
Will this help? From "perldoc CPAN":
autobundle
"autobundle" writes a bundle file into the "$CPAN::Con-
fig->{cpan_home}/Bundle" directory. The file contains a list of all
modules that are both available from CPAN and currently installed
within @INC. The name of the bundle file is based on the current date
and a counter.
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Wed, 08 Aug 2007 13:03:20 -0500
From: Ignoramus8011 <ignoramus8011@NOSPAM.8011.invalid>
Subject: Re: List of all modules installed on a system
Message-Id: <_K2dnbj2JMH1mCfbnZ2dnUVZ_sninZ2d@giganews.com>
On Wed, 08 Aug 2007 17:53:44 GMT, A. Sinan Unur <1usa@llenroc.ude.invalid> wrote:
> Ignoramus8011 <ignoramus8011@NOSPAM.8011.invalid> wrote in news:6_qdnV58mNmwnSfbnZ2dnUVZ_rTinZ2d@giganews.com:
>
>> Is there some clever, canonical way to find out out all modules that
>> were installed on the system via CPAN? I have a server with a lot of
>> modules installed, that I want to replicate, hence the question.
>
> When it comes to anything other than changing your posting id,
> you are indeed a lazy ignoramus.
>
> Read the FFAQ:
>
> C:\Home> perldoc -q "How do I find which modules are installed on my system?"
>
> Sinan
>
You have such a pleasant personality, you must be very good at getting
along with people!
Your answer was right on, thank you.
Here's my function from my bashrc that prints this list, based on your
suggestion:
list-all-installed-modules() {
perl -MExtUtils::Installed -e 'print join( " ", ExtUtils::Installed->new()->modules() ) . "\n"'
}
i
------------------------------
Date: Wed, 08 Aug 2007 13:08:07 -0500
From: Ignoramus8011 <ignoramus8011@NOSPAM.8011.invalid>
Subject: Re: List of all modules installed on a system
Message-Id: <_K2dnbv2JMEamyfbnZ2dnUVZ_sninZ2d@giganews.com>
On Wed, 08 Aug 2007 13:54:39 -0400, Sherm Pendley <spamtrap@dot-app.org> wrote:
> Ignoramus8011 <ignoramus8011@NOSPAM.8011.invalid> writes:
>
>> Is there some clever, canonical way to find out out all modules that
>> were installed on the system via CPAN? I have a server with a lot of
>> modules installed, that I want to replicate, hence the question.
>
> Will this help? From "perldoc CPAN":
>
> autobundle
>
> "autobundle" writes a bundle file into the "$CPAN::Con-
> fig->{cpan_home}/Bundle" directory. The file contains a list of all
> modules that are both available from CPAN and currently installed
> within @INC. The name of the bundle file is based on the current date
> and a counter.
>
> sherm--
>
Thanks, I think that ExtUtils::Installed is just perfect for my needs.
i
------------------------------
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 728
**************************************
