[30124] in Perl-Users-Digest
Perl-Users Digest, Issue: 1367 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Mar 18 15:06:48 2008
Date: Mon, 17 Mar 2008 06:09:05 -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 Mon, 17 Mar 2008 Volume: 11 Number: 1367
Today's topics:
Curses - how can I print the VT100 symbols such as ACS_ <grehom@ntlworld.com>
Re: FAQ 5.39 Why do I get weird spaces when I print an <abigail@abigail.be>
Re: FAQ 5.39 Why do I get weird spaces when I print an <benkasminbullock@gmail.com>
Re: FAQ 5.39 Why do I get weird spaces when I print an <uri@stemsystems.com>
Re: FAQ 6.5 How do I substitute case insensitively on t <achimpeters@gmx.de>
Re: Getting permissions using Win32::TieRegistry <XXjbhuntxx@white-star.com>
Re: HTML parsing <bik.mido@tiscalinet.it>
Inside-out objects are slow! (or how to accelerate OO P <koszalekopalek@interia.pl>
Re: Inside-out objects are slow! (or how to accelerate <michaelgang@gmail.com>
new CPAN modules on Mon Mar 17 2008 (Randal Schwartz)
Re: P~(ptilde) 0.9 released, new scripting language wit <bugbear@trim_papermule.co.uk_trim>
why is return always 0? <jameslockie@mail.com>
Re: why is return always 0? sandy_saydakov@yahoo.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 17 Mar 2008 03:30:29 -0700 (PDT)
From: Grehom <grehom@ntlworld.com>
Subject: Curses - how can I print the VT100 symbols such as ACS_DIAMOND and ACS_BULLET
Message-Id: <51f47204-54dc-4bfd-b458-36d5bb05a5b0@b1g2000hsg.googlegroups.com>
I am writing a application using the Curses module, and it's all
working nicely but I would like to be able to print some of the VT100
symbols such as ACS_DIAMOND and ACS_BULLET (as defined in /usr/
include/curses.h) to the screen, can anyone help. Example of the code
I have tried is:
#!/usr/bin/perl
use strict;
use warnings;
use Readonly;
use Curses;
Readonly my $NULL => q{};
initscr();
addstr(2, 2,"string ");
addstr(2, 9, ACS_DIAMOND);
refresh();
getch();
endwin();
But all it does is print a number 'string 4194400', thanks
------------------------------
Date: 17 Mar 2008 08:58:32 GMT
From: Abigail <abigail@abigail.be>
Subject: Re: FAQ 5.39 Why do I get weird spaces when I print an array of lines?
Message-Id: <slrnftsclo.onm.abigail@alexandra.abigail.be>
_
Ben Bullock (benkasminbullock@gmail.com) wrote on VCCCXI September
MCMXCIII in <URL:news:frk6bk$oqm$1@ml.accsnet.ne.jp>:
?? On Sun, 16 Mar 2008 06:03:03 -0700, PerlFAQ Server wrote:
??
?? > 5.39: Why do I get weird spaces when I print an array of lines?
?? >
?? > Saying
?? >
?? > print "@lines\n";
?? >
?? > joins together the elements of @lines with a space between them.
??
?? I recently learnt from a post here by Ben Morrow that it joins together
?? the elements of @lines with a $" between them:
??
?? ben ~ 502 $ perl -e '$"="bu";@ba=("bo","be");print "@ba\n";'
?? bobube
??
?? Shouldn't this FAQ entry mention $"?
No, it's a FAQ, not a reference guide.
People who set $" generally aren't surprised at having "weird spaces".
Abigail
--
srand 123456;$-=rand$_--=>@[[$-,$_]=@[[$_,$-]for(reverse+1..(@[=split
//=>"IGrACVGQ\x02GJCWVhP\x02PL\x02jNMP"));print+(map{$_^q^"^}@[),"\n"
------------------------------
Date: Sun, 16 Mar 2008 22:18:28 +0000 (UTC)
From: Ben Bullock <benkasminbullock@gmail.com>
Subject: Re: FAQ 5.39 Why do I get weird spaces when I print an array of lines?
Message-Id: <frk6bk$oqm$1@ml.accsnet.ne.jp>
On Sun, 16 Mar 2008 06:03:03 -0700, PerlFAQ Server wrote:
> 5.39: Why do I get weird spaces when I print an array of lines?
>
> Saying
>
> print "@lines\n";
>
> joins together the elements of @lines with a space between them.
I recently learnt from a post here by Ben Morrow that it joins together
the elements of @lines with a $" between them:
ben ~ 502 $ perl -e '$"="bu";@ba=("bo","be");print "@ba\n";'
bobube
Shouldn't this FAQ entry mention $"?
------------------------------
Date: Sun, 16 Mar 2008 22:49:32 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: FAQ 5.39 Why do I get weird spaces when I print an array of lines?
Message-Id: <x7ejaa708z.fsf@mail.sysarch.com>
>>>>> "BB" == Ben Bullock <benkasminbullock@gmail.com> writes:
BB> On Sun, 16 Mar 2008 06:03:03 -0700, PerlFAQ Server wrote:
>> 5.39: Why do I get weird spaces when I print an array of lines?
>>
>> Saying
>>
>> print "@lines\n";
>>
>> joins together the elements of @lines with a space between them.
BB> I recently learnt from a post here by Ben Morrow that it joins together
BB> the elements of @lines with a $" between them:
BB> ben ~ 502 $ perl -e '$"="bu";@ba=("bo","be");print "@ba\n";'
BB> bobube
BB> Shouldn't this FAQ entry mention $"?
technically you are correct but $" is rarely changed by newbies. its
default value is space so the FAQ addresses that issue. it could be
expanded to mention $" and perlvar but that may be too much info for a
simple FAQ answer.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Architecture, Development, Training, Support, Code Review ------
----------- Search or Offer Perl Jobs ----- http://jobs.perl.org ---------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Mon, 17 Mar 2008 11:31:10 +0100
From: Achim Peters <achimpeters@gmx.de>
Subject: Re: FAQ 6.5 How do I substitute case insensitively on the LHS while preserving case on the RHS?
Message-Id: <47DE486E.9060102@gmx.de>
PerlFAQ Server schrieb:
>
> 6.5: How do I substitute case insensitively on the LHS while preserving case on the RHS?
>
> And here it is as a subroutine, modeled after the above:
>
> sub preserve_case($$) {
> my ($old, $new) = @_;
> my $mask = uc $old ^ $old;
>
> uc $new | $mask .
> substr($mask, -1) x (length($new) - length($old))
> }
>
> $a = "this is a TEsT case";
I thought, $a should _NEVER_ be used as variable name, even not in
examples, except when in sorting context?
Bye
Achim
------------------------------
Date: Mon, 17 Mar 2008 03:26:48 GMT
From: Cosmic Cruizer <XXjbhuntxx@white-star.com>
Subject: Re: Getting permissions using Win32::TieRegistry
Message-Id: <Xns9A63CFFC82DF1ccruizermydejacom@207.115.17.102>
Thomas Kratz <ThomasKratz@REMOVEwebCAPS.de> wrote in news:47d7add6$0$2620
$bb690d87@news.main-rheiner.de:
> Cosmic Cruizer wrote:
>>
>> Thank you for the suggestion, but I'm not seeing how this will read the
>> permissions on a registry entry. It looks like it's geared towards file
>> permissions.
>
> To quote directly from the Readme:
>
> Currently the following objects are supported:
> files
> directories
> registry keys
> network shares
> printer shares
>
> Take a look at the example scripts, there are examples of getting and
> setting registry permissions.
>
> Thomas
>
Well Thomas... you're right, it does return the perms on the registry.
Thanks for suggestion.
Now all I need to do is to try and make heads-and-tails out of what's being
returned. But that will be for a different thread after I work with it a
bit.
------------------------------
Date: Sun, 16 Mar 2008 23:11:20 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: HTML parsing
Message-Id: <kl6rt39gaeqmqtq6aetnqqqao1i6okjlau@4ax.com>
On Sun, 16 Mar 2008 20:21:12 +0100, "Petr Vileta"
<stoupa@practisoft.cz> wrote:
>> As has been mentioned many, many times in this NG: if you want to
>> parse HTML then use an HTML parser.
>You are right when HTML page are valid, but on not valid pages Parser fail.
>The HTML code bellow work for most browsers but Parser fail on it.
^^^^^^
^^^^^^
I don't know of a single module called Parser, so it's hard to trust
your claim and in any case you should give evidence about it with an
example of the *real* module you're thinking of failing on your HTML
example.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Mon, 17 Mar 2008 00:44:41 -0700 (PDT)
From: Koszalek Opalek <koszalekopalek@interia.pl>
Subject: Inside-out objects are slow! (or how to accelerate OO Perl?)
Message-Id: <9090114f-7541-4e6d-ba01-5ba62fe2dd40@13g2000hsb.googlegroups.com>
I was about to redesign my class to use inside-out objects.
I was hoping that except for a cleaner design it will also result in
some performance boost.
(I thought that 10 hashes with approx. 1000 keys will be faster than
1000 hashes with 10 keys.)
However, a simple experiment reveals that the opposite is true.
Inside-out objects are approximately 3 times slower in this example --
and it gets worse as the number of object grows.
bash-3.2$ time ./makeregularobj.pl
real 0m0.156s
user 0m0.093s
sys 0m0.000s
bash-3.2$ time ./makeinsideoutobj.pl
real 0m0.437s
user 0m0.358s
sys 0m0.015s
I attach the two files below. Any comments?
Apart from inside-out objects what other techniques could be used to
accelerate OO Perl?
I looked at the fields module but it has been removed from Perl 5.10.
#------ makeregularobj.pl
#!/usr/bin/perl
use strict;
my $no_obj = $ARGV[0] || 10_000;
{
package P;
sub new
{
my $_class = shift;
my %self;
$self{field0}++;
$self{field1}++;
$self{field2}++;
$self{field3}++;
$self{field4}++;
$self{field5}++;
$self{field6}++;
$self{field7}++;
$self{field8}++;
$self{field9}++;
bless \%self, $_class;
}
};
my @objs;
for (1 .. $no_obj) {
push @objs, P->new();
};
print "Created $no_obj objects (blessed hashes), data stored in ten
fields inside a hash.\n";
#------ makeinsideoutobj.pl
#!/usr/bin/perl
use strict;
my $no_obj = $ARGV[0] || 10_000;
{
my %field0;
my %field1;
my %field2;
my %field3;
my %field4;
my %field5;
my %field6;
my %field7;
my %field8;
my %field9;
{
package P;
sub new
{
my $_class = shift;
my $self = 1;
$field0{\$self}++;
$field1{\$self}++;
$field2{\$self}++;
$field3{\$self}++;
$field4{\$self}++;
$field5{\$self}++;
$field6{\$self}++;
$field7{\$self}++;
$field8{\$self}++;
$field9{\$self}++;
bless \$self, $_class;
};
};
};
P->import();
my @objs;
for (1 .. $no_obj) {
push @objs, P->new();
};
print "Created $no_obj objects (blessed scalars), data stored in ten
inside-out hashes\n";
------------------------------
Date: Mon, 17 Mar 2008 01:41:20 -0700 (PDT)
From: david <michaelgang@gmail.com>
Subject: Re: Inside-out objects are slow! (or how to accelerate OO Perl?)
Message-Id: <4f284ec2-15a0-4dd6-b6b1-49c44f5e4c10@q78g2000hsh.googlegroups.com>
On Mar 17, 9:44 am, Koszalek Opalek <koszalekopa...@interia.pl> wrote:
> I was about to redesign my class to use inside-out objects.
> I was hoping that except for a cleaner design it will also result in
> some performance boost.
> (I thought that 10 hashes with approx. 1000 keys will be faster than
> 1000 hashes with 10 keys.)
>
> However, a simple experiment reveals that the opposite is true.
> Inside-out objects are approximately 3 times slower in this example --
> and it gets worse as the number of object grows.
>
> bash-3.2$ time ./makeregularobj.pl
> real 0m0.156s
> user 0m0.093s
> sys 0m0.000s
>
> bash-3.2$ time ./makeinsideoutobj.pl
> real 0m0.437s
> user 0m0.358s
> sys 0m0.015s
>
> I attach the two files below. Any comments?
>
> Apart from inside-out objects what other techniques could be used to
> accelerate OO Perl?
> I looked at the fields module but it has been removed from Perl 5.10.
>
> #------ makeregularobj.pl
>
> #!/usr/bin/perl
> use strict;
>
> my $no_obj = $ARGV[0] || 10_000;
>
> {
> package P;
>
> sub new
> {
> my $_class = shift;
>
> my %self;
>
> $self{field0}++;
> $self{field1}++;
> $self{field2}++;
> $self{field3}++;
> $self{field4}++;
> $self{field5}++;
> $self{field6}++;
> $self{field7}++;
> $self{field8}++;
> $self{field9}++;
> bless \%self, $_class;
>
> }
> };
>
> my @objs;
> for (1 .. $no_obj) {
> push @objs, P->new();
>
> };
>
> print "Created $no_obj objects (blessed hashes), data stored in ten
> fields inside a hash.\n";
>
> #------ makeinsideoutobj.pl
> #!/usr/bin/perl
> use strict;
>
> my $no_obj = $ARGV[0] || 10_000;
>
> {
> my %field0;
> my %field1;
> my %field2;
> my %field3;
> my %field4;
> my %field5;
> my %field6;
> my %field7;
> my %field8;
> my %field9;
> {
> package P;
>
> sub new
> {
> my $_class = shift;
>
> my $self = 1;
>
> $field0{\$self}++;
> $field1{\$self}++;
> $field2{\$self}++;
> $field3{\$self}++;
> $field4{\$self}++;
> $field5{\$self}++;
> $field6{\$self}++;
> $field7{\$self}++;
> $field8{\$self}++;
> $field9{\$self}++;
> bless \$self, $_class;
>
> };
> };
> };
>
> P->import();
>
> my @objs;
> for (1 .. $no_obj) {
> push @objs, P->new();
>
> };
>
> print "Created $no_obj objects (blessed scalars), data stored in ten
> inside-out hashes\n";
I think that the point of inside-out objects is not to make OO safer
and not faster, The real question is why do you need to make perl oo
faster. In most cases it is fast enough. There are pathological cases
where you have to construct billions of objects. In this case you may
choose a non oo solution (This is also true for compiled languages).
The most important lesson I learned as programmer is "don;t optimize,
profile". It can be that the bottle neck is in a place you never
thought.
Best regards,
David
P.S. In insisde out object you have to write a destructor to clean the
hashes
------------------------------
Date: Mon, 17 Mar 2008 04:42:19 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Mon Mar 17 2008
Message-Id: <JxuyEJ.1vGo@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.
Algorithm-LBFGS-0.172
http://search.cpan.org/~laye/Algorithm-LBFGS-0.172/
Perl extension for L-BFGS
----
CDB_Perl-0.52
http://search.cpan.org/~plank/CDB_Perl-0.52/
Perl extension for reading and creating CDB files
----
CPAN-1.92_59
http://search.cpan.org/~andk/CPAN-1.92_59/
query, download and build perl modules from CPAN sites
----
CPAN-LinksToDocs-No404s-0.003
http://search.cpan.org/~zoffix/CPAN-LinksToDocs-No404s-0.003/
get links to http://search.cpan.org documentation by giving short "tags" and make sure all of them point to existant documentation
----
CPAN-LinksToDocs-No404s-Remember-0.001
http://search.cpan.org/~zoffix/CPAN-LinksToDocs-No404s-Remember-0.001/
same as CPAN::LinksToDocs::No404s with persistent storage of working links in SQLite database
----
CPAN-Test-Dummy-Perl5-Make-Features-1.00
http://search.cpan.org/~andk/CPAN-Test-Dummy-Perl5-Make-Features-1.00/
CPAN Test Dummy
----
CPAN-Test-Dummy-Perl5-Make-Features-1.01
http://search.cpan.org/~andk/CPAN-Test-Dummy-Perl5-Make-Features-1.01/
CPAN Test Dummy
----
CPAN-Test-Dummy-Perl5-Make-Features-1.02
http://search.cpan.org/~andk/CPAN-Test-Dummy-Perl5-Make-Features-1.02/
CPAN Test Dummy
----
Enumeration-0.01
http://search.cpan.org/~roode/Enumeration-0.01/
Yet Another enumeration class implementation.
----
Etk-Perl-0.09
http://search.cpan.org/~leviathan/Etk-Perl-0.09/
----
Finance-PremiumBonds-0.02
http://search.cpan.org/~bigpresh/Finance-PremiumBonds-0.02/
Perl extension to check Premium Bond holder's numbers
----
Form-Processor-Model-DBIC-0.03
http://search.cpan.org/~gshank/Form-Processor-Model-DBIC-0.03/
Model class for Form Processor using DBIx::Class
----
Fuse-0.09_2
http://search.cpan.org/~dpavlin/Fuse-0.09_2/
write filesystems in Perl using FUSE
----
GIS-Distance-0.02
http://search.cpan.org/~bluefeet/GIS-Distance-0.02/
Calculate geographic distances.
----
GIS-Distance-Fast-0.01
http://search.cpan.org/~bluefeet/GIS-Distance-Fast-0.01/
C implementation of GIS::Distance formulas.
----
GStreamer-0.10
http://search.cpan.org/~tsch/GStreamer-0.10/
Perl interface to the GStreamer library
----
GStreamer-Interfaces-0.04
http://search.cpan.org/~tsch/GStreamer-Interfaces-0.04/
Perl interface to the GStreamer Interfaces library
----
Gaim-Log-Parser-0.13
http://search.cpan.org/~mschilli/Gaim-Log-Parser-0.13/
Parse Gaim's Log Files
----
Gnome2-Wnck-0.16
http://search.cpan.org/~tsch/Gnome2-Wnck-0.16/
Perl interface to the Window Navigator Construction Kit
----
Graph-Easy-0.61
http://search.cpan.org/~tels/Graph-Easy-0.61/
Render graphs as ASCII, HTML, SVG or via Graphviz
----
HTML-Perlinfo-1.48
http://search.cpan.org/~accardo/HTML-Perlinfo-1.48/
Display a lot of Perl information in HTML format
----
HTTP-Server-Simple-0.31
http://search.cpan.org/~jesse/HTTP-Server-Simple-0.31/
Lightweight HTTP server
----
Krb5-1.8
http://search.cpan.org/~jhorwitz/Krb5-1.8/
Perl extension for Kerberos 5
----
LWP-UserAgent-Proxify-0.001
http://search.cpan.org/~zoffix/LWP-UserAgent-Proxify-0.001/
LWP::UserAgent with proxi-hopping
----
LWP-UserAgent-ProxifyBase-0.001
http://search.cpan.org/~zoffix/LWP-UserAgent-ProxifyBase-0.001/
base class for LWP::UserAgent based modules which want to proxy-hop their requests
----
LWP-UserAgent-ProxifyBase-0.002
http://search.cpan.org/~zoffix/LWP-UserAgent-ProxifyBase-0.002/
base class for LWP::UserAgent based modules which want to proxy-hop their requests
----
MIME-EncWords-1.005
http://search.cpan.org/~nezumi/MIME-EncWords-1.005/
deal with RFC 2047 encoded words (improved)
----
Makefile-GraphViz-0.17
http://search.cpan.org/~agent/Makefile-GraphViz-0.17/
Draw building flowcharts from Makefiles using GraphViz
----
Makefile-Parser-0.210
http://search.cpan.org/~agent/Makefile-Parser-0.210/
A simple parser for Makefiles
----
Makefile-Parser-0.211
http://search.cpan.org/~agent/Makefile-Parser-0.211/
A simple parser for Makefiles
----
Module-Pluggable-3.8
http://search.cpan.org/~simonw/Module-Pluggable-3.8/
automatically give your module the ability to have plugins
----
Net-Sieve-0.01
http://search.cpan.org/~yvesago/Net-Sieve-0.01/
Implementation of managesieve protocol to manage sieve scripts
----
Net-Sieve-Script-0.03
http://search.cpan.org/~yvesago/Net-Sieve-Script-0.03/
parse and write sieve scripts
----
Net-Twitter-1.09
http://search.cpan.org/~cthom/Net-Twitter-1.09/
Perl interface to twitter.com
----
OpenResty-0.1.6
http://search.cpan.org/~agent/OpenResty-0.1.6/
General-purpose web service platform for web applications
----
PHP-DateTime-0.04
http://search.cpan.org/~bluefeet/PHP-DateTime-0.04/
Clone of PHP's date and time functions.
----
Parallel-SubFork-0.05
http://search.cpan.org/~potyl/Parallel-SubFork-0.05/
Manage Perl functions in forked processes.
----
Passwd-Unix-0.01
http://search.cpan.org/~strzelec/Passwd-Unix-0.01/
----
RPSL-0.27
http://search.cpan.org/~lmc/RPSL-0.27/
Router Policy Specification Language
----
RPSL-Parser-0.29
http://search.cpan.org/~lmc/RPSL-Parser-0.29/
Router Policy Specification Language (RFC2622) Parser
----
RPSL-Parser-0.32
http://search.cpan.org/~lmc/RPSL-Parser-0.32/
Router Policy Specification Language (RFC2622) Parser
----
RiveScript-1.12b
http://search.cpan.org/~kirsle/RiveScript-1.12b/
Rendering Intelligence Very Easily
----
Rose-DBx-Object-Loader-FormMaker-0.03
http://search.cpan.org/~aprime/Rose-DBx-Object-Loader-FormMaker-0.03/
Automatically create RHTMLO Forms with the RDBO Loader
----
SMS-Send-TW-HiAir-0.01
http://search.cpan.org/~snowfly/SMS-Send-TW-HiAir-0.01/
SMS::Send driver for hiair.hinet.net
----
TCC-0.02
http://search.cpan.org/~hamano/TCC-0.02/
Perl extension for TCC
----
Text-Editor-Easy-0.1
http://search.cpan.org/~grommier/Text-Editor-Easy-0.1/
A perl module to edit perl code with syntax highlighting and more.
----
Text-Markdown-1.0.17
http://search.cpan.org/~bobtfish/Text-Markdown-1.0.17/
Convert Markdown syntax to (X)HTML
----
Text-RewriteRules-0.12
http://search.cpan.org/~ambs/Text-RewriteRules-0.12/
A system to rewrite text using regexp-based rules
----
Text-vCard-2.03
http://search.cpan.org/~llap/Text-vCard-2.03/
a package to edit and create a single vCard (RFC 2426)
----
Tk-GraphItems-0.12
http://search.cpan.org/~lamprecht/Tk-GraphItems-0.12/
Display relation-graphs on a Tk::Canvas
----
Tk-Pod-0.9938_50
http://search.cpan.org/~srezic/Tk-Pod-0.9938_50/
Pod browser toplevel widget
----
WWW-FreeProxyListsCom-0.001
http://search.cpan.org/~zoffix/WWW-FreeProxyListsCom-0.001/
get proxy lists from http://www.freeproxylists.com
----
WWW-FreeProxyListsCom-0.002
http://search.cpan.org/~zoffix/WWW-FreeProxyListsCom-0.002/
get proxy lists from http://www.freeproxylists.com
----
WWW-ProxyChecker-0.002
http://search.cpan.org/~zoffix/WWW-ProxyChecker-0.002/
check whether or not proxy servers are alive
----
WWW-Spinn3r-2.00100303
http://search.cpan.org/~vipul/WWW-Spinn3r-2.00100303/
An interface to the Spinn3r API (http://www.spinn3r.com)
----
WWW-Spinn3r-2.00100304
http://search.cpan.org/~vipul/WWW-Spinn3r-2.00100304/
An interface to the Spinn3r API (http://www.spinn3r.com)
----
WWW-YahooJapan-KanaAddress-0.1.2
http://search.cpan.org/~hiratara/WWW-YahooJapan-KanaAddress-0.1.2/
translating the address in Japan into kana.
----
WordNet-SenseRelate-AllWords-0.07
http://search.cpan.org/~tpederse/WordNet-SenseRelate-AllWords-0.07/
perform Word Sense Disambiguation
----
WordNet-SenseRelate-Allwords
http://search.cpan.org/~tpederse/WordNet-SenseRelate-Allwords/
----
X11-Aosd-0.02
http://search.cpan.org/~jred/X11-Aosd-0.02/
libaosd binding for Cairo powered on screen display
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Mon, 17 Mar 2008 10:20:24 +0000
From: bugbear <bugbear@trim_papermule.co.uk_trim>
Subject: Re: P~(ptilde) 0.9 released, new scripting language with novel regex
Message-Id: <13tshhbnq477i6e@corp.supernews.com>
ptilderegex wrote:
> On Mar 15, 9:52 am, brian d foy <brian.d....@gmail.com> wrote:
>> In article
>> <f8b25af9-ff95-40e3-8457-1ebec32ee...@d45g2000hsc.googlegroups.com>,
>>
>> ptilderegex <ptildere...@gmail.com> wrote:
>>>> Perhaps you can list a couple of examples. People in this newsgroup
>>>> love showing others how easy it is to get things done with regular
>>>> expressions. :)
>>> A simple example: lets say that in Perl you have a regex but you don't
>>> know what it is. Its held in a string passed by some function and
>>> needs to be a parameter. Now, you want to strip everything but what
>>> matches each time. Or better yet, output what does match to one
>>> stream, and output what doesn't match to another (in one pass).
>> It sounds like most of your problem has little to do with regular
>> expressions and more to do with I/O management.
>>
>> while( <$fh> )
>> {
>> if( m/$regex/ ) { print $out "$`$'"; print $out2 $& }
>> else { print $out }
>> }
>
> The point of Ptilde is that you can do these complex stream
> transformations of any kind at all in one regex pass. What you've got
> above is a while loop, not a single regex pass.
You say that as if it's a bad thing.
BugBear
------------------------------
Date: Sun, 16 Mar 2008 17:45:08 -0700 (PDT)
From: jammer <jameslockie@mail.com>
Subject: why is return always 0?
Message-Id: <d6300037-556d-4aa1-acd2-fea1e845c1e7@s37g2000prg.googlegroups.com>
How do I make tftp fail if the host is bad?
my $rc = system( "/usr/bin/tftp bad$host < $tempFile 2>&1 >/
dev/null" );
if ( $rc != 0 ) {
print "unable to tftp to '$host'\n";
exit 1;
} else {
print "success: $rc\n";
}
------------------------------
Date: Sun, 16 Mar 2008 18:10:28 -0700 (PDT)
From: sandy_saydakov@yahoo.com
Subject: Re: why is return always 0?
Message-Id: <f4cb9394-b37d-4fde-941a-3ac3524b1826@d21g2000prf.googlegroups.com>
On 16 Mar, 17:45, jammer <jamesloc...@mail.com> wrote:
> How do I make tftp fail if the host is bad?
>
> my $rc = system( "/usr/bin/tftp bad$host < $tempFile 2>&1 >/dev/null" );
> if ( $rc != 0 ) {
> print "unable to tftp to '$host'\n";
> exit 1;
> } else {
> print "success: $rc\n";
> }
Make sure the binary returns non-zero on failure. Try that command on
the command line and do "echo $?" right after.
-sandy
http://myperlquiz.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 1367
***************************************
