[29751] in Perl-Users-Digest
Perl-Users Digest, Issue: 995 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Nov 1 11:10:17 2007
Date: Thu, 1 Nov 2007 08:09:07 -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 Thu, 1 Nov 2007 Volume: 11 Number: 995
Today's topics:
Re: !Help: can't get into perl -MCPAN -e shell <mmccaws@comcast.net>
Re: Get length of returned array without storing? <krahnj@telus.net>
Re: Get length of returned array without storing? <uri@stemsystems.com>
Re: Get length of returned array without storing? <geocoo@gmail.com>
Re: Get length of returned array without storing? <simon.chao@fmr.com>
Re: Get length of returned array without storing? <jl_post@hotmail.com>
Re: How to convert timestamp to epoch? <ben@morrow.me.uk>
Issue in executing more than one perl script from Singl nilesh.sonawane@gmail.com
Re: Issue in executing more than one perl script from S <tadmc@seesig.invalid>
Re: Issue in executing more than one perl script from S Jim.Lane@cibc.com
Re: Issue in executing more than one perl script from S <spamtrap@dot-app.org>
Looking for a module (or anything) to grab a webcam ima <paulburto@gmail.com>
new CPAN modules on Thu Nov 1 2007 (Randal Schwartz)
Script to find largest files groups.user@gmail.com
Simple string search <accpactec@hotmail.com>
supercomuter using mix n match os and hardware with per <gavcomedy@gmail.com>
Re: supercomuter using mix n match os and hardware with <wyzelli@yahoo.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 31 Oct 2007 18:19:48 -0700
From: mmccaws2 <mmccaws@comcast.net>
Subject: Re: !Help: can't get into perl -MCPAN -e shell
Message-Id: <1193879988.991820.326400@z24g2000prh.googlegroups.com>
On Oct 31, 5:27 pm, mmccaws2 <mmcc...@comcast.net> wrote:
> On Oct 31, 4:56 pm, all mail refused <elvis-85...@notatla.org.uk>
> wrote:
>
>
>
> > On 2007-10-31, mmccaws2 <mmcc...@comcast.net> wrote:
>
> > > Which arch are you referring to? Would it be an arch file only within
> > > perl directories.
>
> > You don't seem to have "arch" on HP-UX; what does "model" say?
>
> > > $ file /usr/contrib/bin/traceroute
> > > /usr/contrib/bin/traceroute: ELF-32 executable object file - IA64
> > > $ uname /usr/contrib/bin/traceroute
> > > HP-UX
>
> > Use "uname" or "uname -a" - no point calling "uname" on "traceroute"
> > (or even "traceroute" on "uname").
>
> > > $ file /opt/perl/lib/5.8.3/IA64.ARCHREV_0-thread-multi/auto/IO/IO.so
> > > /opt/perl/lib/5.8.3/IA64.ARCHREV_0-thread-multi/auto/IO/IO.so: ELF-32
> > > shared object file - IA64
> > > $ uname -a /opt/perl/lib/5.8.3/IA64.ARCHREV_0-thread-multi/auto/IO/
> > > IO.so
> > > HP-UX snoopy B.11.23 U ia64 0605108897 unlimited-user license
>
> > That looks like useful info anyway.
>
> > Have you got "tusc" installed?
>
> > --
> > Elvis Notargiacomo master AT barefaced DOT cheekhttp://www.notatla.org.uk/goen/
>
> There is no 'tusc', here's model output
>
> ia64 hp server rx1620
here is the perl -V output
Summary of my perl5 (revision 5.0 version 8 subversion 3)
configuration:
Platform:
osname=hpux, osvers=11.22, archname=IA64.ARCHREV_0-thread-multi
uname='hp-ux bigsur03 b.11.22 u ia64 1800516905 unlimited-user
license '
config_args='-ders -Dcc=cc -Accflags=-DNO_HASH_SEED -Dusethreads -
Duseithreads -Ud_sigsetjmp -Uinstallusrbinperl -Ulocincpth= -
Uloclibpth= -Dd_attribut=undef -Dd_u32align=define -Doptimize=-fast
+DSitanium2 +Ofltacc=strict -Duselargefiles -
Dinc_version_list=5.8.2/$archname 5.8.2 5.8.1/$archname 5.8.1
5.8.0/$archname 5.8.0 -Duseshrplib -Dprefix=/opt/perl -
Dcf_by=ActiveState -Dcf_email=support@ActiveState.com'
hint=recommended, useposix=true, d_sigaction=define
usethreads=define use5005threads=undef useithreads=define
usemultiplicity=define
useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
use64bitint=undef use64bitall=undef uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='cc', ccflags =' -D_POSIX_C_SOURCE=199506L -D_REENTRANT -Ae -
D_HPUX_SOURCE -Wl,+vnocompatwarnings -DNO_HASH_SEED -
D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 ',
optimize='-fast +DSitanium2 +Ofltacc=strict',
cppflags='-D__STDC_EXT__ -D_HPUX_SOURCE -D_POSIX_C_SOURCE=199506L -
D_REENTRANT -D_HPUX_SOURCE -Wl,+vnocompatwarnings -DNO_HASH_SEED'
ccversion='', gccversion='', gccosandvers=''
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=4321
d_longlong=define, longlongsize=8, d_longdbl=define,
longdblsize=16
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
lseeksize=8
alignbytes=8, prototype=define
Linker and Libraries:
ld='/usr/bin/ld', ldflags =' -L/usr/lib/hpux32'
libpth=/usr/lib/hpux32 /lib /usr/lib /usr/ccs/lib /usr/local/lib
libs=-lnsl -lnm -lndbm -ldl -ldld -lm -lsec -lpthread -lc
perllibs=-lnsl -lnm -ldl -ldld -lm -lsec -lpthread -lc
libc=/usr/lib/hpux32/libc.so, so=so, useshrplib=true,
libperl=libperl.so
gnulibc_version=''
Dynamic Linking:
dlsrc=dl_hpux.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E -
Wl,-B,deferred '
cccdlflags='+Z', lddlflags='-b +vnocompatwarnings -L/usr/lib/
hpux32'
Characteristics of this binary (from libperl):
Compile-time options: MULTIPLICITY USE_ITHREADS USE_LARGE_FILES
PERL_IMPLICIT_CONTEXT
Locally applied patches:
ActivePerl Build 809
22218 Remove the caveat about detached threads crashing on
Windows
22201 Avoid threads+win32 crash by freeing Perl interpreter
slightly later
22169 Display 'out of memeory' errors using low-level I/O
22159 Upgrade to Time::Hires 1.55
22120 Make 'Configure -Dcf_by=...' work
22051 Upgrade to Time::HiRes 1.54
21540 Fix backward-compatibility issues in if.pm
Built under hpux
Compiled at Jan 18 2005 15:43:34
@INC:
/opt/perl/lib/5.8.3/IA64.ARCHREV_0-thread-multi
/opt/perl/lib/5.8.3
/opt/perl/lib/site_perl/5.8.3/IA64.ARCHREV_0-thread-multi
/opt/perl/lib/site_perl/5.8.3
/opt/perl/lib/site_perl
.
------------------------------
Date: Thu, 01 Nov 2007 01:45:16 GMT
From: "John W. Krahn" <krahnj@telus.net>
Subject: Re: Get length of returned array without storing?
Message-Id: <47292F8A.F5F182F6@telus.net>
boole wrote:
>
> This function supposedly returns an array:
>
> [quote http://perl-win32-gui.sourceforge.net/cgi-bin/docs.cgi?doc=listbox#getselitems]
> GetSelItems()
>
> Returns an array containing the zero-based indexes of the selected
> items in a multiple selection Listbox.
> [/quote]
In Perl functions/subroutines return a list not an array.
perldoc -q "What is the difference between a list and an array"
perldoc perlsub
> I want to get the length of that array without storing the result in
> an array variable.
>
> This is what I found:
>
> scalar($win->lbMacros1->GetSelItems()); # returns the last VALUE (yes,
> VALUE) of the array, not the length like with normal arrays.
That is what a LIST does. Because it is NOT AN ARRAY.
> @array = $win->lbMacros1->GetSelItems();
> scalar(@array); # returns
> the length of the array
>
> I want the value of the second method, without storing the array
> first.
>
> I've tried alot including {}, [], () and eval(), but I can't figure
> this one out.
You could use an anonymous array:
my $length = @{ $win->lbMacros1->GetSelItems() };
Or count the elements:
my $length;
$length++ for $win->lbMacros1->GetSelItems();
John
--
use Perl;
program
fulfillment
------------------------------
Date: Thu, 01 Nov 2007 03:31:49 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Get length of returned array without storing?
Message-Id: <x74pg64p5m.fsf@mail.sysarch.com>
>>>>> "BaB" == Big and Blue <No_4@dsl.pipex.com> writes:
BaB> boole wrote:
>>
>> I want to get the length of that array without storing the result in
>> an array variable.
BaB> my $len = (func_call());
did you try that or is it a guess?
perl -le 'sub r {return 0,1,2} ; $s = (r()) ; print $s'
2
looks to me like the () around the call did no good. parens do not make
lists or arrays in perl. they are just used to manage precedence.
what a caller sees is dependent on what the sub returns and the calling
context.
figure out this one!
perl -le 'sub r {return 0 .. 4} ; $s = (r()) ; print $s'
1
where did that 1 come from? and it is not a bug. and yes, i know why it
prints 1. and the extra parens around the sub call are useless.
perl -le 'sub r {return 0 .. 4} ; $s = r() ; print $s'
1
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Thu, 01 Nov 2007 11:22:40 -0000
From: boole <geocoo@gmail.com>
Subject: Re: Get length of returned array without storing?
Message-Id: <1193916160.485695.11880@o38g2000hse.googlegroups.com>
On Nov 1, 1:45 am, "John W. Krahn" <kra...@telus.net> wrote:
> boole wrote:
>
> > This function supposedly returns an array:
>
> > [quotehttp://perl-win32-gui.sourceforge.net/cgi-bin/docs.cgi?doc=listbox#ge...]
> > GetSelItems()
>
> > Returns an array containing the zero-based indexes of the selected
> > items in a multiple selection Listbox.
> > [/quote]
>
> In Perl functions/subroutines return a list not an array.
Ah, there we go thanks for the excellent knowledge there.
>
> perldoc -q "What is the difference between a list and an array"
>
> perldoc perlsub
Thanks, that's the info I needed. I must remember to use perldoc more
often, I'm on Win32 so it's not as apparent.
>
> > I want to get the length of that array without storing the result in
> > an array variable.
>
> > This is what I found:
>
> > scalar($win->lbMacros1->GetSelItems()); # returns the last VALUE (yes,
> > VALUE) of the array, not the length like with normal arrays.
>
> That is what a LIST does. Because it is NOT AN ARRAY.
Right, I assumed because the documentation said it was an array, it
was an array. Thanks again.
>
> > @array = $win->lbMacros1->GetSelItems();
> > scalar(@array); # returns
> > the length of the array
>
> > I want the value of the second method, without storing the array
> > first.
>
> > I've tried alot including {}, [], () and eval(), but I can't figure
> > this one out.
>
> You could use an anonymous array:
>
> my $length = @{ $win->lbMacros1->GetSelItems() };
>
> Or count the elements:
>
> my $length;
> $length++ for $win->lbMacros1->GetSelItems();
Great, that's the ticket, thanks John, you've answered my question and
explained the reason, perfect.
>
> John
> --
> use Perl;
> program
> fulfillment
------------------------------
Date: Thu, 01 Nov 2007 05:51:17 -0700
From: nolo contendere <simon.chao@fmr.com>
Subject: Re: Get length of returned array without storing?
Message-Id: <1193921477.465442.279270@z9g2000hsf.googlegroups.com>
On Oct 31, 11:31 pm, Uri Guttman <u...@stemsystems.com> wrote:
. parens do not make
> lists or arrays in perl. they are just used to manage precedence.
>
would it be accurate to say that parens provide list context to lvalues
------------------------------
Date: Thu, 01 Nov 2007 08:02:02 -0700
From: "jl_post@hotmail.com" <jl_post@hotmail.com>
Subject: Re: Get length of returned array without storing?
Message-Id: <1193929322.781765.219170@o38g2000hse.googlegroups.com>
On Oct 31, 6:36 pm, boole <geo...@gmail.com> wrote:
>
> This function supposedly returns an array:
>
> [quotehttp://perl-win32-gui.sourceforge.net/cgi-bin/docs.cgi?doc=listbox#ge...]
> GetSelItems()
>
> Returns an array containing the zero-based indexes of the selected
> items in a multiple selection Listbox.
> [/quote]
>
> I want to get the length of that array without storing the result in
> an array variable.
>
> This is what I found:
>
> scalar($win->lbMacros1->GetSelItems()); # returns the last VALUE
Dear Boole,
I am under the impression that ::GetSelItems() returns a list
instead of an array, despite what the documentation might say. The
reason I think this is because the following code:
sub returnList { return ('a', 'b', 'c'); }
print scalar(returnList()); # prints 'c'
would print 'c', while the following code:
sub returnArray { my @a = ('a', 'b', 'c'); return @a; }
print scalar(returnArray()); # prints 3
would print '3'. The fact that calling scalar() on ::GetSelItems()
returns the last value of a list tells me that it's returning a list
(and not an array). This is either an error in the documentation or
an error in the code. (I would guess that it's an error in the code,
since it would make more sense to me if the function returns the
length in scalar context, as I would think that's more useful than
returning the last element. But I digress.)
I can't remember where I read this, but you can easily get the
length of a list in scalar context by assigning the list to an empty
list. So instead of writing:
my $length = ('a', 'b', 'c'); # $length is 'c'
you'd write:
my $length = () = ('a', 'b', 'c'); # $length is 3
So instead of your line:
# Returns the last VALUE of the return list:
scalar($win->lbMacros1->GetSelItems());
tweak it to by assigning the call to an empty list:
# Returns the LENGTH of the return list:
scalar( () = $win->lbMacros1->GetSelItems() );
That should do exactly what you want in that you don't need to
store the return list into a temporary array to extract the length.
Note that this technique will also work on arrays, too, like this:
my @a = ('a' .. 'z');
my $length = () = @a; # $length is 26
although since arrays already return their length in scalar context, I
don't see why you wouldn't just use the simpler line:
my $length = @a; # $length is 26
and avoid the "() = " usage altogether.
But if want to get the length of a list returned from a function, I
found that using "() = f()" in scalar context is a simple way of doing
it.
I hope this helps, boole.
-- Jean-Luc Romano
------------------------------
Date: Thu, 1 Nov 2007 13:09:33 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: How to convert timestamp to epoch?
Message-Id: <dpvov4-08a1.ln1@osiris.mauzo.dyndns.org>
Quoth "jl_post@hotmail.com" <jl_post@hotmail.com>:
> On Oct 30, 1:47 pm, Paul Lalli <mri...@gmail.com> wrote:
> >
> > #!/usr/bin/perl
> > use strict;
> > use warnings;
> > use Date::Parse 'str2time';
> > my $date = "22-OCT-07 06.16.44.160000 PM";
> > $date =~ s/\./:/ for 1..2;
> > my $epoch = str2time($date);
> > print "Epoch: $epoch\n";
> > __END__
>
>
> The Date::Parse module looks great, but I can't seem to find it in
> my ActiveState distribution of Perl, nor am I successful in installing
> it with the command "ppm install Date-Parse".
Rather confusingly, ppm installs 'distributions' rather than 'modules',
and unlike CPAN.pm won't cross-reference them for you. If you look
Date::Parse up on search.cpan.org you will see it is in the TimeDate
distribution, so you should be able to get it with
ppm install TimeDate
Ben
------------------------------
Date: 31 Oct 2007 23:52:20 -0700
From: nilesh.sonawane@gmail.com
Subject: Issue in executing more than one perl script from Single perl script
Message-Id: <1193833174.518929.269300@v23g2000prn.googlegroups.com>
Hi,
I am calling "1.pl" from "main.pl" file.
using
#main.pl
system ("perl 1.pl");
In this case it works fine.
But when I am doing
#main.pl
system ("perl 1.pl");
system ("perl 2.pl");
then it doesn't executes "1.pl" properly.
So I would like to know, is there any constraint for this? Do I need
to take any precautions for this?
Thanks,
------------------------------
Date: Thu, 01 Nov 2007 11:01:02 GMT
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: Issue in executing more than one perl script from Single perl script
Message-Id: <slrnfijce9.86l.tadmc@tadmc30.sbcglobal.net>
nilesh.sonawane@gmail.com <nilesh.sonawane@gmail.com> wrote:
> But when I am doing
> #main.pl
> system ("perl 1.pl");
> system ("perl 2.pl");
>
> then it doesn't executes "1.pl" properly.
You need to provide some symptoms if you hope for a diagnosis.
How do you know that it did not execute properly?
What did you observe?
Were any messages issued?
...
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Thu, 01 Nov 2007 04:46:47 -0700
From: Jim.Lane@cibc.com
Subject: Re: Issue in executing more than one perl script from Single perl script
Message-Id: <1193917607.844445.109530@o3g2000hsb.googlegroups.com>
On Nov 1, 2:52 am, nilesh.sonaw...@gmail.com wrote:
> Hi,
> I am calling "1.pl" from "main.pl" file.
> using
> #main.pl
> system ("perl 1.pl");
>
> In this case it works fine.
>
> But when I am doing
> #main.pl
> system ("perl 1.pl");
> system ("perl 2.pl");
>
> then it doesn't executes "1.pl" properly.
> So I would like to know, is there any constraint for this? Do I need
> to take any precautions for this?
>
> Thanks,
Why are you using system() for this? AFAIK it forks a
whole new process - a lot of overhead to go to.
Isn't this what the "require" facility is for?
FWIW
Jim Lane
------------------------------
Date: Thu, 01 Nov 2007 08:47:24 -0400
From: Sherman Pendley <spamtrap@dot-app.org>
Subject: Re: Issue in executing more than one perl script from Single perl script
Message-Id: <m11wbam8tf.fsf@dot-app.org>
nilesh.sonawane@gmail.com writes:
> Hi,
> I am calling "1.pl" from "main.pl" file.
> using
> #main.pl
> system ("perl 1.pl");
>
> In this case it works fine.
>
> But when I am doing
> #main.pl
> system ("perl 1.pl");
> system ("perl 2.pl");
There's nothing wrong with the above code.
> then it doesn't executes "1.pl" properly.
What kind of output were you expecting, and what did you get instead? You
need to offer a better description of the problem than "it doesn't work",
if you expect more than just random guesswork in response.
<http://www.catb.org/~esr/faqs/smart-questions.html>
> So I would like to know, is there any constraint for this? Do I need
> to take any precautions for this?
"This" being what, exactly? Perl has no problem calling system() twice; to
be blunt, it's patently absurd to think it might have such a restrictive
problem.
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Thu, 01 Nov 2007 10:52:45 -0400
From: PB <paulburto@gmail.com>
Subject: Looking for a module (or anything) to grab a webcam image
Message-Id: <4729db70$0$26507$88260bb3@free.teranews.com>
A perldoc -q query didn't turn up anything camera- or webcam-related
that looked useful; neither did a CPAN module search nor a Google Groups
search or a Google Web search.
What I'm trying to do is grab a still image from a USB camera and save
it to an image file. Either a Linux- or a Win32-based solution would be
acceptable.
Perhaps there's some notion of the ability to "capture" the data stream
from a USB port and save the result as an image file, but I'm not sure
where to start that line of research.
Can anyone point me in the right direction?
--
Paul Burton
paulburto *at* gmail *dot* com
--
Posted via a free Usenet account from http://www.teranews.com
------------------------------
Date: Thu, 1 Nov 2007 04:42:18 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Thu Nov 1 2007
Message-Id: <Jqt92I.1Mxx@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-POE-Acronym-Generator-1.04
http://search.cpan.org/~bingos/Acme-POE-Acronym-Generator-1.04/
Generate random POE acronyms.
----
Archive-Zip-1.21
http://search.cpan.org/~adamk/Archive-Zip-1.21/
Provide an interface to ZIP archive files.
----
CGI-Application-4.07_02
http://search.cpan.org/~markstos/CGI-Application-4.07_02/
Framework for building reusable web-applications
----
Carp-Diagnostics-0.03
http://search.cpan.org/~nkh/Carp-Diagnostics-0.03/
Carp with a diagnostic message
----
Catalyst-View-vCard-0.02
http://search.cpan.org/~bricas/Catalyst-View-vCard-0.02/
vCard view for Catalyst
----
Data-FormValidator-4.56
http://search.cpan.org/~markstos/Data-FormValidator-4.56/
Validates user input (usually from an HTML form) based on input profile.
----
Device-LaCrosse-WS23xx-0.02
http://search.cpan.org/~esm/Device-LaCrosse-WS23xx-0.02/
read data from La Crosse weather station
----
Digest-CRC-0.11
http://search.cpan.org/~olimaul/Digest-CRC-0.11/
Generic CRC functions
----
Egg-Plugin-Authen-Captcha-0.01
http://search.cpan.org/~lushe/Egg-Plugin-Authen-Captcha-0.01/
Plugin for Authen::Captcha.
----
Egg-Plugin-LWP-2.02
http://search.cpan.org/~lushe/Egg-Plugin-LWP-2.02/
LWP for Egg Plugin.
----
Egg-Release-2.24
http://search.cpan.org/~lushe/Egg-Release-2.24/
Version of Egg WEB Application Framework.
----
Finance-Currency-Convert-BChile-0.02
http://search.cpan.org/~huguei/Finance-Currency-Convert-BChile-0.02/
Currency conversion module between Chilean Pesos (CLP) and USA Dollars (USD).
----
GD-Chart-Radial-0.05
http://search.cpan.org/~barbie/GD-Chart-Radial-0.05/
plot and output Radial or Radar charts using the GD library.
----
GD-Chart-Radial-0.06
http://search.cpan.org/~barbie/GD-Chart-Radial-0.06/
plot and output Radial or Radar charts using the GD library.
----
GRID-Machine-0.082
http://search.cpan.org/~casiano/GRID-Machine-0.082/
Remote Procedure Calls over a SSH link
----
IO-CaptureOutput-1.04_02
http://search.cpan.org/~dagolden/IO-CaptureOutput-1.04_02/
capture STDOUT and STDERR from Perl code, subprocesses or XS
----
IP-ChinaISP-0.03
http://search.cpan.org/~pangj/IP-ChinaISP-0.03/
Retrieve an ISP in China from the given IP
----
Mail-SpamCannibal-0.82
http://search.cpan.org/~miker/Mail-SpamCannibal-0.82/
A tool to stop SPAM
----
Module-Install-0.68
http://search.cpan.org/~adamk/Module-Install-0.68/
Standalone, extensible Perl module installer
----
Module-Starter-1.46
http://search.cpan.org/~rjbs/Module-Starter-1.46/
a simple starter kit for any module
----
Net-DNS-ZoneFile-Fast-0.9
http://search.cpan.org/~hardaker/Net-DNS-ZoneFile-Fast-0.9/
parse BIND8/9 zone files
----
Net-UCP-0.29
http://search.cpan.org/~nemux/Net-UCP-0.29/
Perl extension for EMI - UCP Protocol.
----
POE-Component-AI-MegaHAL-1.08
http://search.cpan.org/~bingos/POE-Component-AI-MegaHAL-1.08/
A non-blocking wrapper around AI::MegaHAL.
----
POE-Component-CPAN-YACSmoke-1.06
http://search.cpan.org/~bingos/POE-Component-CPAN-YACSmoke-1.06/
Bringing the power of POE to CPAN smoke testing.
----
POE-Component-Client-DNSBL-0.02
http://search.cpan.org/~bingos/POE-Component-Client-DNSBL-0.02/
A component that provides non-blocking DNSBL lookups
----
POE-Component-Client-Ident-1.07
http://search.cpan.org/~bingos/POE-Component-Client-Ident-1.07/
A component that provides non-blocking ident lookups to your sessions.
----
POE-Component-Client-NNTP-2.04
http://search.cpan.org/~bingos/POE-Component-Client-NNTP-2.04/
A POE component that implements an RFC 977 NNTP client.
----
POE-Component-Client-NRPE-0.06
http://search.cpan.org/~bingos/POE-Component-Client-NRPE-0.06/
a POE Component that implements check_nrpe functionality
----
POE-Component-Client-Pastebot-1.00
http://search.cpan.org/~bingos/POE-Component-Client-Pastebot-1.00/
Interact with Bot::Pastebot web services from POE.
----
POE-Component-Client-SOCKS-0.06
http://search.cpan.org/~bingos/POE-Component-Client-SOCKS-0.06/
SOCKS enable any POE Component
----
POE-Component-Client-Whois-1.11
http://search.cpan.org/~bingos/POE-Component-Client-Whois-1.11/
A one shot non-blocking RFC 812 WHOIS query.
----
POE-Component-DHCP-Monitor-0.08
http://search.cpan.org/~bingos/POE-Component-DHCP-Monitor-0.08/
A simple POE Component for monitoring DHCP traffic.
----
POE-Component-Server-DNS-0.13
http://search.cpan.org/~bingos/POE-Component-Server-DNS-0.13/
A non-blocking, concurrent DNS server POE component
----
POE-Component-Server-NRPE-0.06
http://search.cpan.org/~bingos/POE-Component-Server-NRPE-0.06/
A POE Component implementation of NRPE Daemon.
----
POE-Component-Server-POP3-0.03
http://search.cpan.org/~bingos/POE-Component-Server-POP3-0.03/
A POE framework for authoring POP3 servers
----
POE-Component-Win32-ChangeNotify-1.06
http://search.cpan.org/~bingos/POE-Component-Win32-ChangeNotify-1.06/
A POE wrapper around Win32::ChangeNotify.
----
POE-Component-Win32-EventLog-1.10
http://search.cpan.org/~bingos/POE-Component-Win32-EventLog-1.10/
A POE component that provides non-blocking access to Win32::EventLog.
----
POE-Component-Win32-Service-1.08
http://search.cpan.org/~bingos/POE-Component-Win32-Service-1.08/
A POE component that provides non-blocking access to Win32::Service.
----
POE-Filter-CSV_XS-1.07
http://search.cpan.org/~bingos/POE-Filter-CSV_XS-1.07/
A POE-based parser for CSV based files.
----
POE-Filter-IASLog-1.00
http://search.cpan.org/~bingos/POE-Filter-IASLog-1.00/
A POE Filter for Microsoft IAS-formatted log entries.
----
POE-Filter-LOLCAT-0.02
http://search.cpan.org/~bingos/POE-Filter-LOLCAT-0.02/
POE FILTR T SPEKK LIEK LOLCATZ. KTHNX!
----
POE-Filter-ParseWords-1.00
http://search.cpan.org/~bingos/POE-Filter-ParseWords-1.00/
A POE-based parser to parse text into an array of tokens.
----
Parse-IASLog-1.00
http://search.cpan.org/~bingos/Parse-IASLog-1.00/
A parser for Microsoft IAS-formatted log entries.
----
Parse-IRC-1.07
http://search.cpan.org/~bingos/Parse-IRC-1.07/
A parser for the IRC protocol.
----
Perl-Dist-0.29_01
http://search.cpan.org/~adamk/Perl-Dist-0.29_01/
Perl Distribution Creation Toolkit
----
Perl-Dist-0.29_02
http://search.cpan.org/~adamk/Perl-Dist-0.29_02/
Perl Distribution Creation Toolkit
----
Perl-Dist-Bootstrap-0.01
http://search.cpan.org/~adamk/Perl-Dist-Bootstrap-0.01/
A bootstrap Perl for building Perl distributions
----
Proc-Simple-Async-0.01
http://search.cpan.org/~berle/Proc-Simple-Async-0.01/
Keyword sugar for Proc::Simple
----
Pugs-Compiler-Rule-0.27
http://search.cpan.org/~agent/Pugs-Compiler-Rule-0.27/
Compiler for Perl 6 regexes
----
SMS-Send-DeviceGsm-1.00
http://search.cpan.org/~bingos/SMS-Send-DeviceGsm-1.00/
An SMS::Send driver for Device::Gsm.
----
Search-Xapian-1.0.4.0
http://search.cpan.org/~olly/Search-Xapian-1.0.4.0/
Perl XS frontend to the Xapian C++ search library.
----
Sig-PackageScoped-0.02
http://search.cpan.org/~drolsky/Sig-PackageScoped-0.02/
Make $SIG{__DIE__} and $SIG{__WARN__} package scoped
----
Sig-PackageScoped-0.03
http://search.cpan.org/~drolsky/Sig-PackageScoped-0.03/
Make $SIG{__DIE__} and $SIG{__WARN__} package scoped
----
Sig-PackageScoped-0.04
http://search.cpan.org/~drolsky/Sig-PackageScoped-0.04/
Make $SIG{__DIE__} and $SIG{__WARN__} package scoped
----
Sub-Uplevel-0.18
http://search.cpan.org/~dagolden/Sub-Uplevel-0.18/
apparently run a function in a higher stack frame
----
Test-File-1.22
http://search.cpan.org/~bdfoy/Test-File-1.22/
test file attributes
----
Time-Local-1.18
http://search.cpan.org/~drolsky/Time-Local-1.18/
efficiently compute time from local and GMT time
----
Validator-w0.01
http://search.cpan.org/~plcgi/Validator-w0.01/
----
WWW-Patent-Page-0.103.1
http://search.cpan.org/~anonwb/WWW-Patent-Page-0.103.1/
get a patent page or document (e.g. htm, pdf, tif) from selected source (e.g. from United States Patent and Trademark Office (USPTO) website or the European Patent Office (ESPACE_EP). and place into a
----
WWW-UsePerl-Journal-0.17
http://search.cpan.org/~barbie/WWW-UsePerl-Journal-0.17/
A use.perl.org journal tool
----
WebService-Google-Reader-0.04
http://search.cpan.org/~gray/WebService-Google-Reader-0.04/
Perl interface to Google Reader
----
Win32-UrlCache-0.05
http://search.cpan.org/~ishigaki/Win32-UrlCache-0.05/
parse Internet Explorer's history/cache/cookies
----
XML-Parser-Wrapper-0.08
http://search.cpan.org/~dowens/XML-Parser-Wrapper-0.08/
A simple object wrapper around XML::Parser
----
overload-eval-0.06
http://search.cpan.org/~jjore/overload-eval-0.06/
Hooks the native string eval() function
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: Thu, 01 Nov 2007 14:15:13 -0000
From: groups.user@gmail.com
Subject: Script to find largest files
Message-Id: <1193926513.590448.309140@z24g2000prh.googlegroups.com>
Hi Script Gurus..
i'm looking for a script to find the largest files in a filesystem,
ordered by size.
Does anyone have a similar script out there which they can share ?
Thanks
------------------------------
Date: Thu, 01 Nov 2007 14:57:36 -0000
From: Jack <accpactec@hotmail.com>
Subject: Simple string search
Message-Id: <1193929056.308935.204230@v29g2000prd.googlegroups.com>
hi guys,
A little problem here. I am very new to perl and i am having a problem
search for a substring in a file. So here is a sample
(this is my id for id="wksOI*84sk_")
(this is my id for id="@s3dSSos_")
(this is my id for id="dksWDkps_")
So i have page with 20 of these lines. all I am interested in the id
part of each line ie, wksOl*84sk_ . As you maybe able to tell the id
part of each line is 12 char and it always ends with _"). I think the
regex must be for an expression that starts with id=" and ends with
") with 12 letters in the middle. So once this id has been found I
need to write it in a file.
I know with m/regex/ I can find stuff, but I don' t how to return the
cryptic id.
Any solutions.
Thanks
------------------------------
Date: 1 Nov 2007 04:30:00 -0700
From: gavino <gavcomedy@gmail.com>
Subject: supercomuter using mix n match os and hardware with perl+pvm?
Message-Id: <1193865819.692791.169720@i13g2000prf.googlegroups.com>
http://search.cpan.org/~dleconte/Parallel-Pvm-1.4.0/Pvm.pm
anyone trying this?
sounds awesome!
any tutorials?
------------------------------
Date: Thu, 01 Nov 2007 13:08:01 GMT
From: "Peter Wyzl" <wyzelli@yahoo.com>
Subject: Re: supercomuter using mix n match os and hardware with perl+pvm?
Message-Id: <RckWi.7577$CN4.4178@news-server.bigpond.net.au>
"gavino" <gavcomedy@gmail.com> wrote in message
news:1193865819.692791.169720@i13g2000prf.googlegroups.com...
> http://search.cpan.org/~dleconte/Parallel-Pvm-1.4.0/Pvm.pm
>
> anyone trying this?
>
> sounds awesome!
>
> any tutorials?
The page you reference provides pointers to tutorials...
P
------------------------------
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 995
**************************************
