[30895] in Perl-Users-Digest

home help back first fref pref prev next nref lref last post

Perl-Users Digest, Issue: 2140 Volume: 11

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jan 20 03:09:57 2009

Date: Tue, 20 Jan 2009 00:09:20 -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           Tue, 20 Jan 2009     Volume: 11 Number: 2140

Today's topics:
    Re: Concatenating regular exprs in a 'grep' call <freesoft12@gmail.com>
    Re: Concatenating regular exprs in a 'grep' call <cwilbur@chromatico.net>
    Re: Concatenating regular exprs in a 'grep' call <uri@stemsystems.com>
    Re: FAQ 1.11 When shouldn't I program in Perl? <navyx10@gmail.com>
    Re: FAQ 1.11 When shouldn't I program in Perl? <RedGrittyBrick@spamweary.invalid>
    Re: FAQ 1.11 When shouldn't I program in Perl? <brian.d.foy@gmail.com>
    Re: fastest way to allocate memory ? xhoster@gmail.com
    Re: fastest way to allocate memory ? <fawaka@gmail.com>
        How to call a subroutine with a scaler with <blaine@worldweb.com>
    Re: How to call a subroutine with a scaler with <glex_no-spam@qwest-spam-no.invalid>
        inputting the ephemerides <larry@example.invalid>
    Re: inputting the ephemerides <jurgenex@hotmail.com>
    Re: inputting the ephemerides <tim@burlyhost.com>
        new CPAN modules on Tue Jan 20 2009 (Randal Schwartz)
        Perl - marker ? <kejoseph@hotmail.com>
    Re: Perl - marker ? <peter@makholm.net>
    Re: Perl - marker ? (Randal L. Schwartz)
    Re: Perl - marker ? <jurgenex@hotmail.com>
    Re: The Seven Stages of a Perl Programmer (was: Re: Wha <g_m@remove-comcast.net>
    Re: The Seven Stages of a Perl Programmer (was: Re: Wha <peter@makholm.net>
        Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)

----------------------------------------------------------------------

Date: Mon, 19 Jan 2009 08:02:27 -0800 (PST)
From: "freesoft12@gmail.com" <freesoft12@gmail.com>
Subject: Re: Concatenating regular exprs in a 'grep' call
Message-Id: <7f2e8d2d-5c38-4afc-b2d0-49ff00da59ab@w1g2000prk.googlegroups.com>

Thanks to all for your suggestions! I will read the posting guidelines
and post accordingly.

Regards
John


------------------------------

Date: Tue, 20 Jan 2009 01:23:55 -0500
From: Charlton Wilbur <cwilbur@chromatico.net>
Subject: Re: Concatenating regular exprs in a 'grep' call
Message-Id: <86prii1on8.fsf@mithril.chromatico.net>

>>>>> "TJM" == Tad J McClellan <tadmc@seesig.invalid> writes:

    TJM>     Understand the difference between what is "code" and what
    TJM> is "data".

I'm tempted to ask you to elaborate on this one.

Charlton


-- 
Charlton Wilbur
cwilbur@chromatico.net


------------------------------

Date: Tue, 20 Jan 2009 01:38:54 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Concatenating regular exprs in a 'grep' call
Message-Id: <x7y6x6fpmp.fsf@mail.sysarch.com>

>>>>> "CW" == Charlton Wilbur <cwilbur@chromatico.net> writes:

>>>>> "TJM" == Tad J McClellan <tadmc@seesig.invalid> writes:
  TJM> Understand the difference between what is "code" and what
  TJM> is "data".

  CW> I'm tempted to ask you to elaborate on this one.

it's simple. either can be either one depending on which either you
want.

uri

-- 
Uri Guttman  ------  uri@stemsystems.com  --------  http://www.sysarch.com --
-----  Perl Code Review , Architecture, Development, Training, Support ------
--------- Free Perl Training --- http://perlhunter.com/college.html ---------
---------  Gourmet Hot Cocoa Mix  ----  http://bestfriendscocoa.com ---------


------------------------------

Date: Mon, 19 Jan 2009 08:24:16 -0800 (PST)
From: Navyx10 <navyx10@gmail.com>
Subject: Re: FAQ 1.11 When shouldn't I program in Perl?
Message-Id: <03173b91-1d0c-497b-9444-724aecae9077@v5g2000prm.googlegroups.com>

On Jan 17, 9:03=A0pm, PerlFAQ Server <br...@stonehenge.com> wrote:
> This is an excerpt from the latest version perlfaq1.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 athttp://faq.perl.org.
>
> --------------------------------------------------------------------
>
> 1.11: When shouldn't I program in Perl?
>
> =A0 =A0 When your manager forbids it--but do consider replacing them :-).
>
> =A0 =A0 Actually, one good reason is when you already have an existing
> =A0 =A0 application written in another language that's all done (and done=
 well),
> =A0 =A0 or you have an application language specifically designed for a c=
ertain
> =A0 =A0 task (e.g. prolog, make).
>
> =A0 =A0 For various reasons, Perl is probably not well-suited for real-ti=
me
> =A0 =A0 embedded systems, low-level operating systems development work li=
ke
> =A0 =A0 device drivers or context-switching code, complex multi-threaded
> =A0 =A0 shared-memory applications, or extremely large applications. You'=
ll
> =A0 =A0 notice that perl is not itself written in Perl.
>
> =A0 =A0 Perl remains fundamentally a dynamically typed language, not a
> =A0 =A0 statically typed one. You certainly won't be chastised if you don=
't
> =A0 =A0 trust nuclear-plant or brain-surgery monitoring code to it. And L=
arry
> =A0 =A0 will sleep easier, too--Wall Street programs not withstanding. :-=
)
>
> --------------------------------------------------------------------
>
> The perlfaq-workers, a group of volunteers, maintain the perlfaq. They
> are not necessarily experts in every domain where Perl might show up,
> so please include as much information as possible and relevant in any
> corrections. The perlfaq-workers also don't have access to every
> operating system or platform, so please include relevant details for
> corrections to examples that do not work on particular platforms.
> Working code is greatly appreciated.
>
> If you'd like to help maintain the perlfaq, see the details in
> perlfaq.pod.



Could you comment on why Perl would not be a good language to use for
nuclear plant monitoring, as in your example? What are its major
weaknesses? What language is more suitable for applications that
demand high reliability and up time?

Thanks.


------------------------------

Date: Mon, 19 Jan 2009 16:48:57 +0000
From: RedGrittyBrick <RedGrittyBrick@spamweary.invalid>
Subject: Re: FAQ 1.11 When shouldn't I program in Perl?
Message-Id: <4974aefa$0$11940$db0fefd9@news.zen.co.uk>


Navyx10 wrote:
> On Jan 17, 9:03 pm, PerlFAQ Server <br...@stonehenge.com> wrote:
>>
>> 1.11: When shouldn't I program in Perl?
>>
>>     When your manager forbids it--but do consider replacing them :-).
>>
>>     Actually, one good reason is when you already have an existing
>>     application written in another language that's all done (and done well),
>>     or you have an application language specifically designed for a certain
>>     task (e.g. prolog, make).
>>
>>     For various reasons, Perl is probably not well-suited for real-time
>>     embedded systems, low-level operating systems development work like
>>     device drivers or context-switching code, complex multi-threaded
>>     shared-memory applications, or extremely large applications. You'll
>>     notice that perl is not itself written in Perl.
>>
>>     Perl remains fundamentally a dynamically typed language, not a
>>     statically typed one. You certainly won't be chastised if you don't
>>     trust nuclear-plant or brain-surgery monitoring code to it. And Larry
>>     will sleep easier, too--Wall Street programs not withstanding. :-)
>>
> 
> 
> 
> Could you comment on why Perl would not be a good language to use for
> nuclear plant monitoring, as in your example? What are its major
> weaknesses? What language is more suitable for applications that
> demand high reliability and up time?
> 

Some languages

* have compilers that are validied for reliability in critical 
applications.

* include facilities to help program verification.

* support run-time checks to protect against various types of 
programming bug.

AFAIK Perl doesn't (much).

http://en.wikipedia.org/wiki/Ada_(programming_language)

I don't think the FAQ needs changing. YMMV.

-- 
RGB


------------------------------

Date: Mon, 19 Jan 2009 14:39:06 -0600
From: brian d  foy <brian.d.foy@gmail.com>
Subject: Re: FAQ 1.11 When shouldn't I program in Perl?
Message-Id: <190120091439068110%brian.d.foy@gmail.com>

In article
<03173b91-1d0c-497b-9444-724aecae9077@v5g2000prm.googlegroups.com>,
Navyx10 <navyx10@gmail.com> wrote:

> Could you comment on why Perl would not be a good language to use for
> nuclear plant monitoring, as in your example? 

Most languages are unsuitable for work where things absolutely cannot
fail. It's not something that's specific to Perl.


------------------------------

Date: 19 Jan 2009 17:09:18 GMT
From: xhoster@gmail.com
Subject: Re: fastest way to allocate memory ?
Message-Id: <20090119121213.229$W6@newsreader.com>

Ilya Zakharevich <nospam-abuse@ilyaz.org> wrote:
> [A complimentary Cc of this posting was sent to
> Xho Jingleheimerschmidt
> <xhoster@gmail.com>], who wrote in article
> <4973797e$0$25707$ed362ca5@nr5c.newsreader.com>:
> > >> $gras = $gras.$needle;
> > >
> > > RHS takes another 10000GiB.
> >
> > It seems that, at least as of 5.8.8, this construct is optimized
> > to be about the same as $gras.=$needle, and as long as there is room to
> > grow $gras in-place it does not need to be copied.
>
> Interesting...  What about
>
>   $gras = $pre.$gras;

Perl doesn't seem to reserve any memory the front of the string
automatically. If $gras was previously front-shortened, for example by
using

substr $gras, 0, 10, "";

Then it seems that $gras = $pre.$gras; is optimized to edit in place rather
than copying.

Oddly, this works even if $pre is longer than the amount of
front-shortening. Apparently in that case it triggers code that slides the
contents of $gras down enough to make room at the front, without making an
entirely new copy. It seems that it could do this same thing if no
front-shortening had occurred, but for some reason it doesn't.

Also, the use of 30 Gig for $gras = $pre.$gras; (when there is no front
shortening) is transient.  When the old contents of $gras are freed, my
implementation of perl actually returns that memory to the OS and shrinks
back to 20G


>   $gras = $pre.$gras.$needle;

That too seems to trigger non-copying in-place editing of $gras, provided
it had previously been front-shortened.

Xho

-- 
-------------------- http://NewsReader.Com/ --------------------
The costs of publication of this article were defrayed in part by the
payment of page charges. This article must therefore be hereby marked
advertisement in accordance with 18 U.S.C. Section 1734 solely to indicate
this fact.


------------------------------

Date: 20 Jan 2009 00:50:42 GMT
From: Leon Timmermans <fawaka@gmail.com>
Subject: Re: fastest way to allocate memory ?
Message-Id: <49751fe2$0$198$e4fe514c@news.xs4all.nl>

On Fri, 16 Jan 2009 05:47:41 -0300, Daniel Molina Wegener wrote:
>   You can try using the mmap(2) syscall from perl. There is
> a module that you can try from CPAN:
> 
>   http://search.cpan.org/~swalters/Sys-Mmap-0.13/Mmap.pm
> 
>   I don't know another options, since the POSIX module can't
> do this task and mmap(2) isn't commint from POSIX, but is present in
> SUSv3:
> 
>   http://www.opengroup.org/onlinepubs/000095399/functions/mmap.html
> 

I would recommend Sys::Mmap::Simple instead (but since I wrote it I'm not 
exactly unbiased), in particular its function map_anonymous which is made 
exactly for this kind of situation (more reasons to prefer it are in the 
perldoc).

Regards,

Leon Timmermans


------------------------------

Date: Mon, 19 Jan 2009 14:53:13 -0800 (PST)
From: "blaine@worldweb.com" <blaine@worldweb.com>
Subject: How to call a subroutine with a scaler with
Message-Id: <f91aa933-93e9-4e6c-8eb0-58ba2d8e1b89@t26g2000prh.googlegroups.com>

Hi,

I would like to call a subroutine without using an eval statement that
has a scaler in the context.


ie.
my $class = FakeClass->new();
my $type = $class->GetType();

$class->DoSomething_$type();


Any ideas?


------------------------------

Date: Mon, 19 Jan 2009 17:45:43 -0600
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: How to call a subroutine with a scaler with
Message-Id: <497510a7$0$48218$815e3792@news.qwest.net>

blaine@worldweb.com wrote:
> Hi,
> 
> I would like to call a subroutine without using an eval statement that
> has a scaler in the context.
> 
> 
> ie.
> my $class = FakeClass->new();
> my $type = $class->GetType();

my $method = "DoSomething_$type";
> 
> $class->DoSomething_$type();

$class->$method();


------------------------------

Date: Mon, 19 Jan 2009 22:04:32 -0700
From: Larry Gates <larry@example.invalid>
Subject: inputting the ephemerides
Message-Id: <1x83tkcjxizri.7vvnwjo82ona$.dlg@40tude.net>


Happy Bye George Day!

I've been chipping away at a long-term project: investigating the
ephemeris.  I think it would make a great way to continue exploring perl's
pattern-matching capabilities.

So I'll have a program that looks like this:

   my $filename = 'eph3.txt';
   open(my $fh, '<', $filename) or die "cannot open $filename: $!";
   while (<$fh>) {
       print $_;
   }
   close($fh)

# perl faulk10.pl

or

   open(my $fh, '<', 'eph3.txt');
   while (my $line = <$fh>) {
       print $line;
   }
   close($fh)

# perl faulk7.pl

I'll want to have an explicit variable for the line, so I'll use the better
parts of the above.

The first thing I'll want to do is capture the first seven characters in a
line.  We can assume that these will always be letters or spaces padded out
to the right.

After that, I want to strip away all the characters, as does the following
fortran routine.  In this treatment $line would be inrec .

        subroutine WasteNonDigits(inrec)
        character*80 inrec
        character*1 c1,c2
        character*13 ValidDigits
        data ValidDigits/'0123456789.-+'/
        n=13
        do i=1,80
        c1=' '
        c2=inrec(i:i)
           do j=1,n
             if(c2.eq.ValidDigits(j:j)) c1=c2
           end do
         inrec(i:i)=c1
        end do
        return
        end subroutine

Ultimately, I want to populate an object that I think would be pretty tame
by perl standards.

This is the data set:

C:\MinGW\source>type eph3.txt
! yesterday
# another comment

Sun     18h 41m 55s     -23 5.4'       0.983   10.215  52.155  Up
Mercury 20h 2m 16s      -22 12.5'      1.102   22.537  37.668  Up
Venus   21h 55m 33s     -14 16.3'      0.795   39.872  11.703  Up
Moon    21h 17m 19s     -15 2.4'       62.4 ER 36.796  22.871  Up
Mars    18h 11m 59s     -24 6.1'       2.431   4.552   56.184  Up
Jupiter 20h 3m 35s      -20 49.4'      6.034   23.867  38.203  Up
Saturn  11h 32m 59s     +5 8.6'        9.018   -47.333 157.471 Set
Uranus  23h 21m 30s     -4 57.9'       20.421  48.328  -18.527 Up
Neptune 21h 39m 30s     -14 22.8'      30.748  38.963  16.599  Up
Pluto   18h 4m 34s      -17 44.5'      32.543  7.443   62.142  Up

C:\MinGW\source>

Thanks for your comment.
-- 
larry gates

You know how people are sometimes rude on Usenet or on a mailing list.
Sometimes they'll write something that can only be taken as a deadly
insult,
and then they have the unmitigated gall to put a smiley face on it, as if
that makes it all right.      -- Larry Wall, 8th State of the Onion


------------------------------

Date: Mon, 19 Jan 2009 22:51:28 -0800
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: inputting the ephemerides
Message-Id: <unsan4pgqedhsqjhkqc6ndbb0qb1a36ohg@4ax.com>

Larry Gates <larry@example.invalid> wrote:
>So I'll have a program that looks like this:
>
>   my $filename = 'eph3.txt';
>   open(my $fh, '<', $filename) or die "cannot open $filename: $!";
>   while (<$fh>) {
>       print $_;
>   }
>   close($fh)

Not much of a program, don't you think?

>   open(my $fh, '<', 'eph3.txt');

You are missing error handling

>   while (my $line = <$fh>) {
>       print $line;
>   }
>   close($fh)

You know, this is terribly similar to something I have seen a few weeks
ago from some George character. Are you sure you are not suffereing from
Dissociative Identity Disorder?

>I'll want to have an explicit variable for the line, so I'll use the better
>parts of the above.
>
>The first thing I'll want to do is capture the first seven characters in a
>line.  

See "perldoc -f substr".

>After that, I want to strip away all the characters, as does the following
>fortran routine.  In this treatment $line would be inrec .

And what exactly does that Fortran routine do? Not everyone speaks
Fortran, therefore an abstract specification or at least a detailed
description would be much better than dumping some code in some foreign
programming language.

Again, that George was dumping Fortran code into this NG, too.

>Ultimately, I want to populate an object that I think would be pretty tame
>by perl standards.

And what would that object be? An AoA? An A0H? A HoH?

jue


------------------------------

Date: Mon, 19 Jan 2009 23:08:09 -0800
From: Tim Greer <tim@burlyhost.com>
Subject: Re: inputting the ephemerides
Message-Id: <tLedl.29132$Nq5.8580@newsfe24.iad>

Jürgen Exner wrote:

> You know, this is terribly similar to something I have seen a few
> weeks ago from some George character

He was George, said he was changing his posting name in celebration of
George being out of office.  I also can't wrap my head around his
example of posting code that opens a file and prints and then another
snippet basically being the same, just without error checking.  Weird. 
I stopped reading and moved on.
-- 
Tim Greer, CEO/Founder/CTO, BurlyHost.com, Inc.
Shared Hosting, Reseller Hosting, Dedicated & Semi-Dedicated servers
and Custom Hosting.  24/7 support, 30 day guarantee, secure servers.
Industry's most experienced staff! -- Web Hosting With Muscle!


------------------------------

Date: Tue, 20 Jan 2009 05:42:27 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Tue Jan 20 2009
Message-Id: <KDr96r.1r6n@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-Fatal-0.01
http://search.cpan.org/~swalters/Acme-Fatal-0.01/
Replace statements with equivalents which succeed or die 
----
Acme-MUDLike-0.01
http://search.cpan.org/~swalters/Acme-MUDLike-0.01/
Hang out inside of your application 
----
Archive-Tar-1.44
http://search.cpan.org/~kane/Archive-Tar-1.44/
module for manipulations of tar archives 
----
Audio-Ecasound-Multitrack-0.993
http://search.cpan.org/~ganglion/Audio-Ecasound-Multitrack-0.993/
Perl extensions for multitrack audio processing 
----
Audio-Ecasound-Multitrack-0.994
http://search.cpan.org/~ganglion/Audio-Ecasound-Multitrack-0.994/
Perl extensions for multitrack audio processing 
----
Audio-Extract-PCM-0.04_51
http://search.cpan.org/~pepe/Audio-Extract-PCM-0.04_51/
Extract PCM data from audio files 
----
Biblio-Thesaurus-ModRewrite-0.02
http://search.cpan.org/~smash/Biblio-Thesaurus-ModRewrite-0.02/
a module to manipulate ontologies 
----
Big5Plus-0.30
http://search.cpan.org/~ina/Big5Plus-0.30/
"Yet Another JPerl" Source code filter to escape Big5Plus 
----
Bio-Tools-CodonOptTable-0.06
http://search.cpan.org/~shardiwal/Bio-Tools-CodonOptTable-0.06/
A more elaborative way to check the codons usage. 
----
CPAN-Testers-WWW-Reports-Mailer-0.12
http://search.cpan.org/~barbie/CPAN-Testers-WWW-Reports-Mailer-0.12/
CPAN Testers Reports Mailer 
----
CPAN-Testers-WWW-Reports-Mailer-0.13
http://search.cpan.org/~barbie/CPAN-Testers-WWW-Reports-Mailer-0.13/
CPAN Testers Reports Mailer 
----
CPAN-WWW-Testers-0.44
http://search.cpan.org/~barbie/CPAN-WWW-Testers-0.44/
Present CPAN Testers data 
----
Catalyst-Plugin-Cache-HTTP-0.001000
http://search.cpan.org/~graf/Catalyst-Plugin-Cache-HTTP-0.001000/
HTTP/1.1 cache validators for Catalyst 
----
Catalyst-Plugin-Images-0.02
http://search.cpan.org/~bobtfish/Catalyst-Plugin-Images-0.02/
Generate image tags for static files. 
----
Catalyst-Plugin-Mode-0.03
http://search.cpan.org/~plcgi/Catalyst-Plugin-Mode-0.03/
select config values depends in your development process 
----
Catalyst-Runtime-5.71000
http://search.cpan.org/~mramberg/Catalyst-Runtime-5.71000/
The Catalyst Framework Runtime 
----
Class-Hook-0.03
http://search.cpan.org/~pdenis/Class-Hook-0.03/
Add hooks on methods from other classes 
----
Config-IniHash-3.00.04
http://search.cpan.org/~jenda/Config-IniHash-3.00.04/
Perl extension for reading and writing INI files 
----
Devel-NYTProf-2.07_92
http://search.cpan.org/~timb/Devel-NYTProf-2.07_92/
Powerful feature-rich perl source code profiler 
----
Dotiac-0.3
http://search.cpan.org/~maluku/Dotiac-0.3/
----
File-Find-Object-0.1.8
http://search.cpan.org/~shlomif/File-Find-Object-0.1.8/
An object oriented File::Find replacement 
----
GBK-0.30
http://search.cpan.org/~ina/GBK-0.30/
"Yet Another JPerl" Source code filter to escape GBK 
----
Github-Import-0.02
http://search.cpan.org/~nuffin/Github-Import-0.02/
Import your project into <http://github.com> 
----
Github-Import-0.03
http://search.cpan.org/~nuffin/Github-Import-0.03/
Import your project into <http://github.com> 
----
Github-Import-0.04
http://search.cpan.org/~nuffin/Github-Import-0.04/
Import your project into <http://github.com> 
----
Gtk2-Ex-DateSpinner-3
http://search.cpan.org/~kryde/Gtk2-Ex-DateSpinner-3/
year/month/day date entry using SpinButtons 
----
HTML-FormHandler-0.05
http://search.cpan.org/~gshank/HTML-FormHandler-0.05/
form handler written in Moose 
----
Mail-SPF-Iterator-1.04
http://search.cpan.org/~sullr/Mail-SPF-Iterator-1.04/
iterative SPF lookup 
----
Mail-SPF-Iterator-1.05
http://search.cpan.org/~sullr/Mail-SPF-Iterator-1.05/
iterative SPF lookup 
----
Module-Filename-0.01
http://search.cpan.org/~mrdvt/Module-Filename-0.01/
Returns the filename for a given module 
----
Module-Load-0.14
http://search.cpan.org/~kane/Module-Load-0.14/
runtime require of both modules and files 
----
Module-Load-Conditional-0.30
http://search.cpan.org/~kane/Module-Load-Conditional-0.30/
Looking up module information / loading at runtime 
----
Net-CIDR-0.13
http://search.cpan.org/~mrsam/Net-CIDR-0.13/
Manipulate IPv4/IPv6 netblocks in CIDR notation 
----
Net-OpenSSH-0.17
http://search.cpan.org/~salva/Net-OpenSSH-0.17/
Perl SSH client package implemented on top of OpenSSH 
----
Net-SMS-ASPSMS-0.1.4
http://search.cpan.org/~supcik/Net-SMS-ASPSMS-0.1.4/
Interface to ASMSMS services 
----
POE-Component-Fuse-0.01
http://search.cpan.org/~apocal/POE-Component-Fuse-0.01/
Using FUSE in POE asynchronously 
----
POE-Component-Server-SimpleHTTP-1.52
http://search.cpan.org/~bingos/POE-Component-Server-SimpleHTTP-1.52/
Perl extension to serve HTTP requests in POE. 
----
Provision-Unix-0.38
http://search.cpan.org/~msimerson/Provision-Unix-0.38/
provision accounts on unix systems 
----
RDF-RDFa-Parser-0.1
http://search.cpan.org/~tobyink/RDF-RDFa-Parser-0.1/
RDFa parser using XML::LibXML. 
----
RDF-RDFa-Parser-0.11
http://search.cpan.org/~tobyink/RDF-RDFa-Parser-0.11/
RDFa parser using XML::LibXML. 
----
Roguelike-Utils-0.4.164
http://search.cpan.org/~earonesty/Roguelike-Utils-0.4.164/
----
Shipwright-2.0.1
http://search.cpan.org/~sunnavy/Shipwright-2.0.1/
Best Practical Builder 
----
Sjis-0.30
http://search.cpan.org/~ina/Sjis-0.30/
"Yet Another JPerl" Source code filter to escape ShiftJIS 
----
Spreadsheet-ParseExcel-0.46
http://search.cpan.org/~jmcnamara/Spreadsheet-ParseExcel-0.46/
Extract information from an Excel file. 
----
Sys-Lastlog-1.6
http://search.cpan.org/~jstowe/Sys-Lastlog-1.6/
Provide a moderately Object Oreiented Interface to lastlog files on some Unix-like systems. 
----
Sys-Statistics-Linux-0.44_03
http://search.cpan.org/~bloonix/Sys-Statistics-Linux-0.44_03/
Front-end module to collect system statistics 
----
Template-Patch-0.03
http://search.cpan.org/~gaal/Template-Patch-0.03/
Apply parameterized patches 
----
Template-Plugin-AddTime-0.01
http://search.cpan.org/~mash/Template-Plugin-AddTime-0.01/
TT filter plugin to add file modified time 
----
Test-More-UTF8-0.01
http://search.cpan.org/~mons/Test-More-UTF8-0.01/
Enhancing Test::More for UTF8-based projects 
----
Test-Prereq-1.036
http://search.cpan.org/~bdfoy/Test-Prereq-1.036/
check if Makefile.PL has the right pre-requisites 
----
Test-Strict-0.10
http://search.cpan.org/~pdenis/Test-Strict-0.10/
Check syntax, presence of use strict; and test coverage 
----
Test-Strict-0.11
http://search.cpan.org/~pdenis/Test-Strict-0.11/
Check syntax, presence of use strict; and test coverage 
----
Tk-Month-1.6
http://search.cpan.org/~arif/Tk-Month-1.6/
Calendar widget which shows one month at a time. 
----
UHC-0.30
http://search.cpan.org/~ina/UHC-0.30/
"Yet Another JPerl" Source code filter to escape UHC 
----
URI-Template-0.15
http://search.cpan.org/~bricas/URI-Template-0.15/
Object for handling URI templates 
----
UltraDNS-0.04
http://search.cpan.org/~timb/UltraDNS-0.04/
Client API for the NeuStar UltraDNS Transaction Protocol 
----
UltraDNS-0.05
http://search.cpan.org/~timb/UltraDNS-0.05/
Client API for the NeuStar UltraDNS Transaction Protocol 
----
WSDL-Generator-0.04
http://search.cpan.org/~pdenis/WSDL-Generator-0.04/
Generate wsdl file automagically 
----
WWW-Bleep-0.92
http://search.cpan.org/~snevine/WWW-Bleep-0.92/
Perl interface to Bleep.com 
----
WWW-SPOJ-0.00_01
http://search.cpan.org/~miorel/WWW-SPOJ-0.00_01/
Extract data from Sphere Online Judge (SPOJ) 
----
WWW-Search-Ebay-3.007
http://search.cpan.org/~mthurn/WWW-Search-Ebay-3.007/
backend for searching www.ebay.com 
----
WWW-TinySong-0.04_03
http://search.cpan.org/~miorel/WWW-TinySong-0.04_03/
Get free music links from tinysong.com 
----
WWW-TinySong-0.04_04
http://search.cpan.org/~miorel/WWW-TinySong-0.04_04/
Get free music links from tinysong.com 
----
WWW-TinySong-0.04_05
http://search.cpan.org/~miorel/WWW-TinySong-0.04_05/
Get free music links from tinysong.com 
----
XML-RSS-LibXML-0.3004
http://search.cpan.org/~dmaki/XML-RSS-LibXML-0.3004/
XML::RSS with XML::LibXML 
----
Xacobeo-0.06_01
http://search.cpan.org/~potyl/Xacobeo-0.06_01/
XPath (XML Path Language) visualizer. 


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: Mon, 19 Jan 2009 21:29:25 -0800 (PST)
From: Kevin <kejoseph@hotmail.com>
Subject: Perl - marker ?
Message-Id: <e660f8e6-c6c0-4ee8-92f1-25c84b470865@40g2000prx.googlegroups.com>

I want to be able to read a text file every 10 minutes or so. Since
the file can get pretty large over time, I want to pick up where I
left off earlier. Is this possible using Perl ?

-Kevin.


------------------------------

Date: Tue, 20 Jan 2009 07:42:35 +0100
From: Peter Makholm <peter@makholm.net>
Subject: Re: Perl - marker ?
Message-Id: <87y6x6iilg.fsf@vps1.hacking.dk>

Kevin <kejoseph@hotmail.com> writes:

> I want to be able to read a text file every 10 minutes or so. Since
> the file can get pretty large over time, I want to pick up where I
> left off earlier. Is this possible using Perl ?

The tell() function can tell you the current position in a file and
the function seek will take you to a given position in a file. Then
you just need to store this offset somewhere.

If you have a long running perl process which reads to the end of
file, waits ten minutes and want to read further, you can use seek to
clear the end of file-state without reopening the file or without
using tell. $fh->clearerr() should do the same.

//Makholm


------------------------------

Date: Mon, 19 Jan 2009 22:33:34 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Perl - marker ?
Message-Id: <867i4qqyf5.fsf@blue.stonehenge.com>

>>>>> "Kevin" == Kevin  <kejoseph@hotmail.com> writes:

Kevin> I want to be able to read a text file every 10 minutes or so. Since
Kevin> the file can get pretty large over time, I want to pick up where I
Kevin> left off earlier. Is this possible using Perl ?

search.cpan.org - enter "File::Tail".

-- 
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: Mon, 19 Jan 2009 22:53:08 -0800
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: Perl - marker ?
Message-Id: <r3tan4hqlj1oqm59pbpu1d20a9ssj6hepk@4ax.com>

Kevin <kejoseph@hotmail.com> wrote:
>I want to be able to read a text file every 10 minutes or so. 

perldoc -f sleep
perldoc -q timeout

>Since
>the file can get pretty large over time, I want to pick up where I
>left off earlier. Is this possible using Perl ?

perldoc -f seek

You could also take a look at "perldoc -q tail"

jue


------------------------------

Date: Mon, 19 Jan 2009 19:10:28 -0500
From: "~greg" <g_m@remove-comcast.net>
Subject: Re: The Seven Stages of a Perl Programmer (was: Re: What do you need to have to be considered a Master at Perl?)
Message-Id: <0dadnZRqoI-Li-jUnZ2dnUVZ_gudnZ2d@giganews.com>


"Peter J. Holzer" <hjp-usenet2@hjp.at> wrote in message news:slrngn5u51.37g.hjp-usenet2@hrunkner.hjp.at...
> On 2009-01-17 22:04, Eric Pozharski <whynot@pozharski.name> wrote:
>> On 2009-01-17, Tad J McClellan <tadmc@seesig.invalid> wrote:
>>> sln@netherlands.com <sln@netherlands.com> wrote:
>>>> Subject: What do you need to have to be considered a Master at Perl?
>> *SKIP*
>>> I can't find Tom Christiansen's original, so I'll go with Nat's
>>> reconstruction of:
>>>
>>>    The Seven Stages of a Perl Programmer
>>>
>>> (From http://prometheus.frii.com/~gnat/yapc/2000-stages/)
>>>
>> *SKIP*
>>>     * Understands why regexes can't match nested data.
>>
>> If I got that right, it's not the case any more.
>
> Right. I expected a point "has figured out how to match nested data with
> regexps" in one of the later stages, but it wasn't there ;-).


:)
YMMD







------------------------------

Date: Tue, 20 Jan 2009 07:48:51 +0100
From: Peter Makholm <peter@makholm.net>
Subject: Re: The Seven Stages of a Perl Programmer (was: Re: What do you need to have to be considered a Master at Perl?)
Message-Id: <87tz7uiib0.fsf@vps1.hacking.dk>

"Peter J. Holzer" <hjp-usenet2@hjp.at> writes:



>>> (From http://prometheus.frii.com/~gnat/yapc/2000-stages/)
>>>
>> *SKIP*
>>>     * Understands why regexes can't match nested data.
>>
>> If I got that right, it's not the case any more.
>
> Right. I expected a point "has figured out how to match nested data with
> regexps" in one of the later stages, but it wasn't there ;-).

It's on slide 35.

//Makholm


------------------------------

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 2140
***************************************


home help back first fref pref prev next nref lref last post