[29163] in Perl-Users-Digest
Perl-Users Digest, Issue: 407 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat May 5 06:10:03 2007
Date: Sat, 5 May 2007 03:09:04 -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, 5 May 2007 Volume: 11 Number: 407
Today's topics:
=?iso-8859-1?q?=B4~~~_Free_Flash_Games_~~~_=2E?= Leisure.210@gmail.com
=?iso-8859-1?q?Re:_=B4~~~_Free_Flash_Games_~~~_=2E?= <clg.5@virgin.net>
appropriate module/hints on how to solve the following <cpp_shark@yahoo.com>
Re: appropriate module/hints on how to solve the follow <news@lawshouse.org>
Re: appropriate module/hints on how to solve the follow <joe@inwap.com>
Re: how does one use tuplespaces with perl? link.. (aka ? the Platypus)
Link Matching <taras.di@gmail.com>
Re: Link Matching <jurgenex@hotmail.com>
Re: Link Matching <spamtrap@dot-app.org>
Re: Link Matching <someone@example.com>
new CPAN modules on Sat May 5 2007 (Randal Schwartz)
Re: Populating an array from a mysql select <tadmc@augustmail.com>
Re: Populating an array from a mysql select <nikos1337@gmail.com>
Re: Question about Perl <thepoet_nospam@arcor.de>
Re: Web Forms / Perl / SPAM detection <jwkenne@attglobal.net>
Re: Web Forms / Perl / SPAM detection <stoupa@practisoft.cz>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 4 May 2007 23:36:26 -0700
From: Leisure.210@gmail.com
Subject: =?iso-8859-1?q?=B4~~~_Free_Flash_Games_~~~_=2E?=
Message-Id: <1178346986.780682.28200@o5g2000hsb.googlegroups.com>
http://arcadeplayers.com/play-181-Security.html - Free Flash Games
have fun galore.
------------------------------
Date: 5 May 2007 01:05:50 -0700
From: craiglg <clg.5@virgin.net>
Subject: =?iso-8859-1?q?Re:_=B4~~~_Free_Flash_Games_~~~_=2E?=
Message-Id: <1178352350.104322.258920@h2g2000hsg.googlegroups.com>
On May 5, 7:36 am, Leisure....@gmail.com wrote:
> http://arcadeplayers.com/play-181-Security.html- Free Flash Games
> have fun galore.
"Free Flash Games"!! - Get a big brown coat, go to your nearest
park.........
------------------------------
Date: 4 May 2007 20:18:51 -0700
From: Shark <cpp_shark@yahoo.com>
Subject: appropriate module/hints on how to solve the following problem?
Message-Id: <1178335131.836368.129110@l77g2000hsb.googlegroups.com>
Hi, I'm working on a solution to handle aliases of strings (not
variables) correctly. The idea is to read in a config file of the
following format:
NAME1 alias1 alias2 alias3
NAME2 blah1 blah2
NAME3 m1 m2
After reading in the above, the following two should be equivalent:
alias1:blah1
alias2:blah1
...
...
I can explain in more detail what functionality I want if anyone has
specific questions. This seemed like a very simple problem and I can
cook up a hack in C++ but in perl i'm a newbie. Any help will be
appreciated.
thanks!
Craig
------------------------------
Date: Sat, 05 May 2007 07:28:49 +0100
From: Henry Law <news@lawshouse.org>
Subject: Re: appropriate module/hints on how to solve the following problem?
Message-Id: <1178346513.21375.0@despina.uk.clara.net>
Shark wrote:
> Hi, I'm working on a solution to handle aliases of strings (not
> variables) correctly. The idea is to read in a config file of the
> following format:
>
> NAME1 alias1 alias2 alias3
> NAME2 blah1 blah2
> NAME3 m1 m2
>
>
> After reading in the above, the following two should be equivalent:
>
> alias1:blah1
> alias2:blah1
> ....
> ....
I'm not sure that I understand what you're trying to do once the "alias
chain" has been read in. But if "alias1", "alias2" etc are all to map
to "NAME1", and "blah1", "blah" to "NAME2", then one way that occurs to
me would be to set up a hash and populate it as you read in the config
file, so that $hash{NAME1} would be itself, and $hash{alias1} would have
"NAME1" as its data. Then when you're parsing a string you would be
able to convert the aliases into the names, and see the name as a
primitive, so to speak.
Code, to show what I mean; it's not tested and almost certainly won't work:
my %alias_hash;
while (my $config_line = <CONFIG>) {
my @tokens = split /\S*/,$config_line;
my $real_name = shift @tokens;
$alias_hash{$real_name} = $real_name;
while (my $alias = shift @tokens) {
$alias_hash{$alias} = $real_name;
}
}
# now when you're parsing an input line you can replace each of its
# tokens with $alias_hash{$that_token} and you'll end up with a string
# containing only your NAMEs.
--
Henry Law Manchester, England
------------------------------
Date: Fri, 04 May 2007 23:45:06 -0700
From: Joe Smith <joe@inwap.com>
Subject: Re: appropriate module/hints on how to solve the following problem?
Message-Id: <hMWdnc2vKY1uuqHbnZ2dnUVZ_vHinZ2d@comcast.com>
Shark wrote:
> Hi, I'm working on a solution to handle aliases of strings (not
> variables) correctly. The idea is to read in a config file of the
> following format:
>
> NAME1 alias1 alias2 alias3
> NAME2 blah1 blah2
> NAME3 m1 m2
>
>
> After reading in the above, the following two should be equivalent:
>
> alias1:blah1
> alias2:blah1
If I understand you correctly, this might do it:
my %primary_name;
while (<$config>) {
my($primary,@aliases) = split;
$primary_name{$_} = $primary for @aliases;
}
...
while (<$data>) {
chomp;
my($first,$second) = split /:/,$_;
my $first_part = $primary_name{$first} || $first;
my $second_part = $primary_name{$second} || $second;
print "$first:$second translates to $first_part:$second_part\n";
}
That would print
alias1:blah1 translates to NAME1:NAME2
alias2:blah1 translates to NAME1:NAME2
If the first part is the name of a parameter (or its alias) and the
second part is the value it should be set to, then
$parameter{$first_part} = $second_part;
-Joe
------------------------------
Date: Sat, 05 May 2007 00:10:12 GMT
From: "David Formosa (aka ? the Platypus)" <dformosa@usyd.edu.au>
Subject: Re: how does one use tuplespaces with perl? link..
Message-Id: <slrnf3njdf.o5h.dformosa@localhost.localdomain>
On 4 May 2007 14:27:10 -0700, gavino <gavcomedy@gmail.com> wrote:
> http://www.jini.org/wiki/Main_Page
Sigh, why do they let marketing write the technical pages? Ok by
reading that page I think I've established that jini is an abstraction
layer ontop of CORBA/SOAP that allows Java to do distributed computing
via the tupplespace model. Something like C-Linda I guess.
The German office for Infomation security have the DiCoP project which
might do what you need. Otherwise if your looking to do tupple space
based computing its your itch to scratch.
------------------------------
Date: 4 May 2007 20:08:53 -0700
From: Taras_96 <taras.di@gmail.com>
Subject: Link Matching
Message-Id: <1178334533.173139.297370@u30g2000hsc.googlegroups.com>
Hi everyone,
I need to write a regex that parses some HTML text to output all links
whose text (the text that appears on the screen) a given expression.
eg: findLinks(html,'(.*)o(.*)') called on the html code
<a>one</a>
<a>three</a>
<a>two</a>
Should return two matches, <a>one</a> and <a>two</a>
I'm a bit new with regexs. At the moment I have:
'/<a[^><]*href\s*=\s*[^>]*>'.$regex.'<\/a>/'
(I'm only interested with tags that have a href attribute)
which greedily matches the entire input string.
How do I make the </a> match non greedy? I've read that (.*?)<\/a>
makes the match non greedy, but this doesn't account for the form of
the link text.
Thanks
Taras
------------------------------
Date: Sat, 05 May 2007 03:31:58 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Link Matching
Message-Id: <OUS_h.122$83.48@trndny08>
Taras_96 wrote:
> Hi everyone,
>
> I need to write a regex that parses some HTML text
Bad idea. See "perldoc -q HTML"
How do I remove HTML from a string?
and the gazillions of previous articles about this topic about why and what
to do instead.
jue
------------------------------
Date: Sat, 05 May 2007 00:24:32 -0400
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: Link Matching
Message-Id: <m21whvzym7.fsf@local.wv-www.com>
Taras_96 <taras.di@gmail.com> writes:
> I need to write a regex that parses some HTML text
Regexes are the most painful way possible to parse HTML. I'd rather shave
with a cheese grater.
> I'm a bit new with regexs. At the moment I have:
>
> '/<a[^><]*href\s*=\s*[^>]*>'.$regex.'<\/a>/'
>
> (I'm only interested with tags that have a href attribute)
Are you interested in tags with style attributes? Ids or names? What if
those appear before the href? After? What if the href is somewhere in the
middle of three or more attributes?
What if the value of the href is double-quoted? What if it's a JavaScript
expression that includes quotes?
What if there are <i>, <b>, <span>, or other inline elements nexted in
the <a> element?
What if it splits across multiple lines?
What if the HTML is invalid?
Are you beginning to see why parsing HTML with a regex is not recommended?
Do yourself a favor, and check out one of the many HTML parser modules on
CPAN.
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Sat, 05 May 2007 05:30:51 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: Link Matching
Message-Id: <fEU_h.4232$au6.592@edtnps90>
Sherm Pendley wrote:
> Taras_96 <taras.di@gmail.com> writes:
>
>>I need to write a regex that parses some HTML text
>
> Regexes are the most painful way possible to parse HTML. I'd rather shave
> with a cheese grater.
Will you post that on YouTube? :-)
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: Sat, 5 May 2007 04:42:12 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Sat May 5 2007
Message-Id: <JHJx2C.oKn@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.
CGI-Session-Driver-pure_sql-0.60
http://search.cpan.org/~markstos/CGI-Session-Driver-pure_sql-0.60/
Pure SQL driver with no embedded Perl stored in the database
----
Cache-Memcached-GetParserXS-0.01
http://search.cpan.org/~hachi/Cache-Memcached-GetParserXS-0.01/
GetParser implementation in XS for use with Cache::Memcached
----
Catalyst-View-Jemplate-0.06
http://search.cpan.org/~miyagawa/Catalyst-View-Jemplate-0.06/
Jemplate files server
----
DBI-1.55
http://search.cpan.org/~timb/DBI-1.55/
Database independent interface for Perl
----
DBIx-Class-InflateColumn-Currency-0.02000
http://search.cpan.org/~claco/DBIx-Class-InflateColumn-Currency-0.02000/
Auto-create Data::Currency objects from columns.
----
DBIx-Class-InflateColumn-Currency-0.02001
http://search.cpan.org/~claco/DBIx-Class-InflateColumn-Currency-0.02001/
Auto-create Data::Currency objects from columns.
----
Data-Currency-0.04001
http://search.cpan.org/~claco/Data-Currency-0.04001/
Container class for currency conversion/formatting
----
Data-Currency-0.04002
http://search.cpan.org/~claco/Data-Currency-0.04002/
Container class for currency conversion/formatting
----
Devel-FileProfile-0.22
http://search.cpan.org/~muir/Devel-FileProfile-0.22/
----
Gearman-1.06
http://search.cpan.org/~bradfitz/Gearman-1.06/
----
HTML-Widget-Plugin-Struct-0.001
http://search.cpan.org/~rjbs/HTML-Widget-Plugin-Struct-0.001/
dump data structures for CGI::Expand expansion
----
HTML-Widget-Plugin-Struct-0.002
http://search.cpan.org/~rjbs/HTML-Widget-Plugin-Struct-0.002/
dump data structures for CGI::Expand expansion
----
IPC-Locker-1.470
http://search.cpan.org/~wsnyder/IPC-Locker-1.470/
Distributed lock handler
----
Mac-Apps-Seasonality-Constants-1.0.0
http://search.cpan.org/~elliotjs/Mac-Apps-Seasonality-Constants-1.0.0/
Static definitions of aspects of Seasonality.
----
Mac-Apps-Seasonality-Constants-v1.0.1
http://search.cpan.org/~elliotjs/Mac-Apps-Seasonality-Constants-v1.0.1/
Static definitions of aspects of Seasonality.
----
Mac-Apps-Seasonality-LoadICAOHistory-v0.0.4
http://search.cpan.org/~elliotjs/Mac-Apps-Seasonality-LoadICAOHistory-v0.0.4/
load data into an SQLite2 database with the Seasonality weather.db schema.
----
Mail-Outlook-0.12
http://search.cpan.org/~barbie/Mail-Outlook-0.12/
mail module to interface with Microsoft (R) Outlook (R).
----
Module-LocalBuild-1.000
http://search.cpan.org/~wsnyder/Module-LocalBuild-1.000/
Support routines for setting up perltools area
----
Module-Packaged-Report-0.02
http://search.cpan.org/~szabgab/Module-Packaged-Report-0.02/
Generate report upon packages of CPAN distributions
----
Net-FPing-0.01
http://search.cpan.org/~mlehmann/Net-FPing-0.01/
quickly ping a large number of hosts
----
Perl-Tidy-20070504
http://search.cpan.org/~shancock/Perl-Tidy-20070504/
Parses and beautifies perl source
----
Rose-DB-0.734
http://search.cpan.org/~jsiracusa/Rose-DB-0.734/
A DBI wrapper and abstraction layer.
----
Rose-DB-Object-0.764
http://search.cpan.org/~jsiracusa/Rose-DB-Object-0.764/
Extensible, high performance RDBMS-OO mapper.
----
Rose-HTML-Objects-0.548
http://search.cpan.org/~jsiracusa/Rose-HTML-Objects-0.548/
Object-oriented interfaces for HTML.
----
Rose-Object-0.83
http://search.cpan.org/~jsiracusa/Rose-Object-0.83/
A simple object base class.
----
Spreadsheet-Read-0.19
http://search.cpan.org/~hmbrand/Spreadsheet-Read-0.19/
Meta-Wrapper for reading spreadsheet data
----
Spreadsheet-Write-0.01
http://search.cpan.org/~amaltsev/Spreadsheet-Write-0.01/
Simplified writer for CSV or XLS files
----
Template-Provider-Unicode-Japanese-1.2.1
http://search.cpan.org/~yoshida/Template-Provider-Unicode-Japanese-1.2.1/
Decode all templates by Unicode::Japanese
----
Template-Stash-HTML-Entities-1.3.1
http://search.cpan.org/~yoshida/Template-Stash-HTML-Entities-1.3.1/
Encode the value automatically using HTML::Entities
----
Text-Restructured-0.003029
http://search.cpan.org/~nodine/Text-Restructured-0.003029/
Perl implementation of reStructuredText parser
----
Time-Duration-Object-0.200
http://search.cpan.org/~rjbs/Time-Duration-Object-0.200/
Time::Duration, but an object
----
Time-Elapsed-0.17
http://search.cpan.org/~burak/Time-Elapsed-0.17/
Displays the elapsed time as a human readable string.
----
WWW-Facebook-API-v0.0.7
http://search.cpan.org/~unobe/WWW-Facebook-API-v0.0.7/
Facebook API implementation
----
WWW-Scraper-ISBN-TWKingstone_Driver-0.02
http://search.cpan.org/~ijliao/WWW-Scraper-ISBN-TWKingstone_Driver-0.02/
Search driver for TWKingstone's online catalog.
----
Weather-Underground-StationHistory-1.0.2
http://search.cpan.org/~elliotjs/Weather-Underground-StationHistory-1.0.2/
Utility functions for dealing with weather station historical data from <http://wunderground.com>.
----
WebService-CRUST-0.1
http://search.cpan.org/~heschong/WebService-CRUST-0.1/
A lightweight Client for making REST calls
----
pcsc-perl-1.4.6
http://search.cpan.org/~whom/pcsc-perl-1.4.6/
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: Fri, 4 May 2007 17:50:28 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Populating an array from a mysql select
Message-Id: <slrnf3ne5k.pja.tadmc@tadmc30.august.net>
Michele Dondi <bik.mido@tiscalinet.it> wrote:
> On Fri, 4 May 2007 19:15:32 +0000 (UTC), ansok@alumni.caltech.edu
> (Gary E. Ansok) wrote:
>
>>my $userlist_ref = $db->selectcol_arrayref("SELECT username FROM users");
>>my @userlist = @$userlist_ref;
>
> Without creating an intermediate variable:
>
> my @userlist = @{ $db->selectcol_arrayref("SELECT username FROM
> users") };
For those of you playing along at home, Michele is
demonstrating "Use Rule 1" from:
perldoc perlreftut
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 5 May 2007 00:46:16 -0700
From: Nikos <nikos1337@gmail.com>
Subject: Re: Populating an array from a mysql select
Message-Id: <1178351176.349499.141330@o5g2000hsb.googlegroups.com>
On May 5, 1:50 am, Tad McClellan <t...@augustmail.com> wrote:
> For those of you playing along at home, Michele is
> demonstrating "Use Rule 1" from:
I read it that why i use a backslash before the array but stilll the
array remains the same.
------------------------------
Date: Sat, 05 May 2007 09:47:02 +0200
From: Christian Winter <thepoet_nospam@arcor.de>
Subject: Re: Question about Perl
Message-Id: <463c366f$0$6393$9b4e6d93@newsspool2.arcor-online.net>
lala4life wrote:
> Hi gurus
> Exists something similar to WCF (windows communication foundation)
> by Perl side (or any GNU project)?
>
> The WCF is an abstraction of a communication layer, where is no
> problem of the programmer open socket, control them, communicate with
> another host that have MQ, Java etc.
>
> A WCF Service have a collections of endpoint (Listener) that have a
> contract (a contract is an assembly (Class) that describe the type of
> message, the kind of data to be transmited it allow complex types or
> structured by serialization, the type of serialization, the scope of
> the operation, behavior of the message if requiere security SSL WS ,
> allows transaction, etc) and receipt messages from a client, here both
> side can act as client or server.
>
> All this is done by configuration, is necessary something of code in
> the contract.
I'm not hundred percent sure if I understand all of your questions,
and I'm by no means a guru, but I'll give it a shot anyway.
I think a lot of the functionality would be covered by
the RPC::Lite module (http://search.cpan.org/~aburke/RPC-Lite-0.10/).
Another popular means for standardized RPC is the Soap protocol.
The SOAP::Lite module, despite being called "Lite", has tools for
almost all aspects of data exchange and remote object and method
invokation, as well as featuring different transport protocols.
SOAP has the advantage of being an open standard, and WCF should
be able to communicate with Perl SOAP implementations.
You'll also find SOAP implementations for nearly every other
programming language and platform, and will be able to import
possible method calls and semantics into your client app by
means of WSDL files, which all current RAD tools (like VS)
should understand.
I don't think there is an equivalent higher level API for Perl
that bundles all the technologies like SOAP, XML-RPC, native RPC
etc. into a single namespace like WCF does, but this also gives
you the advantage of doing more complex tasks while still not
having to program the network communication layers.
Btw., you could have picked a more to-the-point subject for
your posting. Nearly everything here is a "Question about Perl".
Doing so would probably have drawn more attention to your question.
HTH
-Chris
------------------------------
Date: Fri, 04 May 2007 22:36:28 -0400
From: "John W. Kennedy" <jwkenne@attglobal.net>
Subject: Re: Web Forms / Perl / SPAM detection
Message-Id: <Z4S_h.691$v34.299@newsfe12.lga>
- Bob - wrote:
> I have some web forms that are getting hit by spammers sending spam
> into the system. They are simple forms, add your name, address, etc.
> Perl code handles the form, of course!
So far this works: use external JS file; call from BODY ONLOAD to build
non-trivial submit button; test for it. Robots don't do JS, so can't
submit. Downside: users need JS.
--
John W. Kennedy
"The grand art mastered the thudding hammer of Thor
And the heart of our lord Taliessin determined the war."
-- Charles Williams. "Mount Badon"
* TagZilla 0.066 * http://tagzilla.mozdev.org
------------------------------
Date: Sat, 5 May 2007 07:08:00 +0200
From: "Petr Vileta" <stoupa@practisoft.cz>
Subject: Re: Web Forms / Perl / SPAM detection
Message-Id: <f1h45s$6bu$1@ns.felk.cvut.cz>
"Amer Neely" <perl4hire@softouch.on.ca> pÃÅ¡e v diskusnÃm pÅ™ÃspÄ›vku
news:Q4L_h.9515$WE.1575@read1.cgocable.net...
>> Date: Thurs, May 3 2007 1:40 pm From: - Bob - I have some web forms that
>> are getting hit by spammers sending spam
>> into the system. They are simple forms, add your name, address, etc.
>> Perl code handles the form, of course!
> I am working with a client right now with exactly this problem. I am going
> the 'CAPTCHA' route first, as that is the least amount of work involved I
> think. But, I've read that some spam-bots now have OCR technology built
> in, so the images will have to get weirder and better processed.
>
A good way too is to send the form to another form and ask for confirm. All
sended fields are stored into hidden fileds and above this two hidden fields
are there. This may be for example
md5($year . $month . $day . $hour)
The bot will not know what this field contain but you can generate this
md5() again after user confirm second form and compare with 1st md5 you get
from second form. Bots will have a little chance but real user have enough
time to confirm.
--
Petr Vileta, Czech republic
(My server rejects all messages from Yahoo and Hotmail. Send me your mail
from another non-spammer site please.)
------------------------------
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 407
**************************************
