[30905] in Perl-Users-Digest
Perl-Users Digest, Issue: 2150 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jan 23 03:09:47 2009
Date: Fri, 23 Jan 2009 00:09:10 -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 Fri, 23 Jan 2009 Volume: 11 Number: 2150
Today's topics:
[DGBI] Congrats, our prize goes to Sinan (was: How can <whynot@pozharski.name>
Re: [DGBI] Congrats, our prize goes to Sinan <uri@stemsystems.com>
Re: inputting the ephemerides <whynot@pozharski.name>
Re: inputting the ephemerides <larry@example.invalid>
Re: inputting the ephemerides <larry@example.invalid>
Re: inputting the ephemerides <larry@example.invalid>
Re: Interesting open3 redirection problem <xhoster@gmail.com>
new CPAN modules on Fri Jan 23 2009 (Randal Schwartz)
Re: on looking for work <cartercc@gmail.com>
Re: What do you need to have to be considered a Master <hjp-usenet2@hjp.at>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 23 Jan 2009 01:46:41 +0200
From: Eric Pozharski <whynot@pozharski.name>
Subject: [DGBI] Congrats, our prize goes to Sinan (was: How can I use a REGEX to process WORDS)
Message-Id: <slrngni1b1.gt8.whynot@orphan.zombinet>
On 2009-01-22, Uri Guttman <uri@stemsystems.com> wrote:
>>>>>> "s" == spydox <spydox@gmail.com> writes:
>
> s> I really like your construct: undef for $number, $color, $buffer;
>
> you shouldn't like that construct. it is slower and clunkier than
> needed. my rule is to avoid explicit use of the undef function as much
> as possible. this is for style reasons and undef is easily avoidable
>
> s> is that the same (effecively) as
>
> s> ( $number, $color, $buffer ) = (undef, undef, undef );
>
> why the extra redundant undef's?
>
> ( $number, $color, $buffer ) = () ;
>
> that is faster than the for loop and shorter than the explicit undef
> list.
perl -wle '
use Benchmark qw|cmpthese timethese|;
my($x, $y, $z);
my $t = timethese -10, {
for => sub { undef for $x, $y, $z },
list => sub { ($x, $y, $z) = (undef, undef, undef) },
seq => sub { undef $x; undef $y; undef $z },
empty => sub { ($x, $y, $z) = () }, };
cmpthese $t;
'
Benchmark:
running
empty, for, list, seq
for at least 10 CPU seconds
...
empty: 10 wallclock secs (10.01 usr + 0.01 sys = 10.02 CPU) @
1152581.04/s (n=11548862)
for: 13 wallclock secs (10.49 usr + 0.05 sys = 10.54 CPU) @
291213.00/s (n=3069385)
list: 13 wallclock secs (10.71 usr + 0.02 sys = 10.73 CPU) @
959226.75/s (n=10292503)
seq: 12 wallclock secs ( 9.95 usr + 0.05 sys = 10.00 CPU) @
1751871.70/s (n=17518717)
Rate for list empty seq
for 291213/s -- -70% -75% -83%
list 959227/s 229% -- -17% -45%
empty 1152581/s 296% 20% -- -34%
seq 1751872/s 502% 83% 52% --
And look at that 0.05 sys for I<seq> -- it does something. Just
rechecked -- results aren't that stable
Rate for list empty seq
for 283340/s -- -71% -76% -79%
list 963256/s 240% -- -18% -30%
empty 1167856/s 312% 21% -- -15%
seq 1371866/s 384% 42% 17% --
> but i suspect there isn't a need for undefing like that. whenever i see
> a bunch of that sort of code i smell a poor design of the loop or
> whatever. designing things so you don't need that is not difficult and
> you can use scope, sub return, etc. to handle things without explicit
> calls to undef.
Though I should admit, that I would stay with Uri's idea (whatever name
of that idea is).
--
Torvalds' goal for Linux is very simple: World Domination
Stallman's goal for GNU is even simpler: Freedom
------------------------------
Date: Fri, 23 Jan 2009 00:34:59 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: [DGBI] Congrats, our prize goes to Sinan
Message-Id: <x7d4ee37r0.fsf@mail.sysarch.com>
>>>>> "EP" == Eric Pozharski <whynot@pozharski.name> writes:
>> but i suspect there isn't a need for undefing like that. whenever i see
>> a bunch of that sort of code i smell a poor design of the loop or
>> whatever. designing things so you don't need that is not difficult and
>> you can use scope, sub return, etc. to handle things without explicit
>> calls to undef.
EP> Though I should admit, that I would stay with Uri's idea (whatever name
EP> of that idea is).
call it the "don't use undef unless you must" rule. :)
similar to the string eval and symrefs rules i have posted many times -
don't use them unless you know when not to use them!
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, 23 Jan 2009 01:19:48 +0200
From: Eric Pozharski <whynot@pozharski.name>
Subject: Re: inputting the ephemerides
Message-Id: <slrngnhvol.gt8.whynot@orphan.zombinet>
On 2009-01-22, Peter J. Holzer <hjp-usenet2@hjp.at> wrote:
> On 2009-01-22 00:40, Larry Gates <larry@example.invalid> wrote:
*SKIP*
>> What I have is *(\d{1,2}\.\d{1})
>
> "*" applies to the expression to the left of it. Starting a pattern with
> it makes no sense. If you think that the pattern to the left of your
> number is relevant, quote it completely, otherwise omit it.
Who cares if no-one can?
{8772:15} [1:0]$ perl -wle 'qr{*}'
Quantifier follows nothing in regex; marked by <-- HERE in m/* <-- HERE
/ at -e line 1.
I assume that LG didn't copy-paste. What a surprise...
*CUT*
--
Torvalds' goal for Linux is very simple: World Domination
Stallman's goal for GNU is even simpler: Freedom
------------------------------
Date: Fri, 23 Jan 2009 00:14:43 -0700
From: Larry Gates <larry@example.invalid>
Subject: Re: inputting the ephemerides
Message-Id: <1w3y7eerrq7pp$.1gbvyyehaeq72$.dlg@40tude.net>
On Thu, 22 Jan 2009 19:03:32 +0100, Peter J. Holzer wrote:
> On 2009-01-22 00:40, Larry Gates <larry@example.invalid> wrote:
> "*" applies to the expression to the left of it. Starting a pattern with
> it makes no sense. If you think that the pattern to the left of your
> number is relevant, quote it completely, otherwise omit it.
ok
> Use the /x modifier and comments to make your regex more readable:
>
> /(\w+)\W+ # name
> (\d{1,2}) .*? (\d{1,2}) .*? (\d{1,2}) .*? # RA
> ([-+]\d{1,2}) .* (\d{1,2}\.\d{1}) # declination
> /x;
>
> This makes it much easier to see that you match the longest possible
> sequence of arbitrary characters (/.*/) in the middle of the
> declination. So in
>
>> Sun 19h 43m 51s -21░ 17.8' 0.984 -35.020 87.148 Set
>
> /.*/ will match "░ 17.8' 0.984 -35.020 8" and /(\d{1,2}\.\d{1})/
> will match "7.1". You probably wanted /.*?/ instead like in RA.
>
> But using /.*?/ when you want to match a fixed string isn't ideal,
> either. You *know* that between the hours and minutes of the RA there is
> always the string "h ", so you should match it that way:
>
> /(\w+)\W+ # name
> (\d{1,2}) h\ (\d{1,2}) m\ (\d{1,2}) s .*? # RA
> ([-+]\d{1,2}) °\ (\d{1,2}\.\d{1})' # declination
> /x;
>
> You also know that your fields are separated by a single tab, so match
> that tab:
>
> /(\w+) \t # name
> (\d{1,2}) h\ (\d{1,2}) m\ (\d{1,2}) s \t # RA
> ([-+]\d{1,2}) °\ (\d{1,2}\.\d{1})' \t # declination
> /x;
Thanks, peter, I've gotten a lot farther now using the above:
my $filename = 'eph6.txt';
open(my $fh, '<', $filename) or die "cannot open $filename: $!";
while (<$fh>) {
/(\w+) \t # name
(\d{1,2}) h\ (\d{1,2}) m\ (\d{1,2}) s \t # RA
([-+]\d{1,2}) °\ (\d{1,2}\.\d{1})' \t # declination
(\d{1,2}\.\d+) \t # no tab before ER distance
([-]\d+\.\d+) \t #altitude
# ([-]\d+\.\d+) #azimuth
# (\w+) #up?
/x;
print "string one is $1\n";
print "string two is $2\n";
print "string three is $3\n";
print "string four is $4\n";
print "string five is $5\n";
print "string six is $6\n";
print "string seven is $7\n";
print "string eight is $8\n";
print "string nine is $9\n";
print "string ten is $10\n";
print $_;
}
close($fh)
# perl faulk19.pl
The output looks much the same, except I've gotten far enough that the ER
in the moon is torpedoing that data.
I was thinking for altitude and azimuth, we could use something like:
+? Match 1 or more times
A couple questions:
q1) Why do you have a backslash after °, h, and m, but not s and ' ?
q2) In your writing above, what would you call it when you mean the
characters between the slashes, like /.*/ ?
>
>> Pluto 18h 6m 40s -17░ 44.9' 32.485 -52.833 108.052 Set
>> C:\MinGW\source>
>> ^^^^^^^
>> I wonder why ° doesn't display.
>
> ° isn't an ASCII character. To read and print the file correctly, you
> need to know which character set is used in the file and in your
> terminal and convert accordingly.
>
> hp
C:\MinGW\source>perl rgb2.pl
Wide character in print at rgb2.pl line 18, <$fh> line 1.
Body = Tab 1234 $$ � quick
^^^^^^
Apparently, this is what it looks like as perl output on windows.
--
larry gates
echo "Your stdio isn't very std."
-- Larry Wall in Configure from the perl distribution
------------------------------
Date: Fri, 23 Jan 2009 00:44:46 -0700
From: Larry Gates <larry@example.invalid>
Subject: Re: inputting the ephemerides
Message-Id: <iexyjwhkbr2m$.1l8tgdrm87mxn$.dlg@40tude.net>
On Thu, 22 Jan 2009 06:30:19 -0600, Tad J McClellan wrote:
> 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
Believe it or not, it represents a day's worth of studying to get the above
ideas hooked up with a binding operator:
my $filename = 'eph6.txt';
open(my $fh, '<', $filename) or die "cannot open $filename: $!";
while (my $line = <$fh>) {
$line =~ s/[^\s\d]+//g;
print $line;
}
close($fh);
print "\n";
open($gh, '<', $filename) or die "cannot open $filename: $!";
while ($line = <$gh>) {
$line =~ tr/ \n\r\t\f01234.+-56789//dc;
print $line;
}
close($gh)
19 43 51 21 178 0984 35020 87148
20 36 41 16 593 0747 22075 84236
22 51 18 7 469 0691 10142 72919
10 24 21 7 295 586 4992 102785
18 58 51 23 338 2398 45280 90860
20 17 22 20 81 6082 27618 83843
11 32 29 5 160 8806 19672 111729
23 23 12 4 465 20638 18211 70235
21 41 17 14 139 30892 7527 77864
18 6 40 17 449 32485 52833 108052
19 43 51 -21 17.8 0.984 -35.020 87.148
20 36 41 -16 59.3 0.747 -22.075 84.236
22 51 18 -7 46.9 0.691 10.142 72.919
10 24 21 +7 29.5 58.6 -4.992 -102.785
18 58 51 -23 33.8 2.398 -45.280 90.860
20 17 22 -20 8.1 6.082 -27.618 83.843
11 32 29 +5 16.0 8.806 -19.672 -111.729
23 23 12 -4 46.5 20.638 18.211 70.235
21 41 17 -14 13.9 30.892 -7.527 77.864
18 6 40 -17 44.9 32.485 -52.833 108.052
C:\MinGW\source>
Does perl have a function like rewind in fortran that obviates reopening
the file to get back to the beginning?
--
larry gates
That being said, I think we should immediately deprecate any string
concatenation that combines "19" with "99". :-)
-- Larry Wall in <199811242002.MAA26850@wall.org>
------------------------------
Date: Fri, 23 Jan 2009 00:49:02 -0700
From: Larry Gates <larry@example.invalid>
Subject: Re: inputting the ephemerides
Message-Id: <1opx8vytnehop.1hrwkvf8cyiva.dlg@40tude.net>
On Fri, 23 Jan 2009 01:19:48 +0200, Eric Pozharski wrote:
> On 2009-01-22, Peter J. Holzer <hjp-usenet2@hjp.at> wrote:
>> On 2009-01-22 00:40, Larry Gates <larry@example.invalid> wrote:
> *SKIP*
>>> What I have is *(\d{1,2}\.\d{1})
>>
>> "*" applies to the expression to the left of it. Starting a pattern with
>> it makes no sense. If you think that the pattern to the left of your
>> number is relevant, quote it completely, otherwise omit it.
>
> Who cares if no-one can?
I care. That paragraph from Peter was a watershed for me.
>
> {8772:15} [1:0]$ perl -wle 'qr{*}'
> Quantifier follows nothing in regex; marked by <-- HERE in m/* <-- HERE
> / at -e line 1.
No idea what this means.
>
> I assume that LG didn't copy-paste. What a surprise...
>
> *CUT*
I did copy-paste, which revealed my gross misunderstanding of /*/ . Which
of your other assumptions surprise you?
--
larry gates
It seems like a sane thing to me, but that's a rather low standard.
-- Larry Wall in <20050419150023.GA19507@wall.org>
------------------------------
Date: Thu, 22 Jan 2009 19:08:51 -0800
From: Xho Jingleheimerschmidt <xhoster@gmail.com>
Subject: Re: Interesting open3 redirection problem
Message-Id: <497949e4$0$22617$ed362ca5@nr5c.newsreader.com>
usenet@schweikhardt.net wrote:
> #!/usr/bin/env perl
>
> use warnings;
> use strict;
> use File::Spec;
> use IPC::Open3;
>
>
> # This one never gets out of the while loop.
> my @cmd = ('gcc', '-v', '-E', '-x', 'c', '-');
>
> if (open (my $NULLOUT, ">", File::Spec->devnull)) {
> if (open (my $NULLIN, "<", File::Spec->devnull)) {
> my $pid = open3 ($NULLIN, $NULLOUT, \*CMD, @cmd);
First you open $NULLOUT to be a handle hooked up to write to null.
Then you close it, and reopen it to be a handle hooked up to write to
gcc (which means gcc is hooked up to read, as its stdin, what you write
to $NULLOUT). Since you neither write to nor close $NULLOUT, gcc blocks
waiting for you to do one of those.
> I'm stumped. Does any perl guru know what's going on and how to
> correct the situation?
If you want gcc to read directly from the handle, (rather than read what
Perl writes *to* that handle) then the docs to open3 say you specify the
first argument to open3 to start with "<&" (which means you probably
can't use a lexical filehandle, at least not easily)
Of course, to do that, you should open the handle $NULLIN to be read
from, not written to, or else gcc will complain that its stdin is not
open for reading.
But if you want @cmd to inherit a close file stdin, why not just specify
a first argument of undef to open3?
Xho
------------------------------
Date: Fri, 23 Jan 2009 05:42:28 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Fri Jan 23 2009
Message-Id: <KDwt6s.3zv@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.
AI-Genetic-Pro-0.333
http://search.cpan.org/~strzelec/AI-Genetic-Pro-0.333/
Efficient genetic algorithms for professional purpose.
----
AI-Genetic-Pro-0.334
http://search.cpan.org/~strzelec/AI-Genetic-Pro-0.334/
Efficient genetic algorithms for professional purpose.
----
Acme-CPANAuthors-Brazilian-0.04
http://search.cpan.org/~garu/Acme-CPANAuthors-Brazilian-0.04/
We are brazilian CPAN authors
----
Acme-Playmate-0.04
http://search.cpan.org/~garu/Acme-Playmate-0.04/
An object-oriented interface to playboy.com
----
App-Changelog2x-0.10
http://search.cpan.org/~rjray/App-Changelog2x-0.10/
A wrapper-class for the functionality of changelog2x
----
Audio-File-Wav-0.01a
http://search.cpan.org/~nheinric/Audio-File-Wav-0.01a/
represents a Microsoft WAV audio file
----
Audio-File-Wma-0.01a
http://search.cpan.org/~nheinric/Audio-File-Wma-0.01a/
represents a WMA/ASF audio file
----
Bot-BasicBot-0.8
http://search.cpan.org/~tomi/Bot-BasicBot-0.8/
simple irc bot baseclass
----
Business-TNTPost-NL-0.08
http://search.cpan.org/~blom/Business-TNTPost-NL-0.08/
Calculate Dutch (TNT Post) shipping costs
----
CPAN-Reporter-Smoker-Safer-0.02
http://search.cpan.org/~davidrw/CPAN-Reporter-Smoker-Safer-0.02/
Turnkey smoking of installed distros
----
CPAN-WWW-Testers-0.45
http://search.cpan.org/~barbie/CPAN-WWW-Testers-0.45/
Present CPAN Testers data
----
CPAN-WWW-Testers-0.46
http://search.cpan.org/~barbie/CPAN-WWW-Testers-0.46/
Present CPAN Testers data
----
Catalyst-Model-HTML-FormFu-1.00001
http://search.cpan.org/~dmaki/Catalyst-Model-HTML-FormFu-1.00001/
FormFu In Your Model (Deprecated)
----
Catalyst-Plugin-I18N-DBI-0.1.0
http://search.cpan.org/~mdietrich/Catalyst-Plugin-I18N-DBI-0.1.0/
DBI based I18N for Catalyst
----
Class-MOP-0.76
http://search.cpan.org/~drolsky/Class-MOP-0.76/
A Meta Object Protocol for Perl 5
----
ClearPress-301
http://search.cpan.org/~rpettett/ClearPress-301/
Simple, fresh & fruity MVC framework
----
Data-DPath-0.02
http://search.cpan.org/~schwigon/Data-DPath-0.02/
DPath is not XPath!
----
Date-Extract-P800Picture-0.02
http://search.cpan.org/~ipenburg/Date-Extract-P800Picture-0.02/
class for extracting the date and the hour from the filename of pictures taken with a Sony-Ericsson P800 camera phone.
----
Date-Holidays-AT-0.1.3
http://search.cpan.org/~mdietrich/Date-Holidays-AT-0.1.3/
Determine Austrian holidays
----
GBrowse-1.987
http://search.cpan.org/~lds/GBrowse-1.987/
----
HTML-FormHandler-0.07
http://search.cpan.org/~gshank/HTML-FormHandler-0.07/
form handler written in Moose
----
IO-Socket-SSL-1.21
http://search.cpan.org/~sullr/IO-Socket-SSL-1.21/
Nearly transparent SSL encapsulation for IO::Socket::INET.
----
Lingua-Jspell-1.59
http://search.cpan.org/~ambs/Lingua-Jspell-1.59/
Perl interface to the Jspell morphological analyser.
----
Locale-Maketext-Lexicon-DBI-0.1.1
http://search.cpan.org/~mdietrich/Locale-Maketext-Lexicon-DBI-0.1.1/
Database based lexicon fetcher/parser
----
MFor-0.01
http://search.cpan.org/~cornelius/MFor-0.01/
A moudle for multi-dimension looping.
----
MIME-Type-Simple-0.01
http://search.cpan.org/~rrwo/MIME-Type-Simple-0.01/
MIME Media Types and their file extensions
----
Moose-0.65
http://search.cpan.org/~drolsky/Moose-0.65/
A postmodern object system for Perl 5
----
MooseX-Singleton-0.14
http://search.cpan.org/~drolsky/MooseX-Singleton-0.14/
turn your Moose class into a singleton
----
MouseX-Object-Pluggable-0.01
http://search.cpan.org/~kitano/MouseX-Object-Pluggable-0.01/
Mouse port of MooseX::Object::Pluggable
----
Music-ABC-Archive-0.02
http://search.cpan.org/~weltyjj/Music-ABC-Archive-0.02/
Parse ABC music archives
----
Net-OpenSSH-0.20
http://search.cpan.org/~salva/Net-OpenSSH-0.20/
Perl SSH client package implemented on top of OpenSSH
----
Net-OpenSSH-0.21
http://search.cpan.org/~salva/Net-OpenSSH-0.21/
Perl SSH client package implemented on top of OpenSSH
----
Net-OpenSSH-0.22
http://search.cpan.org/~salva/Net-OpenSSH-0.22/
Perl SSH client package implemented on top of OpenSSH
----
Net-Trac-0.05
http://search.cpan.org/~jesse/Net-Trac-0.05/
Interact with a remote Trac instance
----
Net-Twitter-2.02
http://search.cpan.org/~cthom/Net-Twitter-2.02/
Perl interface to twitter.com
----
PAR-Dist-0.43
http://search.cpan.org/~smueller/PAR-Dist-0.43/
Create and manipulate PAR distributions
----
POE-Component-IRC-5.90
http://search.cpan.org/~bingos/POE-Component-IRC-5.90/
a fully event-driven IRC client module.
----
POE-Component-Pluggable-1.12
http://search.cpan.org/~bingos/POE-Component-Pluggable-1.12/
A base class for creating plugin enabled POE Components.
----
POE-Component-Server-SimpleHTTP-1.53_03
http://search.cpan.org/~bingos/POE-Component-Server-SimpleHTTP-1.53_03/
Perl extension to serve HTTP requests in POE.
----
POE-Component-Server-SimpleSMTP-1.42
http://search.cpan.org/~bingos/POE-Component-Server-SimpleSMTP-1.42/
A simple to use POE SMTP Server.
----
POE-Filter-HTTP-Parser-0.02
http://search.cpan.org/~bingos/POE-Filter-HTTP-Parser-0.02/
A POE filter for HTTP based on HTTP::Parser
----
Parallel-Depend-3.05
http://search.cpan.org/~lembark/Parallel-Depend-3.05/
----
Parse-BooleanLogic-0.06
http://search.cpan.org/~ruz/Parse-BooleanLogic-0.06/
parser of boolean expressions
----
Roguelike-Utils-0.4.187
http://search.cpan.org/~earonesty/Roguelike-Utils-0.4.187/
----
Rose-Object-0.855
http://search.cpan.org/~jsiracusa/Rose-Object-0.855/
A simple object base class.
----
SVG-2.49
http://search.cpan.org/~ronan/SVG-2.49/
Perl extension for generating Scalable Vector Graphics (SVG) documents
----
SVG-GD-0.18
http://search.cpan.org/~ronan/SVG-GD-0.18/
----
SVN-Hooks-0.13.12
http://search.cpan.org/~gnustavo/SVN-Hooks-0.13.12/
A framework for implementing Subversion hooks.
----
Search-Tools-0.21
http://search.cpan.org/~karman/Search-Tools-0.21/
tools for building search applications
----
Set-Relation-0.0.1
http://search.cpan.org/~duncand/Set-Relation-0.0.1/
Relation data type for Perl
----
Simo-0.0402
http://search.cpan.org/~kimoto/Simo-0.0402/
Very simple framework for Object Oriented Perl.
----
Storable-AMF-0.42
http://search.cpan.org/~grian/Storable-AMF-0.42/
Perl extension for serialize/deserialize AMF0/AMF3 data
----
SystemPerl-1.310
http://search.cpan.org/~wsnyder/SystemPerl-1.310/
SystemPerl Language Extension to SystemC
----
Test-CallFlow-0.02
http://search.cpan.org/~korpiq/Test-CallFlow-0.02/
trivial planning of sub call flows for fast unit test writing.
----
Test-Weaken-1.001_000
http://search.cpan.org/~jkegl/Test-Weaken-1.001_000/
Test that freed references are, indeed, freed
----
Test-Weaken-1.001_004
http://search.cpan.org/~jkegl/Test-Weaken-1.001_004/
Test that freed references are, indeed, freed
----
Transform-Canvas-0.14
http://search.cpan.org/~ronan/Transform-Canvas-0.14/
Perl extension for performing Coordinate transformation operations from the cartesion to the traditional drawing-model canvas coordinate systems.
----
UMLS-Interface-0.13
http://search.cpan.org/~btmcinnes/UMLS-Interface-0.13/
Perl interface to the Unified Medical Language System (UMLS)
----
UMLS-Similarity-0.07
http://search.cpan.org/~btmcinnes/UMLS-Similarity-0.07/
This is a suite of Perl modules that implements a number of measures of semantic relatedness. These algorithms use the UMLS-Interface module to access the Unified Medical Language System (UMLS) to gen
----
WWW-Ebay-0.088
http://search.cpan.org/~mthurn/WWW-Ebay-0.088/
Search and manage eBay auctions
----
WWW-PDB-0.00_02
http://search.cpan.org/~miorel/WWW-PDB-0.00_02/
Perl interface to the Protein Data Bank
----
WWW-PDB-0.00_03
http://search.cpan.org/~miorel/WWW-PDB-0.00_03/
Perl interface to the Protein Data Bank
----
WWW-PivotalTracker-0.15
http://search.cpan.org/~jhelwig/WWW-PivotalTracker-0.15/
Functional interface to Pivotal Tracker <http://www.pivotaltracker.com/>
----
Working-Daemon-0.3
http://search.cpan.org/~abergman/Working-Daemon-0.3/
Perl extension for turning your script inta daemon.
----
XML-Tiny-1.12
http://search.cpan.org/~dcantrell/XML-Tiny-1.12/
simple lightweight parser for a subset of XML
----
p5-WWW-iTunesConnect-1.012
http://search.cpan.org/~bfoz/p5-WWW-iTunesConnect-1.012/
----
xcruciate-combined-007
http://search.cpan.org/~melonman/xcruciate-combined-007/
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 19:15:07 -0800 (PST)
From: cartercc <cartercc@gmail.com>
Subject: Re: on looking for work
Message-Id: <4fb38a80-c0ef-463a-9c83-bab60e46c396@17g2000vbf.googlegroups.com>
On Jan 22, 3:25 pm, Charlton Wilbur <cwil...@chromatico.net> wrote:
> Because the employer wants objectively demonstrated skills. Many
> programmers can't show a portfolio or code samples, and it's very
> difficult for soft-skilled HR types to tell the difference between a
> competent programmer and a competent scam artist.
Two brief war stories:
I interviewed for a sys admin position. During the course of the
interview, I told the interviewer (HR type) that I cut my sys admin
teeth on BSD. She had never heard of BSD, and when I told my bad BSD
joke ('Do you think it's a coincidence that BSD and LSD came from the
same place?') she thought I was making fun at her, which in fact I
was.
I interviewed for a Java position with an IT manager (EE background)
and went to considerable effort detailing a number of classes I had
developed for an application that I had written. When I finished, he
looked at me and asked me when I had taken the classes. This isn't a
joke, it really happened.
CC
------------------------------
Date: Fri, 23 Jan 2009 06:59:49 +0100
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: What do you need to have to be considered a Master at Perl?
Message-Id: <slrngnin6l.s0o.hjp-usenet2@hrunkner.hjp.at>
On 2009-01-21 18:05, Charlton Wilbur <cwilbur@chromatico.net> wrote:
>>>>>> "PJH" == Peter J Holzer <hjp-usenet2@hjp.at> writes:
> PJH> On 2009-01-20 22:13, Tad J McClellan <tadmc@seesig.invalid> wrote:
> >> Charlton Wilbur <cwilbur@chromatico.net> wrote:
> >>> One of my favorites:
> >>>
> >>> You have a string that comes from a freeform text field where
> >>> the user is expected to enter a telephone number.
> >>
> >> I sure hope that is restricted to "a US phone number"...
>
> PJH> And I hope it isn't. Local conventions for phone numbers,
> PJH> street addresses, etc. differ a lot, and software tends to be
> PJH> used outside that local context. Forcing a non-US customer to
> PJH> guess US conventions, or worse, rejecting a phone number
> PJH> because it has too many or too few digits is a major annoyance.
>
> Of course - but if we tried to get a candidate to write code to validate
> *any* phone number worldwide, it would take unreasonably long for an
> interview. And we'd need to have a considerably more extensive spec.
I don't think so. There are so many conventions that the spec probably
boils down to "optional (or maybe mandatory) '+', then a string of
numbers interspersed with a small set ([- /.()], any more?) of
reasonable punctuation characters (oh, and if there are parentheses,
they must match)". You really can't validate more than
that unless you know *all* conventions, and even if you do, one of them
might change next week.
> The question is useful because it's slightly open-ended, especially
> phrased that way.
I fully agree with that.
> Candidates who ask "Hm, are we matching US phone
> numbers or phone numbers from anywhere?" are showing that they are aware
> that the practices in the US are not universal, which is a very good
> trait to have when you're developing software that's used around the
> world.
I also agree with that.
> But it's an interview question aimed at assessing the candidate's
> fluency with regular expressions. Because of that, it helps to keep it
> in a domain that people are familiar with, both in terms of valid input
> (you can reasonably have both 7-digit and 10/11-digit US phone numbers)
> and in terms of what fool things people are likely to do (do they write
> the phone number 1 (617) 555-1212? 617.555.1212? 1-617-555-1212? is
> 16-17-5551-212 correct?)
But you didn't specify this problem domain. You just ask for "a telephone
number". In my opinion, a candidate who assumed (without asking for
clarification) that you meant "a US telephone number" should lose points
for that assumption, and not "pass with flying colors".
hp
------------------------------
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 2150
***************************************
