[30434] in Perl-Users-Digest
Perl-Users Digest, Issue: 1677 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Jun 28 09:09:56 2008
Date: Sat, 28 Jun 2008 06:09:16 -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 Sat, 28 Jun 2008 Volume: 11 Number: 1677
Today's topics:
Re: accuracy of Time::HiRes <john1949@yahoo.com>
how do prlglobs expand (was Re: 'nobody' using sudo -- <news1234@free.fr>
new CPAN modules on Sat Jun 28 2008 (Randal Schwartz)
Perl search engine <mayweed@gmail.com>
Re: Perl search engine <uri@stemsystems.com>
Re: Perl search engine <mayweed@gmail.com>
Re: Perl search engine <benkasminbullock@gmail.com>
Re: Perl search engine <wahab-mail@gmx.de>
Re: run application from perl nonblocking? <allergic-to-spam@no-spam-allowed.org>
Re: Simplest way (or module) to tweak query in CGI serv <tadmc@seesig.invalid>
Re: Simplest way (or module) to tweak query in CGI serv jerrykrinock@gmail.com
Re: Simplest way (or module) to tweak query in CGI serv jerrykrinock@gmail.com
Re: Using System to read mixed cased environment variab <sisyphus359@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 28 Jun 2008 06:54:40 +0100
From: "John" <john1949@yahoo.com>
Subject: Re: accuracy of Time::HiRes
Message-Id: <g44jmu$3dk$1@news.albasani.net>
"Anonymous coward" <anonymous@cow.ard> wrote in message
news:bdb84$48655840$89e0e08f$8931@news1.tudelft.nl...
> On Fri, 27 Jun 2008 21:38:39 +0100, John wrote:
>
>> Hi
>>
>> use Time::HiRes qw (gettimeofday);
>> my ($secs,$milliseconds)=gettimeofday(); my $trans="$secs$milliseconds";
>> # 10 digits and 6 digits
>>
>> Sometimes the length of $trans is 16 but sometimes it is 15. Shouldn't
>> it be 16 always?
>>
>> Regards
>> John
>
> The length of microseconds (not milliseconds) will be 5 digits one out of
> ten times, because it's value is less than 100000 microseconds. In one
> out of a hundred times it will be 4 digits, etc. If you rely on the
> length of it, you should probably use sprintf.
>
> Regards,
>
> Leon Timmermans
Hi
Of course, I see that now. I need the length to create a unique number of
standard length. sprintf will do that.
Many thanks.
Regards
John
------------------------------
Date: Sat, 28 Jun 2008 11:25:15 +0200
From: nntpman68 <news1234@free.fr>
Subject: how do prlglobs expand (was Re: 'nobody' using sudo -- scary!)
Message-Id: <4866037a$0$31498$426a74cc@news.free.fr>
This raises an intersting pint )for me at least)
I'm not that used to perl globs:
let's assume I work in a setup where /home/*/.forward expands to > 15000
files.
What would happen if I use follwing statement in perl"
foreach my $file (</home/*/.forward>){
do_something($file);
}
would perl
- iterate through the files
- or would perl first create a list of all the files and then
iterate through them.
- or would it hit a linit and not provide all hits.
- or does it depend on the system perl is running on
?
Just being curious?
Big and Blue wrote:
> RedGrittyBrick wrote:
>> Jens Thoms Toerring wrote:
>>>
>>> for i in `ls -a /home/*/.forward`; do rm $i; done
> . . .
>
> Neither of which would necessarily work if /home were an automount
> point, as "*" won't expand (and if it did, could have > 15000 matches in
> at least one case I know of, which is why you wouldn't want it to expand).
>
------------------------------
Date: Sat, 28 Jun 2008 04:42:19 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Sat Jun 28 2008
Message-Id: <K35p2J.1zGG@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.
Apache-Session-1.86_02
http://search.cpan.org/~chorny/Apache-Session-1.86_02/
A persistence framework for session data
----
Attribute-Constant-0.02
http://search.cpan.org/~dankogai/Attribute-Constant-0.02/
Make read-only variables via attribute
----
Auth-Yubikey_Decrypter-0.01
http://search.cpan.org/~massyn/Auth-Yubikey_Decrypter-0.01/
The great new Auth::Yubikey_Decrypter!
----
Bio-DOOP-DOOP-0.29
http://search.cpan.org/~tibi/Bio-DOOP-DOOP-0.29/
DOOP API main module
----
CAM-PDF-1.20
http://search.cpan.org/~cdolan/CAM-PDF-1.20/
PDF manipulation library
----
Class-Method-Modifiers-1.01
http://search.cpan.org/~sartak/Class-Method-Modifiers-1.01/
provides Moose-like method modifiers
----
Devel-Sub-Which-0.03
http://search.cpan.org/~nuffin/Devel-Sub-Which-0.03/
Name information about sub calls ? la "can" in UNIVERSAL and <which(1)>.
----
Error-Exception-1.0
http://search.cpan.org/~srvance/Error-Exception-1.0/
Combines Error and Exception::Class with correct stringication
----
Fey-ORM-0.08
http://search.cpan.org/~drolsky/Fey-ORM-0.08/
A Fey-based ORM
----
File-HomeDir-0.80
http://search.cpan.org/~adamk/File-HomeDir-0.80/
Find your home and other directories, on any platform
----
Finance-DST-FAN-Mail-0.002000
http://search.cpan.org/~groditi/Finance-DST-FAN-Mail-0.002000/
Tools for interfacing with DST FAN Mail
----
Finance-DST-FAN-Mail-0.003000
http://search.cpan.org/~groditi/Finance-DST-FAN-Mail-0.003000/
Tools for interfacing with DST FAN Mail
----
Gantry-Plugins-AjaxCRUD-0.01
http://search.cpan.org/~kesteb/Gantry-Plugins-AjaxCRUD-0.01/
helper for AJAX based CRUD work
----
Gantry-Plugins-AjaxFORM-0.01
http://search.cpan.org/~kesteb/Gantry-Plugins-AjaxFORM-0.01/
helper for AJAX based Form processing
----
Gantry-Plugins-Cache-0.01
http://search.cpan.org/~kesteb/Gantry-Plugins-Cache-0.01/
A Plugin for initializing cache processing
----
Gantry-Plugins-Session-0.01
http://search.cpan.org/~kesteb/Gantry-Plugins-Session-0.01/
Plugin for cookie based session management
----
HTML-MobileJp-Filter-0.01
http://search.cpan.org/~tomita/HTML-MobileJp-Filter-0.01/
Glue modules for fighting Japanese mobile web
----
HTML-ReportWriter-1.5.1
http://search.cpan.org/~opiate/HTML-ReportWriter-1.5.1/
Simple OO interface to generate pageable, sortable HTML tabular reports
----
HTML-Tested-0.38
http://search.cpan.org/~bosu/HTML-Tested-0.38/
Provides HTML widgets with the built-in means of testing.
----
HTML-Tested-ClassDBI-0.18
http://search.cpan.org/~bosu/HTML-Tested-ClassDBI-0.18/
Enhances HTML::Tested to work with Class::DBI
----
HTML-Tested-JavaScript-0.13
http://search.cpan.org/~bosu/HTML-Tested-JavaScript-0.13/
JavaScript enabled HTML::Tested widgets.
----
Helios-1.90_26
http://search.cpan.org/~lajandy/Helios-1.90_26/
a framework for developing asynchronous distributed job processing applications
----
IPTables-libiptc-0.09
http://search.cpan.org/~hawk/IPTables-libiptc-0.09/
Perl extension for iptables libiptc
----
Image-Magick-PixelMosaic-0.02
http://search.cpan.org/~turugina/Image-Magick-PixelMosaic-0.02/
Pixelized mosaic filter for Image::Magick.
----
Image-MetaData-GQview-1.10
http://search.cpan.org/~kethgen/Image-MetaData-GQview-1.10/
Perl extension for GQview image metadata
----
Lingua-EN-Titlecase-0.08
http://search.cpan.org/~ashley/Lingua-EN-Titlecase-0.08/
Titlecase English words by traditional editorial rules.
----
Lingua-EN-Titlecase-0.09
http://search.cpan.org/~ashley/Lingua-EN-Titlecase-0.09/
Titlecase English words by traditional editorial rules.
----
Lingua-Slavic-Numbers-0.01
http://search.cpan.org/~teodor/Lingua-Slavic-Numbers-0.01/
Converts numeric values into their Slavic string equivalents. Bulgarian is supported so far.
----
Log-Dispatch-Binlog-0.02
http://search.cpan.org/~nuffin/Log-Dispatch-Binlog-0.02/
Storable based binary logs.
----
Moose-0.51
http://search.cpan.org/~sartak/Moose-0.51/
A postmodern object system for Perl 5
----
MooseX-AttributeHelpers-0.11
http://search.cpan.org/~sartak/MooseX-AttributeHelpers-0.11/
Extend your attribute interfaces
----
MooseX-Method-0.42
http://search.cpan.org/~gphat/MooseX-Method-0.42/
Method declaration with type checking
----
MooseX-Signature-Function-0.00_02
http://search.cpan.org/~berle/MooseX-Signature-Function-0.00_02/
A framework for function signatures in Moose
----
MooseX-Signature-Function-0.00_03
http://search.cpan.org/~berle/MooseX-Signature-Function-0.00_03/
A framework for function signatures in Moose
----
MooseX-Signature-Function-0.00_04
http://search.cpan.org/~berle/MooseX-Signature-Function-0.00_04/
A framework for function signatures in Moose
----
MooseX-Signature-Function-0.00_05
http://search.cpan.org/~berle/MooseX-Signature-Function-0.00_05/
A framework for function signatures in Moose
----
MooseX-Singleton-0.09
http://search.cpan.org/~sartak/MooseX-Singleton-0.09/
turn your Moose class into a singleton
----
MooseX-StrictConstructor-0.06
http://search.cpan.org/~drolsky/MooseX-StrictConstructor-0.06/
Make your object constructors blow up on unknown attributes
----
Mozilla-ConsoleService-0.04
http://search.cpan.org/~bosu/Mozilla-ConsoleService-0.04/
Perl interface to Mozilla nsIConsoleService
----
Mozilla-DOM-ComputedStyle-0.03
http://search.cpan.org/~bosu/Mozilla-DOM-ComputedStyle-0.03/
Interface to Mozilla getComputedStyle function.
----
Mozilla-PromptService-0.04
http://search.cpan.org/~bosu/Mozilla-PromptService-0.04/
Perl interface to the Mozilla nsIPromptService
----
Mozilla-SourceViewer-0.06
http://search.cpan.org/~bosu/Mozilla-SourceViewer-0.06/
Perl extension to get current page source.
----
MySQL-Insert-0.02
http://search.cpan.org/~despair/MySQL-Insert-0.02/
extended inserts for MySQL via DBI
----
Net-Stomp-0.34
http://search.cpan.org/~lbrocard/Net-Stomp-0.34/
A Streaming Text Orientated Messaging Protocol Client
----
Net-eBay-0.49
http://search.cpan.org/~ichudov/Net-eBay-0.49/
Perl Interface to XML based eBay API.
----
Net-uFTP-0.13
http://search.cpan.org/~strzelec/Net-uFTP-0.13/
Universal interface for FTP-like modules (FTP, SFTP, SCP), in most cases Net::FTP compatible.
----
Net-uFTP-0.14
http://search.cpan.org/~strzelec/Net-uFTP-0.14/
Universal interface for FTP-like modules (FTP, SFTP, SCP), in most cases Net::FTP compatible.
----
PDF-Extract-3.03
http://search.cpan.org/~nsharrock/PDF-Extract-3.03/
Extracting sub PDF documents from a multi page PDF document
----
POE-Component-SNMP-Session-0.11
http://search.cpan.org/~rdb/POE-Component-SNMP-Session-0.11/
Wrap Net-SNMP's SNMP::Session in POE
----
POE-Test-Loops-0.99
http://search.cpan.org/~rcaputo/POE-Test-Loops-0.99/
Reusable tests for POE::Loop authors
----
POE-XS-Loop-Poll-0.001
http://search.cpan.org/~tonyc/POE-XS-Loop-Poll-0.001/
an XS implementation of POE::Loop, using poll(2).
----
Rinchi-Outlook-0.02
http://search.cpan.org/~bmames/Rinchi-Outlook-0.02/
A module for representing Microsoft Outlook? 11.0 Object Library objects.
----
Scalar-Defer-0.13
http://search.cpan.org/~nuffin/Scalar-Defer-0.13/
Lazy evaluation in Perl
----
Scalar-Defer-0.15
http://search.cpan.org/~audreyt/Scalar-Defer-0.15/
Lazy evaluation in Perl
----
Test-CPAN-Meta-0.12
http://search.cpan.org/~barbie/Test-CPAN-Meta-0.12/
Validation of the META.yml file in a CPAN distribution.
----
Test-YAML-Meta-0.11
http://search.cpan.org/~barbie/Test-YAML-Meta-0.11/
Validation of the META.yml file in a distribution.
----
Tie-File-Hashify-0.03
http://search.cpan.org/~jkramer/Tie-File-Hashify-0.03/
----
Tie-File-Hashify-0.3
http://search.cpan.org/~jkramer/Tie-File-Hashify-0.3/
----
User-Simple-1.40
http://search.cpan.org/~gwolf/User-Simple-1.40/
Simple user sessions management
----
WWW-Scraper-ISBN-Amazon_Driver-0.12
http://search.cpan.org/~barbie/WWW-Scraper-ISBN-Amazon_Driver-0.12/
----
WWW-Scraper-ISBN-Amazon_Driver-0.13
http://search.cpan.org/~barbie/WWW-Scraper-ISBN-Amazon_Driver-0.13/
----
WWW-Scraper-ISBN-ORA_Driver-0.09
http://search.cpan.org/~barbie/WWW-Scraper-ISBN-ORA_Driver-0.09/
Search driver for O'Reilly Media's online catalog.
----
WWW-Scraper-ISBN-Pearson_Driver-0.10
http://search.cpan.org/~barbie/WWW-Scraper-ISBN-Pearson_Driver-0.10/
Search driver for Pearson Education's online catalog.
----
WWW-Scraper-ISBN-Yahoo_Driver-0.07
http://search.cpan.org/~barbie/WWW-Scraper-ISBN-Yahoo_Driver-0.07/
Search driver for Yahoo Books online catalog.
----
Win32-0.38
http://search.cpan.org/~jdb/Win32-0.38/
Interfaces to some Win32 API Functions
----
eBay-API-Docs-0.01
http://search.cpan.org/~tkeefer/eBay-API-Docs-0.01/
----
iCal-Parser-SAX-1.08
http://search.cpan.org/~rfrankel/iCal-Parser-SAX-1.08/
Generate SAX events from an iCalendar
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/>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion
------------------------------
Date: Fri, 27 Jun 2008 19:51:52 -0700 (PDT)
From: =?KOI8-R?B?4eI=?= <mayweed@gmail.com>
Subject: Perl search engine
Message-Id: <c176a2de-524e-4a43-b52d-c329761a76e3@34g2000hsh.googlegroups.com>
A new search engine through a perl-related websites is opened:
http://brainworker.ru/en/ Hope it would be useful useful to somebody.
------------------------------
Date: Sat, 28 Jun 2008 04:09:40 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Perl search engine
Message-Id: <x763ruw67v.fsf@mail.sysarch.com>
>>>>> "" == <mayweed@gmail.com> writes:
> A new search engine through a perl-related websites is opened:
> http://brainworker.ru/en/ Hope it would be useful useful to somebody.
the irony is that this was posted via google!
but i bet the spammer won't get the irony.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Free Perl Training --- http://perlhunter.com/college.html ---------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Fri, 27 Jun 2008 21:57:27 -0700 (PDT)
From: =?KOI8-R?B?4eI=?= <mayweed@gmail.com>
Subject: Re: Perl search engine
Message-Id: <0b0cdc00-143f-4c66-964f-4873783c5d59@k37g2000hsf.googlegroups.com>
> but i bet the spammer won't get the irony.
Where's the spam you see? :) It was the letter about noncommercial
perl-site to the perl-group, I supposed. Sorry if such letters are
inappropriate here.
> the irony is that this was posted via google!
By the way, there are even some search engines devoted to Perl which
are made on basis of Google Custom Search, e. g. http://perl.idaru.co.uk/
Best wishes
Andrey Belov
------------------------------
Date: Sat, 28 Jun 2008 06:21:50 +0000 (UTC)
From: Ben Bullock <benkasminbullock@gmail.com>
Subject: Re: Perl search engine
Message-Id: <g44l9u$bh9$1@cgi-ml.accsnet.ne.jp>
On Fri, 27 Jun 2008 21:57:27 -0700, АБ wrote:
>> but i bet the spammer won't get the irony.
>
> Where's the spam you see? :) It was the letter about noncommercial
> perl-site to the perl-group, I supposed. Sorry if such letters are
> inappropriate here.
I don't think it's inappropriate. The site looks useful and it's
certainly Perl-related, so as far as I can tell, it's appropriate
for this newsgroup.
>> the irony is that this was posted via google!
>
> By the way, there are even some search engines devoted to Perl which
> are made on basis of Google Custom Search, e. g. http://perl.idaru.co.uk/
That sounds interesting. I am stuck with C, C++ and GTK+ for the time
being, but next time I have a Perl query I'll try your site.
Thanks for your post.
------------------------------
Date: Sat, 28 Jun 2008 10:19:07 +0200
From: Mirco Wahab <wahab-mail@gmx.de>
Subject: Re: Perl search engine
Message-Id: <g44s8p$ajm$1@mlucom4.urz.uni-halle.de>
wrote:
> A new search engine through a perl-related websites is opened:
> http://brainworker.ru/en/ Hope it would be useful useful to somebody.
Some Ideas; ... make anoter (Win32 specific) block
* Vanilla Perl "http://vanillaperl.com/"
* Strawberry Perl "http://strawberryperl.com/"
* Active State FTP site: "http://ftp.activestate.com/"
Regards
M.
------------------------------
Date: Sat, 28 Jun 2008 00:10:47 +0200 (CEST)
From: Jim Cochrane <allergic-to-spam@no-spam-allowed.org>
Subject: Re: run application from perl nonblocking?
Message-Id: <slrng6apa9.h49.allergic-to-spam@no-spam-allowed.org>
On 2008-06-26, Jim Gibson <jimsgibson@gmail.com> wrote:
> In article
><4f997584-1ed0-4f36-a6c6-fed1619f6ef2@m45g2000hsb.googlegroups.com>,
> sebastian nielsen <nielsen.sebastian@gmail.com> wrote:
>
>> Now I understand.
>> I tought the whole string "start command" was referring to the command
>> that should be run, in other words , I tought that I should replace
>> "start command" with the command I want to run.
>> Since I didnt know it existed a dos command called "start".
>>
>> But when providing examples, I understand that I should run "start "
>> and then the actual command that should execute.
>>
>> Thanks, its working now.
>> Now I understand that I should run system("start C:\parse.exe ".
>> $mailid); and it works like a charm.
>>
>>
>> BTW, I never quote messages, since I think it takes up unneccesary
>> space.
The space wasted for the resulting discussions, just like this one, will
probably total much more than the space you saved by not quoting any
context.
> You should be aware that many of the most helpful regulars here (not
> me!) do not use Google Groups to read Usenet articles. Other
> newsreaders do not present the entire thread to you (and this is a good
> thing!) So those helpful others will not have the context of your
> posting unless you include the relevant parts with suitable quoting
> characters and attribution. Not doing so will make it less likely to
> get help from this newsgroup.
In other words, by not quoting context you're greatly increasing the
chances that someone who can answer your question will see your post and
think: "Can't tell what the <...> he's talking about - guess I'll just
move on.", instead of responding with a helpful answer.
Quoting context is a convention and it exists for a good reason. (But
please don't quote the entire article if it's long - that goes to the
other extreme and also breaks convention.)
--
------------------------------
Date: Fri, 27 Jun 2008 18:49:34 -0500
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: Simplest way (or module) to tweak query in CGI server-side validation
Message-Id: <slrng6av4e.vee.tadmc@tadmc30.sbcglobal.net>
jerrykrinock@gmail.com <jerrykrinock@gmail.com> wrote:
> The only way I've ever seen a POST transmitted is to use an HTML
><form>. Is there a "bare metal" way to transmit a POST?
^^^^
^^^^
perldoc -q form
How do I automate an HTML form submission?
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Sat, 28 Jun 2008 05:53:19 -0700 (PDT)
From: jerrykrinock@gmail.com
Subject: Re: Simplest way (or module) to tweak query in CGI server-side validation
Message-Id: <5064eec7-0ea7-4f11-8371-71a057c2f9d7@e39g2000hsf.googlegroups.com>
On Jun 27, 2:19=A0pm, xhos...@gmail.com wrote:
> You can direct the user's web-browser to submit to another CGI via GET by
> writing it into the URL you are redirecting to. =A0This mostly works beca=
use
> it is just another URL, and the web browser probably doesn't know or care
> it is for CGI. =A0Obviously you would require more active support from th=
e
> browser in order to do this with a POST rather than than a GET. =A0And th=
e
> browser is unlikely to provide this support, both because it is extra wor=
k
> and for security reasons.
Hmmm. I see quite a few issues there
> If the place you are redirecting too will accept a GET instead of a POST,
then I will will use the solution given by Gunnar!
> If [not] ...
> What I've done in the past is use LWP to have my CGI post the POST to the
> other site, and have the CGI receive the response and proxy it back to th=
e
> response back to the user (adding a BASE tag to it so links resolve
> properly).
If I understand you correctly, believe that the address bar in the
user's web browser would then show my Redirector.pl instead of the
Redirectee.pl. That's not acceptable.
Xho, thank you very much for these ideas. After considering them, I
believe the answer to my question "What if the redirectee site won't
take GET and wants POST?" is "Well, then it's time to step back and
redefine the problem so that easier solutions will come into play!"
Jerry
------------------------------
Date: Sat, 28 Jun 2008 06:08:38 -0700 (PDT)
From: jerrykrinock@gmail.com
Subject: Re: Simplest way (or module) to tweak query in CGI server-side validation
Message-Id: <43cb127f-7005-4b56-a01d-516a15efe59f@f36g2000hsa.googlegroups.com>
On Jun 27, 4:49=A0pm, Tad J McClellan <ta...@seesig.invalid> wrote:
> jerrykrin...@gmail.com <jerrykrin...@gmail.com> wrote:
> > =A0Is there a "bare metal" way to transmit a POST?
> [Reference in perldoc faq which suggesting using LWP::UserAgent]
Well, a module isn't my idea of "bare metal", but the module has
source code, and that source code invokes HTTP::Request::Common, which
has source code too...
http://search.cpan.org/src/GAAS/libwww-perl-5.813/lib/HTTP/Request/Common.p=
m
and the "sub POST" function beginning at line 24 looks like what I
asked for, the "bare metal" of doing a POST! Hmmm...not a simple
solution, but at least now I know where to look in case I ever really
need to modify and redirect a POST.
Thank you, Tad.
------------------------------
Date: Fri, 27 Jun 2008 22:38:44 -0700 (PDT)
From: sisyphus <sisyphus359@gmail.com>
Subject: Re: Using System to read mixed cased environment variables on Windows
Message-Id: <0ec975bc-084f-4767-8de8-e3e920dfafa1@t12g2000prg.googlegroups.com>
On Jun 28, 4:00=A0am, Thierry <lamthie...@gmail.com> wrote:
> On Windows XP Pro 32 bit, if I want to output environment variables
> PYTHON or ProgramFiles, I use the set command which output the
> following:
>
> C:\set PYTHON
> PYTHON=3DC:\Python24\python.exe
> C:\set ProgramFiles
> ProgramFiles=3DC:\Program Files
>
> If I used Perl 5.003_07 and use the system subroutine to show the
> environment variables, I get the following. =A0Perl script is:
>
> system("set PYTHON");
> system("set ProgramFiles");
>
> Output is:
> PYTHON=3DC:\Python24\python.exe
> PROGRAMFILES=3DC:\Program Files
>
> You'll notice that through system, the environment variable
> ProgramFiles is all in upper case. =A0Is there a way to preserve the
> mixed case of the environment variable through system(...)?
I find that case is preserved with perl 5.6.2, 5.8.8 and 5.10.0:
C:\>set MyTest=3DC:\MyTest
C:\>set MyTest
MyTest=3DC:\MyTest
C:\CVS>perl -e "system(\"set MyTest\")"
MyTest=3DC:\MyTest
C:\CVS>set MITEST=3DC:\MiTest
C:\CVS>perl -e "system(\"set MiTest\")"
MITEST=3DC:\MiTest
Not quite sure why you get the behaviour you reported ... perhaps it
is just that antiquated version of perl you're running. I guess you
could update your perl and see if the behaviour changes. (Though as
Ron Bergin has already indicated, there are better ways of accessing
the environment variables anyway.)
Cheers,
Rob
------------------------------
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 1677
***************************************
