[31020] in Perl-Users-Digest
Perl-Users Digest, Issue: 2265 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Mar 10 03:09:43 2009
Date: Tue, 10 Mar 2009 00:09:09 -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 Tue, 10 Mar 2009 Volume: 11 Number: 2265
Today's topics:
Re: Ban Xah Lee <larry@example.invalid>
Re: Ban Xah Lee <noone@lewscanon.com>
Re: Ban Xah Lee <noone@lewscanon.com>
Re: Ban Xah Lee <jurgenex@hotmail.com>
Re: Ban Xah Lee <jurgenex@hotmail.com>
Re: Ban Xah Lee sln@netherlands.com
Re: Ban Xah Lee <noone@lewscanon.com>
Re: FAQ 9.8 How do I fetch an HTML file? <larry@example.invalid>
Re: FAQ 9.8 How do I fetch an HTML file? sln@netherlands.com
Re: FAQ 9.8 How do I fetch an HTML file? <tadmc@seesig.invalid>
Re: FAQ 9.8 How do I fetch an HTML file? <larry@example.invalid>
MinGW available via PPM using AS Perl on Windows <1usa@llenroc.ude.invalid>
Re: MinGW available via PPM using AS Perl on Windows <larry@example.invalid>
Re: MinGW available via PPM using AS Perl on Windows <tim@burlyhost.com>
new CPAN modules on Tue Mar 10 2009 (Randal Schwartz)
Re: Once again: Rolling Frame! sln@netherlands.com
Re: perl as email client <larry@example.invalid>
Re: perl as email client sln@netherlands.com
Regex testing and UTF8 awarenes or Regex and numeric pa sln@netherlands.com
Re: Regex testing and UTF8 awarenes or Regex and numeri sln@netherlands.com
Re: Regex testing and UTF8 awarenes or Regex and numeri sln@netherlands.com
Re: software design question <uri@stemsystems.com>
Re: software design question <uri@stemsystems.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 9 Mar 2009 19:39:24 -0700
From: Larry Gates <larry@example.invalid>
Subject: Re: Ban Xah Lee
Message-Id: <1dyz5b10wgh0m.1aepy5ddoqi55.dlg@40tude.net>
On Tue, 10 Mar 2009 00:37:50 +0000, Dirk Bruere at NeoPax wrote:
> Kenneth Tilton wrote:
>> Dirk Bruere at NeoPax wrote:
>>> Larry Gates wrote:
>>>> On Sun, 08 Mar 2009 04:09:52 +0000, Dirk Bruere at NeoPax wrote:
>>>>
>>>>> Dirk Bruere at NeoPax wrote:
>>>>
>>>>>> Well, don't worry - nobody is going to ban you from Usenet (except
>>>>>> possibly the Chinese govt).
>>>>>> OTOH, nobody here much cares.
>>>>>> So, rant on - it's what Usenet is for. ☄ <--- what is that char?????
>>>>
>>>> http://lomas-assault.net/usenet/z12.jpg
>>>>
>>>> I don't know how to answer the question. Is the zeroeth character also
>>>> null?
>>>
>>> Almost had me cleaning the screen.
>>>
>>
>> I confess. I moved the window to be sure. But I have an excuse: more
>> than once I have tried to delete a bit of dried... well, never mind.
>>
>> hth, kt
>
> Sneezing while eating while programming can be messy.
For me, the worst thing is when I'm programming, and a bug *actually* gets
on my monitor. In real life, I'm this tough person: a rugged tradesmen.
I'm so phobic of bugs that I'll run away screaming like a girl.
--
larry gates
I dunno. Perhaps you should be happy that I have a policy of refraining
from grumbling about handicapped operating systems. :-)
-- Larry Wall in <199808291719.KAA12244@wall.org>
------------------------------
Date: Mon, 09 Mar 2009 22:08:54 -0400
From: Lew <noone@lewscanon.com>
Subject: Re: Ban Xah Lee
Message-Id: <gp4i3m$aek$2@news.albasani.net>
Larry Gates wrote:
> For me, the worst thing is when I'm programming, and a bug *actually* gets
> on my monitor. In real life, I'm this tough person: a rugged tradesmen.
> I'm so phobic of bugs that I'll run away screaming like a girl.
I had a smudge on my monitor some years ago. It was on the frame, not the
screen itself, but visible on the side. The person next to me pointed at it,
thinking an insect had crawled onto the monitor, and asked, "Is that a bug?"
I looked, realized it was a baked-in blemish and answered, "No, it's a feature."
I didn't realize what I had done until after I said it.
--
Lew
------------------------------
Date: Mon, 09 Mar 2009 22:24:09 -0400
From: Lew <noone@lewscanon.com>
Subject: Re: Ban Xah Lee
Message-Id: <gp4j0a$bak$1@news.albasani.net>
Christian wrote:
> ... [Xah Lee] seems to be mostly doing a often highly intelligent monologue ...
Really?
--
Lew
------------------------------
Date: Mon, 09 Mar 2009 20:13:00 -0700
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: Ban Xah Lee
Message-Id: <6kmbr4hau3llffv5ch69numdbupl6juve6@4ax.com>
Dirk Bruere at NeoPax <dirk.bruere@gmail.com> wrote:
>Xah Lee wrote:
Subject: Ban Xah Lee
My vote: YES
jue
------------------------------
Date: Mon, 09 Mar 2009 20:25:16 -0700
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: Ban Xah Lee
Message-Id: <d8nbr49l0drofmqce3dmob55f9r1fekhu7@4ax.com>
Larry Gates <larry@example.invalid> wrote:
>>> comp.lang.lisp is cool so here Xah participates as a normal contributor.
>I'm certain he's the smartest computer guy on his street.
Make that "he ist certain, he is the smartest computer guy".
jue
------------------------------
Date: Tue, 10 Mar 2009 03:37:17 GMT
From: sln@netherlands.com
Subject: Re: Ban Xah Lee
Message-Id: <gunbr4licupom6gof1jgvu4mch86mbqi4h@4ax.com>
On Mon, 09 Mar 2009 22:08:54 -0400, Lew <noone@lewscanon.com> wrote:
>Larry Gates wrote:
>> For me, the worst thing is when I'm programming, and a bug *actually* gets
>> on my monitor. In real life, I'm this tough person: a rugged tradesmen.
>> I'm so phobic of bugs that I'll run away screaming like a girl.
>
>I had a smudge on my monitor some years ago. It was on the frame, not the
>screen itself, but visible on the side. The person next to me pointed at it,
^^^^^^^^^^^^^^^^^
He said: "I work so close to you we must be telemarketers, does my body odor
bother you?"
-sln
------------------------------
Date: Tue, 10 Mar 2009 01:15:19 -0400
From: Lew <noone@lewscanon.com>
Subject: Re: Ban Xah Lee
Message-Id: <gp4t17$l49$1@news.albasani.net>
sln@netherlands.com wrote:
> On Mon, 09 Mar 2009 22:08:54 -0400, Lew <noone@lewscanon.com> wrote:
>
>> Larry Gates wrote:
>>> For me, the worst thing is when I'm programming, and a bug *actually* gets
>>> on my monitor. In real life, I'm this tough person: a rugged tradesmen.
>>> I'm so phobic of bugs that I'll run away screaming like a girl.
>> I had a smudge on my monitor some years ago. It was on the frame, not the
>> screen itself, but visible on the side. The person next to me pointed at it,
> ^^^^^^^^^^^^^^^^^
> He said: "I work so close to you we must be telemarketers, does my body odor
> bother you?"
Uhhhhh ...
--
Lew
------------------------------
Date: Mon, 9 Mar 2009 20:32:21 -0700
From: Larry Gates <larry@example.invalid>
Subject: Re: FAQ 9.8 How do I fetch an HTML file?
Message-Id: <1xzu1u5unga6k$.7r21zt6wlmgz$.dlg@40tude.net>
On Mon, 9 Mar 2009 07:44:26 -0500, Tad J McClellan wrote:
> However, we should not use bad practice in our FAQ example code,
> so it would better be:
[code elided]
I thought it might be something that could use a tweak. It works without
complaint for me:
C:\MinGW\source>perl html3.pl
Looking For Witnesses
=====================
...
my bike is a pretzel
To reach me, write to: merrill@lomas-assault.net
All I need is a deposition about what you witnessed. Thank you.
C:\MinGW\source>type html3.pl
use strict;
use warnings;
use LWP::Simple;
use HTML::TreeBuilder;
use HTML::FormatText;
my $t = "http://www.lomas-assault.net";
my $html = get( $t);
defined $html
or die "Can't fetch HTML from $t";
my $tree = HTML::TreeBuilder->new->parse($html);
my $ascii = HTML::FormatText->new->format($tree);
print $ascii;
# perl html3.pl
C:\MinGW\source>
Why do we not see the img tags around "my bike is a pretzel"?
--
larry gates
True, it returns "" for false, but "" is an even more interesting
number than 0.
-- Larry Wall in <199707300650.XAA05515@wall.org>
------------------------------
Date: Tue, 10 Mar 2009 03:43:44 GMT
From: sln@netherlands.com
Subject: Re: FAQ 9.8 How do I fetch an HTML file?
Message-Id: <lbobr4p10naldoj0rdjc97dv71ade2fnaa@4ax.com>
On Mon, 9 Mar 2009 20:32:21 -0700, Larry Gates <larry@example.invalid> wrote:
>On Mon, 9 Mar 2009 07:44:26 -0500, Tad J McClellan wrote:
>
>> However, we should not use bad practice in our FAQ example code,
>> so it would better be:
>
Ah, getting html is simple. Knowing what to do with it is
over your head!
-sln
------------------------------
Date: Mon, 9 Mar 2009 23:16:31 -0500
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: FAQ 9.8 How do I fetch an HTML file?
Message-Id: <slrngrbqcv.mcj.tadmc@tadmc30.sbcglobal.net>
Larry Gates <larry@example.invalid> wrote:
> On Mon, 9 Mar 2009 07:44:26 -0500, Tad J McClellan wrote:
>
>> However, we should not use bad practice in our FAQ example code,
>> so it would better be:
>
> [code elided]
>
> I thought it might be something that could use a tweak. It works without
> complaint for me:
>
> C:\MinGW\source>perl html3.pl
> Looking For Witnesses
>
> =====================
> ...
> my bike is a pretzel
>
> To reach me, write to: merrill@lomas-assault.net
>
> All I need is a deposition about what you witnessed. Thank you.
>
> C:\MinGW\source>type html3.pl
> use strict;
> use warnings;
>
> use LWP::Simple;
> use HTML::TreeBuilder;
> use HTML::FormatText;
>
> my $t = "http://www.lomas-assault.net";
> my $html = get( $t);
> defined $html
> or die "Can't fetch HTML from $t";
> my $tree = HTML::TreeBuilder->new->parse($html);
> my $ascii = HTML::FormatText->new->format($tree);
> print $ascii;
> # perl html3.pl
>
> C:\MinGW\source>
>
> Why do we not see the img tags around "my bike is a pretzel"?
Why do you think that you should see img tags around "my bike is a pretzel"?
Have you read the documentation for the modules that you are using?
We are not a "read the docs to me" service.
perldoc HTML::FormatText
HTML::FormatText − Format HTML as plaintext
^^^^^^^^^^^^
^^^^^^^^^^^^
plaintext means without markup.
img tags are markup.
If you want to see markup, then HTML::FormatText is the wrong tool
for the job.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Mon, 9 Mar 2009 22:46:46 -0700
From: Larry Gates <larry@example.invalid>
Subject: Re: FAQ 9.8 How do I fetch an HTML file?
Message-Id: <pzt6uo04o5z0$.1xq2d75nhx061$.dlg@40tude.net>
On Mon, 9 Mar 2009 23:16:31 -0500, Tad J McClellan wrote:
> Larry Gates <larry@example.invalid> wrote:
>> On Mon, 9 Mar 2009 07:44:26 -0500, Tad J McClellan wrote:
>> Why do we not see the img tags around "my bike is a pretzel"?
>
>
> Why do you think that you should see img tags around "my bike is a pretzel"?
>
> Have you read the documentation for the modules that you are using?
>
> We are not a "read the docs to me" service.
>
> perldoc HTML::FormatText
I didn't know this existed. I hope you don't think that I'm asking you to
read for me.
require HTML::TreeBuilder;
$tree = HTML::TreeBuilder->new->parse_file("test.html");
require HTML::FormatText;
$formatter = HTML::FormatText->new(leftmargin => 0, rightmargin =>
50);
print $formatter->format($tree);
Alright, well this looks pretty pedestrian.
>
> HTML::FormatText − Format HTML as plaintext
> ^^^^^^^^^^^^
> ^^^^^^^^^^^^
>
> plaintext means without markup.
>
> img tags are markup.
>
> If you want to see markup, then HTML::FormatText is the wrong tool
> for the job.
Thanks for your response, Tad. I was thinking something more like what
little I know about this topic:
C:\MinGW\source>perl html4.pl
dumped is
<html> @0 (IMPLICIT)
<head> @0.0 (IMPLICIT)
<body> @0.1 (IMPLICIT)
"http://www.lomas-assault.net"
C:\MinGW\source>type html4.pl
use strict;
use warnings;
use LWP::Simple;
use HTML::TreeBuilder;
use HTML::FormatText;
my $t = "http://www.lomas-assault.net";
my $html = get( $t);
defined $html
or die "Can't fetch HTML from $t";
my $tree = HTML::TreeBuilder->new->parse($html);
my $ascii = HTML::FormatText->new->format($tree);
# print $ascii;
my $tree1 = HTML::TreeBuilder->new_from_content($t);
print "dumped is \n";
$tree1->dump;
# perl html4.pl
C:\MinGW\source>
Q1) Can someone comment on how perl's appraisal of this site looks nothing
like html?
Q2) Why is the image not there either?
--
larry gates
Two-dimensional parsing is fun...
-- Larry Wall in <20040721231814.GA30798@wall.org>
------------------------------
Date: Tue, 10 Mar 2009 01:35:39 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: MinGW available via PPM using AS Perl on Windows
Message-Id: <Xns9BC9DBAA7CD40asu1cornelledu@127.0.0.1>
Apparently, it is now possible to install MinGW using ppm on Windows:
ppm install MinGW
Details at:
http://www.openkomodo.com/blogs/troyt/ppm-install-mingw
I have not tried it yet, but thought it might be of interest to others. I
only found out about it by chance.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
comp.lang.perl.misc guidelines on the WWW:
http://www.rehabitation.com/clpmisc/
------------------------------
Date: Mon, 9 Mar 2009 23:23:16 -0700
From: Larry Gates <larry@example.invalid>
Subject: Re: MinGW available via PPM using AS Perl on Windows
Message-Id: <hwq2smpthsql$.tqinemvfi9os$.dlg@40tude.net>
On Tue, 10 Mar 2009 01:35:39 GMT, A. Sinan Unur wrote:
> Apparently, it is now possible to install MinGW using ppm on Windows:
>
> ppm install MinGW
>
> Details at:
>
> http://www.openkomodo.com/blogs/troyt/ppm-install-mingw
>
> I have not tried it yet, but thought it might be of interest to others. I
> only found out about it by chance.
>
> Sinan
I gave it a whirl: http://lomas-assault.net/usenet/z13.jpg
I only have a dial-up, so I stopped it, but it was on track.
Is ppm a dos command I'm unaware of?
--
larry gates
There's often more than one correct thing.
There's often more than one right thing.
There's often more than one obvious thing.
-- Larry Wall in <199806201726.KAA26569@wall.org>
------------------------------
Date: Mon, 09 Mar 2009 22:44:00 -0700
From: Tim Greer <tim@burlyhost.com>
Subject: Re: MinGW available via PPM using AS Perl on Windows
Message-Id: <A6ntl.65$0E.59@newsfe15.iad>
Larry Gates wrote:
> On Tue, 10 Mar 2009 01:35:39 GMT, A. Sinan Unur wrote:
>
>> Apparently, it is now possible to install MinGW using ppm on Windows:
>>
>> ppm install MinGW
>>
>> Details at:
>>
>> http://www.openkomodo.com/blogs/troyt/ppm-install-mingw
>>
>> I have not tried it yet, but thought it might be of interest to
>> others. I only found out about it by chance.
>>
>> Sinan
>
> I gave it a whirl: http://lomas-assault.net/usenet/z13.jpg
>
> I only have a dial-up, so I stopped it, but it was on track.
>
> Is ppm a dos command I'm unaware of?
GUI or command line. Here's some information about it:
http://docs.activestate.com/activeperl/5.10/faq/ActivePerl-faq2.html
--
Tim Greer, CEO/Founder/CTO, BurlyHost.com, Inc.
Shared Hosting, Reseller Hosting, Dedicated & Semi-Dedicated servers
and Custom Hosting. 24/7 support, 30 day guarantee, secure servers.
Industry's most experienced staff! -- Web Hosting With Muscle!
------------------------------
Date: Tue, 10 Mar 2009 04:42:29 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Tue Mar 10 2009
Message-Id: <KG9x2t.11AE@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-AlgebraicToRPN-0.01
http://search.cpan.org/~thecramps/Acme-AlgebraicToRPN-0.01/
convert algebraic notation to sane RPN
----
Acme-Blarghy-McBlarghBlargh-0.001-03-09-2009
http://search.cpan.org/~dhoss/Acme-Blarghy-McBlarghBlargh-0.001-03-09-2009/
----
Acme-CPANAuthors-Chinese-0.05
http://search.cpan.org/~fayland/Acme-CPANAuthors-Chinese-0.05/
We are chinese CPAN authors
----
App-Cronjob-1.000
http://search.cpan.org/~rjbs/App-Cronjob-1.000/
wrap up programs to be run as cron jobs
----
Astro-SpaceTrack-0.039
http://search.cpan.org/~wyant/Astro-SpaceTrack-0.039/
Retrieve orbital data from www.space-track.org.
----
Astro-satpass-0.023
http://search.cpan.org/~wyant/Astro-satpass-0.023/
----
B-Keywords-1.09
http://search.cpan.org/~jjore/B-Keywords-1.09/
Lists of reserved barewords and symbol names
----
CPANPLUS-Dist-Build-0.13_02
http://search.cpan.org/~bingos/CPANPLUS-Dist-Build-0.13_02/
CPANPLUS plugin to install packages that use Build.PL
----
Catalyst-Controller-Validation-DFV-0.0.4
http://search.cpan.org/~chisel/Catalyst-Controller-Validation-DFV-0.0.4/
check form data
----
Catalyst-Plugin-ConfigLoader-MultiState-0.04
http://search.cpan.org/~syber/Catalyst-Plugin-ConfigLoader-MultiState-0.04/
Convenient and flexible config loader for Catalyst.
----
Catalyst-Plugin-Static-Simple-ByClass-0.001
http://search.cpan.org/~karman/Catalyst-Plugin-Static-Simple-ByClass-0.001/
The fantastic new Catalyst::Plugin::Static::Simple::ByClass!
----
Config-Model-OpenSsh-1.204
http://search.cpan.org/~ddumont/Config-Model-OpenSsh-1.204/
OpenSsh configuration files editor
----
DBD-ODBC-1.18_2
http://search.cpan.org/~mjevans/DBD-ODBC-1.18_2/
ODBC Driver for DBI
----
Email-MIME-Kit-2.002
http://search.cpan.org/~rjbs/Email-MIME-Kit-2.002/
build messages from templates
----
Email-Store-Header-0.0.4
http://search.cpan.org/~chisel/Email-Store-Header-0.0.4/
plugin to Email::Store to parse and save message headers
----
Email-Stuff-2.08
http://search.cpan.org/~rjbs/Email-Stuff-2.08/
A more casual approach to creating and sending Email:: emails
----
Fedora-Bugzilla-0.07
http://search.cpan.org/~rsrchboy/Fedora-Bugzilla-0.07/
Interact with Fedora's bugzilla instance
----
Fey-Loader-0.10
http://search.cpan.org/~drolsky/Fey-Loader-0.10/
Load your schema defintion from a DBMS
----
File-Lock-Multi-0.01
http://search.cpan.org/~crakrjack/File-Lock-Multi-0.01/
Lock files more than once
----
Gtk2-Ex-ErrorTextDialog-1
http://search.cpan.org/~kryde/Gtk2-Ex-ErrorTextDialog-1/
display error messages in a dialog
----
HTML-CTPP2-2.4.6
http://search.cpan.org/~stellar/HTML-CTPP2-2.4.6/
Perl interface for CTPP2 library
----
HTML-Shakan-0.01_01
http://search.cpan.org/~tokuhirom/HTML-Shakan-0.01_01/
form html generator/validator
----
IO-File-MultiLines-0.01
http://search.cpan.org/~redicaps/IO-File-MultiLines-0.01/
----
IPC-ShareLite-0.15
http://search.cpan.org/~andya/IPC-ShareLite-0.15/
Lightweight interface to shared memory
----
IPC-ShareLite-0.16
http://search.cpan.org/~andya/IPC-ShareLite-0.16/
Lightweight interface to shared memory
----
JSON-CPAN-Meta-2.000
http://search.cpan.org/~rjbs/JSON-CPAN-Meta-2.000/
JSON is YAML; emit JSON into META.yml
----
JavaScript-Dumper-0.01
http://search.cpan.org/~perler/JavaScript-Dumper-0.01/
Dump JavaScript data structures from Perl objects. Allows unquoted strings and numbers.
----
Marpa-0.001_000
http://search.cpan.org/~jkegl/Marpa-0.001_000/
General BNF Parsing (Experimental version)
----
Math-Int2Base-0.02
http://search.cpan.org/~bbaxter/Math-Int2Base-0.02/
Perl extension for converting decimal (base-10) integers into another number base from base-2 to base-62, and back to decimal.
----
Math-Int2Base-0.03
http://search.cpan.org/~bbaxter/Math-Int2Base-0.03/
Perl extension for converting decimal (base-10) integers into another number base from base-2 to base-62, and back to decimal.
----
Module-Install-Debian-0.02
http://search.cpan.org/~bolav/Module-Install-Debian-0.02/
Require debian packages to be installed on the system
----
MooseX-Alien-1.00
http://search.cpan.org/~gbarr/MooseX-Alien-1.00/
Extend a non-Moose class with Moose
----
MouseX-AttributeHelpers-0.01
http://search.cpan.org/~masaki/MouseX-AttributeHelpers-0.01/
Extend your attribute interfaces
----
Net-GitHub-0.03
http://search.cpan.org/~fayland/Net-GitHub-0.03/
Perl Interface for github.com
----
Net-Interface-1.010
http://search.cpan.org/~miker/Net-Interface-1.010/
Perl extension to access network interfaces
----
Net-Rackspace-Cloudfiles-0.1
http://search.cpan.org/~willwolf/Net-Rackspace-Cloudfiles-0.1/
----
Net-Scan-Extract-0.01
http://search.cpan.org/~mcantoni/Net-Scan-Extract-0.01/
This module allows to extract stuff from text.
----
Net-Scan-Extract-0.02
http://search.cpan.org/~mcantoni/Net-Scan-Extract-0.02/
Perl module to extract stuff from text.
----
POE-Component-Server-SimpleHTTP-1.58
http://search.cpan.org/~bingos/POE-Component-Server-SimpleHTTP-1.58/
Perl extension to serve HTTP requests in POE.
----
POE-Declare-0.10
http://search.cpan.org/~adamk/POE-Declare-0.10/
A POE abstraction layer for conciseness and simplicity
----
POE-Declare-0.11
http://search.cpan.org/~adamk/POE-Declare-0.11/
A POE abstraction layer for conciseness and simplicity
----
POE-Declare-0.12
http://search.cpan.org/~adamk/POE-Declare-0.12/
A POE abstraction layer for conciseness and simplicity
----
Paranoid-0.22
http://search.cpan.org/~corliss/Paranoid-0.22/
Paranoia support for safer programs
----
Path-Resolver-2.000
http://search.cpan.org/~rjbs/Path-Resolver-2.000/
go from "file" names to things
----
Perl-Version-1.009
http://search.cpan.org/~andya/Perl-Version-1.009/
Parse and manipulate Perl version strings
----
SNA-Network-0.01
http://search.cpan.org/~obradovic/SNA-Network-0.01/
A toolkit for Social Network Analysis
----
SSN-Validate-0.18
http://search.cpan.org/~kmeltz/SSN-Validate-0.18/
Perl extension to do SSN Validation
----
Simo-Wrapper-0.0212
http://search.cpan.org/~kimoto/Simo-Wrapper-0.0212/
Object wrapper to manipulate attrs and methods.
----
Squatting-On-HTTP-Engine-0.05
http://search.cpan.org/~beppu/Squatting-On-HTTP-Engine-0.05/
run Squatting apps on top of HTTP::Engine
----
Sys-Statistics-Linux-0.48_01
http://search.cpan.org/~bloonix/Sys-Statistics-Linux-0.48_01/
Front-end module to collect system statistics
----
TaskForest-1.20
http://search.cpan.org/~enoor/TaskForest-1.20/
A simple but expressive job scheduler that allows you to chain jobs/tasks and create time dependencies. Uses text config files to specify task dependencies.
----
Template-Plugin-Latex-3.00
http://search.cpan.org/~andrewf/Template-Plugin-Latex-3.00/
Template Toolkit plugin for Latex
----
Test-API-0.002
http://search.cpan.org/~dagolden/Test-API-0.002/
Test a list of subroutines provided by a module
----
Test-Able-0.05
http://search.cpan.org/~jdv/Test-Able-0.05/
xUnit with Moose
----
Test-Output-0.13
http://search.cpan.org/~bdfoy/Test-Output-0.13/
Utilities to test STDOUT and STDERR messages.
----
Text-Mining-0.05
http://search.cpan.org/~rogerhall/Text-Mining-0.05/
Perl Tools for Text Mining
----
Text-Tokenizer-0.4.1
http://search.cpan.org/~samsk/Text-Tokenizer-0.4.1/
Perl extension for tokenizing text(config) files
----
WWW-MobileCarrierJP-0.28
http://search.cpan.org/~tokuhirom/WWW-MobileCarrierJP-0.28/
scrape mobile carrier information
----
WebService-Ustream-API-0.01
http://search.cpan.org/~kobayashi/WebService-Ustream-API-0.01/
Perl interface to Ustream
----
WebService-Ustream-API-0.02
http://search.cpan.org/~kobayashi/WebService-Ustream-API-0.02/
Perl interface to Ustream
----
WebService-Ustream-API-0.03
http://search.cpan.org/~kobayashi/WebService-Ustream-API-0.03/
Perl interface to Ustream API Service
----
passwd_exp-1.2.9b
http://search.cpan.org/~samsk/passwd_exp-1.2.9b/
password/account expiration checking tool
----
xcruciate-013
http://search.cpan.org/~melonman/xcruciate-013/
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: Tue, 10 Mar 2009 02:19:30 GMT
From: sln@netherlands.com
Subject: Re: Once again: Rolling Frame!
Message-Id: <ufjbr49pt0nlgfekat3h331i4urpcsb2co@4ax.com>
On Sun, 8 Mar 2009 09:37:33 -0700 (PDT), Marek <mstep@podiuminternational.org> wrote:
>On Mar 1, 2:12 am, s...@netherlands.com wrote:
>
>> snip
>
>Thank you sln for your great code. I discovered it only two days ago
>and I tried to thank you by email. But I was not "intelligent" enough
>to complete your email address right.
>
>I got through your code and I am amazed! I would like to code like
>you, but I am still a beginner.
>
>Could you send me your email-address? I have a question to you ...
>
>
>Best greetings from Munich
>
>
>marek
I set up a temporary email:
TommyFlanagan@roadrunner.com
-sln
------------------------------
Date: Mon, 9 Mar 2009 20:40:33 -0700
From: Larry Gates <larry@example.invalid>
Subject: Re: perl as email client
Message-Id: <1i9n0l7fzg2bo$.1n6tvrepx0z6f.dlg@40tude.net>
On Mon, 09 Mar 2009 18:14:11 GMT, A. Sinan Unur wrote:
> Larry Gates <larry@example.invalid> wrote in
> news:163kvha2yybb6$.3zk61x3canv4$.dlg@40tude.net:
>
>> On Sat, 07 Mar 2009 15:51:25 GMT, A. Sinan Unur wrote:
>>
>>> Larry Gates <larry@example.invalid> wrote in
>>> news:q98xh61wmkc$.1k26eqqyvwvc0$.dlg@40tude.net:
>>>
>>>> Gosh, I would have thought that writing an e-mail client in perl
>>>> would be as commonplace as ways to calculate pi with fortran.
>>>
>>> http://www.unur.com/comp/ppp/delallspam.html
>>>
>>> might help you get started.
>>>
>
>> C:\MinGW\source>perl eml3.pl
>> Can't locate Lingua/EN/Inflect.pm in @INC (@INC contains:
>> C:/Perl/site/lib C:/Pe
>> rl/lib .) at eml3.pl line 52.
>> BEGIN failed--compilation aborted at eml3.pl line 52.
>>
>
> ...
>
>> use Lingua::EN::Inflect qw( PL );
>>
>> if( $to_delete ) {
>> printf "%d %s will be deleted. Commit: [Y/N]?\n",
>> $to_delete, PL('message', $to_delete);
>> $pop->Reset unless yes();
>> }
>
> ...
>
>> use Lingua::EN::Inflect qw( PL );
>>
>> What does this module do to filter out spam?
>
> Note that the only place the module is used is where I choose between
> message/messages on the basis of the number of messages to delete.
>
> It is unnecessary to pull in a whole module to do this just once
> (obviously) but this code was meant as a demonstration.
>
> Sinan
I see. I thought it was a means to characterize the dialect of spam:
tennis shoes, cheap flights, and so on.
So it says, message nixed? message hits the bitbucket? message adiosed?
--
larry gates
Personally, Rorschach blots always look like butterflies to me. Or
pelvis bones, I admit it.
-- Larry Wall, 8th State of the Onion
------------------------------
Date: Tue, 10 Mar 2009 03:40:44 GMT
From: sln@netherlands.com
Subject: Re: perl as email client
Message-Id: <76obr497rd4n1eadue7hdt5obrqgtkkh9s@4ax.com>
On Mon, 9 Mar 2009 20:40:33 -0700, Larry Gates <larry@example.invalid> wrote:
>On Mon, 09 Mar 2009 18:14:11 GMT, A. Sinan Unur wrote:
>
>> Larry Gates <larry@example.invalid> wrote in
>> news:163kvha2yybb6$.3zk61x3canv4$.dlg@40tude.net:
>>
>>> On Sat, 07 Mar 2009 15:51:25 GMT, A. Sinan Unur wrote:
>>>
[cut the crap]
>>> What does this module do to filter out spam?
>>
>> Note that the only place the module is used is where I choose between
>> message/messages on the basis of the number of messages to delete.
>>
>> It is unnecessary to pull in a whole module to do this just once
>> (obviously) but this code was meant as a demonstration.
>>
>> Sinan
>
>I see. I thought it was a means to characterize the dialect of spam:
>tennis shoes, cheap flights, and so on.
>
>So it says, message nixed? message hits the bitbucket? message adiosed?
You are indeed insane and have no job and are worthless worker with no
talent or skilz. If you had anything going for you, you wouldn't post here!
I know I do, but what are you?
-sln
------------------------------
Date: Tue, 10 Mar 2009 03:07:03 GMT
From: sln@netherlands.com
Subject: Regex testing and UTF8 awarenes or Regex and numeric pattern matching
Message-Id: <c9kbr45a4ona2q9sbcg00e7gjj9ubd5tjg@4ax.com>
Reading through the pod's for info on utf8 and possible interger matching,
and setting up numerous tests, I inadvertantly discovered what utf really is
in its entirety.
Unfortunately, only utf-8 is allowed (my 5.8.6 version) within Perl. All the
gates, entry points are covered. Internally, its as the documentation says,
pure utf8. The BOM (byte order mark) is different for utf16/32.
If you try to force internal variant, say utf32, you get malformed or
utf-16 surrogate errors. It almost seems impossible then, you could
convert external utf32 (no BOM) or utf16 to internal utf8. But then, how
could you test it internal when there is no conversion functions.
It does no good internally because it is not an entry point. You are inside
Perl, which doesen't understand anything other that utf8 or byte demotion.
Not a very good strategy. This leaves holes if one wanted to do utf32 character
processing inside a regular expression. Of course I don't want to do that, I
want to process binary 32 bit integers with some of the niceties of the regex engine.
If the regex engine is so nice as to process some intermittant range of 32-bit
integers encoded as characters (utf8) perhaps its almost there towards integer
pattern matching. Albeit the constructs need to be changed a little, it would
be a powerfull binary parser. Don't you agree?
Below is some menutia of trials and errors spaghetii code I've tried.
Within ranges, encoding 32 bit integers for basic pattern matching works well.
Of course, it is very slow in character classes, as opposed to groups, but sometimes
putting a few 0-256 character range in a class won't cause it to crash whereas in groups it
will. Over that, ranges have the surrogate or malformed utf8.
Outside of problem ranges (BOM) it works flawlessly in groups, and its real fast.
So, my question is, why is Perl so short sided in this regard. Just some apparently simple
adjustments and it could be a high grade binary processor.
The junk code is below. If you haven't tried it or can't explain it
don't bother replying. I've read all the unicode there is in the pods and understand it
completely.
-sln
------------------------------------------------------------------------------
##
use warnings;
use strict;
printf ">>>>>>> \n%d %d %d %d \n<<<<<<<<<<<\n", 0xdf20,0xdf21,0xdf22,0xdf23,;
binmode STDOUT, ':utf8';
#my @ar = (120000,21,22,23,24,25,26,27,28,ord('a'),30);
#my @ar = (20000,20001,20002,0,20003,20004,20005,23336,20007,20008,20009,30000);
#my @ar = (0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15);
my @ar = ();
#push @ar, $_ for (0 .. 280);
#push @ar, $_ for (240 .. 280);
push @ar, $_ for (0 .. 70000);
push @ar, 0xdf20;
push @ar, 0xdf21;
push @ar, 0xdf21;
push @ar, 0xdf22;
my $str = pack 'U*', @ar;
#print "\nstr = ",$str,"\nlength = ",length($str),"\n";
foreach my $cur (@ar) # here $cur is the frame position
{
# my $pattern = sprintf "(\\x{%x}\\x{%x}\\x{%x})(.{0,5})\\x{%x}", $cur,$cur+1,$cur+2,$cur+5;
# my $pattern = sprintf "(\\x{%x}\\x{%x}\\x{%x})(\$)", $cur,$cur+1,$cur+2; # GETS 3 at end of string
# 3? >> my $pattern = sprintf "(\\x{%x}\\x{%x}\\x{%x}.{0,8})([\\x{%x}-\\x{%x}])", $cur,$cur+1,$cur+2, $cur+4,$cur+10;
# 2 >> my $pattern = sprintf "(\\x{%x}\\x{%x}\\x{%x}).{0,8}([\\x{%x}-\\x{%x}])", $cur,$cur+1,$cur+2, $cur+7,$cur+10;
# -- my $pattern = sprintf "(\\x{%x}\\x{%x}\\x{%x}).*?(\\x{%x})", $cur,$cur+1,$cur+2, $cur+4;
# my $pattern = sprintf "(%c%c%c).*?(%c)", $cur,$cur+1,$cur+2, $cur+5;
# my $pattern = sprintf "(\\%c\\%c\\%c).*?(\\%c)", $cur,$cur+1,$cur+2, $cur+5;
#my $pattern = sprintf "(\\x{%x}\\x{%x}\\x{%x}).*?(\\x{%x})", $cur,$cur+1,$cur+2, $cur+5;
my $pattern = sprintf "(%c%c%c).*?(%c)", $cur,$cur+1,$cur+2, $cur+5;
if ($cur < 256)
{
$pattern = sprintf "([\\x{%x}][\\x{%x}][\\x{%x}]).*?([\\x{0%x}])", $cur,$cur+1,$cur+2,$cur+5;
}
# my $pattern = sprintf "(\\x{%x}\\x{%x})(.*?)(\\x{%x})", $cur,$cur+1,$cur+5;
# my $pattern = sprintf "(\\x{%x}\\x{%x}\\x{%x}).*?(\\x{%x})", $cur,$cur+1,$cur+2,$cur+5;
# my $pattern = sprintf "(\\x{0%x}\\x{0%x}\\x{0%x})[^\\x{0%x}]*?(\\x{0%x})", $cur,$cur+1,$cur+2,$cur+5,$cur+5;
# my $pattern = sprintf "([\\x{0%x}\\x{0%x}\\x{0%x}]{3}).*?([\\x{0%x}])", $cur,$cur+1,$cur+2,$cur+4;
### apparently \\x{%x} must exist in char class
### and here [\\%c] won't work because of unknown escaped chars like \J
##
#my $pattern = sprintf "([\\x{%x}\\x{%x}\\x{%x}]).*?([\\x{0%x}])", $cur,$cur+1,$cur+2,$cur+5;
# my $pattern = sprintf "[\\x{%x}][\\x{%x}][\\x{%x}].*?[\\x{0%x}]", $cur,$cur+1,$cur+2,$cur+5;
#my $s1 = sprintf "%c%c%c",$cur,$cur+1,$cur+2;
#my $s2 = sprintf "%c",$cur+5;
#$s1 = quotemeta($s1);
#$s2 = quotemeta($s2);
#my $pattern = sprintf "(%s).*?(%s)", $s1,$s2;
# my $pattern = sprintf "(\\%c\\%c\\%c).*?(\\%c)", $cur,$cur+1,$cur+2, $cur+5;
# my $pattern = sprintf "([\\x{%x}][\\x{%x}][\\x{%x}]).*?([\\x{0%x}])", $cur,$cur+1,$cur+2,$cur+5;
# my $pattern = sprintf "(\\x{0%x}\\x{0%x})(.*?)(\\x{0%x})", $cur,$cur+1,$cur+4;
# --> my $pattern = sprintf "(\\%c\\%c\\%c)[^\\%c]*?(\\0%c)", $cur,$cur+1,$cur+2, $cur+5, $cur+5;
# my $pattern = sprintf "(\\x{%x}\\x{%x}\\x{%x}).*?(\\x{%x})", $cur,$cur+1,$cur+2, $cur+4;
# my $pattern = sprintf "(%s).{0,5}([\\x{%x}-\\x{%x}])", $test, $cur+7,$cur+10;
# my $pattern = sprintf "(%c%c%c).{0,5}([%c-%c])", ($cur,$cur+1,$cur+2), $cur+7,$cur+10;
#>> my $pattern = sprintf "([%c-%c]{3}).{0,5}([%c-%c])", ($cur,$cur+2), $cur+7,$cur+10;
# print "\n----------------------------\ncur = $cur\n";
# print "pattern = $pattern\n";
#$str =~ /($pattern)/s;
#my @p = unpack ('U*',$pattern);
#my @p = map {ord $_} split '',$pattern;
#print "pat = @p\n";
if ( $str =~ /($pattern)/s) ### NEED '/s' BECAUSE '.*?' WON'T MATCH '\n' WITHOUT IT
{
#print "$cur\n";
print "$cur\n" if ($cur % 1000 == 0);
next;
my @m1 = unpack ('U*',$1);
my @m2 = unpack ('U*',$2);
my @m3 = unpack ('U*',$3);
print "matched:\n 1 = '@m1', length = ".length($1).
"\n 2 = '@m2', length = ".length($2).
"\n 3 = '@m3', length = ".length($3)."\n";
printf "\$3 = %d\n",ord $3;
}
else
{
print STDERR "didn't match $cur\n";
print "didn't match $cur\n";
}
}
------------------------------
Date: Tue, 10 Mar 2009 03:48:17 GMT
From: sln@netherlands.com
Subject: Re: Regex testing and UTF8 awarenes or Regex and numeric pattern matching
Message-Id: <kkobr4haj0v84fbe9chhr60m3qnrbbjs5b@4ax.com>
On Tue, 10 Mar 2009 03:07:03 GMT, sln@netherlands.com wrote:
>Reading through the pod's for info on utf8 and possible interger matching,
>and setting up numerous tests, I inadvertantly discovered what utf really is
>in its entirety.
>
[snip]
Oh, I made a mistake. This group is strictly for beginner.
-sln
------------------------------
Date: Tue, 10 Mar 2009 03:51:01 GMT
From: sln@netherlands.com
Subject: Re: Regex testing and UTF8 awarenes or Regex and numeric pattern matching
Message-Id: <6pobr490cl3lmvrektj2lm4ptb063840v1@4ax.com>
On Tue, 10 Mar 2009 03:48:17 GMT, sln@netherlands.com wrote:
>On Tue, 10 Mar 2009 03:07:03 GMT, sln@netherlands.com wrote:
>
>>Reading through the pod's for info on utf8 and possible interger matching,
>>and setting up numerous tests, I inadvertantly discovered what utf really is
>>in its entirety.
>>
>[snip]
>
>Oh, I made a mistake. This group is strictly for beginner.
>
And for CPAN module awareness of input parameters.
Pardon for the mind expanding observations.
-sln
------------------------------
Date: Mon, 09 Mar 2009 20:38:47 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: software design question
Message-Id: <x7k56yf97c.fsf@mail.sysarch.com>
>>>>> "R" == Ruud <rvtol+usenet@xs4all.nl> writes:
R> Uri Guttman wrote:
>> [printing late] but scalar refs
>> solves the passing around big strings. you still need at least one large
>> buffer for it though.
R> Or store the strings in an array (and pass around its ref) because
R> print LIST
arrays take up more storage than a large scalar. and i like to process
whole files with regexes vs looping over an array of lines. it is faster
and usually simpler too. line loops usually require some form of state
(in a paragraph or not, in pod or not, etc.) but you can do the same by
grabbing a whole section in a regex and looping with while. last week i
was working with my intern group and someone wrote a basic pod extractor
with looping over lines. it was longish (20 or so lines) and
stateful. we replaced it with a single regex in a while loop working on
the whole file in a string.
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: Mon, 09 Mar 2009 20:40:24 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: software design question
Message-Id: <x7fxhmf94n.fsf@mail.sysarch.com>
>>>>> "GJ" == Glenn Jackman <glennj@ncf.ca> writes:
GJ> At 2009-03-09 03:53PM, "Uri Guttman" wrote:
>> >>>>> "bdf" == brian d foy <brian.d.foy@gmail.com> writes:
bdf> emit_results( $fh, \@vars ); # $fh is any sort of handle
>>
bdf> sub generate_results { ... }
>>
bdf> sub emit_results {
bdf> my( $fh, $vars ) = @_;
>>
bdf> print $fh generate_results( $vars );
bdf> }
>>
>> i don't see the major win having a separate emit routine. it is just the
>> one line print statement so you have more code for little benefit. if
>> you needed to print it in many places it could be a minor savings.
GJ> I'm operating on the assumption that the generate and/or emit routines
GJ> are large. I prefer my "main" sub to be as concise as possible.
a generate sub can be big or small and that isn't important. but an emit
sub should be short as its guts will be a call to the generate sub. and
it will be slower as it needs a nested sub call and its overhead. just
print directly where you are making the decision is what i do.
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: 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 2265
***************************************
