[28567] in Perl-Users-Digest
Perl-Users Digest, Issue: 9931 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Nov 5 06:05:49 2006
Date: Sun, 5 Nov 2006 03:05:05 -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 Sun, 5 Nov 2006 Volume: 10 Number: 9931
Today's topics:
Re: ADSI through Win32::OLE <mark.clementsREMOVETHIS@wanadoo.fr>
Re: FAQ 5.22 All I want to do is append a small amount <puckdropper@yahoo.com>
I need to be amused on the perldocs that ship with Perl <cdalten@gmail.com>
Re: I need to be amused on the perldocs that ship with <sigzero@gmail.com>
Re: I need to be amused on the perldocs that ship with <john@castleamber.com>
Re: I need to be amused on the perldocs that ship with <cdalten@gmail.com>
Re: I need to be amused on the perldocs that ship with <bik.mido@tiscalinet.it>
Re: I need to be amused on the perldocs that ship with usenet@DavidFilmer.com
Keep getting error with email validation script <admin@link-exchangers.com>
Re: Keep getting error with email validation script <no@email.com>
Re: Keep getting error with email validation script usenet@DavidFilmer.com
Re: Keep getting error with email validation script (reading news)
Re: multiple languages <mark.clementsREMOVETHIS@wanadoo.fr>
new CPAN modules on Sun Nov 5 2006 (Randal Schwartz)
Re: PERL for database professionals. <tadmc@augustmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 04 Nov 2006 21:35:57 +0100
From: Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr>
Subject: Re: ADSI through Win32::OLE
Message-Id: <454cf9a2$0$27373$ba4acef3@news.orange.fr>
damien.chaumette@gmail.com wrote:
> Hi, I need to be able to deploy an IIS configuration using a perl
> script.
> Therefore I've been looking into Win32::OLE, which allowed me to Dump
> my config and make changes to the existing keys.
> Now my problem is that I can't create a new Object or a new Property,
> I've been looking around and found that piece of VB code:
>
> Set IIsWebVDirRootObj = GetObject("IIS://localhost/W3SVC/1/Root")
> Set IIsWebVDirObj = IIsWebVDirRootObj.Create("IIsWebVirtualDir",
> "NewVDir")
>
> Which successully created a new Object in my tree whereas the same code
> in Perl left the tree unchanged (without warning nor error):
>
> my $root = Win32::OLE->GetObject("IIS://localhost/W3SVC/1/Root");
> my $o = $root->Create("IIsWebVirtualDir", "ReallyNewVDir");
>
Is the result of executing "Create" twice with the same key name (here
it's "IIsWebVirtualDir") defined?
Will the VB code *change* the name (not just create it) if you execute
it a second time but with a different string ie not "NewVDir"?
What happens if you run a "Delete" first?
Is $o defined after the call to create?
Mark
------------------------------
Date: 05 Nov 2006 03:01:22 GMT
From: Puckdropper <puckdropper@yahoo.com>
Subject: Re: FAQ 5.22 All I want to do is append a small amount of text to the end of a file. Do I still have to use locking?
Message-Id: <454d5401$0$97220$892e7fe2@authen.yellow.readfreenews.net>
PerlFAQ Server <brian@stonehenge.com> wrote in
news:mbtv14-5k.ln1@blue.stonehenge.com:
> This is an excerpt from the latest version perlfaq5.pod, which
> comes with the standard Perl distribution. These postings aim to
> reduce the number of repeated questions as well as allow the community
> to review and update the answers. The latest version of the complete
> perlfaq is at http://faq.perl.org .
>
> --------------------------------------------------------------------
>
> 5.22: All I want to do is append a small amount of text to the end of
> a file. Do I still have to use locking?
>
>
*snip, no code*
>
> If you know you are only going to use a system that does correctly
> implement appending (i.e. not Win32) then you can omit the seek()
> from the above code.
>
*snip*
There's no code included in this post. Would someone either change the
paragraph to be less ambiguous or include the code?
Thanks,
Puckdropper
--
Wise is the man who attempts to answer his question before asking it.
To email me directly, send a message to puckdropper (at) fastmail.fm
------------------------------
Date: 4 Nov 2006 12:37:59 -0800
From: "grocery_stocker" <cdalten@gmail.com>
Subject: I need to be amused on the perldocs that ship with Perl.
Message-Id: <1162672679.917804.106210@h48g2000cwc.googlegroups.com>
Okay, so like my manager is cutting our department hours so he can get
his end of the year bonus. As
a result of this, I've had a bit more free time than normal.
Anyhow, the perldocs that came with my Perl distro has a lot of bs
written on closures. However, I haven't seen any kind of actual use of
closures in the standard mods. All I've seen are some mods generated
using h2xs, some mods that abuse AUTOLOAD, but mostly I've seen a lot
that make heavy use of the Symbol mod. I really forgot where this was
going. Anyone care to enlighten me on this?
------------------------------
Date: 4 Nov 2006 12:46:08 -0800
From: "Robert Hicks" <sigzero@gmail.com>
Subject: Re: I need to be amused on the perldocs that ship with Perl.
Message-Id: <1162673168.075708.3130@m73g2000cwd.googlegroups.com>
grocery_stocker wrote:
> Okay, so like my manager is cutting our department hours so he can get
> his end of the year bonus. As
> a result of this, I've had a bit more free time than normal.
>
> Anyhow, the perldocs that came with my Perl distro has a lot of bs
> written on closures. However, I haven't seen any kind of actual use of
> closures in the standard mods. All I've seen are some mods generated
> using h2xs, some mods that abuse AUTOLOAD, but mostly I've seen a lot
> that make heavy use of the Symbol mod. I really forgot where this was
> going. Anyone care to enlighten me on this?
Sorry, I don't know where you were going with this either. : )
Robert
------------------------------
Date: 4 Nov 2006 21:03:22 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: I need to be amused on the perldocs that ship with Perl.
Message-Id: <Xns9871992892D8Fcastleamber@130.133.1.4>
"grocery_stocker" <cdalten@gmail.com> wrote:
> Anyhow, the perldocs that came with my Perl distro has a lot of bs
> written on closures.
You're free to contribute better documentation. But so far you sound like
a Xah Lee clone, so I am not going to hold my breath
--
John Experienced Perl programmer: http://castleamber.com/
Perl help, tutorials, and examples: http://johnbokma.com/perl/
------------------------------
Date: 4 Nov 2006 13:47:57 -0800
From: "grocery_stocker" <cdalten@gmail.com>
Subject: Re: I need to be amused on the perldocs that ship with Perl.
Message-Id: <1162676877.528647.220550@b28g2000cwb.googlegroups.com>
John Bokma wrote:
> "grocery_stocker" <cdalten@gmail.com> wrote:
>
> > Anyhow, the perldocs that came with my Perl distro has a lot of bs
> > written on closures.
>
> You're free to contribute better documentation. But so far you sound like
> a Xah Lee clone, so I am not going to hold my breath
>
> --
I don't know who Xah Lee is. Actually, I don't know who any of the
developers are. I could really care less. I think this stems from my
one real job interview I got. It was at PHP interview job thingy. One
of the questions was like "Who is the father of PHP?". I was thinking
"This is what I'm supposed to
plug my feeble mind with as opposed to stuff like runtime analysis or
how crap gets parsed."
------------------------------
Date: Sun, 05 Nov 2006 11:06:16 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: I need to be amused on the perldocs that ship with Perl.
Message-Id: <endrk2lgob45cgjgf38b1i9ofbjobos1oa@4ax.com>
On 4 Nov 2006 13:47:57 -0800, "grocery_stocker" <cdalten@gmail.com>
wrote:
>I don't know who Xah Lee is. Actually, I don't know who any of the
>developers are. I could really care less. I think this stems from my
You should care some more since xl is far from being any of the
developers, he's actually one guy who's been trolling here and
elsewhere (maybe he's *still* trolling, but I've killfiled him since
long, and I'm not really sure) just like you *seem* to be doing now,
and that's what John meant.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 5 Nov 2006 02:25:21 -0800
From: usenet@DavidFilmer.com
Subject: Re: I need to be amused on the perldocs that ship with Perl.
Message-Id: <1162722321.893543.273970@m7g2000cwm.googlegroups.com>
Michele Dondi wrote:
> xl is far from being any of the developers, he's actually one guy
> who's been trolling here and elsewhere (maybe he's *still* trolling,
> but I've killfiled him since long, and I'm not really sure)
CLPMisc has ben x-el free for some time now. Maybe JohnB made an
impression? Who knows (or cares).
> just like you *seem* to be doing now, and that's what John meant.
Although this OP is troll-ish in nature, it DOES seem to be making an
effort to inform itself about the subject at hand (Perl), as evidenced
by an apparent familarity with the FAQs and various module source codes
(which, I confess, I have not browsed). Other notorious trolls (X-el,
pee-g (aka moronzilla)) did not appear to make any such effort. So,
for the moment, I am giving this OP the benefit of the doubt, and
attributing its somewhat abrasive posture to either ill-informed
netiquette or alcohol.
--
David Filmer (http://DavidFilmer.com)
------------------------------
Date: 4 Nov 2006 23:46:02 -0800
From: "Get Links" <admin@link-exchangers.com>
Subject: Keep getting error with email validation script
Message-Id: <1162712762.689135.297570@h54g2000cwb.googlegroups.com>
#!/usr/bin/perl -w
use CGI qw(param);
my $firstname = param("firstname");
my $email = param("email");
#my $email = "test@test.com";
my $zfile= "../list/list.txt";
#my $zfile= "c:/list.txt";
##########################################################
print "Content-type: text/html";
if ($email
=~m/^([A-Z0-9]+[._]?){1,}[A-Z0-9]+\@(([A-Z0-9]+[-]?){1,}[A-Z0-9]+\.){1,}[A-Z]{2,4}$/i)
{
print "Good email: $email\n";
open (OUT, ">>$zfile") || die("Can't open file!");
print OUT $firstname ."|" . $email . "|" . "\n";
close OUT;
print "name added";
} else {
print "Bad email: $email\n";
}
I keep getting an error message with this. It should print the message
name added or bad email and it does neither.. [Sat Nov 4 23:41:29 2006]
[error] [client 75.4.21.59] Premature end of script headers:
/home/mortgage/public_html/cgi-bin/list.cgi [Sat Nov 4 23:40:56 2006]
Can anyone tell me what the problem is here? I"m using a simple form to
send the 2 fields.
Thanks,
Scot
------------------------------
Date: Sun, 05 Nov 2006 10:07:19 +0000
From: Brian Wakem <no@email.com>
Subject: Re: Keep getting error with email validation script
Message-Id: <4r5redFpl3rvU1@individual.net>
Get Links wrote:
> #!/usr/bin/perl -w
>
> use CGI qw(param);
> my $firstname = param("firstname");
> my $email = param("email");
> #my $email = "test@test.com";
> my $zfile= "../list/list.txt";
> #my $zfile= "c:/list.txt";
> ##########################################################
> print "Content-type: text/html";
Should be print "Content-type: text/html\n\n";
--
Brian Wakem
Email: http://homepage.ntlworld.com/b.wakem/myemail.png
------------------------------
Date: 5 Nov 2006 02:07:08 -0800
From: usenet@DavidFilmer.com
Subject: Re: Keep getting error with email validation script
Message-Id: <1162721228.879286.216000@b28g2000cwb.googlegroups.com>
Get Links wrote:
> print "Content-type: text/html";
Try
print "Content-type: text/html\n\n";
Or, better yet,
use CGI qw{ param header };
...
print header();
--
David Filmer (http://DavidFilmer.com)
------------------------------
Date: Sun, 05 Nov 2006 10:51:38 GMT
From: "Mumia W. (reading news)" <paduille.4060.mumia.w@earthlink.net>
Subject: Re: Keep getting error with email validation script
Message-Id: <_mj3h.3049$ig4.2607@newsread2.news.pas.earthlink.net>
On 11/05/2006 01:46 AM, Get Links wrote:
> #!/usr/bin/perl -w
>
> use CGI qw(param);
> my $firstname = param("firstname");
> my $email = param("email");
> #my $email = "test@test.com";
> my $zfile= "../list/list.txt";
> #my $zfile= "c:/list.txt";
> ##########################################################
> print "Content-type: text/html";
>
It seems that you are done printing headers at this point in the
program, so you should complete the header above (by providing the
obligatory \n) and print another \n to signal the start of the HTTP
content. The above line should be changed to two lines:
print "Content-type: text/html\n"; # notice the \n
print "\n"; # This signals that the HTTP headers have ended
# and the HTTP body is starting.
> if ($email
> =~m/^([A-Z0-9]+[._]?){1,}[A-Z0-9]+\@(([A-Z0-9]+[-]?){1,}[A-Z0-9]+\.){1,}[A-Z]{2,4}$/i)
> {
> print "Good email: $email\n";
> open (OUT, ">>$zfile") || die("Can't open file!");
> print OUT $firstname ."|" . $email . "|" . "\n";
> close OUT;
> print "name added";
> } else {
> print "Bad email: $email\n";
> }
>
> I keep getting an error message with this. It should print the message
> name added or bad email and it does neither.. [Sat Nov 4 23:41:29 2006]
> [error] [client 75.4.21.59] Premature end of script headers:
> /home/mortgage/public_html/cgi-bin/list.cgi [Sat Nov 4 23:40:56 2006]
>
> Can anyone tell me what the problem is here? I"m using a simple form to
> send the 2 fields.
>
> Thanks,
>
> Scot
>
--
paduille.4060.mumia.w@earthlink.net
------------------------------
Date: Sat, 04 Nov 2006 23:59:42 +0100
From: Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr>
Subject: Re: multiple languages
Message-Id: <454d1b53$0$5082$ba4acef3@news.orange.fr>
paul wrote:
> hello,
>
> I would like to search for assistant regarding to building a system
> will Perl to allow user to use multiple languages--Japanese, Chinese,
> English.
>
There are a number of ways of doing this. Try searching for the
following on CPAN:
I18N
Class::Phrasebook
Assuming you are creating a web application, you probably also want to
use a templating system, of which there are many available.
eg
Template::Toolkit
HTML::Template
and/or an application framework
eg
Catalyst
Maypole
CGI::Application
HTML::Mason
Mark
------------------------------
Date: Sun, 5 Nov 2006 05:42:10 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Sun Nov 5 2006
Message-Id: <J88t6A.19CB@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.
Acme-Metification-1.01
http://search.cpan.org/~smueller/Acme-Metification-1.01/
Give Perl the power of Metaprogramming!
----
Apache-DBI-1.05
http://search.cpan.org/~pgollucci/Apache-DBI-1.05/
Initiate a persistent database connection
----
Business-DE-KontoCheck-0.11
http://search.cpan.org/~tinita/Business-DE-KontoCheck-0.11/
Validating Bank-Account Numbers for Germany
----
Business-DE-KontoCheck-0.12
http://search.cpan.org/~tinita/Business-DE-KontoCheck-0.12/
Validating Bank-Account Numbers for Germany
----
CPAN-WWW-Testers-0.31
http://search.cpan.org/~lbrocard/CPAN-WWW-Testers-0.31/
Present CPAN Testers data
----
Convert-NLS_DATE_FORMAT-0.02
http://search.cpan.org/~kolibrie/Convert-NLS_DATE_FORMAT-0.02/
Convert Oracle NLS_DATE_FORMAT <-> strftime Format Strings
----
DBIx-Class-AsFdat-0.01
http://search.cpan.org/~nekokak/DBIx-Class-AsFdat-0.01/
like CDBI::Plugin::AsFdat.
----
DateTime-Format-Oracle-0.02
http://search.cpan.org/~kolibrie/DateTime-Format-Oracle-0.02/
Parse and format Oracle dates and timestamps
----
Games-ScottAdams-0.04
http://search.cpan.org/~mirk/Games-ScottAdams-0.04/
Perl extension for representing Scott Adams games
----
Geo-Forward-0.05
http://search.cpan.org/~mrdvt/Geo-Forward-0.05/
Calculate geographic location from lat, lon, distance, and heading.
----
Geo-HelmertTransform-1.10
http://search.cpan.org/~mysociety/Geo-HelmertTransform-1.10/
----
Geo-Proj4-0.97
http://search.cpan.org/~markov/Geo-Proj4-0.97/
PROJ.4 cartographic projections library
----
Geo-Spline-0.03
http://search.cpan.org/~mrdvt/Geo-Spline-0.03/
Calculate geographic locations between GPS fixes.
----
Geo-Spline-0.04
http://search.cpan.org/~mrdvt/Geo-Spline-0.04/
Calculate geographic locations between GPS fixes.
----
HTML-Template-Compiled-Plugin-HTML_Tags-0.02
http://search.cpan.org/~tinita/HTML-Template-Compiled-Plugin-HTML_Tags-0.02/
HTC-Plugin for various HTML tags
----
Inline-C2XS-0.05
http://search.cpan.org/~sisyphus/Inline-C2XS-0.05/
create an XS file from an Inline C or Inline CPP file.
----
Mail-SPF-2.000_001
http://search.cpan.org/~jmehnle/Mail-SPF-2.000_001/
An object-oriented implementation of Sender Policy Framework
----
Math-Fractal-Curve-1.03
http://search.cpan.org/~smueller/Math-Fractal-Curve-1.03/
Generate fractal curves
----
Module-CPANTS-Analyse-0.69
http://search.cpan.org/~domm/Module-CPANTS-Analyse-0.69/
Generate Kwalitee ratings for a distribution
----
Mozilla-ConsoleService-0.01
http://search.cpan.org/~bosu/Mozilla-ConsoleService-0.01/
Perl interface to Mozilla nsIConsoleService
----
Mozilla-ConsoleService-0.02
http://search.cpan.org/~bosu/Mozilla-ConsoleService-0.02/
Perl interface to Mozilla nsIConsoleService
----
Mozilla-Mechanize-GUITester-0.02
http://search.cpan.org/~bosu/Mozilla-Mechanize-GUITester-0.02/
enhances Mozilla::Mechanize with GUI testing.
----
PAR-Repository-0.14
http://search.cpan.org/~smueller/PAR-Repository-0.14/
Create and modify PAR repositories
----
POE-Filter-XML-0.31
http://search.cpan.org/~nperez/POE-Filter-XML-0.31/
A POE Filter for parsing XML
----
Search-Estraier-0.08_1
http://search.cpan.org/~dpavlin/Search-Estraier-0.08_1/
pure perl module to use Hyper Estraier search engine
----
Sledge-View-0.05
http://search.cpan.org/~tokuhirom/Sledge-View-0.05/
abstract base class for Sledge's view(EXPERIMENTAL!!)
----
Test-XML-Order-0.04
http://search.cpan.org/~gam/Test-XML-Order-0.04/
Compare the order of XML tags in perl tests
----
Thread-State-0.08
http://search.cpan.org/~makamaka/Thread-State-0.08/
check threads state, context, priority
----
Web-Scaffold-0.06
http://search.cpan.org/~miker/Web-Scaffold-0.06/
build minimalist fancy web sites
----
WebService-Validator-HTML-W3C-0.14
http://search.cpan.org/~struan/WebService-Validator-HTML-W3C-0.14/
Access the W3Cs online HTML validator
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: Sat, 4 Nov 2006 10:04:55 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: PERL for database professionals.
Message-Id: <slrnekpeh7.963.tadmc@tadmc30.august.net>
snojha@gmail.com <snojha@gmail.com> wrote:
> PERL scripts for database professionals. Please join our new group
I don't think I'll join a group of spammers that cannot even
spell Perl properly.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
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 9931
***************************************
