[29942] in Perl-Users-Digest
Perl-Users Digest, Issue: 1185 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jan 10 09:09:42 2008
Date: Thu, 10 Jan 2008 06: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 Thu, 10 Jan 2008 Volume: 11 Number: 1185
Today's topics:
Classified Script <ajauctionpro@gmail.com>
Error while using BCP in from within a Perl Script rajpreetsidhu@gmail.com
Re: Error while using BCP in from within a Perl Script <peter@makholm.net>
Re: Error while using BCP in from within a Perl Script <rajpreetsidhu@gmail.com>
Re: Error while using BCP in from within a Perl Script <peter@makholm.net>
Re: Error while using BCP in from within a Perl Script <rajpreetsidhu@gmail.com>
Re: Error while using BCP in from within a Perl Script <rajpreetsidhu@gmail.com>
Re: every($key, $interval) function <tzz@lifelogs.com>
Re: every($key, $interval) function <rvtol+news@isolution.nl>
Re: every($key, $interval) function <rvtol+news@isolution.nl>
Help on Perl Scripting <Laarni.Zosa@ubs.com>
Re: Help on Perl Scripting <noreply@gunnar.cc>
new CPAN modules on Thu Jan 10 2008 (Randal Schwartz)
Re: Sending HTML (MIME) email with Net::SMTP ? <john@castleamber.com>
Re: Using CPAN "lightweight" <bernie@fantasyfarm.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 10 Jan 2008 03:04:18 -0800 (PST)
From: auction <ajauctionpro@gmail.com>
Subject: Classified Script
Message-Id: <f06b95fa-fba5-4796-9e6f-fcea2b7b56a9@f47g2000hsd.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.
Sources: http://www.ajclassifieds.net/buy_template.php
------------------------------
Date: Thu, 10 Jan 2008 02:11:13 -0800 (PST)
From: rajpreetsidhu@gmail.com
Subject: Error while using BCP in from within a Perl Script
Message-Id: <5e84cb68-3df6-4743-a1f3-b254dc68aade@k2g2000hse.googlegroups.com>
Greetings,
I am trying to bcp in data into a table from inside a perl script.
Though the data gets inserted into the table but still I am getting
following error :
sh: Starting: execute permission denied
sh: 8: execute permission denied
sh: syntax error at line 4: `(' unexpected
sh: Starting: execute permission denied
sh: 8: execute permission denied
sh: syntax error at line 4: `(' unexpected
Code looks like :
sub bcp_data{
print "bcp $dest_table in $file_out -c -t '|' -U $source_username -P
$source_passwd -S $source_server -e $log \n";
my $returncode = `bcp $dest_table in $file_out -c -t "|" -U
$source_username -P $source_passwd -S $source_server -e $log`; #
backticks
system "$returncode";
exec "$returncode";
}
TIA.
Regards,
Rajpreet
------------------------------
Date: Thu, 10 Jan 2008 10:17:45 +0000
From: Peter Makholm <peter@makholm.net>
Subject: Re: Error while using BCP in from within a Perl Script
Message-Id: <87r6gqugqe.fsf@hacking.dk>
rajpreetsidhu@gmail.com writes:
> sh: Starting: execute permission denied
> sh: 8: execute permission denied
> sh: syntax error at line 4: `(' unexpected
> sh: Starting: execute permission denied
> sh: 8: execute permission denied
> sh: syntax error at line 4: `(' unexpected
These errors come form you shell (hint: it starts with 'sh:'). Are you
trying to run you perl script with /bin/sh?
Did you start you script with '#! /usr/bin/perl'?
//Makholm
------------------------------
Date: Thu, 10 Jan 2008 02:21:33 -0800 (PST)
From: Rajpreet <rajpreetsidhu@gmail.com>
Subject: Re: Error while using BCP in from within a Perl Script
Message-Id: <9c27b6c1-d53b-461f-abfc-adc1236283e8@c4g2000hsg.googlegroups.com>
My script starts like #!/opt/local/perl/bin/perl .
Regards,
Rajpreet
------------------------------
Date: Thu, 10 Jan 2008 10:22:00 +0000
From: Peter Makholm <peter@makholm.net>
Subject: Re: Error while using BCP in from within a Perl Script
Message-Id: <87myreugjb.fsf@hacking.dk>
Peter Makholm <peter@makholm.net> writes:
> rajpreetsidhu@gmail.com writes:
>
>> sh: Starting: execute permission denied
>> sh: 8: execute permission denied
>> sh: syntax error at line 4: `(' unexpected
>> sh: Starting: execute permission denied
>> sh: 8: execute permission denied
>> sh: syntax error at line 4: `(' unexpected
>
> These errors come form you shell (hint: it starts with 'sh:'). Are you
> trying to run you perl script with /bin/sh?
>
> Did you start you script with '#! /usr/bin/perl'?
Sorry, wrong answers.
You're trying to execute the content of $returncode as a
shellscript. To debug problems with doing this you might want to print
the content of $returncode.
//Makholm
------------------------------
Date: Thu, 10 Jan 2008 02:30:58 -0800 (PST)
From: Rajpreet <rajpreetsidhu@gmail.com>
Subject: Re: Error while using BCP in from within a Perl Script
Message-Id: <e9793d15-ba67-44c9-b8f2-57b707acc862@j78g2000hsd.googlegroups.com>
On Jan 10, 3:22=A0pm, Peter Makholm <pe...@makholm.net> wrote:
> Peter Makholm <pe...@makholm.net> writes:
> > rajpreetsi...@gmail.com writes:
>
> >> sh: Starting: execute permission denied
> >> sh: 8: execute permission denied
> >> sh: syntax error at line 4: `(' unexpected
> >> sh: Starting: execute permission denied
> >> sh: 8: execute permission denied
> >> sh: syntax error at line 4: `(' unexpected
>
> > These errors come form you shell (hint: it starts with 'sh:'). Are you
> > trying to run you perl script with /bin/sh?
>
> > Did you start you script with '#! /usr/bin/perl'?
>
> Sorry, wrong answers.
>
> You're trying to execute the content of $returncode as a
> shellscript. To debug problems with doing this you might want to print
> the content of $returncode.
>
> //Makholm
I tried printing the contents and everything works fine. Even if I try
doing BCP in from comand prompt with the printed value, it works fine
without any error. Problem comes only while running from within the
perl script.
Pl suggest.
Regards,
Rajpreet
------------------------------
Date: Thu, 10 Jan 2008 02:33:50 -0800 (PST)
From: Rajpreet <rajpreetsidhu@gmail.com>
Subject: Re: Error while using BCP in from within a Perl Script
Message-Id: <e0233e0f-fbd4-4f12-841c-16fe2474ba40@h11g2000prf.googlegroups.com>
On Jan 10, 3:30=A0pm, Rajpreet <rajpreetsi...@gmail.com> wrote:
> On Jan 10, 3:22=A0pm, Peter Makholm <pe...@makholm.net> wrote:
>
>
>
>
>
> > Peter Makholm <pe...@makholm.net> writes:
> > > rajpreetsi...@gmail.com writes:
>
> > >> sh: Starting: execute permission denied
> > >> sh: 8: execute permission denied
> > >> sh: syntax error at line 4: `(' unexpected
> > >> sh: Starting: execute permission denied
> > >> sh: 8: execute permission denied
> > >> sh: syntax error at line 4: `(' unexpected
>
> > > These errors come form you shell (hint: it starts with 'sh:'). Are you=
> > > trying to run you perl script with /bin/sh?
>
> > > Did you start you script with '#! /usr/bin/perl'?
>
> > Sorry, wrong answers.
>
> > You're trying to execute the content of $returncode as a
> > shellscript. To debug problems with doing this you might want to print
> > the content of $returncode.
>
> > //Makholm
>
> I tried printing the contents and everything works fine. Even if I try
> doing BCP in from comand prompt with the printed value, it works fine
> without any error. Problem comes only while running from within the
> perl script.
> Pl suggest.
>
> Regards,
> Rajpreet- Hide quoted text -
>
> - Show quoted text -
Yes, I got your point Makholm.
Thanks a lot! It works now.
------------------------------
Date: Thu, 10 Jan 2008 07:05:01 -0600
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: every($key, $interval) function
Message-Id: <86myrdg7b6.fsf@lifelogs.com>
On Thu, 10 Jan 2008 01:19:06 +0100 "Dr.Ruud" <rvtol+news@isolution.nl> wrote:
R> Ted Zlatanov schreef:
>> The goal is to do
>>
>> warn "five or six" if (every(5) || every(6));
R> Use (any variant of) my second approach:
R> #!/usr/bin/perl
R> use strict;
R> use warnings;
R> sub every{
R> my %counters if 0;
R> my ($div, @id) = @_;
R> return !(++$counters{ caller(), $div, @id } % $div);
R> }
R> for my $i (1..32) {
R> print "five or six:\t$i\n" if every(5) | every(6);
R> }
R> __END__
R> You just can't use the shortcutting "||", because the rightside every()
R> would not be called when the leftside every() already is true. (So you
R> had an xy-problem.)
OK, this will work for my purposes just fine, but it has one possible
bug (unlikely, granted, but it could happen in a one-liner):
for my $i (1..32) {
print "four once:\t$i\n" if every(4); print "four twice:\t$i\n" if every(4);
}
four twice: 2
four twice: 4
four twice: 6
four twice: 8
four twice: 10
four twice: 12
four twice: 14
four twice: 16
four twice: 18
four twice: 20
four twice: 22
four twice: 24
four twice: 26
four twice: 28
four twice: 30
four twice: 32
As a challenge, can anyone think of a way to fix that without using
extra parameters in @id, keeping the calling semantics just as they are
above, using only core modules (as of 5.10)? I couldn't find a way. My
original problem is solved, this is just for fun.
Ted
------------------------------
Date: Thu, 10 Jan 2008 14:43:52 +0100
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: every($key, $interval) function
Message-Id: <fm5b2f.1fo.1@news.isolution.nl>
Ted Zlatanov schreef:
> it has one possible
> bug (unlikely, granted, but it could happen in a one-liner):
>
> for my $i (1..32) {
> print "four once:\t$i\n" if every(4); print "four twice:\t$i\n"
> if every(4); }
Yes, that's exactly why I added @id. Did you try 4.1 and 4.2 already? :)
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Thu, 10 Jan 2008 14:56:58 +0100
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: every($key, $interval) function
Message-Id: <fm5bol.1l0.1@news.isolution.nl>
Ted Zlatanov schreef:
> As a challenge, can anyone think of a way to fix that without using
> extra parameters in @id, keeping the calling semantics just as they
> are above
With a change in calling semantics:
#!/usr/bin/perl
use strict;
use warnings;
sub every{ my %n if 0; !(++$n{ caller(), $_[0] } % ${$_[0]}) }
for my $i (1..32) {
print "four:\t$i\n" if every(\4); print "four again:\t$i\n" if
every(\4);
}
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Thu, 10 Jan 2008 01:06:14 -0800 (PST)
From: Laarni <Laarni.Zosa@ubs.com>
Subject: Help on Perl Scripting
Message-Id: <75c28a2e-7b3f-4d1b-907d-c75488098c89@d21g2000prf.googlegroups.com>
Hi,
Im trying to convert c shell script to PERL but haven't use PERL
before can anybody help me on this? Thanks in advance.
#! /bin/csh
if ($#argv <= 2) then
echo "Usage : $0 <table_name> <config_file> <config_file_2>"
exit
endif
set table = $argv[1]
set config_file = $argv[2]
set config_file_2 = $argv[3]
source $config_file
if ( $#argv >= 3 ) then
if (-f $config_file_2) then
source $config_file_2
endif
endif
if !(-d $backup) then
echo ""
echo "Create backup directory..."
mkdir $backup
endif
if !(-d $backup/$DB) then
echo ""
echo "Create backup directory for database..."$DB
mkdir $backup/$DB
endif
bcp $DB..$table out $backup/$DB/$table -c -U$UID -P$PSW -S$SVR
echo " Rename table..."
sed -e s/table/$table/g modify_rename_table.sql | runsql
#! /bin/csh
if ($#argv <= 2) then
echo "Usage : $0 <table_name> <config_file> <config_file_2>"
exit
endif
set table = $argv[1]
set config_file = $argv[2]
set config_file_2 = $argv[3]
source $config_file
if ( $#argv >= 3 ) then
if (-f $config_file_2) then
source $config_file_2
endif
endif
if !(-d $backup) then
echo ""
echo "Create backup directory..."
mkdir $backup
endif
if !(-d $backup/$DB) then
echo ""
echo "Create backup directory for database..."$DB
mkdir $backup/$DB
endif
bcp $DB..$table out $backup/$DB/$table -c -U$UID -P$PSW -S$SVR
echo " Rename table..."
sed -e s/table/$table/g modify_rename_table.sql | runsql
if (-f $table.convert.sql) then
echo " Converting temp table..."
runsql < $table.convert.sql
endif
echo " Recreate table..."
if (-f $newtabdir/$table.tab.sql) then
runsql < $newtabdir/$table.tab.sql
else
if (-f $alt1tabdir/$table.tab.sql) then
runsql < $alt1tabdir/$table.tab.sql
else
if (-f $alt2tabdir/$table.tab.sql) then
runsql < $alt2tabdir/$table.tab.sql
else
if (-f $alt3tabdir/$table.tab.sql) then
runsql < $alt3tabdir/$table.tab.sql
else
if (-f $alt4tabdir/$table.tab.sql) then
runsql < $alt4tabdir/$table.tab.sql
else
if (-f $alt5tabdir/$table.tab.sql) then
runsql < $alt5tabdir/
$table.tab.sql
endif
endif
endif
endif
endif
endif
echo " Copy data..."
if (-f $table.copy.sql) then
runsql < $table.copy.sql
else
if (-f $table.select.sql) then
sed -e s/table/$table/g modify_copy_data.sql | sed -e s/\*/`cat
$table.select.sql`/g | runsql
else
sed -e s/table/$table/g modify_copy_data.sql | runsql
endif
endif
echo " Drop temp table..."
runsql < modify_drop_temp.sql
source ../PROMOTE.uncfg
Regards,
Laarni
------------------------------
Date: Thu, 10 Jan 2008 10:35:53 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Help on Perl Scripting
Message-Id: <5um77sF1itsv1U1@mid.individual.net>
Laarni wrote:
> Im trying to convert c shell script to PERL but haven't use PERL
> before can anybody help me on this?
Sure. http://learn.perl.org/
> Thanks in advance.
You're welcome.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Thu, 10 Jan 2008 05:42:18 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Thu Jan 10 2008
Message-Id: <JuEyII.t0G@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.
Algorithm-LBFGS-0.01
http://search.cpan.org/~laye/Algorithm-LBFGS-0.01/
Perl extension for L-BFGS
----
Apache-Yaalr-0.03.2
http://search.cpan.org/~jeremiah/Apache-Yaalr-0.03.2/
Perl module for Yet Another Apache Log Reader
----
Audio-Ardour-Control-0.10
http://search.cpan.org/~jstowe/Audio-Ardour-Control-0.10/
Automate the Ardour DAW software.
----
Bundle-Net-EPP-0.02
http://search.cpan.org/~gbrown/Bundle-Net-EPP-0.02/
A bundle to install all EPP related modules.
----
Business-TNTPost-NL-0.03
http://search.cpan.org/~blom/Business-TNTPost-NL-0.03/
Calculate Dutch (TNT Post) shipping costs
----
CPANPLUS-Shell-Default-Plugins-Prereqs-0.07
http://search.cpan.org/~mgrimes/CPANPLUS-Shell-Default-Plugins-Prereqs-0.07/
----
Cache-FastMmap-Tie-0.02
http://search.cpan.org/~suzuki/Cache-FastMmap-Tie-0.02/
Using Cache::FastMmap as hash
----
Catalyst-Plugin-Assets-0.01
http://search.cpan.org/~rkrimen/Catalyst-Plugin-Assets-0.01/
Manage and minify .css and .js assets in a Catalyst application
----
Catalyst-Plugin-Assets-0.011
http://search.cpan.org/~rkrimen/Catalyst-Plugin-Assets-0.011/
Manage and minify .css and .js assets in a Catalyst application
----
Catalyst-Plugin-Assets-0.012
http://search.cpan.org/~rkrimen/Catalyst-Plugin-Assets-0.012/
Manage and minify .css and .js assets in a Catalyst application
----
Catalyst-Plugin-Session-Store-FastMmap-0.04
http://search.cpan.org/~karman/Catalyst-Plugin-Session-Store-FastMmap-0.04/
FastMmap session storage backend.
----
Catalyst-Plugin-Session-Store-File-0.07
http://search.cpan.org/~karman/Catalyst-Plugin-Session-Store-File-0.07/
File storage backend for session data.
----
Catalyst-Plugin-Session-Store-File-0.11
http://search.cpan.org/~karman/Catalyst-Plugin-Session-Store-File-0.11/
File storage backend for session data.
----
Catalyst-Plugin-Session-Store-File-0.12
http://search.cpan.org/~karman/Catalyst-Plugin-Session-Store-File-0.12/
File storage backend for session data.
----
Catalyst-View-JSON-0.22
http://search.cpan.org/~miyagawa/Catalyst-View-JSON-0.22/
JSON view for your data
----
Class-Accessor-Grouped-0.08001
http://search.cpan.org/~claco/Class-Accessor-Grouped-0.08001/
Lets you build groups of accessors
----
Class-Lego-0.001
http://search.cpan.org/~ferreira/Class-Lego-0.001/
Build your classes with basic building blocks
----
Compress-LZF-3.11
http://search.cpan.org/~mlehmann/Compress-LZF-3.11/
extremely light-weight Lempel-Ziv-Free compression
----
Config-Pit-0.01
http://search.cpan.org/~satoh/Config-Pit-0.01/
Manage settings
----
Date-Simple-3.03_01
http://search.cpan.org/~izut/Date-Simple-3.03_01/
a simple date object
----
Devel-FindBlessedRefs-1.0.1
http://search.cpan.org/~jettero/Devel-FindBlessedRefs-1.0.1/
find all refs blessed under a package
----
Devel-INC-Sorted-0.01
http://search.cpan.org/~nuffin/Devel-INC-Sorted-0.01/
Keep your hooks in the begining of @INC
----
File-Assets-0.021
http://search.cpan.org/~rkrimen/File-Assets-0.021/
Manage .css and .js assets in a web application
----
File-Logreader-0.03
http://search.cpan.org/~lukec/File-Logreader-0.03/
----
File-Navigate-1.0
http://search.cpan.org/~mschmitt/File-Navigate-1.0/
Navigate freely inside a text file
----
Glib-1.164
http://search.cpan.org/~tsch/Glib-1.164/
Perl wrappers for the GLib utility and Object libraries
----
Gtk2-1.164
http://search.cpan.org/~tsch/Gtk2-1.164/
Perl interface to the 2.x series of the Gimp Toolkit library
----
HTTP-MobileAgent-Flash-0.05
http://search.cpan.org/~takefumi/HTTP-MobileAgent-Flash-0.05/
Flash information for HTTP::MobileAgent
----
IO-Lambda-0.07
http://search.cpan.org/~karasik/IO-Lambda-0.07/
non-blocking I/O in lambda style
----
Jifty-Plugin-GoogleAnalytics-0.01
http://search.cpan.org/~bokutin/Jifty-Plugin-GoogleAnalytics-0.01/
Replace "</body>" by Google Analytics Javascript code dynamically.
----
Language-Befunge-3.04
http://search.cpan.org/~jquelin/Language-Befunge-3.04/
a Befunge-98 interpreter
----
Mail-IMAPClient-3.03
http://search.cpan.org/~markov/Mail-IMAPClient-3.03/
An IMAP Client API
----
Mail-SpamAssassin-Plugin-Konfidi-1.0.0
http://search.cpan.org/~brondsem/Mail-SpamAssassin-Plugin-Konfidi-1.0.0/
A SpamAssassin plugin that uses the Konfidi distributed trust network. Currently only uses OpenPGP signatures for authentication
----
Math-Complex-1.43
http://search.cpan.org/~jhi/Math-Complex-1.43/
complex numbers and associated mathematical functions
----
MooseX-Types-Set-Object-0.01
http://search.cpan.org/~nuffin/MooseX-Types-Set-Object-0.01/
Set::Object type with coercions and stuff.
----
Net-YAR-1.069
http://search.cpan.org/~rhandom/Net-YAR-1.069/
Perl interface to the YAR (Yet Another Registrar) API
----
NetHack-Menu-0.04
http://search.cpan.org/~sartak/NetHack-Menu-0.04/
interact with NetHack's menus
----
ONTO-PERL-1.10
http://search.cpan.org/~easr/ONTO-PERL-1.10/
----
POE-Component-Server-SimpleHTTP-1.34
http://search.cpan.org/~bingos/POE-Component-Server-SimpleHTTP-1.34/
Perl extension to serve HTTP requests in POE.
----
Parse-CPAN-Meta-0.01
http://search.cpan.org/~adamk/Parse-CPAN-Meta-0.01/
Parse META.yml and other similar CPAN metadata files
----
Parse-CPAN-Meta-0.02
http://search.cpan.org/~adamk/Parse-CPAN-Meta-0.02/
Parse META.yml and other similar CPAN metadata files
----
Parse-Marpa-0.001_069
http://search.cpan.org/~jkegl/Parse-Marpa-0.001_069/
(pre-Alpha) Jay Earley's general parsing algorithm, with LR(0) precomputation
----
Pod-Webserver-3.05
http://search.cpan.org/~arandal/Pod-Webserver-3.05/
minimal web server to serve local Perl documentation
----
Proc-SafeExec-1.1
http://search.cpan.org/~bilbo/Proc-SafeExec-1.1/
Convenient utility for executing external commands in various ways.
----
Queue-Q4M-0.00001
http://search.cpan.org/~dmaki/Queue-Q4M-0.00001/
Simple Interface To q4m
----
Template-Plugin-Memcached-1.00
http://search.cpan.org/~kostya/Template-Plugin-Memcached-1.00/
Cache::Memcached::Fast for Template Toolkit
----
Term-GentooFunctions-1.01.3
http://search.cpan.org/~jettero/Term-GentooFunctions-1.01.3/
provides gentoo's einfo, ewarn, eerror, ebegin and eend.
----
Text-MeCab-0.20002
http://search.cpan.org/~dmaki/Text-MeCab-0.20002/
Alternate Interface To libmecab
----
Text-MeCab-0.20003
http://search.cpan.org/~dmaki/Text-MeCab-0.20003/
Alternate Interface To libmecab
----
Tie-ToObject-0.01
http://search.cpan.org/~nuffin/Tie-ToObject-0.01/
Tie to an existing object.
----
Video-Xine-0.11
http://search.cpan.org/~stephen/Video-Xine-0.11/
Perl interface to libxine
----
WWW-CPAN-0.003
http://search.cpan.org/~ferreira/WWW-CPAN-0.003/
CPAN as a web service
----
WWW-DHL-0.01
http://search.cpan.org/~sepp/WWW-DHL-0.01/
Perl module for the DHL online tracking service.
----
WWW-DHL-0.02
http://search.cpan.org/~sepp/WWW-DHL-0.02/
Perl module for the DHL online tracking service.
----
WWW-Ohloh-API-0.0.2
http://search.cpan.org/~yanick/WWW-Ohloh-API-0.0.2/
Ohloh API implementation
----
WWW-Search-Mininova-0.01
http://search.cpan.org/~zoffix/WWW-Search-Mininova-0.01/
Interface to www.mininova.org Torrent site
----
WordPress-Post-1.04
http://search.cpan.org/~leocharre/WordPress-Post-1.04/
----
XML-Atom-Stream-0.11
http://search.cpan.org/~miyagawa/XML-Atom-Stream-0.11/
A client interface for AtomStream
----
YAML-Tiny-1.22_01
http://search.cpan.org/~adamk/YAML-Tiny-1.22_01/
Read/Write YAML files with as little code as possible
----
mc_units-20080109
http://search.cpan.org/~hmbrand/mc_units-20080109/
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: 10 Jan 2008 13:52:59 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: Sending HTML (MIME) email with Net::SMTP ?
Message-Id: <Xns9A215032427F3castleamber@130.133.1.4>
still just me <wheeledBobNOSPAM@yahoo.com> wrote:
> I could use some help, or pointers. I could not find anything specific
> in perldoc on this... perhaps I need to use another module to generate
> MIME headers? I'd like to avoid changing modules if I can since
> Net::SMTP seems to work well otherwise.
Check out MIME::Lite
--
John
------------------------------
Date: Thu, 10 Jan 2008 07:50:44 -0500
From: Bernie Cosell <bernie@fantasyfarm.com>
Subject: Re: Using CPAN "lightweight"
Message-Id: <gp3co394e0sipift14c7b1alea03v7m4mi@library.airnews.net>
brian d foy <brian.d.foy@gmail.com> wrote:
} In article <96s7o312i1lcro9a1aar7a9aih3avu5oer@library.airnews.net>,
} Bernie Cosell <bernie@fantasyfarm.com> wrote:
}
} > Is there a way to use the CPAN module *without* its creating a directory
} > and doing all sorts of fancy initialization and such?
}
} Well, at some point you need to store the files somewhere.
}
} Are you trying to run CPAN.pm within a script? If you say more about
} what you are trying to accomplish I may be able to help.
At the moment, the program's only purpose is to generate an email [to the
sysadmin] about available new versions of installed modules. Except for
the [MSG] thing, I mostly have it working [and it is only something like 20
lines of actual code, ignoring 'use's and comments and such -- I'll post it
later when I get it fully working].
As for the download, I'm guessing that what they'll want is the equivalent
of "wget" -- once again, no big-deal directories of config and memory of
past downloads or history any such, just a simple "fetch me the latest
version of File::Find and store it in the current directory"
} ... It's easy to
} configure CPAN.pm from within a program. You just have to do it (and
} then it won't go looking for CPAN/MyConfig.pm. Your best bet is to do
} the manual configuration, adjust it as you need it, then load that
} configuration programmatically.
I'm not sure "easy" is quite fair... There's a very long list of config
vbls with not much said about them, and not much said overall about making
CPAN quiet and not mess with homedirectories or any similar stuff. As for
the "when you run it the first time" configuration, I wonder what'll happen
with that. The docs just say:
When the CPAN module is used for the first time, a
configuration dialog tries to determine a couple of site
specific options. The result of the dialog is stored in a
hash reference $CPAN::Config in a file CPAN/Config.pm.
But the "CPAN" directory is *read*only* so it ain't gonna store anything
there [it is mounted from a read-only filesystem, so even *root* can't
write anything to it!]. And I see the 'interactive' stuff talking about 'o
conf' command but virtually nothing about doing it programatically.
Will CPAN be better behaved [and less noisy] if I run it just once from
someplace where it *can* write to the CPAN install directory? Although
that's going a bit of a problem because the environment of that system is
quite different from the environment on the system on which we're actually
going to be *using* CPAN [e.g., paths to utilities are different, directory
structure is [very] different, etc].
Basically, CPAN seems to be trying to do a LOT more than I really want and
it doesn't seem easy to trim it down, which is why CPANPLUS seemed to wor
out better, but even *IT* is trying to do some fancier-than-I-need
stuff...:o)
/Bernie\
--
Bernie Cosell Fantasy Farm Fibers
bernie@fantasyfarm.com Pearisburg, VA
--> Too many people, too few sheep <--
------------------------------
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 1185
***************************************
