[30284] in Perl-Users-Digest
Perl-Users Digest, Issue: 1527 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat May 10 03:10:09 2008
Date: Sat, 10 May 2008 00:09:35 -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, 10 May 2008 Volume: 11 Number: 1527
Today's topics:
Re: Dear gurus how can I extract an ARRAY from a scalar <someone@example.com>
Re: Dear gurus how can I extract an ARRAY from a scalar <uri@stemsystems.com>
Re: Dear gurus how can I extract an ARRAY from a scalar <ben@morrow.me.uk>
Re: Dear gurus how can I extract an ARRAY from a scalar <uri@stemsystems.com>
Re: DROP TABLE customers <luiheidsgoeroe@hotmail.com>
Re: Get variable from its name string or vice versa? jerrykrinock@gmail.com
Re: Get variable from its name string or vice versa? <uri@stemsystems.com>
Getting Portocal Settings for NIC <XXjbhuntxx@white-star.com>
Re: Help: Content extraction <jurgenex@hotmail.com>
How to filter fat32 illegal characters from directories <no@spam.com>
Re: How to filter fat32 illegal characters from directo <ben@morrow.me.uk>
implementation for Parsing Expression Grammar? <xahlee@gmail.com>
Re: Installing arch-specific PM without shell access <travislspencer@gmail.com>
new CPAN modules on Sat May 10 2008 (Randal Schwartz)
Re: Perl DBI Module: SQL query where there is space in <jurgenex@hotmail.com>
Re: perl GD Image resolution problem <zhilianghu@gmail.com>
Re: Perl OLE Excel - edit width/height Comment window <slick.users@gmail.com>
Re: The Importance of Terminology's Quality (Rob Warnock)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 09 May 2008 22:15:08 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: Dear gurus how can I extract an ARRAY from a scalar regex-wise
Message-Id: <M14Vj.1711$KB3.853@edtnps91>
advice please wireless 802.11 on RH8 wrote:
> This is not a homework assignment. I have written this already in
>
> Let's say I want to extract all of the days of the week out of a
> scalar like:
>
> "We went to the beach on Monday but it turned out that Sunday would
> have been better. The weather report Saturday said no rain until
> Thursday but I asked Tuesday (a trick!) and she said it rained
> Wednesday."
>
> I want a regex/map/etc (no iterative clauses PLEASE!) that yields:
>
> @days = qw( Monday Sunday Saturday Thursday Tuesday (Wednesday )
>
> My best shot is:
> my @days = keys %{ /((mon|tues|wednes|thurs|fri|satur|sun)day)/gi };
>
> Which, oddly, doesn't seem to work. I say "oddly", because
>
> /((mon|tues|wednes|thurs|fri|satur|sun)day)/gi
>
> =
>
> 0 'Saturday'
> 1 'Satur'
> 2 'Thursday'
> 3 'Thurs'
> 4 'Tuesday'
> 5 'Tues'
> 6 'Wednesday'
> 7 'Wednes'
>
> Yet %{ /((mon|tues|wednes|thurs|fri|satur|sun)day)/gi }
>
> is an empty array!? *TILT*
That is because %{ } dereferences a hash reference but the match
operator returns a list not a hash reference. To get it to work you
have to copy the list to an anonymous hash:
my @days = keys %{{ /((mon|tues|wednes|thurs|fri|satur|sun)day)/gi }};
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: Fri, 09 May 2008 22:22:57 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Dear gurus how can I extract an ARRAY from a scalar regex-wise
Message-Id: <x74p97yv5q.fsf@mail.sysarch.com>
>>>>> "JWK" == John W Krahn <someone@example.com> writes:
JWK> That is because %{ } dereferences a hash reference but the match
JWK> operator returns a list not a hash reference. To get it to work you
JWK> have to copy the list to an anonymous hash:
JWK> my @days = keys %{{ /((mon|tues|wednes|thurs|fri|satur|sun)day)/gi }};
that won't work either as it will use some of the grabbed things as keys
and others as values. and you have 2 grabs there which confuses things
even more. i would say the inner grab of the short names should be a
grouping with ?:. then you need a map to add a value to each key to make
it into input to the hashref. untested:
my @days = keys %{
{ map { $_ -> 1 } /((?:mon|tues|wednes|thurs|fri|satur|sun)day)/gi }
};
and another little thing is that | is slow in regexes. probably not a
problem for this case but it might be better grabbing all words that end
in day and counting them in a hash then extracting the good ones. i
leave that as an exercise.
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, 9 May 2008 23:40:46 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Dear gurus how can I extract an ARRAY from a scalar regex-wise
Message-Id: <eg0ff5-enr1.ln1@osiris.mauzo.dyndns.org>
Quoth Uri Guttman <uri@stemsystems.com>:
> >>>>> "JWK" == John W Krahn <someone@example.com> writes:
>
> JWK> That is because %{ } dereferences a hash reference but the match
> JWK> operator returns a list not a hash reference. To get it to work you
> JWK> have to copy the list to an anonymous hash:
>
> JWK> my @days = keys %{{ /((mon|tues|wednes|thurs|fri|satur|sun)day)/gi }};
>
> that won't work either as it will use some of the grabbed things as keys
> and others as values. and you have 2 grabs there which confuses things
> even more.
It will 'work'. The two grabs mean you will be building a hash like
( monday => 'mon', friday => 'fri' )
which is certainly useful under some circumstances.
> i would say the inner grab of the short names should be a
> grouping with ?:. then you need a map to add a value to each key to make
> it into input to the hashref. untested:
>
>
> my @days = keys %{
> { map { $_ -> 1 } /((?:mon|tues|wednes|thurs|fri|satur|sun)day)/gi }
> };
...or forget building a hash just to list its keys, and use
my @days = /((?:mon|tues|...)day)/gi;
?
Ben
--
For far more marvellous is the truth than any artists of the past imagined!
Why do the poets of the present not speak of it? What men are poets who can
speak of Jupiter if he were like a man, but if he is an immense spinning
sphere of methane and ammonia must be silent? [Feynmann] ben@morrow.me.uk
------------------------------
Date: Sat, 10 May 2008 03:37:18 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Dear gurus how can I extract an ARRAY from a scalar regex-wise
Message-Id: <x7od7ex21d.fsf@mail.sysarch.com>
>>>>> "BM" == Ben Morrow <ben@morrow.me.uk> writes:
BM> Quoth Uri Guttman <uri@stemsystems.com>:
>> >>>>> "JWK" == John W Krahn <someone@example.com> writes:
>>
JWK> That is because %{ } dereferences a hash reference but the match
JWK> operator returns a list not a hash reference. To get it to work you
JWK> have to copy the list to an anonymous hash:
>>
JWK> my @days = keys %{{ /((mon|tues|wednes|thurs|fri|satur|sun)day)/gi }};
>>
>> that won't work either as it will use some of the grabbed things as keys
>> and others as values. and you have 2 grabs there which confuses things
>> even more.
BM> It will 'work'. The two grabs mean you will be building a hash like
BM> ( monday => 'mon', friday => 'fri' )
BM> which is certainly useful under some circumstances.
maybe. but nutty and obscure as hell. nested grabs are not nice.
>> i would say the inner grab of the short names should be a
>> grouping with ?:. then you need a map to add a value to each key to make
>> it into input to the hashref. untested:
>>
>>
>> my @days = keys %{
>> { map { $_ -> 1 } /((?:mon|tues|wednes|thurs|fri|satur|sun)day)/gi }
>> };
BM> ...or forget building a hash just to list its keys, and use
BM> my @days = /((?:mon|tues|...)day)/gi;
that will get every instance of days and the OP only wanted unique
ones.
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: Sat, 10 May 2008 07:17:39 +0200
From: "Rik Wasmus" <luiheidsgoeroe@hotmail.com>
Subject: Re: DROP TABLE customers
Message-Id: <op.uaxabpjh5bnjuv@metallium.lan>
On Fri, 09 May 2008 19:59:35 +0200, Sherman Pendley <spamtrap@dot-app.org>
wrote:
> Rik Wasmus <luiheidsgoeroe@hotmail.com> writes:
>
>> Ignoramus26246 wrote:
>>> I would like to know if Perl's DBI supports an attribute that would
>>> make a database handle read only.
>>>
>>> That is, I am looking for a way to make a handle read only so that all
>>> subsequent queries that seek to modify the database, would not proceed
>>> at all.
>>>
>>> This would be for mysql.
>>
>> A better way would be to make a user with only select priviliges, and
>> no insert/update/drop privilige.
>
> An even tighter method, if you're using a version of MySQL that supports
> stored procedures, is to use them to define an API for access to your
> data.
> Then you can give a user permission to execute your API procedures, and
> no
> low-level access at all.
Well, that's of course less tight then no alteration whatsoever, but
indeed a very usefull one to keep basic functionality and alterations
going with a limited user while keeping integrity.
--
Rik Wasmus
[SPAM] Now temporarily looking for some smaller PHP/MySQL projects/work to
fund a self developed bigger project, mail me at rik at rwasmus.nl. [/SPAM]
------------------------------
Date: Fri, 9 May 2008 17:42:19 -0700 (PDT)
From: jerrykrinock@gmail.com
Subject: Re: Get variable from its name string or vice versa?
Message-Id: <5642a09f-4361-41f8-b8f8-3d5de56cad14@2g2000hsn.googlegroups.com>
On May 9, 12:37 pm, Ben Morrow <b...@morrow.me.uk> wrote:
> You can do this with PadWalker.
Thank you. I haven't tried it yet, but documentation of PadWalker
from CPAN declares a var_name() function that seems to be exactly what
I want.
Apparently this was a tricky feat. From the documentation: "I
wouldn't recommend using PadWalker directly in production code, but
it's your call. Some of the modules that use PadWalker internally are
certainly safe for and useful in production."
And from a review: "PadWalker is really, really useful if you need to
debug something really, really weird. I hope you never have to use
this module, but if you do, use it boldly."
:-|
Thanks for all the help. I'll probably give PadWalker a try next time
I am feeling bold, and have a little time to spare before production.
Jerry Krinock
------------------------------
Date: Sat, 10 May 2008 03:40:14 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Get variable from its name string or vice versa?
Message-Id: <x7k5i2x1wh.fsf@mail.sysarch.com>
>>>>> "j" == jerrykrinock <jerrykrinock@gmail.com> writes:
j> On May 9, 12:37 pm, Ben Morrow <b...@morrow.me.uk> wrote:
>> You can do this with PadWalker.
j> Thank you. I haven't tried it yet, but documentation of PadWalker
j> from CPAN declares a var_name() function that seems to be exactly what
j> I want.
j> Apparently this was a tricky feat. From the documentation: "I
j> wouldn't recommend using PadWalker directly in production code, but
j> it's your call. Some of the modules that use PadWalker internally are
j> certainly safe for and useful in production."
j> And from a review: "PadWalker is really, really useful if you need to
j> debug something really, really weird. I hope you never have to use
j> this module, but if you do, use it boldly."
j> :-|
j> Thanks for all the help. I'll probably give PadWalker a try next time
j> I am feeling bold, and have a little time to spare before production.
and i doubt you have a legit reason to need this in production code. i
smell an XY problem here. when someone needs to use such a dark magic
solution, i say the problem is poorly specified or similar. tell us what
the real problem is, don't ask how to do something requiring magic. i
can find no good reason (other than debugging or wacko stuff) for
needing the name of a variable. and if you have anon references, you
can't get any name.
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: Sat, 10 May 2008 01:50:47 GMT
From: Cosmic Cruizer <XXjbhuntxx@white-star.com>
Subject: Getting Portocal Settings for NIC
Message-Id: <Xns9A99BF93213BCccruizermydejacom@207.115.33.102>
I'm trying to get the protocal settings only on the active NICs on a
computer.
I'm using $nics = $objWMIService->ExecQuery
('SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled =
True'); to get the active NICs, but how can I feed the NIC info into the
following:
$colItems = $objWMIService->ExecQuery
("SELECT * FROM Win32_NetworkProtocol","WQL",wbemFlagReturnImmediately
| wbemFlagForwardOnly);
Using Win32_NetworkProtocol, all i can figure out how to do is print out a
list of all the drivers and I'm not seeing how to get that info out of
Win32_NetworkAdapterConfiguration.
Ideally, I would like to list the NIC configuration along with the
corresponding protocals for that NIC.
Thanks.
------------------------------
Date: Sat, 10 May 2008 03:43:39 GMT
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: Help: Content extraction
Message-Id: <b56a24ti2drp3s4t88ata3l854sf65uomg@4ax.com>
Amy Lee <openlinuxsource@gmail.com> wrote:
>I have a problem while I'm processing my sequence file.
I know text files, binary files, random access files, sequential files,
but I've never heard of a sequence file.
>The file content
>is like this.
>
>>seq1
>ACGGTC
>ACTG
>>seq2
>CGATCC
>ACCTC
>>seq3
>......
>
>And I hope make every sequence into a single file. For example, a file
What is a sequence?
>"seq1" content is
>>seq1
>ACGGTC
>ACTG
>And a file "seq2" content is
>>seq2
>CGATCC
>ACCTC
>and so on.
How is this desired content different from the original content? They
seem to be identical to me.
>However, I'm only a newbie in perl, I don't know what to do. So could
>anyone post some sample codes to do that?
Probably not without some much improved specification.
jue
------------------------------
Date: Fri, 09 May 2008 21:31:17 -0400
From: nospam <no@spam.com>
Subject: How to filter fat32 illegal characters from directories and files?
Message-Id: <2rmdnSFf4LJ6Z7nVnZ2dnUVZ_judnZ2d@comcast.com>
These are illegal characters in a fat32 file system:
/ : ; * ? " < > |
So when I attempt to copy files which contain any of these characters to
my USB thumb drive which is a fat32 file system, it fails. I don't want
to format the thumb drive as anything else. Is there a script which will
traverse directories and files and strip these characters? I've google'd
groups and the web and can't seem to find anything! I don't want to
reinvent the wheel, but it looks as though I might have to. I'm
attempting this with a shell script, but having difficulties when
traversing sub-directories. Any examples would be appreciated too!
-Thanks
------------------------------
Date: Sat, 10 May 2008 04:10:56 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: How to filter fat32 illegal characters from directories and files?
Message-Id: <0bgff5-hh42.ln1@osiris.mauzo.dyndns.org>
Quoth nospam <no@spam.com>:
> These are illegal characters in a fat32 file system:
>
> / : ; * ? " < > |
Presumably / also, if the FS is to be readable on Win32 systems.
> So when I attempt to copy files which contain any of these characters to
> my USB thumb drive which is a fat32 file system, it fails. I don't want
> to format the thumb drive as anything else. Is there a script which will
> traverse directories and files and strip these characters? I've google'd
> groups and the web and can't seem to find anything!
This is pretty trivial using File::Find and File::Copy (since FAT32
doesn't have any useful attributes anyway, the fact File::Copy doesn't
preserve them doesn't matter here).
Ben
--
'Deserve [death]? I daresay he did. Many live that deserve death. And some die
that deserve life. Can you give it to them? Then do not be too eager to deal
out death in judgement. For even the very wise cannot see all ends.'
ben@morrow.me.uk
------------------------------
Date: Fri, 9 May 2008 22:52:30 -0700 (PDT)
From: "xahlee@gmail.com" <xahlee@gmail.com>
Subject: implementation for Parsing Expression Grammar?
Message-Id: <a450ef08-642f-484d-97bc-614121b502f8@c19g2000prf.googlegroups.com>
In the past weeks i've been thinking over the problem on the practical
problems of regex in its matching power. For example, often it can't
be used to match anything of nested nature, even the most simple
nesting. It can't be used to match any simple grammar expressed by
BNF. Some rather very regular and simple languages such as XML, or
even url, email address, are not specified as a regex. (there exist
regex that are pages long that tried to match email address though)
I wrote out a more elaborate account of my thoughts here:
http://xahlee.org/cmaci/notation/pattern_matching_vs_pattern_spec.html
----------------
After days of researching this problem, looking into parsers and its
theories etc, today i found the answer!!
What i was looking for is called Parsing Expression Grammar (PEG).
See
http://en.wikipedia.org/wiki/Parsing_expression_grammar
It seems to me it's already in Perl6, and there's also a
implementation in Haskell. Is the perl6 PEG is in a usable state?
Thanks.
Xah
xah@xahlee.org
=E2=88=91 http://xahlee.org/
=E2=98=84
------------------------------
Date: Fri, 9 May 2008 23:52:13 -0700 (PDT)
From: Travis Spencer <travislspencer@gmail.com>
Subject: Re: Installing arch-specific PM without shell access
Message-Id: <b2c03fcf-dc67-4a88-ac40-e91e1f0b4165@y18g2000pre.googlegroups.com>
On May 9, 11:39 am, smallpond <smallp...@juno.com> wrote:
> Travis Spencer wrote:
> > I am hosting my Web site with Yahoo! small business services.
>
> I think I found your problem.
Not helpful.
--
Regards,
Travis Spencer
------------------------------
Date: Sat, 10 May 2008 04:42:20 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Sat May 10 2008
Message-Id: <K0MyEK.21HF@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.
App-FQStat-5.4
http://search.cpan.org/~smueller/App-FQStat-5.4/
Interactive console front-end for Sun's grid engine
----
CPAN-CachingProxy-1.0.0
http://search.cpan.org/~jettero/CPAN-CachingProxy-1.0.0/
A very simple lightweight CGI based Caching Proxy
----
Cache-Memcached-libmemcached-0.02006
http://search.cpan.org/~dmaki/Cache-Memcached-libmemcached-0.02006/
Perl Interface to libmemcached
----
DBIx-Class-0.08099_01
http://search.cpan.org/~jrobinson/DBIx-Class-0.08099_01/
Extensible and flexible object <-> relational mapper.
----
Data-NDS-1.03
http://search.cpan.org/~sbeck/Data-NDS-1.03/
routines to work with a perl nested data structure
----
Date-Manip-5.54
http://search.cpan.org/~sbeck/Date-Manip-5.54/
date manipulation routines
----
Devel-Mortality-0.01
http://search.cpan.org/~claesjac/Devel-Mortality-0.01/
Helper functions for XS developers debugging mortality issues
----
Exception-Died-0.0101
http://search.cpan.org/~dexter/Exception-Died-0.0101/
Convert simple die into real exception object
----
Exception-Warning-0.0101
http://search.cpan.org/~dexter/Exception-Warning-0.0101/
Convert simple warn into real exception object
----
Games-Sudoku-CPSearch-0.12
http://search.cpan.org/~martyloo/Games-Sudoku-CPSearch-0.12/
Solve Sudoku problems quickly.
----
Games-Sudoku-General-0.008
http://search.cpan.org/~wyant/Games-Sudoku-General-0.008/
Solve sudoku-like puzzles.
----
HTML-Split-0.02
http://search.cpan.org/~ziguzagu/HTML-Split-0.02/
Splitting HTML by number of characters.
----
HTML-WikiConverter-DokuWikiFCK-0.21
http://search.cpan.org/~turnermm/HTML-WikiConverter-DokuWikiFCK-0.21/
A WikiConverter Dialect supporting the FCKeditor in DokuWiki
----
IO-Lambda-0.13
http://search.cpan.org/~karasik/IO-Lambda-0.13/
non-blocking I/O in lambda style
----
Kephra-0.3.9.6
http://search.cpan.org/~lichtkind/Kephra-0.3.9.6/
crossplatform, CPAN-installable GUI-Texteditor along perllike Paradigms
----
List-Parseable-1.04
http://search.cpan.org/~sbeck/List-Parseable-1.04/
routines to work with lists containing a simple language
----
Log-Handler-0.41
http://search.cpan.org/~bloonix/Log-Handler-0.41/
Log messages to one or more outputs.
----
Log-Report-0.18
http://search.cpan.org/~markov/Log-Report-0.18/
report a problem, pluggable handlers and language support
----
MOSES-MOBY-0.85
http://search.cpan.org/~ekawas/MOSES-MOBY-0.85/
Perl extension for the automatic generation of BioMOBY web services
----
Mail-DKIM-0.31_8
http://search.cpan.org/~jaslong/Mail-DKIM-0.31_8/
Signs/verifies Internet mail with DKIM/DomainKey signatures
----
Math-SigFigs-1.08
http://search.cpan.org/~sbeck/Math-SigFigs-1.08/
do math with correct handling of significant figures
----
Module-Install-RTx-0.23
http://search.cpan.org/~ruz/Module-Install-RTx-0.23/
RT extension installer
----
Number-Ops-1.03
http://search.cpan.org/~sbeck/Number-Ops-1.03/
Simple operations on numbers.
----
OLE-Storage_Lite-0.17
http://search.cpan.org/~jmcnamara/OLE-Storage_Lite-0.17/
Simple Class for OLE document interface.
----
POE-Component-Client-CouchDB-0.04
http://search.cpan.org/~frodwith/POE-Component-Client-CouchDB-0.04/
Asynchronous CouchDB server interaction
----
POE-Component-Server-IRC-1.32
http://search.cpan.org/~bingos/POE-Component-Server-IRC-1.32/
A fully event-driven networkable IRC server daemon module.
----
POE-Component-TFTPd-0.01
http://search.cpan.org/~eidolon/POE-Component-TFTPd-0.01/
A tftp-server, implemented through POE
----
Parse-Marpa-0.211_007
http://search.cpan.org/~jkegl/Parse-Marpa-0.211_007/
Earley's algorithm with LR(0) precomputation
----
Perl-Critic-PetPeeves-JTRAMMELL-0.01
http://search.cpan.org/~jtrammell/Perl-Critic-PetPeeves-JTRAMMELL-0.01/
policies to prohibit/require my pet peeves
----
Pg-Pcurse-0.10
http://search.cpan.org/~ioannis/Pg-Pcurse-0.10/
Monitors a Postgres cluster
----
Pg-Pcurse-0.11
http://search.cpan.org/~ioannis/Pg-Pcurse-0.11/
Monitors a Postgres cluster
----
SVN-Deploy-0.11
http://search.cpan.org/~tomk/SVN-Deploy-0.11/
audit conform building/deploying releases to/from an SVN deploy repository
----
SVN-Notify-Filter-Watchers-0.09
http://search.cpan.org/~larrysh/SVN-Notify-Filter-Watchers-0.09/
Subscribe to SVN::Notify commits with a Subversion property.
----
Set-Files-1.04
http://search.cpan.org/~sbeck/Set-Files-1.04/
routines to work with files, each definining a single set
----
Sjis-0.16
http://search.cpan.org/~ina/Sjis-0.16/
Source code filter for ShiftJIS script
----
Sort-DataTypes-2.03
http://search.cpan.org/~sbeck/Sort-DataTypes-2.03/
Sort a list of data using methods relevant to the type of data
----
Template-Plugin-ListOps-1.04
http://search.cpan.org/~sbeck/Template-Plugin-ListOps-1.04/
Plugin interface to list operations
----
Term-TUI-1.23
http://search.cpan.org/~sbeck/Term-TUI-1.23/
simple tool for building text-based user interfaces
----
Time-Mock-v0.0.1
http://search.cpan.org/~ewilhelm/Time-Mock-v0.0.1/
shift and scale time
----
Twitter-Badge-0.01b
http://search.cpan.org/~arul/Twitter-Badge-0.01b/
Perl module that displays the current Twitter information of a user
----
Twitter-Badge-0.02
http://search.cpan.org/~arul/Twitter-Badge-0.02/
Perl module that displays the current Twitter information of a user
----
Unix-SavedIDs-0.3.2
http://search.cpan.org/~dmartin/Unix-SavedIDs-0.3.2/
interface to unix saved id commands: getresuid(), getresgid(), setresuid() and setresgid()
----
WWW-Comic-Plugin-f8d-0.01
http://search.cpan.org/~bigpresh/WWW-Comic-Plugin-f8d-0.01/
WWW::Comic plugin to fetch f8d comic
----
Win32-StreamNames-1.03
http://search.cpan.org/~clive/Win32-StreamNames-1.03/
Perl extension for reading Windows ADS names
----
YAML-Object-0.01
http://search.cpan.org/~eidolon/YAML-Object-0.01/
----
manish-db
http://search.cpan.org/~hughes/manish-db/
----
manish-total-scripts
http://search.cpan.org/~hughes/manish-total-scripts/
----
rpm-build-perl-0.6.8
http://search.cpan.org/~atourbin/rpm-build-perl-0.6.8/
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: Sat, 10 May 2008 05:23:39 GMT
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: Perl DBI Module: SQL query where there is space in field name
Message-Id: <vvba24lqpnai0iflh6n2dpan760pohqfhi@4ax.com>
Andrew DeFaria <Andrew@DeFaria.com> wrote:
>Jürgen Exner wrote:
>> Andrew DeFaria <Andrew@DeFaria.com> wrote:
>>> Looks like somebody needs to learn what a signature is...
>> Isn't it the part of a posting that is following the dash-dash-blank
>> line? And that is supposed to be 4 lines max?
>> Well, your's over 120+ lines and contained pretty much no information
>> at all.
>Sounds like somebody is still ignorant
Yep, looks very much like it [Fullquote intentional]:
> --
> Andrew DeFaria <http://defaria.com>
> Don't be accommodating, be honest. I honestly don't have much more time
> for anything else.
>
> --------------090207050102050807010007
> Content-Type: text/html; charset=ISO-8859-1
> Content-Transfer-Encoding: 7bit
>
> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
> <html>
> <head>
> <style type="text/css">
> body {
> font: Helvetica, Arial, sans-serif;
> }
> p {
> font: Helvetica, Arial, sans-serif;
> }
> .standout {
> font-family: verdana,
> arial,
> sans-serif;
> font-size: 12px;
> color: #993333;
> line-height: 13px;
> font-weight: bold;
> margin-bottom: 10px;
> }
> .code {
> border-top: 1px solid #ddd;
> border-left: 1px solid #ddd;
> border-right: 2px solid #000;
> border-bottom: 2px solid #000;
> padding: 10px;
> margin-top: 5px;
> margin-left: 5%;
> margin-right: 5%;
> background: #ffffea;
> color: black;
> -moz-border-radius: 10px;
> }
> .terminal {
> border-top: 10px solid #03f;
> border-left: 1px solid #ddd;
> border-right: 2px solid grey;
> border-bottom: 2px solid grey;
> padding: 10px;
> margin-top: 5px;
> margin-left: 5%;
> margin-right: 5%;
> background: black;
> color: white;
> -moz-border-radius: 10px;
> }
> #code {
> color: black;
> font-size: 14px;
> font-family: courier;
> padding-left: 5px;
> }
> #line-number {
> color: #804000;
> font-family: Arial;
> font-size: 14px;
> padding-right: 5px;
> border-right: 1px dotted #804000;
> }
> blockquote[type=cite] {
> padding: 0em .5em .5em .5em !important;
> border-right: 2px solid blue !important;
> border-left: 2px solid blue !important;
> }
> blockquote[type=cite]
> blockquote[type=cite] {
> border-right: 2px solid maroon !important;
> border-left: 2px solid maroon !important;
> }
> blockquote[type=cite]
> blockquote[type=cite]
> blockquote[type=cite] {
> border-right: 2px solid teal !important;
> border-left: 2px solid teal !important;
> }
> blockquote[type=cite]
> blockquote[type=cite]
> blockquote[type=cite]
> blockquote[type=cite] {
> border-right: 2px solid purple !important;
> border-left: 2px solid purple !important;
> }
> blockquote[type=cite]
> blockquote[type=cite]
> blockquote[type=cite]
> blockquote[type=cite]
> blockquote[type=cite] {
> border-right: 2px solid green !important;
> border-left: 2px solid green !important;
> }
> </style>
> </head>
> <body>
> Jürgen Exner wrote:
> <blockquote id="mid_3c0924d24c6597j2qgn7l88mqnhiohu5v6_4ax_com"
> cite="mid:3c0924d24c6597j2qgn7l88mqnhiohu5v6@4ax.com" type="cite">Andrew
> DeFaria <a class="moz-txt-link-rfc2396E" href="mailto:Andrew@DeFaria.com"><Andrew@DeFaria.com></a> wrote:<br>
> <blockquote id="StationeryCiteGenerated_1" type="cite">Jürgen Exner
> wrote:<br>
> <blockquote id="StationeryCiteGenerated_2" type="cite">And you
> honestly believe your 120+ lines long signature (quoted in full below)<br>
> </blockquote>
> Looks like somebody needs to learn what a signature is...<br>
> </blockquote>
> <!---->Isn't it the part of a posting that is following the
> dash-dash-blank line? And that is supposed to be 4 lines max?<br>
> <br>
> Well, your's over 120+ lines and contained pretty much no information
> at all.<br>
> </blockquote>
> Sounds like somebody is still ignorant... I hope you eventually learn...<br>
> <div class="moz-signature">-- <br>
> <a href="http://defaria.com">Andrew DeFaria</a><br>
> <small><font color="#999999">Don't be accommodating, be honest. I
> honestly don't have much more time for anything else.</font></small>
> </div>
> </body>
> </html>
>
> --------------090207050102050807010007--
Bye bye, won't read you again
jue
------------------------------
Date: Fri, 9 May 2008 19:36:45 -0700 (PDT)
From: Zhiliang Hu <zhilianghu@gmail.com>
Subject: Re: perl GD Image resolution problem
Message-Id: <d830ba0a-f28c-41e6-94b2-b94ebe67bd72@34g2000hsh.googlegroups.com>
Yes, I do find SVG an interesting tool. I spent some time on it...
ang wonder is there a good tutorial on how to use it? (for example I
made it produce xml like files but not yet viewable on web; Yet to get
fonts to work, etc.)
Many thanks for all who replied with suggestions. These did give me
some insights. Appreciate it.
Zhiliang
------------------------------
Date: Fri, 9 May 2008 15:19:57 -0700 (PDT)
From: Slickuser <slick.users@gmail.com>
Subject: Re: Perl OLE Excel - edit width/height Comment window
Message-Id: <e8f9c7b8-dc63-49bb-bbde-49944163de6e@z24g2000prf.googlegroups.com>
Selection was confusing.
But here is the correct code:
$Range_Enter = $Worksheet->Range("C23");
my $comment = $Range_Enter->{AddComment};
$comment->{Visible} = 1;
my $string = $comment->{Author} . ":\nHelllo \n\n\n\n
\nwowow this is awesome!!!!!!!!!!!! \nwhat!!";
$comment->Text($string);
my $shape = $comment->{Shape};
$shape->Select;
$shape->ScaleWidth( 1.75, msoFalse, msoScaleFromTopLeft);
$shape->ScaleHeight(2, msoFalse, msoScaleFromTopLeft);
Thanks for the help Brian!
On May 9, 3:06 pm, Slickuser <slick.us...@gmail.com> wrote:
> Thanks but my original question is still asking how to use selection
> method with the ScaleWidth function call.
>
> On May 8, 1:16 pm, Brian Helterline <brian.helterl...@hp.com> wrote:
>
> > Slickuser wrote:
> > > I have achieved adding comments but I can't change the width and
> > > height of the comment box. Any help?
>
> > > This is the VBA macro code:
> > > Range("C23").Comment.Text Text:= _
> > > "Slickuser:" & Chr(10) & "Helllo " & Chr(10) & ""
> > > & Chr(10) & "" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "wowow this
> > > is awesome!!!!!!!!!!!! " & Chr(10) & "what!!"
> > > Selection.ShapeRange.ScaleWidth 1.76, msoFalse,
> > > msoScaleFromTopLeft
> > > Selection.ShapeRange.ScaleHeight 0.54, msoFalse,
> > > msoScaleFromTopLeft
> > > Range("C23").Comment.Shape.Select True
> > > ActiveWindow.SmallScroll Down:=6
> > > Range("F19").Select
>
> > > Perl OLE Browser info:
>
> > > Comment: Property Shape As Shape readonly
> > > ShapeRange: Sub ScaleHeight(Factor As VT_R4, RelativeToOriginalSize As
> > > MsoTriState, [Scale])
>
> > > Here is the Perl code:
>
> > > $Range_Enter = $Worksheet->Range("C23");
>
> > > $Range_Enter->{AddComment};
>
> > $my $comment = $Range_Enter->{AddComment};
>
> > > $Range_Enter->{Comment}->{Visible} = 0;
>
> > $comment->{Visible} = 1;
>
> > > my $string = "".$Range_Enter->{Comment}->{Author}.":
> > > \nHelllo \n\n\n\n\nwowow this is awesome!!!!!!!!!!!!
> > > \nwhat!!" ;
>
> > my $string = $comment->{Author} . ":.........";
>
> > > $Range_Enter->{Comment}->Text($string);
>
> > $comment->Text($string);
>
> > > //not sure how to translate this with Selection
> > > #$Range_Enter>{ShapeRange}->ScaleWidth("1.76, msoFalse, msoScaleFromTopLeft");
> > > #$Range_Enter->{ShapeRange}->ScaleHeight("0.54, msoFalse, msoScaleFromTopLeft");
>
> > use constant msoFalse => 0; # or import the entire Office typelib
> > use constant msoScaleFromTopLeft => 0;
>
> > my $shape = $comment->{Shape}; # now you have your shape object
> > $shape->ScaleWidth( 1.76, msoFalse, msoScaleFromTopLeft );
> > $shape->ScaleHeight(0.54, msoFalse, msoScaleFromTopLeft );
>
> > In your excel macro, the ScaleWidth and ScaleHeight functions were
> > called on the current selection, you need to make get that "selection"
> > in perl before you can operate on it.
>
> > --
> > -brian
------------------------------
Date: Fri, 09 May 2008 22:45:26 -0500
From: rpw3@rpw3.org (Rob Warnock)
Subject: Re: The Importance of Terminology's Quality
Message-Id: <cMidnY3lU-7Lh7jVnZ2dnUVZ_qqgnZ2d@speakeasy.net>
George Neuner <gneuner2/@/comcast.net> wrote:
+---------------
| Common Lisp doesn't have "filter".
+---------------
Of course it does! It just spells it REMOVE-IF-NOT!! ;-} ;-}
> (remove-if-not #'oddp (iota 10))
(1 3 5 7 9)
> (remove-if-not (lambda (x) (> x 4)) (iota 10))
(5 6 7 8 9)
>
-Rob
-----
Rob Warnock <rpw3@rpw3.org>
627 26th Avenue <URL:http://rpw3.org/>
San Mateo, CA 94403 (650)572-2607
------------------------------
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 1527
***************************************
