[29977] in Perl-Users-Digest
Perl-Users Digest, Issue: 1220 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jan 22 03:10:27 2008
Date: Tue, 22 Jan 2008 00:09:50 -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, 22 Jan 2008 Volume: 11 Number: 1220
Today's topics:
Creating backdated CPAN repo from autobundle <shawnlhood@gmail.com>
Re: Creating backdated CPAN repo from autobundle <brian.d.foy@gmail.com>
File Monitoring modules nagandla@gmail.com
Looking for explanation <ccannick@gmail.com>
Re: Looking for explanation <noreply@gunnar.cc>
Re: Looking for explanation <ben@morrow.me.uk>
Re: More perl tutorials <uri@stemsystems.com>
Re: More perl tutorials <usenet@davidfilmer.com>
Re: More perl tutorials <uri@stemsystems.com>
new CPAN modules on Tue Jan 22 2008 (Randal Schwartz)
Newbie Perl Question (Bryce)
Re: What's the best way to test existence of arguments <nospam-abuse@ilyaz.org>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 22 Jan 2008 01:28:17 -0500
From: Shawn Hood <shawnlhood@gmail.com>
Subject: Creating backdated CPAN repo from autobundle
Message-Id: <2008012201281716807-shawnlhood@gmailcom>
Hey folks,
First of all, I'm Shawn -- a newcomer to Perl (by virtue of needing to
manage a sizable infastructure that uses it extensively). I'm an NC
native living in Arlington, VA. You'll probably see more posts from me
in the coming months.
I have a machine whose bundle I'd like to use as the reference for
other machines. I would like to use the autobundle from this machine
to create a cpan repo so that my other machines can install identical
modules -- however many of these are backdated versions. I need to
preserve these versions, however, because it's a very sensitive
production environment that I must keep homogenous, and I cannot update
modules without performing regression tests on our application first.
That said, is there any way to create a CPAN repository from an
autobundle, and subsequently use that autobundle on other machines.
The tough part here is getting the appropriate versions of the modules
into the repository, many of which will have to come from backpan.
I've tried creating scripts to parse the autobundle and then find the
appropriate backpan module. I've encountered some trouble with this.
Also, I could rsync the modules dirs but worry about dependency
problems.
Ideas?!
Shawn
------------------------------
Date: Tue, 22 Jan 2008 01:42:37 -0600
From: brian d foy <brian.d.foy@gmail.com>
To: Shawn Hood <shawnlhood@gmail.com>
Subject: Re: Creating backdated CPAN repo from autobundle
Message-Id: <220120080142375123%brian.d.foy@gmail.com>
[[ This message was both posted and mailed: see
the "To," "Cc," and "Newsgroups" headers for details. ]]
In article <2008012201281716807-shawnlhood@gmailcom>, Shawn Hood
<shawnlhood@gmail.com> wrote:
> That said, is there any way to create a CPAN repository from an
> autobundle, and subsequently use that autobundle on other machines.
It's easy to create the repository, but right now it's not so easy to
pick out the particular distributions you need.
I've been slowly working on a way to index everything that has ever
been uploaded to CPAN so you could do such a thing (and search for not
only a module name, but a version number too), but I haven't tried it
on all of BackPAN just yet. Right now it's a project that happens after
all of my paid work is done since nobody is paying for this just yet.
I talk about just this problem in the MyCPAN talk: the audio is on
Perlcast:
http://perlcast.com/2007/09/29/making-my-own-cpan/
The slides are on my own website:
http://www252.pair.com/comdog/Talks/MyCPAN-LApm200709.pdf
The Fall 2007 issue of The Perl Review has my article on it (which is
the same thing as the talk, really).
Good luck :)
------------------------------
Date: Mon, 21 Jan 2008 23:29:20 -0800 (PST)
From: nagandla@gmail.com
Subject: File Monitoring modules
Message-Id: <9bc9f22c-7d06-4be1-9f98-3e0dff17b84e@j20g2000hsi.googlegroups.com>
Hi All,
For monitoring files in directories i am using SGI::FAM module...
this module is monitoring perfectlt but taking more 90% CPU usage
while monitoring ...
so any one can suggest me the better module to monitor the files in
directoties....here one more thing i want to monitor more than a
single directory at a time...
Regards ,
Lakshmi Nagandla
------------------------------
Date: Mon, 21 Jan 2008 15:18:54 -0800 (PST)
From: ccannick <ccannick@gmail.com>
Subject: Looking for explanation
Message-Id: <17ef13a0-1d46-446b-ad67-3f88fa9e1e2a@u10g2000prn.googlegroups.com>
Don't do much perl programming. Can someone answer a few questions
for me?
Here's a subroutine I'm looking at:
sub check_cs_services
{
foreach $service (sort keys %service_def) {
my $sock = new IO::Socket::INET (
PeerAddr => $cs_primary_ip,
PeerPort => $service_def{$service},
Proto => 'tcp'
);
if($sock) {
$cs_service{$service} = 1;
close($sock);
}
}
}
The if block at the end is unclear to me. What is if evaluating as
true? Just the existence of $sock or is it something I don't
understand?
Thanks for your help.
--C--
------------------------------
Date: Tue, 22 Jan 2008 00:56:20 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Looking for explanation
Message-Id: <5vkppeF1mrpfoU1@mid.individual.net>
ccannick wrote:
> Can someone answer a few questions for me?
I only noticed one question.
<snip>
> if($sock) {
> $cs_service{$service} = 1;
> close($sock);
> }
> The if block at the end is unclear to me. What is if evaluating as
> true? Just the existence of $sock or is it something I don't
> understand?
It tests whether $sock contains a true value.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Tue, 22 Jan 2008 00:10:37 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Looking for explanation
Message-Id: <tsof65-tqf.ln1@osiris.mauzo.dyndns.org>
Quoth ccannick <ccannick@gmail.com>:
>
> sub check_cs_services
> {
> foreach $service (sort keys %service_def) {
> my $sock = new IO::Socket::INET (
> PeerAddr => $cs_primary_ip,
> PeerPort => $service_def{$service},
> Proto => 'tcp'
> );
>
> if($sock) {
> $cs_service{$service} = 1;
> close($sock);
> }
> }
> }
>
> The if block at the end is unclear to me. What is if evaluating as
> true? Just the existence of $sock or is it something I don't
> understand?
$sock will be true if and only if the socket could be successfully
created. If the connection failed for any reason, $sock will be undef.
It looks like the program is trying to detect which ports are open on
$cs_primary_ip?
Ben
------------------------------
Date: Mon, 21 Jan 2008 23:45:44 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: More perl tutorials
Message-Id: <x763xmoi8n.fsf@mail.sysarch.com>
>>>>> "DF" == David Filmer <usenet@davidfilmer.com> writes:
DF> _PBP_ and the techniques used in golf have few intersections.
oh, but those are amazing crossroads. ever see damian's selfgol program?
it plays the game of life and is a quine and a couple of other big
things in a single page of very dense code. not best practices but from
the same insane mind of damian conway. :)
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Architecture, Development, Training, Support, Code Review ------
----------- Search or Offer Perl Jobs ----- http://jobs.perl.org ---------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Mon, 21 Jan 2008 17:34:12 -0800
From: David Filmer <usenet@davidfilmer.com>
Subject: Re: More perl tutorials
Message-Id: <ZPudnZmU6oJJ2gja4p2dnAA@giganews.com>
Uri Guttman wrote:
> oh, but those are amazing crossroads. ever see damian's selfgol program?
No, but it was easy to find. And somewhat shorter than a page - it's
less than 1000 characters (18 lines, most of which are much less than 80
bytes long). I find it amusing (and somewhat relevant to this thread)
that the good Dr. Conway teaches a half-day seminar in "Perl WORST
Practices" which is built around selfgol
(http://damian.conway.org/Courses/WorstPractice.html).
------------------------------
Date: Tue, 22 Jan 2008 01:46:11 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: More perl tutorials
Message-Id: <x7ir1mmy3i.fsf@mail.sysarch.com>
>>>>> "DF" == David Filmer <usenet@davidfilmer.com> writes:
DF> Uri Guttman wrote:
>> oh, but those are amazing crossroads. ever see damian's selfgol program?
DF> No, but it was easy to find. And somewhat shorter than a page - it's
DF> less than 1000 characters (18 lines, most of which are much less than
DF> 80 bytes long). I find it amusing (and somewhat relevant to this
DF> thread) that the good Dr. Conway teaches a half-day seminar in "Perl
DF> WORST Practices" which is built around selfgol
DF> (http://damian.conway.org/Courses/WorstPractice.html).
i have seen that talk as he gave it to boston.pm during one of his
visits here. mind boggling is a kind way of describing it. in sept 2006
he gave 2 talks here and to protect our weak little minds we gave out
aluminum foil and had a hat making contest:
http://boston.pm.org/kwiki/index.cgi?Damian2006Mementos
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Architecture, Development, Training, Support, Code Review ------
----------- Search or Offer Perl Jobs ----- http://jobs.perl.org ---------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Tue, 22 Jan 2008 05:42:16 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Tue Jan 22 2008
Message-Id: <Jv16IG.1F2K@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.
AUBBC1.0R
http://search.cpan.org/~sflex/AUBBC1.0R/
----
Amazon-SimpleDB-0.01
http://search.cpan.org/~tima/Amazon-SimpleDB-0.01/
----
App-Tweet-1.01
http://search.cpan.org/~jmcada/App-Tweet-1.01/
tweet on twitter from the command line
----
App-Tweet-1.02
http://search.cpan.org/~jmcada/App-Tweet-1.02/
tweet on twitter from the command line
----
Bundle-Interchange-1.04
http://search.cpan.org/~mikeh/Bundle-Interchange-1.04/
A bundle of the modules nice to have for Interchange 5.
----
Bundle-InterchangeKitchenSink-1.06
http://search.cpan.org/~mikeh/Bundle-InterchangeKitchenSink-1.06/
A bundle of most all the modules nice to have for Interchange. A lot of stuff.
----
CPAN-Mini-0.566
http://search.cpan.org/~rjbs/CPAN-Mini-0.566/
create a minimal mirror of CPAN
----
CPAN-Reporter-Smoker-0.01_02
http://search.cpan.org/~dagolden/CPAN-Reporter-Smoker-0.01_02/
Turnkey CPAN Testers smoking
----
Catalyst-Plugin-Assets-0.020
http://search.cpan.org/~rkrimen/Catalyst-Plugin-Assets-0.020/
Manage and minify .css and .js assets in a Catalyst application
----
CatalystX-ListFramework-0.1
http://search.cpan.org/~snafufans/CatalystX-ListFramework-0.1/
foundations for displaying and editing lists (CRUD) in a Catalyst app.
----
CatalystX-ListFramework-0.2
http://search.cpan.org/~snafufans/CatalystX-ListFramework-0.2/
foundations for displaying and editing lists (CRUD) in a Catalyst app.
----
Compress-LZMA-External-0.33
http://search.cpan.org/~lbrocard/Compress-LZMA-External-0.33/
Compress and decompress using LZMA
----
Config-Nested-2.0
http://search.cpan.org/~arif/Config-Nested-2.0/
parse a configuration file consiging of nested blocks and sections.
----
Danga-Socket-1.58
http://search.cpan.org/~msergeant/Danga-Socket-1.58/
Event loop and event-driven async socket base class
----
File-HomeDir-0.68_01
http://search.cpan.org/~adamk/File-HomeDir-0.68_01/
Find your home and other directories, on any platform
----
Flickr-Upload-Dopplr-0.21
http://search.cpan.org/~ascope/Flickr-Upload-Dopplr-0.21/
Flickr::Upload subclass to assign location information using Dopplr
----
GD-Icons-0.04
http://search.cpan.org/~pcanaran/GD-Icons-0.04/
Utility for generating series of icons of varying color and shapes
----
Google-Data-JSON-0.1.4
http://search.cpan.org/~takeru/Google-Data-JSON-0.1.4/
General XML-JSON converter based on Google Data APIs
----
HTML-GMap-0.06
http://search.cpan.org/~pcanaran/HTML-GMap-0.06/
Generic framework for building Google Maps displays
----
HTML-SearchPage-0.05
http://search.cpan.org/~pcanaran/HTML-SearchPage-0.05/
Generic framework for building web-based search pages
----
Lemonldap-Handlers-Generic-3.5.6
http://search.cpan.org/~egerman/Lemonldap-Handlers-Generic-3.5.6/
Perl extension for Lemonldap sso system
----
Mail-SpamAssassin-Plugin-Konfidi-1.0.1
http://search.cpan.org/~brondsem/Mail-SpamAssassin-Plugin-Konfidi-1.0.1/
A SpamAssassin plugin that uses the Konfidi distributed trust network for authenticated messages.
----
Memcached-libmemcached-0.1308
http://search.cpan.org/~timb/Memcached-libmemcached-0.1308/
Thin fast full interface to the libmemcached client API
----
Moose-0.34
http://search.cpan.org/~stevan/Moose-0.34/
A postmodern object system for Perl 5
----
MooseX-ClassAttribute-0.04
http://search.cpan.org/~drolsky/MooseX-ClassAttribute-0.04/
Declare class attributes Moose-style
----
Net-Hiveminder-0.03
http://search.cpan.org/~sartak/Net-Hiveminder-0.03/
Perl interface to hiveminder.com
----
Net-Jifty-0.05
http://search.cpan.org/~sartak/Net-Jifty-0.05/
interface to online Jifty applications
----
POE-Component-CPAN-YACSmoke-1.16
http://search.cpan.org/~bingos/POE-Component-CPAN-YACSmoke-1.16/
Bringing the power of POE to CPAN smoke testing.
----
POE-Component-CPAN-YACSmoke-1.18
http://search.cpan.org/~bingos/POE-Component-CPAN-YACSmoke-1.18/
Bringing the power of POE to CPAN smoke testing.
----
POEIKCdaemon-0.00_03
http://search.cpan.org/~suzuki/POEIKCdaemon-0.00_03/
POE IKC daemon
----
Proc-Exists-0.06
http://search.cpan.org/~brianski/Proc-Exists-0.06/
quickly check for process existence
----
Runops-Switch-0.04
http://search.cpan.org/~rgarcia/Runops-Switch-0.04/
Alternate runloop for the perl interpreter
----
Socket-GetAddrInfo-0.08_3
http://search.cpan.org/~pevans/Socket-GetAddrInfo-0.08_3/
RFC 2553's getaddrinfo and getnameinfo functions.
----
Spreadsheet-Engine-0.13
http://search.cpan.org/~tmtm/Spreadsheet-Engine-0.13/
Core calculation engine for a spreadsheet
----
Swarmage-0.01004
http://search.cpan.org/~dmaki/Swarmage-0.01004/
A Distributed Job Queue
----
Text-Tabulate-1.1
http://search.cpan.org/~arif/Text-Tabulate-1.1/
a pretty text data tabulator that minimises the width of tables.
----
Tk-Wizard-Sizer-2.222
http://search.cpan.org/~mthurn/Tk-Wizard-Sizer-2.222/
Interactively determine the best size for your Wizard
----
Unicode-Japanese-0.45
http://search.cpan.org/~hio/Unicode-Japanese-0.45/
Convert encoding of japanese text 1
----
UnixODBC-0.34
http://search.cpan.org/~rkies/UnixODBC-0.34/
Perl extension for unixODBC.
----
Win32-WindowsMedia-0.16
http://search.cpan.org/~shamrock/Win32-WindowsMedia-0.16/
Base Module for Provisiong and control for Windows Media Services
----
perfSONAR_PS-Base-0.05
http://search.cpan.org/~perfsonar/perfSONAR_PS-Base-0.05/
----
perfSONAR_PS-Base-0.06
http://search.cpan.org/~perfsonar/perfSONAR_PS-Base-0.06/
----
perfSONAR_PS-Client-Echo-0.05
http://search.cpan.org/~perfsonar/perfSONAR_PS-Client-Echo-0.05/
A module that provides methods for interacting with perfSONAR Echo services.
----
perfSONAR_PS-Client-Echo-0.06
http://search.cpan.org/~perfsonar/perfSONAR_PS-Client-Echo-0.06/
A module that provides methods for interacting with perfSONAR Echo services.
----
perfSONAR_PS-Client-LS-Remote-0.05
http://search.cpan.org/~perfsonar/perfSONAR_PS-Client-LS-Remote-0.05/
A module that provides a client API for an LS
----
perfSONAR_PS-Client-LS-Remote-0.06
http://search.cpan.org/~perfsonar/perfSONAR_PS-Client-LS-Remote-0.06/
A module that provides a client API for an LS
----
perfSONAR_PS-Client-Status-MA-0.05
http://search.cpan.org/~perfsonar/perfSONAR_PS-Client-Status-MA-0.05/
A module that provides methods for interacting with Status MA servers.
----
perfSONAR_PS-Client-Status-MA-0.06
http://search.cpan.org/~perfsonar/perfSONAR_PS-Client-Status-MA-0.06/
A module that provides methods for interacting with Status MA servers.
----
perfSONAR_PS-Client-Status-SQL-0.05
http://search.cpan.org/~perfsonar/perfSONAR_PS-Client-Status-SQL-0.05/
A module that provides methods for interacting with a Status MA database directly.
----
perfSONAR_PS-Client-Status-SQL-0.06
http://search.cpan.org/~perfsonar/perfSONAR_PS-Client-Status-SQL-0.06/
A module that provides methods for interacting with a Status MA database directly.
----
perfSONAR_PS-Client-Topology-MA-0.05
http://search.cpan.org/~perfsonar/perfSONAR_PS-Client-Topology-MA-0.05/
A module that provides methods for interacting with Topology MA servers.
----
perfSONAR_PS-Client-Topology-MA-0.06
http://search.cpan.org/~perfsonar/perfSONAR_PS-Client-Topology-MA-0.06/
A module that provides methods for interacting with Topology MA servers.
----
perfSONAR_PS-Client-Topology-XMLDB-0.05
http://search.cpan.org/~perfsonar/perfSONAR_PS-Client-Topology-XMLDB-0.05/
A module that provides methods for interacting with a Topology MA database directly.
----
perfSONAR_PS-Client-Topology-XMLDB-0.06
http://search.cpan.org/~perfsonar/perfSONAR_PS-Client-Topology-XMLDB-0.06/
A module that provides methods for interacting with a Topology MA database directly.
----
perfSONAR_PS-Collectors-Daemon-0.05
http://search.cpan.org/~perfsonar/perfSONAR_PS-Collectors-Daemon-0.05/
----
perfSONAR_PS-Collectors-Daemon-0.06
http://search.cpan.org/~perfsonar/perfSONAR_PS-Collectors-Daemon-0.06/
----
perfSONAR_PS-Collectors-LinkStatus-0.05
http://search.cpan.org/~perfsonar/perfSONAR_PS-Collectors-LinkStatus-0.05/
A module that will collect link status information and store the results into a Link Status MA.
----
perfSONAR_PS-Collectors-LinkStatus-0.06
http://search.cpan.org/~perfsonar/perfSONAR_PS-Collectors-LinkStatus-0.06/
A module that will collect link status information and store the results into a Link Status MA.
----
perfSONAR_PS-DB-File-0.05
http://search.cpan.org/~perfsonar/perfSONAR_PS-DB-File-0.05/
A module that provides methods for adding 'database like' functions to files that contain XML markup.
----
perfSONAR_PS-DB-File-0.06
http://search.cpan.org/~perfsonar/perfSONAR_PS-DB-File-0.06/
A module that provides methods for adding 'database like' functions to files that contain XML markup.
----
perfSONAR_PS-DB-RRD-0.05
http://search.cpan.org/~perfsonar/perfSONAR_PS-DB-RRD-0.05/
A module that provides methods for dealing with rrd files through the RRDp perl module.
----
perfSONAR_PS-DB-RRD-0.06
http://search.cpan.org/~perfsonar/perfSONAR_PS-DB-RRD-0.06/
A module that provides methods for dealing with rrd files through the RRDp perl module.
----
perfSONAR_PS-DB-SQL-0.05
http://search.cpan.org/~perfsonar/perfSONAR_PS-DB-SQL-0.05/
A module that provides methods for dealing with common SQL databases.
----
perfSONAR_PS-DB-SQL-0.06
http://search.cpan.org/~perfsonar/perfSONAR_PS-DB-SQL-0.06/
A module that provides methods for dealing with common SQL databases.
----
perfSONAR_PS-DB-XMLDB-0.05
http://search.cpan.org/~perfsonar/perfSONAR_PS-DB-XMLDB-0.05/
A module that provides methods for dealing with the Sleepycat [Oracle] XML database.
----
perfSONAR_PS-DB-XMLDB-0.06
http://search.cpan.org/~perfsonar/perfSONAR_PS-DB-XMLDB-0.06/
A module that provides methods for dealing with the Sleepycat [Oracle] XML database.
----
perfSONAR_PS-Services-Daemon-0.05
http://search.cpan.org/~perfsonar/perfSONAR_PS-Services-Daemon-0.05/
----
perfSONAR_PS-Services-Daemon-0.06
http://search.cpan.org/~perfsonar/perfSONAR_PS-Services-Daemon-0.06/
----
perfSONAR_PS-Services-LS-0.05
http://search.cpan.org/~perfsonar/perfSONAR_PS-Services-LS-0.05/
----
perfSONAR_PS-Services-LS-0.06
http://search.cpan.org/~perfsonar/perfSONAR_PS-Services-LS-0.06/
----
perfSONAR_PS-Services-MA-Base-0.05
http://search.cpan.org/~perfsonar/perfSONAR_PS-Services-MA-Base-0.05/
----
perfSONAR_PS-Services-MA-Base-0.06
http://search.cpan.org/~perfsonar/perfSONAR_PS-Services-MA-Base-0.06/
----
perfSONAR_PS-Services-MA-SNMP-0.05
http://search.cpan.org/~perfsonar/perfSONAR_PS-Services-MA-SNMP-0.05/
----
perfSONAR_PS-Services-MA-SNMP-0.06
http://search.cpan.org/~perfsonar/perfSONAR_PS-Services-MA-SNMP-0.06/
----
perfSONAR_PS-Services-MA-Status-0.05
http://search.cpan.org/~perfsonar/perfSONAR_PS-Services-MA-Status-0.05/
A module that provides methods for the Status MA.
----
perfSONAR_PS-Services-MA-Status-0.06
http://search.cpan.org/~perfsonar/perfSONAR_PS-Services-MA-Status-0.06/
A module that provides methods for the Status MA.
----
perfSONAR_PS-Services-MA-Topology-0.05
http://search.cpan.org/~perfsonar/perfSONAR_PS-Services-MA-Topology-0.05/
A module that provides methods for the Topology MA.
----
perfSONAR_PS-Services-MA-Topology-0.06
http://search.cpan.org/~perfsonar/perfSONAR_PS-Services-MA-Topology-0.06/
A module that provides methods for the Topology MA.
----
perfSONAR_PS-Status-Common-0.05
http://search.cpan.org/~perfsonar/perfSONAR_PS-Status-Common-0.05/
A module that provides common methods for Link Status clients and services within the perfSONAR-PS framework.
----
perfSONAR_PS-Status-Common-0.06
http://search.cpan.org/~perfsonar/perfSONAR_PS-Status-Common-0.06/
A module that provides common methods for Link Status clients and services within the perfSONAR-PS framework.
----
perfSONAR_PS-Topology-Common-0.05
http://search.cpan.org/~perfsonar/perfSONAR_PS-Topology-Common-0.05/
A module that provides various utility functions for Topology structures.
----
perfSONAR_PS-Topology-Common-0.06
http://search.cpan.org/~perfsonar/perfSONAR_PS-Topology-Common-0.06/
A module that provides various utility functions for Topology structures.
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: Tue, 22 Jan 2008 07:20:18 GMT
From: zerospam@example.com (Bryce)
Subject: Newbie Perl Question
Message-Id: <SOglj.5790$Wr4.249@trnddc04>
Can anyone help me modify this Perl script?
#!/usr/bin/perl
use CGI ':standard';
$query = new CGI;
print redirect($query->param("url"));
I need it to send a standard 404 response (instead of the standard redirect()
seen above) if the "url" GET parameter was non-existent or null, or if the HTTP
Referer didn't contain the case insensitive substring "mysite.com/thisurl.php".
I like helping myself and tried my best using tutorials to do this on my own.
Alas, my attempts have failed. Nothing but 500 server errors. E.g.:
#!/usr/bin/perl
use CGI ':standard';
$query = new CGI;
$destination = $query->param("url")
$origin = $ENV{'HTTP_REFERER'}
if ($destination !eq '' && $origin =~ /mysite\.com\/thisurl\.php/) {
print redirect($destination);
} else {
print "Status: 404 Not Found\n\n";
}
Many thanks, and apologizes in advance for my n00bness.
------------------------------
Date: Tue, 22 Jan 2008 00:02:55 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: What's the best way to test existence of arguments
Message-Id: <fn3brf$6sn$1@agate.berkeley.edu>
[A complimentary Cc of this posting was sent to
Joost Diepenmaat
<joost@zeekat.nl>], who wrote in article <87d4rvhz1t.fsf@zeekat.nl>:
> GetOpt::Long should give you all the control you'd need, including
> default values, types and real named options and readable variable
> names. It's a bit more verbose than GetOpt, but IMO it's also more
> readable and definitely more flexible.
Do not know as now, but a couple of years ago ::Long had some
limitations which ::Std did not. (I started a rewrite, but did not
finish it.)
Hope this helps,
Ilya
------------------------------
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 1220
***************************************
