Perl tip of the day (was Re: Wellington Perlmongers)
Piers Harding
piers at ompa.net
Wed Sep 25 11:31:59 CDT 2002
Excellent - altho I don't ( fortunately ) have the problem of using
win32. :-)
I have written a couple of articles lately, and attended OSCON so
perhaps people might be intereseted in such subjects as Perl based HTTP
proxies, embedding Perl in Daemons, and Perl and SAP R/3.
My blitherings are at:
http://www.piersharding.com.
Cheers.
On Wed, Sep 25, 2002 at 09:43:03PM +1200, Grant McLean wrote:
> Hi Piers
>
> Just to let you know we're not all ignoring you. I couldn't reply
> straight away since I was writing Tcl code :-(
>
> I'm all in favour of a bit more 'banter' on the list. What would
> you like to talk about?
>
> Perhaps since no one is asking questions, I could kick off with an
> unsolicited answer...
>
>
> Today's message is brought to you be the command line argument '-l'.
>
> The problem:
> I want to extract a list of subroutine names from a Perl .pm file.
>
> The solution:
>
> perl -n -e '/^\s*sub\s+(\w+)/ && print "$1\n"' filenames
>
> Unfortunately, although that works nicely on Unix, it doesn't work
> on Windows. At least not with the standard Windows command shell
> which only recognises double quotes. One alternative is to use
> the 'qq' double quoting operator:
>
> perl -n -e "/^\s*sub\s+(\w+)/ && print qq($1\n)" filenames
>
> But my tip of the day is to dispense with the quotes and use the
> '-l' option to append a linefeed onto every print:
>
> perl -nle "/^\s*sub\s+(\w+)/ && print $1" filenames
>
> Which is less typing too.
>
> Anyone else have a tip?
>
> Regards
> Grant
>
>
> > -----Original Message-----
> > From: Piers Harding [mailto:piers at ompa.net]
> > Subject: Re: Wellington Perlmongers
> >
> >
> > Hi Guys - I listen into the melbourne.pm list, and they seem to share
> > lots of ideas, and regularily publish work/articles etc. to the list.
> > Are people on this list interested in the same sort of thing, as it
> > would be good to try and inject some life back into it?
> >
> > Also, as a kiwi overseas, it would be nice to have some
> > banter with the
> > Perl community back home.
> >
> > Cheers.
> >
> > Piers Harding
More information about the Wellington-pm
mailing list