[30647] in Perl-Users-Digest
Perl-Users Digest, Issue: 1892 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Oct 1 09:09:48 2008
Date: Wed, 1 Oct 2008 06:09:11 -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 Wed, 1 Oct 2008 Volume: 11 Number: 1892
Today's topics:
"AUTOLOAD" for variables? <u8526505@gmail.com>
Re: "AUTOLOAD" for variables? <ben@morrow.me.uk>
Re: Advice on module for plotting graphs (Vicky Conlan)
Re: Advice on module for plotting graphs <mgjv@tradingpost.com.au>
Re: Advice on module for plotting graphs (Vicky Conlan)
Date Conversion <josef.moellers@fujitsu-siemens.com>
Re: Date Conversion <josef.moellers@fujitsu-siemens.com>
Re: extracting strings from a text file <yandry77@gmail.com>
Re: File edits in a Perlish way <bernie@fantasyfarm.com>
Re: file locks and a counter <mgjv@tradingpost.com.au>
Re: file locks and a counter <tadmc@seesig.invalid>
Re: file locks and a counter <richard@example.invalid>
new CPAN modules on Wed Oct 1 2008 (Randal Schwartz)
Proxy in perl <parvinderb@gmail.com>
Re: Proxy in perl <tim@burlyhost.com>
Re: Question about regex (nagios plugin) <xml.devel@gmail.com>
yaku perl <john.swilting@wanadoo.fr>
Re: yaku perl <jurgenex@hotmail.com>
Re: yaku perl <tim@burlyhost.com>
Re: yaku perl <bill@ts1000.us>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 1 Oct 2008 03:16:33 -0700 (PDT)
From: cyl <u8526505@gmail.com>
Subject: "AUTOLOAD" for variables?
Message-Id: <091192da-5a5f-43e8-aa8e-2a51c37b865e@z72g2000hsb.googlegroups.com>
When an AUTOLOAD function is implemented, I can do something such as
delegating a nonexistent method to another package. I'm wondering if
there is a similar way to do this for variables exported by a module?
Here is my demonstration sample code
#### main.pl ####
use TestA;
use TestB;
TestB::FuncA();
print $TestB::VarA;
#### TestA.pm ####
package TestA;
@ISA = qw(Exporter);
@EXPORT = qw($VarA);
our $VarA = "VarA";
sub FuncA
{
print "TestA\n";
}
#### TestB.pm ####
package TestB;
#our $VarA = $TestA::VarA;
1;
sub AUTOLOAD
{
$AUTOLOAD =~ s/TestB/TestA/;
&$AUTOLOAD;
}
__END__
Running the script will get TestA::FuncA invoked but $TestB::VarA
undefined unless I remove the comment in TestB.pm. I want to know a
method that can do the transparent relay for a nonexistent variable in
TestB to TestA. Thanks.
------------------------------
Date: Wed, 1 Oct 2008 12:05:52 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: "AUTOLOAD" for variables?
Message-Id: <g52cr5-4k4.ln1@osiris.mauzo.dyndns.org>
Quoth cyl <u8526505@gmail.com>:
> When an AUTOLOAD function is implemented, I can do something such as
> delegating a nonexistent method to another package. I'm wondering if
> there is a similar way to do this for variables exported by a module?
No, there isn't. Why do you want to do this? This implies you have a
variable name that isn't known until runtime, which in turn implies you
should be storing these variables in an ordinary hash instead of in the
symbol table.
Ben
--
Outside of a dog, a book is a man's best friend.
Inside of a dog, it's too dark to read.
ben@morrow.me.uk Groucho Marx
------------------------------
Date: Tue, 30 Sep 2008 23:00:14 +0000 (UTC)
From: comps@riffraff.plig.net (Vicky Conlan)
Subject: Re: Advice on module for plotting graphs
Message-Id: <gbub1u$2gc6$1@magenta.plig.net>
According to <jimsgibson@gmail.com>:
>What platform are you on?
Solaris.
>Why do you think gnuplot is not available?
Because it's not installed on the machine I am developing on (definitely), I'm
about 99% sure it's not available on the machine it would eventually run on,
and getting things installed introduces an extra level of hassle.
>Gnuplot would be my recommended approach. It is available as source and
>supports many platforms. I have used on Windows, Linux, and Mac OSX.
It does have one extra advantage, in that I've used it before (although not via
Perl, but that shouldn't matter too much). Hmm. I'll see about getting it
installed (I can do it myself for development, but if I do that and then get
the knock back for having it installed on production, that's going to be a bit
of a spanner in the works!), but would still welcome suggestions for alternatives
--
------------------------------
Date: Wed, 1 Oct 2008 10:59:37 +1000
From: Martien Verbruggen <mgjv@tradingpost.com.au>
Subject: Re: Advice on module for plotting graphs
Message-Id: <p1iubg.89n.ln@news.heliotrope.home>
On Tue, 30 Sep 2008 14:38:43 +0000 (UTC),
Vicky Conlan <comps@riffraff.plig.net> wrote:
> I'm currently writing a small system to automate a process of
> "cut+paste into excel, output as a graph" someone is currently
> having to do. Importing and munging the data I'm happy* with,
> creating a graph I have absolutely no experience of.
It depends a bit on what sorts of charts you want to create (what's on
the X and Y axes?). I use GD::Graph a lot, but that's probably because I
wrote it. It only really does business-style charts.
The Chart distribution is quite complete and works well.
I also use gnuplot a lot for those areas where GD::Graph doesn't work,
like 3D plots, function plotting, etc. Interfacing with gnuplot is not
hard.
Martien
--
|
Martien Verbruggen | There are only 10 types of people in the
| world; those who understand binary and those
| who don't.
------------------------------
Date: Wed, 1 Oct 2008 11:01:04 +0000 (UTC)
From: comps@riffraff.plig.net (Vicky Conlan)
Subject: Re: Advice on module for plotting graphs
Message-Id: <gbvl9g$iqu$2@magenta.plig.net>
According to <mgjv@tradingpost.com.au>:
>It depends a bit on what sorts of charts you want to create (what's on
>the X and Y axes?). I use GD::Graph a lot, but that's probably because I
>wrote it. It only really does business-style charts.
I'll take a look. Could be handy having the author at hand. ;-)
At the moment, "simple" graphs would probably do, but I get the
feeling that the requirements may be subject to ... expansion some
time in the future.
>The Chart distribution is quite complete and works well.
>
>I also use gnuplot a lot for those areas where GD::Graph doesn't work,
>like 3D plots, function plotting, etc. Interfacing with gnuplot is not
>hard.
Ah, but interfacing with gnuplot /is/ hard if I can't get gnuplot
installed on the machine it needs to run on.
Having used both, how tricky would you expect it to be if I wrote with
GD::Graph in mind, then had to switch to a gnuplot option at a later
date? (ie, are the interfaces similar enough to make it a simple switch,
or a significant re-write?)
--
------------------------------
Date: Wed, 01 Oct 2008 11:57:44 +0200
From: Josef Moellers <josef.moellers@fujitsu-siemens.com>
Subject: Date Conversion
Message-Id: <gbvhio$gh8$1@nntp.fujitsu-siemens.com>
Hi,
When I retrieve position information from my GPS tracker in KML format,
the date/time is encoded as "2008-09-25T06:20:13Z".
Does anyone know how to convert this to some local time format?
TIA,
Josef
--
These are my personal views and not those of Fujitsu Siemens Computers!
Josef Möllers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize (T. Pratchett)
Company Details: http://www.fujitsu-siemens.com/imprint.html
------------------------------
Date: Wed, 01 Oct 2008 12:17:13 +0200
From: Josef Moellers <josef.moellers@fujitsu-siemens.com>
Subject: Re: Date Conversion
Message-Id: <gbvin8$krs$1@nntp.fujitsu-siemens.com>
Josef Moellers wrote:
> Hi,
>
> When I retrieve position information from my GPS tracker in KML format,
> the date/time is encoded as "2008-09-25T06:20:13Z".
> Does anyone know how to convert this to some local time format?
Sorry to have bothered, I found it myself:
* dateTime (YYYY-MM-DDThh:mm:ssZ)
Here, T is the separator between the calendar and the hourly
notation of time, and Z indicates UTC. (Seconds are required.)
Josef
--
These are my personal views and not those of Fujitsu Siemens Computers!
Josef Möllers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize (T. Pratchett)
Company Details: http://www.fujitsu-siemens.com/imprint.html
------------------------------
Date: Wed, 1 Oct 2008 03:43:44 -0700 (PDT)
From: Andry <yandry77@gmail.com>
Subject: Re: extracting strings from a text file
Message-Id: <dd96df0f-0856-4996-8073-029e19748d6b@x35g2000hsb.googlegroups.com>
On 30 Set, 18:57, Tim Greer <t...@burlyhost.com> wrote:
> Andry wrote:
> > Hi,
> > I have a text file captured from an SSH session.
> > Each line of the text looks like this (opened with VI editor):
>
> *************************************************************************=
**********> -rw-r--r-- 1 root root 2389787 Sep 30 10:45 ^[[00mfilename.pl^[=
[00m
>
> *************************************************************************=
*********> As you can see a lot of spurious/control/special characters are =
shown
> > (in VI editor).
> > I need to extract just the filenames at the end of each line (getting
> > rid of spurious characters).
> > The result should be like this:
>
> *************************************************************************=
**********> filename.pl
>
> *************************************************************************=
**********
>
> > Of course, I don't know in advance the value of the string to extract
> > (nor its length to pass to a "substring" function).
> > Can you suggest any method to extract the single file name at the end
> > of each line?
>
> > Thank you,
> > Andrea
>
> my $line =3D '-rw-r--r-- 1 root root 2389787 Sep 30 10:45
> ^[[00mfilename.pl^[[00m';
>
> $line =3D (split /\s+/, $line)[8];
> $line =3D~ s/\^\[\[00m//g;
>
> One way to do it.
> --
> Tim Greer, CEO/Founder/CTO, BurlyHost.com, Inc.
> Shared Hosting, Reseller Hosting, Dedicated & Semi-Dedicated servers
> and Custom Hosting. =A024/7 support, 30 day guarantee, secure servers.
> Industry's most experienced staff! -- Web Hosting With Muscle!
Thanks guys!
All your suggestions were very helpful to me.
Andrea
------------------------------
Date: Wed, 01 Oct 2008 07:28:43 -0400
From: Bernie Cosell <bernie@fantasyfarm.com>
Subject: Re: File edits in a Perlish way
Message-Id: <tfn6e4puhsf11of2iq5r57ot03ju679vro@library.airnews.net>
Tad J McClellan <tadmc@seesig.invalid> wrote:
} Bernie Cosell <bernie@fantasyfarm.com> wrote:
}
} > Processing a file in-place [as he said he wants to do, since his
} > pseudo-code didn't include an output file] is pretty tricky to do line by
} > line, no?
} No.
}
} eg: Add line numbers to a file in-place:
}
} perl -p -i -e 's/^/$. /' some.file
}
} not at all tricky.
I'll just mention that "in place" means different things to different
people. "-i" isn't really an "in place" edit at all, but just hides the
renaming and copying. For example, on Unix: Create a file in a directory.
Give yourself "w" permission on the file but *take*away* write permission
on the directory. Then the klunky "slurp/editarray/seek/write/truncate"
*WILL*WORK*, but "-i" won't.
/bernie\
--
Bernie Cosell Fantasy Farm Fibers
bernie@fantasyfarm.com Pearisburg, VA
--> Too many people, too few sheep <--
------------------------------
Date: Wed, 1 Oct 2008 08:55:34 +1000
From: Martien Verbruggen <mgjv@tradingpost.com.au>
Subject: Re: file locks and a counter
Message-Id: <6paubg.1pa.ln@news.heliotrope.home>
On Tue, 30 Sep 2008 13:22:56 -0600,
Richard Nixon <richard@example.invalid> wrote:
> Line 230 is the sysopen line here:
>
> sub check_lock {
> $time = $_[0];
>
> for ($i = 1;$i <= $time; $i++) {
> if (-e "$data_dir$lock_file") {
> sleep 1;
> }
> else {
> sysopen(FH, $path, O_WRONLY|O_EXCL|O_CREAT) or die $!;
> print LOCK "0";
> close(LOCK);
> last;
> }
> }
> }
And earlier, the error message:
> F:\gfortran\source>perl gary1.pl
> Content-type: text/html
>
> No such file or directory at gary1.pl line 230.
The O_CREAT flag in sysopen means that it will create the file if it
doesn't exist. The perlfunc documentation gives you a full description
of sysopen. it also uses O_EXCL, which means it should fail if the file
already exists, which seems odd. This means that the 'lock file' would
cause a program to exit, instead of wait for the lock to be released. I
would assume that trying to deal with the error would be better than to
die.
Anyway, the error message you got was "No such file or directory", which
most likely means that the $path variable was set to create a file in a
place that doesn't exist. For example, if $path = "/tmp/foo/bar.lock",
and /tmp/foo does not exist, then you get that error.
If the file already exists, the error message will be something like
"File exists", and the program will exit, instead of trying again later
or waiting.
> There's no great surprise here, as I've got no file for it to open, so I
> think I'm at the level where I can't pursue this further.
You do not need a file for it to open. On the contrary, you need the
file not to exist yet when this code runs.
> Does this address the file lock issue adequately?
I am not sure what you mean by 'file lock issue', and I haven't read
the full thread leading up to this. I assume you have already been
pointed to the FAQ entry "How can I lock a file?" and the "File Locking"
section in the perlopentut documentation?
Martien
--
|
Martien Verbruggen | Blessed are the Fundamentalists, for they
| shall inhibit the earth.
|
------------------------------
Date: Tue, 30 Sep 2008 17:56:36 -0500
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: file locks and a counter
Message-Id: <slrnge5bl4.nde.tadmc@tadmc30.sbcglobal.net>
Richard Nixon <richard@example.invalid> wrote:
> for ($i = 1;$i <= $time; $i++) {
foreach $i ( 1 .. $time ) { # does the same thing
or, better:
foreach my $i ( 1 .. $time ) { # scope your variables
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: 1 Oct 2008 08:09:54 GMT
From: Richard Nixon <richard@example.invalid>
Subject: Re: file locks and a counter
Message-Id: <5ugzg5rag0aj$.19cv0v96xgugm$.dlg@40tude.net>
On Wed, 1 Oct 2008 08:55:34 +1000, Martien Verbruggen wrote:
>> Does this address the file lock issue adequately?
>
> I am not sure what you mean by 'file lock issue', and I haven't read
> the full thread leading up to this. I assume you have already been
> pointed to the FAQ entry "How can I lock a file?" and the "File Locking"
> section in the perlopentut documentation?
Martin--
Die voellige Pfade kann ich auch nicht rechnen, ohne engere Beziehungen.
Ich bin nicht, cowboy an keyboard, eines anderen Servers.
Deswegen wird yefraagt.
>
>
> Martien
> --
> |
> Martien Verbruggen | Blessed are the Fundamentalists, for they
> | shall inhibit the earth.
> |
Yesegnet wuerden die fundies, falls diese Typen dem Herrn yefielen.
--
Richard Milhous Nixon
But who prays for Satan? Who, in eighteen centuries, has had the common
humanity to pray for the one sinner that needed it most?
~~ Mark Twain
------------------------------
Date: Wed, 1 Oct 2008 04:42:22 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Wed Oct 1 2008
Message-Id: <K81MEM.1G80@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.
AIX-Perfstat-0.04.1
http://search.cpan.org/~aciddeath/AIX-Perfstat-0.04.1/
Perl wrapper for perfstat() functions.
----
App-Bondage-0.4.0
http://search.cpan.org/~hinrik/App-Bondage-0.4.0/
A featureful IRC bouncer based on POE::Component::IRC
----
App-Bondage-0.4.1
http://search.cpan.org/~hinrik/App-Bondage-0.4.1/
A featureful IRC bouncer based on POE::Component::IRC
----
Astro-SpaceTrack-0.033
http://search.cpan.org/~wyant/Astro-SpaceTrack-0.033/
Retrieve orbital data from www.space-track.org.
----
BerkeleyDB-0.36
http://search.cpan.org/~pmqs/BerkeleyDB-0.36/
Perl extension for Berkeley DB version 2, 3 or 4
----
Collection-0.39
http://search.cpan.org/~zag/Collection-0.39/
Collections framework for to CRUD data or objects.
----
Crypt-CBC-2.30
http://search.cpan.org/~lds/Crypt-CBC-2.30/
Encrypt Data with Cipher Block Chaining Mode
----
Crypt-OpenSSL-CA-0.19
http://search.cpan.org/~domq/Crypt-OpenSSL-CA-0.19/
The crypto parts of an X509v3 Certification Authority
----
Crypt-Skip32-Base32Crockford-0.32
http://search.cpan.org/~lbrocard/Crypt-Skip32-Base32Crockford-0.32/
Create url-safe encodings of 32-bit values
----
DBIx-Compare-1.3
http://search.cpan.org/~cjones/DBIx-Compare-1.3/
Compare database content
----
DBIx-Compare-1.3c
http://search.cpan.org/~cjones/DBIx-Compare-1.3c/
Compare database content
----
DBIx-Compare-ContentChecksum-mysql-1.3c
http://search.cpan.org/~cjones/DBIx-Compare-ContentChecksum-mysql-1.3c/
Extension to DBIx::Compare, enables more detailed comparison of MySQL databases.
----
Deliantra-Client-0.9977
http://search.cpan.org/~mlehmann/Deliantra-Client-0.9977/
----
Device-Gsm-1.50
http://search.cpan.org/~cosimo/Device-Gsm-1.50/
Perl extension to interface GSM phones / modems
----
Device-Modem-1.50
http://search.cpan.org/~cosimo/Device-Modem-1.50/
Perl extension to talk to modem devices connected via serial port
----
Exception-Class-TryCatch-1.11
http://search.cpan.org/~dagolden/Exception-Class-TryCatch-1.11/
Syntactic try/catch sugar for use with Exception::Class
----
File-Assets-0.064_1
http://search.cpan.org/~rkrimen/File-Assets-0.064_1/
Manage .css and .js assets for a web page or application
----
File-HomeDir-0.81
http://search.cpan.org/~adamk/File-HomeDir-0.81/
Find your home and other directories, on any platform
----
File-Mountpoint-0.01
http://search.cpan.org/~jhoblitt/File-Mountpoint-0.01/
see if a directory is a mountpoint
----
Finance-Bank-Cahoot-1.03
http://search.cpan.org/~masaccio/Finance-Bank-Cahoot-1.03/
Check your Cahoot bank accounts from Perl
----
Geo-IP-1.35
http://search.cpan.org/~borisz/Geo-IP-1.35/
Look up location and network information by IP Address
----
Geo-IP-PurePerl-1.22
http://search.cpan.org/~borisz/Geo-IP-PurePerl-1.22/
Look up country by IP Address
----
Geo-JapanMesh-0.0.2
http://search.cpan.org/~kokogiko/Geo-JapanMesh-0.0.2/
Convert between latitude/longitude and Japanese geographical mesh code
----
Graphics-ColorPicker-0.11
http://search.cpan.org/~miker/Graphics-ColorPicker-0.11/
: A perl module for WYSIWYG web applications that allow selection of HEX color numbers
----
HTML-Tested-0.4
http://search.cpan.org/~bosu/HTML-Tested-0.4/
Provides HTML widgets with the built-in means of testing.
----
HTML-WebDAO-0.91
http://search.cpan.org/~zag/HTML-WebDAO-0.91/
Perl extension for create complex web application
----
HTTP-MobileAgent-Plugin-RoamingZone-0.0.3
http://search.cpan.org/~kokogiko/HTTP-MobileAgent-Plugin-RoamingZone-0.0.3/
???????????/??????????????
----
IPTables-IPv4-DBTarpit-0.39
http://search.cpan.org/~miker/IPTables-IPv4-DBTarpit-0.39/
----
JE-0.028
http://search.cpan.org/~sprout/JE-0.028/
Pure-Perl ECMAScript (JavaScript) Engine
----
Mail-SMTP-Honeypot-0.07
http://search.cpan.org/~miker/Mail-SMTP-Honeypot-0.07/
Dummy mail server
----
MetaStore-0.29
http://search.cpan.org/~zag/MetaStore-0.29/
Set of classes for multiuser web applications.
----
Mobile-Data-ITU-0.0.1
http://search.cpan.org/~kokogiko/Mobile-Data-ITU-0.0.1/
Convert ITU area code into country name
----
Mobile-Data-SID-0.0.1
http://search.cpan.org/~kokogiko/Mobile-Data-SID-0.0.1/
Convert IFAST SID into country name
----
Net-LDAP-Entry-ToText-0.0.0
http://search.cpan.org/~vvelox/Net-LDAP-Entry-ToText-0.0.0/
Conterts a Net::LDAP::Entry object to text.
----
Net-LDAP-posixAccount-0.0.1
http://search.cpan.org/~vvelox/Net-LDAP-posixAccount-0.0.1/
The great new Net::LDAP::posixAccount!
----
Net-LDAP-posixGroup-0.0.0
http://search.cpan.org/~vvelox/Net-LDAP-posixGroup-0.0.0/
Creates new Net::LDAP::Entry objects for a posixGroup entry.
----
Net-Ping-Network-1.61
http://search.cpan.org/~angerstei/Net-Ping-Network-1.61/
A modul to ICMP-request nodes in a network (or list) very fast
----
Net-SIP-0.49
http://search.cpan.org/~sullr/Net-SIP-0.49/
Framework SIP (Voice Over IP, RFC3261)
----
Net-SSH-Perl-1.30_1
http://search.cpan.org/~turnstep/Net-SSH-Perl-1.30_1/
Perl client Interface to SSH
----
PAR-Dist-0.35
http://search.cpan.org/~smueller/PAR-Dist-0.35/
Create and manipulate PAR distributions
----
PAR-Dist-0.36
http://search.cpan.org/~smueller/PAR-Dist-0.36/
Create and manipulate PAR distributions
----
Rose-DBx-Object-Renderer-0.35
http://search.cpan.org/~danny/Rose-DBx-Object-Renderer-0.35/
Web UI Rendering for Rose::DB::Object
----
SMS-Claro-0.1
http://search.cpan.org/~tbr/SMS-Claro-0.1/
Send SMS messages via Claro (BAE).
----
Shell-Amazon-S3-0.04_02
http://search.cpan.org/~kitano/Shell-Amazon-S3-0.04_02/
Shell for Amazon S3
----
Sys-Group-GIDhelper-0.0.0
http://search.cpan.org/~vvelox/Sys-Group-GIDhelper-0.0.0/
Helps for locating free GIDs.
----
Sys-User-UIDhelper-0.0.0
http://search.cpan.org/~vvelox/Sys-User-UIDhelper-0.0.0/
Helps for locating free UIDs.
----
TAP-Harness-Remote-1.00
http://search.cpan.org/~alexmv/TAP-Harness-Remote-1.00/
Run tests on a remote server farm
----
TAP-Harness-Remote-EC2-1.00
http://search.cpan.org/~alexmv/TAP-Harness-Remote-EC2-1.00/
Run tests on EC2 servers
----
Test-Trap-0.2.0
http://search.cpan.org/~ebhanssen/Test-Trap-0.2.0/
Trap exit codes, exceptions, output, etc.
----
URI-Title-1.82
http://search.cpan.org/~tomi/URI-Title-1.82/
get the titles of things on the web in a sensible way
----
WWW-Search-Ebay-2.247
http://search.cpan.org/~mthurn/WWW-Search-Ebay-2.247/
backend for searching www.ebay.com
----
WWW-Search-Ebay-Europe-2.005
http://search.cpan.org/~mthurn/WWW-Search-Ebay-Europe-2.005/
----
WWW-UsePerl-Journal-Thread-0.12
http://search.cpan.org/~barbie/WWW-UsePerl-Journal-Thread-0.12/
Handles the retrieval of UsePerl journal comment threads.
----
WebService-Backlog-0.05
http://search.cpan.org/~yamamoto/WebService-Backlog-0.05/
Perl interface to Backlog.
----
WebService-Google-Language-0.03
http://search.cpan.org/~hma/WebService-Google-Language-0.03/
Perl interface to the Google AJAX Language API
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: Wed, 1 Oct 2008 00:30:18 -0700 (PDT)
From: secSwami <parvinderb@gmail.com>
Subject: Proxy in perl
Message-Id: <fead450c-c2ad-43bf-93b5-cc3db64241df@25g2000hsk.googlegroups.com>
Hi,
I am trying to write up a proxy client in perl. I have finished part
of it where the script listens on port 7070 and when you configure
your browser to use that port, it will get the webpage just fine but I
see that if the page has calls out to other servers for images etc,
the request half heartedly fails and I just get the web page minus the
content that is hosted on some other website. Can someone shine some
light if and how I can have the proxy app fetch those urls too?
Thanks
------------------------------
Date: Wed, 01 Oct 2008 01:01:10 -0700
From: Tim Greer <tim@burlyhost.com>
Subject: Re: Proxy in perl
Message-Id: <b7GEk.9197$YN5.8363@newsfe03.iad>
secSwami wrote:
> Hi,
>
> I am trying to write up a proxy client in perl. I have finished part
> of it where the script listens on port 7070 and when you configure
> your browser to use that port, it will get the webpage just fine but I
> see that if the page has calls out to other servers for images etc,
> the request half heartedly fails and I just get the web page minus the
> content that is hosted on some other website. Can someone shine some
> light if and how I can have the proxy app fetch those urls too?
>
> Thanks
It's hard to say without knowing the script you use or how it works. It
could just be displaying the content via the script on the "proxy
server" with the HTML/text and wants to just call the images normally,
as if they are also on that same server, at their expected relative or
absolute paths. You'd probably want to have the script prepend the
domain and appropriate path, as it would be seen on the server it's
fetching the content from (assuming they don't prevent that (especially
by blocking invalid refers -- not that those can't be bypassed)). You
could fetch the images, at least temporarily, too, depending on how you
want it to work.
--
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: Wed, 1 Oct 2008 02:24:21 -0700 (PDT)
From: Ashish Kumar <xml.devel@gmail.com>
Subject: Re: Question about regex (nagios plugin)
Message-Id: <7d99bb63-b86a-4f95-a146-dd8b356d0e8a@t41g2000hsc.googlegroups.com>
> You can add a check in the script to determine the OS version, or add an
> optional last field and value (which if blank, you can assume is the
> older OS version). =A0
True but I was just wondering if there was any possibility of getting
this to work.
> if ($get_cpu_util =3D~ /^.*\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s*(\d+)?\s*$/=
)
It worked as expected. Since I am fairly new to regex, I am still
trying to figure out how it worked though.
Thanks.
------------------------------
Date: Tue, 30 Sep 2008 23:07:08 +0200
From: swilting <john.swilting@wanadoo.fr>
Subject: yaku perl
Message-Id: <48e29510$0$968$ba4acef3@news.orange.fr>
[swilting@your-ab6cd29f8e ~]$ perl -e {{{{}}}} | cat >aout.txt |
cat /bin/ps | ps -A | more
This keeps the permissions to own perl
after all it could put anything at the end of the line
in there not even on ;
is the return of 5.6.1
I believe
------------------------------
Date: Tue, 30 Sep 2008 15:08:19 -0700
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: yaku perl
Message-Id: <rm85e45idnkf88imp10a9rjuudb1vlvq1u@4ax.com>
swilting <john.swilting@wanadoo.fr> wrote:
>[swilting@your-ab6cd29f8e ~]$ perl -e {{{{}}}} | cat >aout.txt |
>cat /bin/ps | ps -A | more
>
>
>This keeps the permissions to own perl
>after all it could put anything at the end of the line
>in there not even on ;
What on earth are you rambling about?
Would you mind applying English syntax, punctuation, and grammar to that
sequence of English words, please?
jue
------------------------------
Date: Tue, 30 Sep 2008 15:34:32 -0700
From: Tim Greer <tim@burlyhost.com>
Subject: Re: yaku perl
Message-Id: <YPxEk.2634$i84.877@newsfe10.iad>
swilting wrote:
> [swilting@your-ab6cd29f8e ~]$ perl -e {{{{}}}} | cat >aout.txt |
> cat /bin/ps | ps -A | more
>
>
> This keeps the permissions to own perl
> after all it could put anything at the end of the line
> in there not even on ;
>
> is the return of 5.6.1
> I believe
I can't make sense of your post here? Looking at the command you've
supplied, you'd get the same results by just typing: ps -A so I'm
unsure how Perl is related to your question or if you intended to
provide more information (code, details, etc.)
--
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: Wed, 1 Oct 2008 02:48:35 -0700 (PDT)
From: Bill H <bill@ts1000.us>
Subject: Re: yaku perl
Message-Id: <01f00c0e-4d53-40d6-bfc2-e6c8b3018ee9@m36g2000hse.googlegroups.com>
On Sep 30, 6:34=A0pm, Tim Greer <t...@burlyhost.com> wrote:
> swilting wrote:
> > [swilting@your-ab6cd29f8e ~]$ perl -e {{{{}}}} | cat >aout.txt |
> > cat /bin/ps | ps -A | more
>
> > This keeps the permissions to own perl
> > after all it could put anything at the end of the line
> > in there not even on ;
>
> > is the return of 5.6.1
> > I believe
>
> I can't make sense of your post here? =A0Looking at the command you've
> supplied, you'd get the same results by just typing: ps -A so I'm
> unsure how Perl is related to your question or if you intended to
> provide more information (code, details, etc.)
> --
> Tim Greer, CEO/Founder/CTO, BurlyHost.com, Inc.
> Shared Hosting, Reseller Hosting, Dedicated & Semi-Dedicated servers
> and Custom Hosting. =A024/7 support, 30 day guarantee, secure servers.
> Industry's most experienced staff! -- Web Hosting With Muscle!
My Engrish is pretty rusty but I think he is trying to say that using
the above you can do things you don't have permission to do, as long
as perl has permission to do it.
Bill H
------------------------------
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 1892
***************************************
