[30728] in Perl-Users-Digest
Perl-Users Digest, Issue: 1973 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Nov 9 16:09:46 2008
Date: Sun, 9 Nov 2008 13:09:09 -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 Sun, 9 Nov 2008 Volume: 11 Number: 1973
Today's topics:
Re: [OT]: maximum memory sln@netherlands.com
Re: [OT]: maximum memory <nospam-abuse@ilyaz.org>
Re: determine when to change to or from daylight saving <rvtol+news@isolution.nl>
Re: Help: How can I parse this properties file? <rvtol+news@isolution.nl>
Re: Help: How can I parse this properties file? <tadmc@seesig.invalid>
Re: Help: How can I parse this properties file? <rvtol+news@isolution.nl>
Re: Help: How can I parse this properties file? sln@netherlands.com
interfacing with Perl script <ela@yantai.org>
new CPAN modules on Sun Nov 9 2008 (Randal Schwartz)
Re: python feature in perl? <whynot@pozharski.name>
Re: SUBSTR() with replacement or lvalue performance iss sln@netherlands.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 09 Nov 2008 17:14:16 GMT
From: sln@netherlands.com
Subject: Re: [OT]: maximum memory
Message-Id: <1i6eh4d6cc5co31mahlqtkdehruqalrvl5@4ax.com>
On Sat, 8 Nov 2008 23:54:47 +0000 (UTC), Ilya Zakharevich <nospam-abuse@ilyaz.org> wrote:
>[A complimentary Cc of this posting was NOT [per weedlist] sent to
>Peter J. Holzer
><hjp-usenet2@hjp.at>], who wrote in article <slrnghb1ut.chg.hjp-usenet2@hrunkner.hjp.at>:
>> On 2008-11-05 21:13, Ilya Zakharevich <nospam-abuse@ilyaz.org> wrote:
>> ><hjp-usenet2@hjp.at>], who wrote in article <slrngh39kn.819.hjp-usenet2@hrunkner.hjp.at>:
>> >> For 64-bit processes the limit is theoretically 16 Exabytes, but that's
>> >> well beyond the capabilities of current hardware.
>> >
>> > ??? Well *within* capabilities of current hardware. One ethernet
>> > card, and you have *a possibility* of unlimited (read: limited only by
>> > software) expansion of available disk space; which may be
>> > memory-mapped.
>>
>> Last time I looked there was no processor which would actually use all
>> 64 bits in the MMU. The usable number of bits is typically somewhere
>> between 36 and 48, which limits the usable virtual memory (including
>> memory-mapped files, etc.) to 2^36 to 2^48 bytes.
>
>So, IIUC, I misinterpreted your remark. I thought that you say that
>currently, one can't get enough MEMORY to overflow 64bit. And now you
>say that one can't get enough MEMORY ADDRESS SPACE to overflow 64bit.
>
>> > So it is a question of money only.
>
>> If you have enough money to develop a new MMU for your CPU, you are
>> right ;-).
>
>About 10 years ago I looked through notes for a hardware design 101
>class, and one of the first homeworks was to design a MMU, simple, but
>good enough to bootstrap a processor via (a hard disk/whatever)
>sitting on a bus. They needed to catch memory accesses to a segment
>in memory, and translate them to bus access commands; and I think the
>requirement was to design this in terms of discrete components
>(transistors). So IIRC, I think even I have enough money for such a
>design. ;-)
>
>Yours,
>Ilya
>
>P.S. Thinking about it more: the price estimate I gave is in ballpark
> of a price of a particle physics detector (LHC, Tevatron).
> Given that current design is to through away 99.99999% (or
> whatever) of information as early as possible, any money spent
> on larger storage and memory throughput has a probability to
> improve a chance the data from experiments may be (later) used
> for unrelated purposes...
>
>P.P.S. I tried to imagine other scenarios which may quickly produce
> much more than 2^64 bytes of info. First I thought of LLST
> (https://www.llnl.gov/str/November05/Brase.html), but it is
> only 2^55 B/year. The only other "realistic" scenario I found
> is a very anxious bigbrother: a "good" video camera (I'm
> thinking about IMAX-like quality, 4K x 3K x 3 x 50p; maybe not
> available this year, but RSN) can easily saturate 10Gb-BASE
> connection (in RAW stream with minimal compression).
>
> So if London authorities decide to replace their spycams by
> such beasts, AND would like to preserve RAW streams, they
> would generate 10TB/sec. This is 25e18 B/month, which is
> >2^64 B/month. Viva the bigbrother!
I think this falls under the category of navel research
sln
------------------------------
Date: Sun, 9 Nov 2008 18:48:01 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: [OT]: maximum memory
Message-Id: <gf7b91$2vdc$1@agate.berkeley.edu>
[A complimentary Cc of this posting was sent to
<sln@netherlands.com>], who wrote in article <1i6eh4d6cc5co31mahlqtkdehruqalrvl5@4ax.com>:
> > is a very anxious bigbrother: a "good" video camera (I'm
> > thinking about IMAX-like quality, 4K x 3K x 3 x 50p; maybe not
> > available this year, but RSN) can easily saturate 10Gb-BASE
> > connection (in RAW stream with minimal compression).
> I think this falls under the category of navel research
Hmm, all navel researches I saw were done in (super?) 35mm; never in
(15-sprocket) IMAX format. Do you have some particular in mind?
Yours,
Ilya
------------------------------
Date: Sun, 9 Nov 2008 11:27:07 +0100
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: determine when to change to or from daylight savings time
Message-Id: <gf6hhe.m4.1@news.isolution.nl>
Ted Byers schreef:
> Dr.Ruud:
>> Peter Wyzl:
>>> but is there some 'authorative source' of what all the different
>>> timezones are and the daylight times for those zones and when they
>>> switch back and forth?
>>
>> I use DateTime::TimeZone which uses Olson. Good enough for
>> me.http://search.cpan.org/search?query=timezone&mode=module
>
> I have downloaded the Olson timezone data, and executed the script
> "parse-olson.pl". It created a directory called lib that contains the
> timezone data transformed into *.pm files in a number of directories.
> I have perl installed in C:\Perl. Do I just copy the files and
> folders created by parse_olson.pl into C:\Perl\site, over-writing
> what's already there?
I have no clue what you are trying to achieve, or rather mess up, so I
can't anwer that question.
But if you want to install specific Perl modules on a Windows system in
a clean way, just use the latest ActiveState or the Vanilla Perl tools.
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Sun, 9 Nov 2008 11:35:05 +0100
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: Help: How can I parse this properties file?
Message-Id: <gf6i48.m4.1@news.isolution.nl>
Tad J McClellan schreef:
> if ( $line =~ /(\\+)$/ and length($1) % 2 )
> { print "yes\n" }
> else
> { print "no\n" }
> }
/(?<!\\)(?:\\\\)*\\$/
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Sun, 9 Nov 2008 06:31:45 -0600
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: Help: How can I parse this properties file?
Message-Id: <slrnghdm1h.71h.tadmc@tadmc30.sbcglobal.net>
Dr.Ruud <rvtol+news@isolution.nl> wrote:
> Tad J McClellan schreef:
>
>> if ( $line =~ /(\\+)$/ and length($1) % 2 )
>> { print "yes\n" }
>> else
>> { print "no\n" }
>> }
>
> /(?<!\\)(?:\\\\)*\\$/
Which one do you want to figure out after not having
seen this program for six months?
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Sun, 9 Nov 2008 14:19:06 +0100
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: Help: How can I parse this properties file?
Message-Id: <gf6rkr.m4.1@news.isolution.nl>
Tad J McClellan schreef:
> Dr.Ruud:
>> Tad J McClellan:
>>> if ( $line =~ /(\\+)$/ and length($1) % 2 )
>>> { print "yes\n" }
>>> else
>>> { print "no\n" }
>>> }
>>
>> /(?<!\\)(?:\\\\)*\\$/
>
> Which one do you want to figure out after not having
> seen this program for six months?
Probably this one:
# even number of trailing slashes
print /(?<!\\)(?:\\\\)*$/ ? "no" : "yes";
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Sun, 09 Nov 2008 16:38:44 GMT
From: sln@netherlands.com
Subject: Re: Help: How can I parse this properties file?
Message-Id: <7b4eh4dn4oo26r7a4untn8bi8mf6osa2is@4ax.com>
On Sat, 08 Nov 2008 18:38:16 GMT, sln@netherlands.com wrote:
>On Fri, 7 Nov 2008 19:55:48 -0800 (PST), "yuanyun.ken" <yuanyun.ken@gmail.com> wrote:
>
>>Thanks for all the reply. and this problem has been solved.
>>but sorry for my poor understanding on regex, and having to trouble
>>you again,
>>here I have another little problem:
>>if the content ends with a real single backslash, I need read in the
>>next line.
>>
>>How to use regex to do this?
>>for example:
>>line ends with match
>>\ yes
>>\\ no
>>\\\ yes
>>\\\\ no
>>Thanks for any help again.
>
>I assume this pertains to the rules set out on the properties
>in the original problem statement.
>
>Tad's solution to check then end for 'odd' number of '\' works best
>for a line continuation.
>
>Be very cautious!! If you are trying to find a way to fix random
>line splits when this file was generated, there is absolutely
>NO solution available to you at all !!!
>The reason is you already have escaping rules in place
>
>The line split must be intelligently constucted in that only
>an odd number of '\' at the end will determine line continuation.
>And at the same time be used in the general escaping rules after
>it is joined.
>
>You can't just add a '\' where you would like to split the line then
>remove it later without counting the existing escapes at the end.
>Either way it takes intelligence to construct the file given the
>existing escaping rules you laid out for yourself.
>
>Notice the places where the split occurs in DATA below..
>Even if you had an intelligent generator that splits the
>line on a '\', it could still split on an even boundry.
>Or say it adds a complement to make the split odd, still,
>even then, the original can not be guaranteed to reassemble
>because this conflicts with the original escape logic..
>
>There is no solution then!
>
>
>sln
>
>use strict;
>use warnings;
>
># ** Original
># expression means: key value
># a=b=c a b=c
># a\=b=c a=b c
># a\\=b=c a\ b=c
># a\\\=b=c a\=b c
>
># ** Output
># a=b=c a b=c
># a\=b=c a=b c
># a\\=b=c a\ b=c
># a\\\=b=c a\=b c
># a\\\\=b=c a\\ b=c
># a\\\=b\\=c a\=b\ c
># a\\=b\\=c a\ b\=c
># a=b=c a b=c
># a\=b=c a=b c
># a\\=b=c a\ b=c
># a\\\=b=c a\=b c
># a\\\\=b=c a\\ b=c
># a\\\=b\\=c a\=b\ c
># a\\=b\\=c a\ b\=c
>
>
>
>my $buf = '';
>
>print "\nexpression means:\tkey\tvalue\n";
>
>foreach ( <DATA> ) {
> chomp;
> $_ = $buf . $_;
>
> if ( /(\\+)$/ and length($1) % 2 ) {
> # wouldn't want to do this -> s/\\$//;
> $buf .= $_; # cat this line to buffer
^^^^^^^^^^^
$buf = $_; # asign to buffer
# see what happens whey you don't test
> next; # read next line
> }
> if (/^((?:(?:\\.)*?|.*?)+)=(.*)$/) {
> # unescape built in sequences
> my ($key, $val) = ($1,$2);
> $key =~ s/\\(.)/$1/g;
> $val =~ s/\\(.)/$1/g;
> printf "%-20s\t%s\t%s\n", $_, $key, $val;
> }
> $buf = '';
>}
>
>__DATA__
>
># no line splits
>a=b=c
>a\=b=c
>a\\=b=c
>a\\\=b=c
>a\\\\=b=c
>a\\\=b\\=c
>a\\=b\\=c
>
># ok line splits
>a=b=c
>a\
>=b=c
>a\
>\=b=c
>a\\\
>=b=c
>a\\\
>\=b=c
>a\\\=b\
>\=c
>a\\=b\
>\=c
>
>#some good/bad line splits
>a=b=c
>a\
>=b=c
>a\\
>=b=c
>a\\\
>=b=c
>a\\\\
>=b=c
>a\\\
>=b\\=c
>a\\=b\\
>=c
------------------------------
Date: Sun, 9 Nov 2008 18:18:19 +0800
From: "ela" <ela@yantai.org>
Subject: interfacing with Perl script
Message-Id: <gf6dd9$c70$1@ijustice.itsc.cuhk.edu.hk>
As I have written a perl script so no need to reinvent the wheel but can
anybody suggest me how to interface?
#!/bin/sh
for (( i = 1 ; i <= 19; i++ ))
do
ref=$i;
while [ "$*" != "" ]
do
input="$input $indir/$1/sff/*.sff ";
shift
done
runprog $ref $input
#
based on the generated file & takes the statistics on it
$numarray="perl $ref.output";
done
#
print the statistics into a file
print OUTFP $numarray;
e.g.
file 1
66\t38\n
61\t33\n
87\t20\n
file 2
...
then I'll use excel to plot a graph
#
------------------------------
Date: Sun, 9 Nov 2008 05:42:23 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Sun Nov 9 2008
Message-Id: <KA1x6n.vG1@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.
Alien-GvaScript-1.10
http://search.cpan.org/~dami/Alien-GvaScript-1.10/
Gva extension to the prototype javascript framework
----
Apache-Bootstrap-0.04_02
http://search.cpan.org/~phred/Apache-Bootstrap-0.04_02/
Bootstraps dual life mod_perl1 and mod_perl2 Apache
----
Apache2-ASP-2.00_19
http://search.cpan.org/~johnd/Apache2-ASP-2.00_19/
ASP for Perl, reloaded.
----
Apache2-ASP-2.00_20
http://search.cpan.org/~johnd/Apache2-ASP-2.00_20/
ASP for Perl, reloaded.
----
App-Build-0.72
http://search.cpan.org/~mbarbon/App-Build-0.72/
extends Module::Build to build/install/configure entire
----
App-ZofCMS-0.0108
http://search.cpan.org/~zoffix/App-ZofCMS-0.0108/
web framework and templating system for small-medium
----
Audio-FLAC-Header-2.3
http://search.cpan.org/~daniel/Audio-FLAC-Header-2.3/
interface to FLAC header metadata.
----
B-Hooks-OP-Check-0.13
http://search.cpan.org/~flora/B-Hooks-OP-Check-0.13/
Wrap OP check callbacks
----
Bot-BasicBot-Pluggable-Module-GoodBad-0.01_01
http://search.cpan.org/~kitano/Bot-BasicBot-Pluggable-Module-GoodBad-0.01_01/
----
Bot-BasicBot-Pluggable-WithConfig-0.01
http://search.cpan.org/~kitano/Bot-BasicBot-Pluggable-WithConfig-0.01/
initialize bot instance with YAML
----
Catalyst-Helper-Model-Email-0.01
http://search.cpan.org/~teddy/Catalyst-Helper-Model-Email-0.01/
Helper for Mail::Builder::Simple
----
Catalyst-Helper-Model-Email-0.02
http://search.cpan.org/~teddy/Catalyst-Helper-Model-Email-0.02/
Helper for Mail::Builder::Simple
----
Catalyst-Plugin-HashedCookies-1.01
http://search.cpan.org/~oliver/Catalyst-Plugin-HashedCookies-1.01/
Tamper-resistant HTTP Cookies
----
Class-Accessor-Fast-Contained-1.01
http://search.cpan.org/~oliver/Class-Accessor-Fast-Contained-1.01/
Fast accessors with data containment
----
Coro-4.9
http://search.cpan.org/~mlehmann/Coro-4.9/
coroutine process abstraction
----
DBD-Mock-1.38
http://search.cpan.org/~drolsky/DBD-Mock-1.38/
Mock database driver for testing
----
DBIx-Class-IntrospectableM2M-0.001000
http://search.cpan.org/~groditi/DBIx-Class-IntrospectableM2M-0.001000/
Introspect many-to-many shortcuts
----
DBIx-Perlish-0.46
http://search.cpan.org/~gruber/DBIx-Perlish-0.46/
a perlish interface to SQL databases
----
DateTime-TimeZone-0.8301
http://search.cpan.org/~drolsky/DateTime-TimeZone-0.8301/
Time zone object base class and factory
----
Devel-REPL-Plugin-NAS-0.0701
http://search.cpan.org/~oliver/Devel-REPL-Plugin-NAS-0.0701/
Add Perl to your network devices' command
----
Dist-Release-0.0_1
http://search.cpan.org/~yanick/Dist-Release-0.0_1/
manage the process of releasing a module
----
DustyDB-0.03
http://search.cpan.org/~hanenkamp/DustyDB-0.03/
yet another Moose-based object database
----
Fey-DBIManager-0.09
http://search.cpan.org/~drolsky/Fey-DBIManager-0.09/
Manage a set of DBI handles
----
Fey-ORM-Mock-0.01
http://search.cpan.org/~drolsky/Fey-ORM-Mock-0.01/
Mock Fey::ORM based classes so you can test without a
----
File-Glob-Windows-0.1.1
http://search.cpan.org/~tate/File-Glob-Windows-0.1.1/
glob routine for Windows environment.
----
File-Glob-Windows-0.1.2
http://search.cpan.org/~tate/File-Glob-Windows-0.1.2/
glob routine for Windows environment.
----
File-Glob-Windows-0.1.3
http://search.cpan.org/~tate/File-Glob-Windows-0.1.3/
glob routine for Windows environment.
----
FreeHAL-70
http://search.cpan.org/~tschulz/FreeHAL-70/
----
FreeHAL-70-1
http://search.cpan.org/~tschulz/FreeHAL-70-1/
----
FreeHAL-70-2
http://search.cpan.org/~tschulz/FreeHAL-70-2/
----
IO-Lambda-0.39
http://search.cpan.org/~karasik/IO-Lambda-0.39/
non-blocking I/O in lambda style
----
JSAN-ServerSide-0.06
http://search.cpan.org/~drolsky/JSAN-ServerSide-0.06/
Manage JSAN dependencies server side instead of with
----
LaTeX-Table-0.9.8
http://search.cpan.org/~limaone/LaTeX-Table-0.9.8/
Perl extension for the automatic generation of LaTeX
----
Log-Syslog-UDP-0.10
http://search.cpan.org/~athomason/Log-Syslog-UDP-0.10/
Perl extension for very quickly sending syslog
----
MP3-Info-1.24
http://search.cpan.org/~daniel/MP3-Info-1.24/
Manipulate / fetch info from MP3 audio files
----
Math-Farnsworth-0.5
http://search.cpan.org/~simcop/Math-Farnsworth-0.5/
A Turing Complete Language for Mathematics
----
Math-Farnsworth-0.5.1
http://search.cpan.org/~simcop/Math-Farnsworth-0.5.1/
A Turing Complete Language for Mathematics
----
Module-MultiConf-1.0401
http://search.cpan.org/~oliver/Module-MultiConf-1.0401/
Configure and validate your app modules in one go
----
MojoX-Dispatcher-FilterChain-0.01
http://search.cpan.org/~vti/MojoX-Dispatcher-FilterChain-0.01/
Intercepting filter manager
----
MooseX-POE-0.08
http://search.cpan.org/~perigrin/MooseX-POE-0.08/
The Illicit Love Child of Moose and POE
----
MooseX-POE-0.09
http://search.cpan.org/~perigrin/MooseX-POE-0.09/
The Illicit Love Child of Moose and POE
----
MooseX-Types-0.07
http://search.cpan.org/~jjnapiork/MooseX-Types-0.07/
Organise your Moose types in libraries
----
MooseX-Types-Structured-0.04
http://search.cpan.org/~jjnapiork/MooseX-Types-Structured-0.04/
Structured Type Constraints for Moose
----
MooseX-Types-Structured-0.05
http://search.cpan.org/~jjnapiork/MooseX-Types-Structured-0.05/
Structured Type Constraints for Moose
----
Net-Appliance-Phrasebook-1.7
http://search.cpan.org/~oliver/Net-Appliance-Phrasebook-1.7/
Network appliance command-line phrasebook
----
Net-Appliance-Session-1.31
http://search.cpan.org/~oliver/Net-Appliance-Session-1.31/
Run command-line sessions to network
----
Net-Appliance-Session-1.32
http://search.cpan.org/~oliver/Net-Appliance-Session-1.32/
Run command-line sessions to network
----
Net-Cisco-AccessList-Extended-1.01
http://search.cpan.org/~oliver/Net-Cisco-AccessList-Extended-1.01/
Generate Cisco extended access-lists
----
Net-Cisco-ObjectGroup-1.01
http://search.cpan.org/~oliver/Net-Cisco-ObjectGroup-1.01/
Generate Cisco ACL object groups
----
Net-LDAP-FilterBuilder-1.0002
http://search.cpan.org/~oliver/Net-LDAP-FilterBuilder-1.0002/
Build LDAP filter statements
----
Net-Lorcon-0.02
http://search.cpan.org/~gomor/Net-Lorcon-0.02/
Raw wireless packet injection using the Lorcon library
----
Net-MAC-1.5
http://search.cpan.org/~oliver/Net-MAC-1.5/
Perl extension for representing and manipulating MAC
----
Padre-Plugin-Encrypt-0.01
http://search.cpan.org/~fayland/Padre-Plugin-Encrypt-0.01/
encrypt/decrypt file in Padre
----
Padre-Plugin-PerlCritic-0.03
http://search.cpan.org/~kaare/Padre-Plugin-PerlCritic-0.03/
Analyze perl files with Perl::Critic
----
Padre-Plugin-PluginHelper-0.09
http://search.cpan.org/~fayland/Padre-Plugin-PluginHelper-0.09/
make building Padre plugin easy
----
Padre-Plugin-UpLowCase-0.01
http://search.cpan.org/~fayland/Padre-Plugin-UpLowCase-0.01/
upper, lower, no big case
----
Perlwikipedia-1.3.6_01
http://search.cpan.org/~dcollins/Perlwikipedia-1.3.6_01/
a Wikipedia bot framework written in Perl
----
Perlwikipedia-1.3.7
http://search.cpan.org/~dcollins/Perlwikipedia-1.3.7/
a Wikipedia bot framework written in Perl
----
Pod-POM-Web-1.10
http://search.cpan.org/~dami/Pod-POM-Web-1.10/
HTML Perldoc server
----
Proc-Exists-0.91
http://search.cpan.org/~brianski/Proc-Exists-0.91/
quickly check for process existence
----
RPC-Serialized-1.0701
http://search.cpan.org/~oliver/RPC-Serialized-1.0701/
Subroutine calls over the network using common
----
Task-Padre-Plugins-0.02
http://search.cpan.org/~szabgab/Task-Padre-Plugins-0.02/
Get many Plugins of Padre at once
----
Test-GlassBox-Heavy-1.01
http://search.cpan.org/~oliver/Test-GlassBox-Heavy-1.01/
Non-invasive testing of subroutines within Perl
----
Tie-File-FixedRecLen-1.01
http://search.cpan.org/~oliver/Tie-File-FixedRecLen-1.01/
Fixed Length Record support for Tie:File
----
Win32API-File-0.1100
http://search.cpan.org/~chorny/Win32API-File-0.1100/
Low-level access to Win32 system API calls for
----
XML-LibXML-LazyBuilder-0.01
http://search.cpan.org/~toru/XML-LibXML-LazyBuilder-0.01/
easy and lazy way to create XML document for
----
XML-XSPF-0.7
http://search.cpan.org/~daniel/XML-XSPF-0.7/
API for reading & writing XSPF Playlists
----
YATG-2.0001
http://search.cpan.org/~oliver/YATG-2.0001/
Fast SNMP data poller daemon, with storage and graphing
----
re-engine-LPEG-0.04
http://search.cpan.org/~perrad/re-engine-LPEG-0.04/
LPEG regular expression engine
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: Sat, 08 Nov 2008 23:33:07 +0200
From: Eric Pozharski <whynot@pozharski.name>
Subject: Re: python feature in perl?
Message-Id: <slrnghc1d6.viv.whynot@orphan.zombinet>
On 2008-11-08, fB <spamtrap@blameit.net> wrote:
> Eric Pozharski <whynot@pozharski.name> wrote in
> <slrnghambv.h45.whynot@orphan.zombinet>:
>> On 2008-11-07, Mike <mikee@mikee.ath.cx> wrote:
>> > I like that in python you can say:
>> >
>> > if __name__ == "__main__"
>> > tests
>>
>> die unless caller;
>>
>> There can be dragons though.
*SKIP*
> Moreover, should you need the return value from caller, you must
> remember to check that you are using the correct context:
Yup, I've got where dragons are. My fault.
> #!/usr/bin/perl
>
> use strict;
> use warnings;
> use feature ':5.10';
> {
> package test;
>
> sub check {
> say scalar caller if caller;
> return;
> }
> }
>
> say scalar caller if caller;
>
> test::check;
>
> exit;
>
(somewhat reworked) that shows that C<die unless caller> fails inside
subroutines (even if in package C<main>.
#!/usr/bin/perl
use strict;
use warnings;
use feature ':5.10';
sub check {
say '>', scalar caller if caller;
return;
}
say '<', scalar caller if caller;
check;
Then gives false positives outside C<main>
#!/usr/bin/perl
package Foo;
use strict;
use warnings;
use feature ':5.10';
sub check {
say '>', scalar caller if caller;
return;
}
say '<', scalar caller if caller;
check;
So C<die unless caller> detects only one thing -- that point is outside
of any subrotine. Quite useles. Shame on me.
darn, darn dragons.
all around me.
perldoc dies on you.
--
Torvalds' goal for Linux is very simple: World Domination
------------------------------
Date: Sun, 09 Nov 2008 20:27:35 GMT
From: sln@netherlands.com
Subject: Re: SUBSTR() with replacement or lvalue performance issues
Message-Id: <mjheh4lfoghhjjt4rflpj89cqlvrj1c96b@4ax.com>
On Fri, 07 Nov 2008 11:41:21 +0100, Michele Dondi <bik.mido@tiscalinet.it> wrote:
>On Fri, 07 Nov 2008 02:17:58 GMT, sln@netherlands.com wrote:
>
>>Apart from like, copy from the start of a matched position, to a
>>file (as opposed to another buffer), then catenating the modification
>>to the file, then continue on with the next match, is the substr
>>(lvalue or replacement) a viable option?
>>
>>I have to consider performance on such large operations.
>
>ISTR that the lvaluedness of substr()'s return value, as long as the
>fact that you can EVEN take references of it and modify the string
>with a sort of action-at-distance was put there specifically for
>performance issues. At some point there were problems with
>substitutions having a lenght larger than the substituted IalsoIRC,
>but they should be solved in recent enough perls.
>
>See: <http://perlmonks.org/?node_id=498434>
>
>
>Michele
If c, place a 0 at the start of find, save pointer to begin of
last find, add ptr to list.
Create a new char[modified size], add ptr to list
Repeat until end of string.
Write pointer list to file/buffer (file).
Delete list of ptrs.
Perl can't do reference mid string. Jimmy jack it maybe..
sln
------------------------------
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 1973
***************************************
