[30903] in Perl-Users-Digest
Perl-Users Digest, Issue: 2148 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jan 22 11:09:47 2009
Date: Thu, 22 Jan 2009 08:09:13 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 22 Jan 2009 Volume: 11 Number: 2148
Today's topics:
Re: CGI.pm and Use of uninitialized value in pattern ma <hjp-usenet2@hjp.at>
Re: FAQ 4.16 How can I find the Julian Day? <larry@example.invalid>
Re: How can I use a REGEX to process WORDS spydox@gmail.com
Re: How can I use a REGEX to process WORDS spydox@gmail.com
Re: How can I use a REGEX to process WORDS <1usa@llenroc.ude.invalid>
Re: How can I use a REGEX to process WORDS <tadmc@seesig.invalid>
Re: inputting the ephemerides <larry@example.invalid>
Re: inputting the ephemerides <RedGrittyBrick@spamweary.invalid>
Re: inputting the ephemerides <tadmc@seesig.invalid>
new CPAN modules on Thu Jan 22 2009 (Randal Schwartz)
on looking for work <cartercc@gmail.com>
Re: What do you need to have to be considered a Master <tzz@lifelogs.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 22 Jan 2009 16:20:59 +0100
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: CGI.pm and Use of uninitialized value in pattern match
Message-Id: <slrngnh3ms.mnb.hjp-usenet2@hrunkner.hjp.at>
On 2009-01-21 15:33, A. Farber <Alexander.Farber@gmail.com> wrote:
> I wish there were some clever module
> for better-to-memorize passwords though.
> Maybe by alternate vowels and consonants?
Not a perl module, but might help: The "pwgen" utility present in some
Linux distributions.
hp
------------------------------
Date: Wed, 21 Jan 2009 22:59:28 -0700
From: Larry Gates <larry@example.invalid>
Subject: Re: FAQ 4.16 How can I find the Julian Day?
Message-Id: <1kjojfdrf0ijy$.1se9necup68vi$.dlg@40tude.net>
On Wed, 21 Jan 2009 00:03:01 -0800, PerlFAQ Server wrote:
> This is an excerpt from the latest version perlfaq4.pod, which
> comes with the standard Perl distribution. These postings aim to
> reduce the number of repeated questions as well as allow the community
> to review and update the answers. The latest version of the complete
> perlfaq is at http://faq.perl.org .
>
> --------------------------------------------------------------------
>
> 4.16: How can I find the Julian Day?
>
> (contributed by brian d foy and Dave Cross)
>
> You can use the "Time::JulianDay" module available on CPAN. Ensure that
> you really want to find a Julian day, though, as many people have
> different ideas about Julian days. See
> http://www.hermetic.ch/cal_stud/jdn.htm for instance.
>
> You can also try the "DateTime" module, which can convert a date/time to
> a Julian Day.
>
> $ perl -MDateTime -le'print DateTime->today->jd'
> 2453401.5
>
> Or the modified Julian Day
>
> $ perl -MDateTime -le'print DateTime->today->mjd'
> 53401
>
> Or even the day of the year (which is what some people think of as a
> Julian day)
>
> $ perl -MDateTime -le'print DateTime->today->doy'
> 31
The Julian day is a cool thing. For me in ABQ, it is:
2454853.74413
For mountain time US, this is:
2009-01-22 5:51:33
This shows the current ephemeris:
Sun 20h 18m 24s −19° 38.4' 0.984 −12.909 −74.940 Set
Mercury 20h 0m 23s −17° 3.4' 0.663 −8.085 −73.617 Set
Venus 23h 19m 55s −3° 53.3' 0.631 −31.127 −122.100 Set
Moon 17h 5m 59s −27° 0.5' 63.5 ER 7.704 −35.215 Up
Mars 19h 25m 39s −22° 51.7' 2.378 −6.863 −63.596 Set
Jupiter 20h 25m 18s −19° 42.3' 6.090 −14.093 −76.084 Set
Saturn 11h 31m 36s +5° 23.9' 8.699 34.034 56.097 Up
Uranus 23h 24m 24s −4° 38.5' 20.748 −32.387 −122.661 Set
Neptune 21h 42m 23s −14° 8.4' 30.951 −23.199 −94.009 Set
Pluto 18h 7m 48s −17° 44.8' 32.427 8.417 −52.376 Up
What's interesting is that the moon is theoretically up, but my office
window faces east to the sandias. It's blocked by the mountains.
--
larry gates
"We all agree on the necessity of compromise. We just can't agree on
when it's necessary to compromise."
-- Larry Wall in <1991Nov13.194420.28091@netlabs.com>
------------------------------
Date: Thu, 22 Jan 2009 06:09:58 -0800 (PST)
From: spydox@gmail.com
Subject: Re: How can I use a REGEX to process WORDS
Message-Id: <5fbf1b86-4c9a-46a6-b4d7-73086c54fbe7@f3g2000vbf.googlegroups.com>
> Is this along the lines of what you're looking for?
>
> =A0$a =3D ... #your big blob of fruit text
> =A0$fruit =3D "apple";
> =A0$color =3D "red";
> =A0@clauses =3D $a =3D~ m{start \s+ $fruit
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 ((?: .*? ) \b color \s+ $color (?=
: .*? )) \b
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 end \s $fruit
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0}ixg;
>
> In the above @clauses will contain all inner clauses that match the
> fruit and color given. =A0I know this doesn't address the substitution
> part of your problem, but lets take it a step at a time... (I'm not
> sure I understand your problem fully).
>
> - - Steve
>
>
Wow - yes I think you are barking up the RIGHT tree! That does look
appealing. The *inner clause* concept is really the concept I was
after. The subs I can manage I think by extending your regex a bit..
Thank-You both for taking the time to reply, both answers got me
thinking about a new approach.
Cheers,
S
------------------------------
Date: Thu, 22 Jan 2009 06:14:41 -0800 (PST)
From: spydox@gmail.com
Subject: Re: How can I use a REGEX to process WORDS
Message-Id: <833078bd-83ad-46eb-84ff-0b7523c17422@p36g2000prp.googlegroups.com>
On Jan 21, 5:22=A0pm, "A. Sinan Unur" <1...@llenroc.ude.invalid> wrote:
> spy...@gmail.com wrote in news:449a577f-1721-4f94-ac73-2717c8cb1e37
> @m12g2000vbp.googlegroups.com:
>
>
>
> #!/usr/bin/perl
>
> use strict;
> use warnings;
>
> my ($number, $color, $buffer);
>
> while ( <DATA> ) {
> =A0 =A0 print and next unless my $seq =3D /^START APPLE/ .. /^END APPLE/;
>
> =A0 =A0 $buffer .=3D $_;
> =A0 =A0 $number =A0=3D $1 if /^NUMBER (\d+)/;
> =A0 =A0 $color =A0 =3D $1 if /^COLOR (\w+)/;
>
> =A0 =A0 if ( $seq =3D~ /E0$/ ) {
>
> =A0 =A0 =A0 =A0 if ( $color eq 'RED') {
> =A0 =A0 =A0 =A0 =A0 =A0 my $replacement =3D $number + 1;
> =A0 =A0 =A0 =A0 =A0 =A0 $buffer =3D~ s/^NUMBER $number/NUMBER $replacemen=
t/m;
> =A0 =A0 =A0 =A0 }
>
> =A0 =A0 =A0 =A0 print $buffer;
> =A0 =A0 =A0 =A0 undef for $number, $color, $buffer;
> =A0 =A0 }
>
> }
>
Sinan
I'm not sure this will work since the COLOR is undef until its too
late? It comes later in the clause?
I really like your construct: undef for $number, $color, $buffer;
is that the same (effecively) as
( $number, $color, $buffer ) =3D (undef, undef, undef );
?
Also is, as you stated it,
$number, $color, $buffer
a list? If so why doesn't it require parens?
S
------------------------------
Date: Thu, 22 Jan 2009 15:12:46 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: How can I use a REGEX to process WORDS
Message-Id: <Xns9B9B67E25D93Fasu1cornelledu@127.0.0.1>
spydox@gmail.com wrote in news:833078bd-83ad-46eb-84ff-0b7523c17422
@p36g2000prp.googlegroups.com:
> On Jan 21, 5:22pm, "A. Sinan Unur" <1...@llenroc.ude.invalid> wrote:
>> spy...@gmail.com wrote in news:449a577f-1721-4f94-ac73-2717c8cb1e37
>> @m12g2000vbp.googlegroups.com:
>>
>> #!/usr/bin/perl
>>
>> use strict;
>> use warnings;
>>
>> my ($number, $color, $buffer);
>>
>> while ( <DATA> ) {
>> print and next unless my $seq = /^START APPLE/ .. /^END APPLE/;
>>
>> $buffer .= $_;
>> $number = $1 if /^NUMBER (\d+)/;
>> $color = $1 if /^COLOR (\w+)/;
>>
>> if ( $seq =~ /E0$/ ) {
>>
>> if ( $color eq 'RED') {
>> my $replacement = $number + 1;
>> $buffer =~ s/^NUMBER $number/NUMBER $replacemen
> t/m;
>> }
>>
>> print $buffer;
>> undef for $number, $color, $buffer;
>> }
>>
>> }
>>
...
> I'm not sure this will work since the COLOR is undef until its too
> late? It comes later in the clause?
It does not matter. The program does not enter the body of the
if ( $seq =~ /E0$/ )
statement until after it has seen all relevant information. Run the
program (in a debugger if necessary) to see how it works.
> I really like your construct: undef for $number, $color, $buffer;
>
> is that the same (effecively) as
>
> ( $number, $color, $buffer ) = (undef, undef, undef );
Strictly speaking, it is the same as:
undef $number;
undef $color;
undef $buffer;
> Also is, as you stated it,
>
> $number, $color, $buffer
>
> a list? If so why doesn't it require parens?
It is standard for loop syntax. No different than:
say for 1, 2, 3;
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: Thu, 22 Jan 2009 09:23:17 -0600
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: How can I use a REGEX to process WORDS
Message-Id: <slrngnh3r5.ngs.tadmc@tadmc30.sbcglobal.net>
spydox@gmail.com <spydox@gmail.com> wrote:
> On Jan 21, 5:22pm, "A. Sinan Unur" <1...@llenroc.ude.invalid> wrote:
>> undef for $number, $color, $buffer;
> Also is, as you stated it,
>
> $number, $color, $buffer
>
> a list?
Yes.
> If so why doesn't it require parens?
Because that's what the "Statement Modifiers" section in
perldoc perlsyn
says :-)
(also because parens do not make a list!)
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Wed, 21 Jan 2009 22:44:06 -0700
From: Larry Gates <larry@example.invalid>
Subject: Re: inputting the ephemerides
Message-Id: <k6v08yw3c7u0.9fmu7ble72ou$.dlg@40tude.net>
On Wed, 21 Jan 2009 21:27:34 -0600, Tad J McClellan wrote:
> Larry Gates <larry@example.invalid> wrote:
>> On Tue, 20 Jan 2009 15:43:55 +0000, RedGrittyBrick wrote:
>
>>> Assuming you don't mean
>>> perl -p -e 's/[^\s\d]//g' ephemerides.txt
>>
>> What does this mean?
>
>
> What did you observe when you tried it?
>
> It deletes all characters except for whitespace and digit characters.
>
> perl -p -e 's/[^\s\d]+//g' ephemerides.txt
>
> does the same thing, only faster.
>
> I haven't benchmarked it, but I'd expect this to be faster still:
>
> perl -p -e 'tr/ \n\r\t\f0123456789//dc' ephemerides.txt
My shell might need some tweaking:
C:\MinGW\source>perl -p -e 's/[^\s\d]+//g' eph6.txt
Sun 19h 43m 51s -21 17.8' 0.984 -35.020 87.148 Set
Mercury 20h 36m 41s -16 59.3' 0.747 -22.075 84.236 Set
Venus 22h 51m 18s -7 46.9' 0.691 10.142 72.919 Up
Moon 10h 24m 21s +7 29.5' 58.6 ER -4.992 -102.785 Set
Mars 18h 58m 51s -23 33.8' 2.398 -45.280 90.860 Set
Jupiter 20h 17m 22s -20 8.1' 6.082 -27.618 83.843 Set
Saturn 11h 32m 29s +5 16.0' 8.806 -19.672 -111.729 Set
Uranus 23h 23m 12s -4 46.5' 20.638 18.211 70.235 Up
Neptune 21h 41m 17s -14 13.9' 30.892 -7.527 77.864 Set
Pluto 18h 6m 40s -17 44.9' 32.485 -52.833 108.052 Set
C:\MinGW\source> perl -p -e 'tr/ \n\r\t\f0123456789//dc' eph6.txt
Can't find string terminator "'" anywhere before EOF at -e line 1.
C:\MinGW\source>
>
>
>> How would you get rid of the and the ' and leave the -44.6 in the
>> following:
>> -44.6'
>
>
> s/[']//g;
>
> or do it faster without using any regex at all:
>
> tr/'//d; # tr/// does not use regular expressions
>
> Perhaps you messed up the specification and are really looking for:
>
> tr/' //d;
>
>
>
> When _you_ look at the string, how do _you_ identify the part
> that is "interesting"?
>
> Once you can describe that well enough, then writing a pattern
> that does it becomes easy or at least possible.
>
>
> I'll assume that string is in $_.
>
> Keep whatever looks like a number?
>
> ($num) = /(-?\d+\.?\d*)/;
>
> (see: perldoc -q "scalar is a number")
>
> Keep a number that comes after whitespace?
>
> ($num) = /\s(-?\d+\.?\d*)/;
>
> Keep whatever non-whitespace comes before a "'"?
>
> ($num) = /(\S+)'/;
>
> Keep whatever is between whitespace and "'"?
>
> ($num) = /\s(\S.*)'/;
> or
> ($num) = /\s+(.+)'/;
>
> Keep whatever comes after whitespace except the last character?
>
> ($num) = /\s+(.+)./;
>
> And on and on and on...
>
>
> You must first identify how the "interesting" part is distinguished
> before you can devise a pattern that will match it.
Thanks, Tad. I'll stew on these tonight and see if I can get something
figured out.
Right now, I seem to have a choice
while <$fh>{
/ big honking regex/
}
or I've got a $line, and I don't know how to get it into 8 different
strings. I tried to do your thing hwere you said just to do one step, and
the lippy hollander said it made him laugh his ass off. On the other side
of the learning curve, I find it less than something worth a guffaw.
If I were going to start over, I would replace tabs with spaces, with a
space, ER with a space, and then I'd go over it again. Once I had a
columns of spaces between all the players, then I would
> my( $name, $hour, $min, $sec, ... ) =
> unpack('A8 A4 A4 A4 ... ',$line);
, because then there *does* exist an integer sequence that works.
The fortran folks think perl is great stuff.
--
larry gates
Life gets boring, someone invents another necessity, and once again we
turn the crank on the screwjack of progress hoping that nobody gets
screwed.
-- Larry Wall in <199705101952.MAA00756@wall.org>
------------------------------
Date: Thu, 22 Jan 2009 11:18:41 +0000
From: RedGrittyBrick <RedGrittyBrick@spamweary.invalid>
Subject: Re: inputting the ephemerides
Message-Id: <49785614$0$30295$da0feed9@news.zen.co.uk>
Larry Gates wrote:
> On Tue, 20 Jan 2009 15:43:55 +0000, RedGrittyBrick wrote:
>
>
>> perldoc -f split
>
> I couldn't get any input with split. I'm working up a data set that is
> properly spaced and columnated.
>> Assuming you don't mean
>> perl -p -e 's/[^\s\d]//g' ephemerides.txt
>
> What does this mean? I've been looking at regexs all day and am reminded
> of days when I had to consume cyrillic data.
>
> How would you get rid of the and the ' and leave the -44.6 in the
> following:
> -44.6'
> ?
>
I wouldn't use your approach at all
I'd start with something like this ...
#!perl
use strict;
use warnings;
use Encode qw(encode decode);
while (<>) {
my $line = decode('UTF-8', $_);
chomp $line;
(my $body = substr $line, 0, 8) =~ s/\s+$//;
(my $time = substr $line, 8, 12) =~ s/[hms]\s+/:/g;
(my $angle = substr $line, 24, 12) =~ s/[^\s\d]+//g;
(my $hat = substr $line, 40, 8) =~ s/\s+$//;
(my $debt = substr $line, 48, 8) =~ s/\s+$//;
(my $shoe = substr $line, 56, 8) =~ s/\s+$//;
(my $mood = substr $line, 64) =~ s/\s+//g;
my ($degrees, $minutes) = split(/\s+/, $angle, 2);
$angle = $degrees + $minutes/60;
print
"Body = '", $body, "'\n",
"Time = '", $time, "'\n",
"Angle = '", $angle, "'\n",
"Hat size = '", $hat, "'\n",
"National debt = '", $debt, "'\n",
"Shoe size = '", $shoe, "'\n",
"Mood = '", $mood, "'\n",
"\n";
}
C:\temp>perl eph.pl eph6.txt
Body = 'Sun'
Time = '19:43:51:'
Angle = '23.9666666666667'
Hat size = '0.984'
National debt = '-35.020'
Shoe size = '87.148'
Mood = 'Set'
Body = 'Mercury'
Time = '20:36:41:'
Angle = '25.8833333333333'
Hat size = '0.747'
National debt = '-22.075'
Shoe size = '84.236'
Mood = 'Set'
My script has numerous problems, for example, if your file isn't UTF-8
or has a Byte-Order Mark at the start. But it's where I'd start.
--
RGB
------------------------------
Date: Thu, 22 Jan 2009 06:30:19 -0600
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: inputting the ephemerides
Message-Id: <slrngngpmr.lk2.tadmc@tadmc30.sbcglobal.net>
Larry Gates <larry@example.invalid> wrote:
> On Wed, 21 Jan 2009 21:27:34 -0600, Tad J McClellan wrote:
>> perl -p -e 'tr/ \n\r\t\f0123456789//dc' ephemerides.txt
>
> My shell might need some tweaking:
> Can't find string terminator "'" anywhere before EOF at -e line 1.
I think Windoze needs double quotes instead:
perl -p -e "tr/ \n\r\t\f0123456789//dc" ephemerides.txt
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Thu, 22 Jan 2009 05:42:31 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Thu Jan 22 2009
Message-Id: <KDuyIv.nHK@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-RPC-0.01
http://search.cpan.org/~swalters/Acme-RPC-0.01/
Easy remote function and method call and more
----
AnyEvent-IRC-0.7
http://search.cpan.org/~elmex/AnyEvent-IRC-0.7/
An event system independend IRC protocol module
----
Apache2-WURFLFilter-1.3
http://search.cpan.org/~ifuschini/Apache2-WURFLFilter-1.3/
is a Apache Mobile Filter that manage content (text & image) to the correct mobile device
----
Apache2-WURFLFilter-1.31
http://search.cpan.org/~ifuschini/Apache2-WURFLFilter-1.31/
is a Apache Mobile Filter that manage content (text & image) to the correct mobile device
----
BioPerl-1.5.9_4
http://search.cpan.org/~cjfields/BioPerl-1.5.9_4/
Loader for LiveSeq from EMBL entries with BioPerl
----
CMD-Colors-0.1
http://search.cpan.org/~uhanda/CMD-Colors-0.1/
Generate Colorfull text on commandline
----
CPAN-Reporter-Smoker-Safer-0.01
http://search.cpan.org/~davidrw/CPAN-Reporter-Smoker-Safer-0.01/
Turnkey smoking of installed distros
----
CPAN-Site-0.25
http://search.cpan.org/~markov/CPAN-Site-0.25/
CPAN.pm subclass for adding site local modules
----
ClearPress-300
http://search.cpan.org/~rpettett/ClearPress-300/
Simple, fresh & fruity MVC framework
----
Config-IniFiles-2.47
http://search.cpan.org/~shlomif/Config-IniFiles-2.47/
A module for reading .ini-style configuration files.
----
DBIx-Class-TimeStamp-0.07
http://search.cpan.org/~jshirley/DBIx-Class-TimeStamp-0.07/
----
DBIx-RetryOverDisconnects-0.04
http://search.cpan.org/~syber/DBIx-RetryOverDisconnects-0.04/
DBI wrapper that helps to deal with databases connection problems
----
DateTime-TimeZone-0.84
http://search.cpan.org/~drolsky/DateTime-TimeZone-0.84/
Time zone object base class and factory
----
Devel-NYTProf-2.07_94
http://search.cpan.org/~timb/Devel-NYTProf-2.07_94/
Powerful feature-rich perl source code profiler
----
Devel-REPL-1.003002
http://search.cpan.org/~oliver/Devel-REPL-1.003002/
a modern perl interactive shell
----
Dotiac-0.4
http://search.cpan.org/~maluku/Dotiac-0.4/
----
Dotiac-addon-unparsed-0.2
http://search.cpan.org/~maluku/Dotiac-addon-unparsed-0.2/
----
Encode-2.27
http://search.cpan.org/~dankogai/Encode-2.27/
character encodings
----
Geo-EOP-0.11
http://search.cpan.org/~markov/Geo-EOP-0.11/
Earth Observation Products EOP (formely HMA)
----
Geo-Format-Envisat-0.02
http://search.cpan.org/~markov/Geo-Format-Envisat-0.02/
parse Envisat Metadata format
----
Geo-GML-0.12
http://search.cpan.org/~markov/Geo-GML-0.12/
Geography Markup Language processing
----
Geo-GML-0.13
http://search.cpan.org/~markov/Geo-GML-0.13/
Geography Markup Language processing
----
Geo-Point-0.10
http://search.cpan.org/~markov/Geo-Point-0.10/
a point on the globe
----
HTML-FormHandler-0.06
http://search.cpan.org/~gshank/HTML-FormHandler-0.06/
form handler written in Moose
----
HTTP-Engine-0.0.99_02
http://search.cpan.org/~yappo/HTTP-Engine-0.0.99_02/
Web Server Gateway Interface and HTTP Server Engine Drivers (Yet Another Catalyst::Engine)
----
IO-Lambda-1.05
http://search.cpan.org/~karasik/IO-Lambda-1.05/
non-blocking I/O as lambda calculus
----
Log-Report-0.21
http://search.cpan.org/~markov/Log-Report-0.21/
report a problem, pluggable handlers and language support
----
Nagios-Object-0.21.1
http://search.cpan.org/~duncs/Nagios-Object-0.21.1/
----
Net-SMS-2Way-0.08
http://search.cpan.org/~lengel/Net-SMS-2Way-0.08/
BulkSMS API
----
Net-SMS-2Way-0.08-FIXED
http://search.cpan.org/~lengel/Net-SMS-2Way-0.08-FIXED/
BulkSMS API
----
Net-Trac-0.03
http://search.cpan.org/~jesse/Net-Trac-0.03/
Interact with a remote Trac instance
----
Net-Trac-0.04
http://search.cpan.org/~jesse/Net-Trac-0.04/
Interact with a remote Trac instance
----
POE-Component-Server-SimpleHTTP-1.53_02
http://search.cpan.org/~bingos/POE-Component-Server-SimpleHTTP-1.53_02/
Perl extension to serve HTTP requests in POE.
----
POE-Session-AttributeBased-0.09
http://search.cpan.org/~cfedde/POE-Session-AttributeBased-0.09/
POE::Session syntax sweetener
----
Parallel-Depend-3.04
http://search.cpan.org/~lembark/Parallel-Depend-3.04/
----
Parse-Marpa-1.002000
http://search.cpan.org/~jkegl/Parse-Marpa-1.002000/
Generate Parsers from any BNF grammar
----
Perl6-Cookbook-0.03
http://search.cpan.org/~szabgab/Perl6-Cookbook-0.03/
Examples in Perl 6
----
Provision-Unix-0.39
http://search.cpan.org/~msimerson/Provision-Unix-0.39/
provision accounts on unix systems
----
REST-Client-62
http://search.cpan.org/~mcrawfor/REST-Client-62/
A simple client for interacting with RESTful http/https resources
----
Roguelike-Utils-0.4.180
http://search.cpan.org/~earonesty/Roguelike-Utils-0.4.180/
----
SVG-GD-0.17
http://search.cpan.org/~ronan/SVG-GD-0.17/
----
SWISH-Prog-0.24
http://search.cpan.org/~karman/SWISH-Prog-0.24/
information retrieval application framework
----
Spreadsheet-ParseExcel-0.47
http://search.cpan.org/~jmcnamara/Spreadsheet-ParseExcel-0.47/
Extract information from an Excel file.
----
Test-CallFlow-0.01
http://search.cpan.org/~korpiq/Test-CallFlow-0.01/
trivial planning of sub call flows for fast unit test writing.
----
Text-FIGlet-2.10
http://search.cpan.org/~jpierce/Text-FIGlet-2.10/
a perl module to provide FIGlet abilities, akin to banner
----
Transform-Canvas-0.13
http://search.cpan.org/~ronan/Transform-Canvas-0.13/
Perl extension for performing Coordinate transformation operations from the cartesion to the traditional drawing-model canvas coordinate systems.
----
WWW-Shorten-0rz-0.06
http://search.cpan.org/~gugod/WWW-Shorten-0rz-0.06/
Shorten URL using 0rz.tw
----
XML-Compile-1.00
http://search.cpan.org/~markov/XML-Compile-1.00/
Compilation based XML processing
----
XML-Compile-Cache-0.90
http://search.cpan.org/~markov/XML-Compile-Cache-0.90/
Cache compiled XML translators
----
parrot-0.9.0
http://search.cpan.org/~chromatic/parrot-0.9.0/
----
parrot-0.9.0.1
http://search.cpan.org/~chromatic/parrot-0.9.0.1/
----
resched-0.7.5
http://search.cpan.org/~jonadab/resched-0.7.5/
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: Thu, 22 Jan 2009 05:29:01 -0800 (PST)
From: cartercc <cartercc@gmail.com>
Subject: on looking for work
Message-Id: <86c542d8-d23b-480d-b76d-3643e3ff3a2c@f33g2000vbf.googlegroups.com>
I don't mean to pry or be disrespectful, but have an interest in this
subject, as many of you probably do.
This is prompted by TM's statement in a recent thread that he needed
employment. I found his resume online, and it looked like a good,
solid resume to me. He appears to have a history of working for
substantial people doing responsible stuff ... and he is searching for
a job. Obviously, there can be many reasons for this, and I'm not in a
position to speculate, but I've been thinking about this for the last
couple of days, and I have some basic questions.
As for myself, I have a decent job and while I'm always looking, it's
only because I'm looking for a better opportunity, not because I need
work. I'm just wondering in general.
(1) How is it that a person with good skills has trouble finding work?
(2) Why do employers often seem to pass over people with good skills?
(3) What about self-employment or contract work for skilled
professionals?
(4) How does one position himself to minimize the necessity of looking
for work?
My take on this, from very limited exposure to the problem, is not
lack of work in general, but a disconnect between the consumers of
skilled labor and the producers of skilled labor. I've seen more often
than not (in the situations that I know personally) that the hirer,
which mostly is not the person who needs to hire, looks at the wrong
things, for example, a requisition that specifies C# may hire a person
with limited C# skill and pass over a person with extensive OO skills
in a number of other languages. Or a requisition that specifies MySQL
and PHP may hire a person with very limited experience in this area
while passing over a person with good Oracle and MSSQL experience
coupled with JSP and ASP.
I know this is OT and not specifically related to Perl, so please
excuse this if you think this is posted to the wrong group.
CC
------------------------------
Date: Thu, 22 Jan 2009 09:08:15 -0600
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: What do you need to have to be considered a Master at Perl?
Message-Id: <86hc3r9y5c.fsf@lifelogs.com>
On Thu, 22 Jan 2009 01:24:18 +0100 "Dr.Ruud" <rvtol+usenet@xs4all.nl> wrote:
R> Another test question: How many elements does the \d character set
R> have?
R> s/\\D/[^0-9]/
That's a nasty one, you need to test with several Perl versions to be
sure. Looking at perlunicode, it seems like \d will match Unicode
digits, but [\d] will use byte semantics and thus only match [0-9]. But
that fails in this example:
# U+FF10 is the Fullwidth zero
perl -e'$x = chr 0xFF10; print "Yes normal\n" if $x =~ m/\d/; print "Yes in byte\n" if $x =~ m/[\d]/;'
Yes normal
Yes in byte
So [\d] still matches Unicode digits (this is against 5.8.8). Anyhow,
the answer to the original question is "depends on Perl version."
Ted
------------------------------
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 2148
***************************************
