[28570] in Perl-Users-Digest
Perl-Users Digest, Issue: 9934 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Nov 6 03:05:57 2006
Date: Mon, 6 Nov 2006 00:05:09 -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 Mon, 6 Nov 2006 Volume: 10 Number: 9934
Today's topics:
ANNOUNCE: Win32::GUI v1.05 <rmay@popeslane.clara.co.uk>
catch hitting crtl-c twice <news12@8439.e4ward.com>
Re: catch hitting crtl-c twice <sisyphus1@nomail.afraid.org>
Re: catch hitting crtl-c twice <news12@8439.e4ward.com>
Re: catch hitting crtl-c twice <news12@8439.e4ward.com>
Re: catch hitting crtl-c twice <sisyphus1@nomail.afraid.org>
Re: catch hitting crtl-c twice <benmorrow@tiscali.co.uk>
Re: Getting huge data into memory in perl <ced@blv-sam-01.ca.boeing.com>
Re: Getting huge data into memory in perl <ced@blv-sam-01.ca.boeing.com>
HTTP::Request::Common Post problem matlaw@gmail.com
Re: Keep getting error with email validation script <tadmc@augustmail.com>
Re: Keep getting error with email validation script <tadmc@augustmail.com>
new CPAN modules on Mon Nov 6 2006 (Randal Schwartz)
Perl and OpenGL <mm@mohr.de>
Re: Question on having the hash not butt plug my comput <nobull67@gmail.com>
Re: Scan forward n lines from specified file offset <DJStunks@gmail.com>
Re: Scan forward n lines from specified file offset <tadmc@augustmail.com>
Re: warnings or -w ? <tadmc@augustmail.com>
Re: warnings or -w ? <tadmc@augustmail.com>
Re: www::mechanize and forms yankeeinexile@gmail.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 5 Nov 2006 21:19:24 GMT
From: Robert May <rmay@popeslane.clara.co.uk>
Subject: ANNOUNCE: Win32::GUI v1.05
Message-Id: <J8A78q.xyF@zorch.sf-bay.org>
I am please to announce that v1.05 of Win32::GUI is available for
download from SourceForge and CPAN.
Win32::GUI is a Perl extension allowing creation of native Win32 GUI
applications.
MORE INFORMATION
Project Homepage:
http://perl-win32-gui.sourceforge.net/
Project summary:
http://sourceforge.net/projects/perl-win32-gui/
Downloads:
- Source and ActiveState Perl PPM distributions:
http://sourceforge.net/project/showfiles.php?group_id=16572
- Source only:
http://search.cpan.org/~robertmay/Win32-GUI-1.04/
Release notes:
https://sourceforge.net/project/shownotes.php?release_id=455710
RELEASE NOTES AND CHANGES
NAME
Win32::GUI::ReleaseNotes::RN_1_05 - release notes for v1.05 of
Win32::GUI
Release Date
5th November, 2006
Summary of Changes
This is a summary of changes between V1.04 and V1.05 See the CHANGELOG
file in the distribution for the full detail.
This release is a bug-fix release addressing the issues below.
New Features
There are no new features in this release.
Bug Fixes
NEM Events for NotifyIcon broken
Fix NEM events for the NotifyIcon Class (Tracker: 1585293)
Combobox SetEditSel method
Fix bug preventing setting the starting index to anything other
than
0, and add documentation. (Tracker: 1586617)
Fix AbsLeft and AbsTop methods
Fix a bug where AbsLeft and AbsTop were not correctly being
converted to client co-ordinates for child windows (Tracker:
1578492)
Include POD documentation in PPM
Some time ago it was decided that in order to keep the size of the
PPM distributions as small as possible we would exclude the POD
documentation from the PPM files, and only include the HTML
documentation. From this release both POD and HTML documentation is
included in the PPM. This fixes a problem with ActiveState Perl PPM
V4, which re-generates the documentation from the enclosed POD
documents, apparently ignorig the included HTML documentation.
Deprecated feature status
This section documents features that have been deprecated in this
release, or in recent releases, and feature that will be deprecated in
up-coming releases.
Win32::GUI::Constants
The introduction of Win32::GUI::Constants in v1.04 means that we now
have access to a very large number of constants, so the current
behaviour of Win32::GUI to export all constants to the calling
namespace
by default is no longer appropriate. So, a bare
use Win32::GUI;
now generates a warning that the old default behaviour will be
deprecated - although the export behaviour of Win32::GUI v1.03 is
maintained except for this warning.
To eliminate this warning and correct your script, do one of the
following:
If you don't need any constants, use the empty list:
use Win32::GUI();
If you need some constants, name them explicitly:
use Win32::GUI qw(ES_WANTRETURN CW_USEDEFAULT); # Two
constants exported
use Win32::GUI qw(/^MB_/); # Export all constants starting
with MB_
See the Win32::GUI::Constants documentation for the full allowable
syntax.
You are advised to fix your scripts now, as a future version will stop
exporting any constants by default.
Although not advised, you can suppress the warnings by turning
deprecated warnings off:
no warnings 'deprecated';
Additionally accessing constants from within the Win32::GUI
namespace is
deprecated. I.e.
-addstyle => Win32::GUI::WS_BORDER,
will generate a warning with this release, and will stop working with a
future release. Use one of the following methods instead:
use the Win32::GUI::Constants namespace instead
-addstyle => Win32::GUI::Constants::WS_BORDER(),
use any other namespace you fancy
use Win32::GUI qw(-exportpkg => A::B -autoload);
...
-addstyle => A::B::WS_BORDER(),
maintain compatibility of existing scripts
use Win32::GUI::Constants qw(-exportpkg => Win32::GUI
:compatibility_win32_gui);
...
-addstyle => Win32::GUI::WS_BORDER,
Win32::GUI::NotifyIcon
It is no longer necessary to use the '-id' option to any of the
Win32::GUI::NotifyIcon methods. The ID is now entirely handled
internally. You will receive deprecated warnings if you use it.
In particular, removing Icons from the system tray should be done using
$NI->Remove();
and not by the (now deprecated)
$NI->Delete(-id => 1);
Use of the "-id" option will generate a warning.
Contributors to this release
Robert May
Uwe Kind
------------------------------
Date: Mon, 06 Nov 2006 01:55:04 +0100
From: Michael Goerz <news12@8439.e4ward.com>
Subject: catch hitting crtl-c twice
Message-Id: <4r7ff8Fq5agoU1@uni-berlin.de>
Hi,
is there a way to catch if an interrupt (ctrl-c) is called twice in a
certain time window? Catching the first one is done by
$SIG{INT} = \&refresh;
but now I want to detect if the user hits ctrl-c again while that
handler is running (there can be a 'sleep 1' inside the handler to wait
for this), so that the program can exit in that case. As I observed, the
event is not triggered again while the handler is running.
Any suggestions?
Thanks,
Michael Goerz
------------------------------
Date: Mon, 6 Nov 2006 12:17:38 +1100
From: "Sisyphus" <sisyphus1@nomail.afraid.org>
Subject: Re: catch hitting crtl-c twice
Message-Id: <454e8e55$0$23136$afc38c87@news.optusnet.com.au>
"Michael Goerz" <news12@8439.e4ward.com> wrote in message
news:4r7ff8Fq5agoU1@uni-berlin.de...
> Hi,
>
> is there a way to catch if an interrupt (ctrl-c) is called twice in a
> certain time window? Catching the first one is done by
>
> $SIG{INT} = \&refresh;
>
> but now I want to detect if the user hits ctrl-c again while that
> handler is running (there can be a 'sleep 1' inside the handler to wait
> for this), so that the program can exit in that case. As I observed, the
> event is not triggered again while the handler is running.
>
> Any suggestions?
>
A simplistic approach:
use warnings;
use strict;
$SIG{INT} = \&refresh;
my $global = 1;
while(1) {}
sub refresh {
print "Ctrl-C caught\n";
$global *= -1;
sleep(1);
if($global > 0) {
print "Another Ctrl-C detected\n";
exit(0);
}
else {
print "Continuing on\n";
$global *= -1;
}
}
__END__
Whenever I hit Ctrl-C, the program calls refresh() and then continues on -
unless I hit Ctrl-C a second time during the the sleep(1) period - in which
case the program exits.
(This is perl 5.8.8, Windows 2000.)
Cheers,
Rob
------------------------------
Date: Mon, 06 Nov 2006 02:43:34 +0100
From: Michael Goerz <news12@8439.e4ward.com>
Subject: Re: catch hitting crtl-c twice
Message-Id: <4r7ia6Fqc71rU1@uni-berlin.de>
Sisyphus wrote:
> "Michael Goerz" <news12@8439.e4ward.com> wrote in message
> news:4r7ff8Fq5agoU1@uni-berlin.de...
>> Hi,
>>
>> is there a way to catch if an interrupt (ctrl-c) is called twice in a
>> certain time window?
> A simplistic approach:
>
> use warnings;
> use strict;
>
> $SIG{INT} = \&refresh;
> my $global = 1;
>
> while(1) {}
>
> sub refresh {
> print "Ctrl-C caught\n";
> $global *= -1;
> sleep(1);
> if($global > 0) {
> print "Another Ctrl-C detected\n";
> exit(0);
> }
> else {
> print "Continuing on\n";
> $global *= -1;
> }
> }
>
> __END__
>
> Whenever I hit Ctrl-C, the program calls refresh() and then continues on -
> unless I hit Ctrl-C a second time during the the sleep(1) period - in which
> case the program exits.
>
> (This is perl 5.8.8, Windows 2000.)
>
> Cheers,
> Rob
Yes, thanks, that works indeed! I tried something similar, which didn't
work for some reason...
Thanks a lot,
Michael
------------------------------
Date: Mon, 06 Nov 2006 03:05:10 +0100
From: Michael Goerz <news12@8439.e4ward.com>
Subject: Re: catch hitting crtl-c twice
Message-Id: <4r7jinFpjcjsU1@uni-berlin.de>
Michael Goerz wrote:
> Sisyphus wrote:
>> "Michael Goerz" <news12@8439.e4ward.com> wrote in message
>> news:4r7ff8Fq5agoU1@uni-berlin.de...
>>> Hi,
>>>
>>> is there a way to catch if an interrupt (ctrl-c) is called twice in a
>>> certain time window?
>> A simplistic approach:
>>
>> use warnings;
>> use strict;
>>
>> $SIG{INT} = \&refresh;
>> my $global = 1;
>>
>> while(1) {}
>>
>> sub refresh {
>> print "Ctrl-C caught\n";
>> $global *= -1;
>> sleep(1);
>> if($global > 0) {
>> print "Another Ctrl-C detected\n";
>> exit(0);
>> }
>> else {
>> print "Continuing on\n";
>> $global *= -1;
>> }
>> }
>>
>> __END__
>>
>> Whenever I hit Ctrl-C, the program calls refresh() and then continues on -
>> unless I hit Ctrl-C a second time during the the sleep(1) period - in which
>> case the program exits.
>>
>> (This is perl 5.8.8, Windows 2000.)
>>
>> Cheers,
>> Rob
> Yes, thanks, that works indeed! I tried something similar, which didn't
> work for some reason...
>
> Thanks a lot,
> Michael
Hmmm... on second try, it *doesn't* work. I always end up in the else
block (running your script verbatim). Is this an inconsistency in Perl?
I'm running perl 5.8.7 on Suse Linux 10.0.
Confused,
Michael Goerz
------------------------------
Date: Mon, 6 Nov 2006 15:38:19 +1100
From: "Sisyphus" <sisyphus1@nomail.afraid.org>
Subject: Re: catch hitting crtl-c twice
Message-Id: <454ebd5d$0$29329$afc38c87@news.optusnet.com.au>
"Michael Goerz" <news12@8439.e4ward.com> wrote in message
news:4r7jinFpjcjsU1@uni-berlin.de...
> use warnings;
> use strict;
>
> $SIG{INT} = \&refresh;
> my $global = 1;
>
> while(1) {}
>
> sub refresh {
> print "Ctrl-C caught\n";
> $global *= -1;
> sleep(1);
> if($global > 0) {
> print "Another Ctrl-C detected\n";
> exit(0);
> }
> else {
> print "Continuing on\n";
> $global *= -1;
> }
> }
>
> __END__
.
.
.
> Hmmm... on second try, it *doesn't* work. I always end up in the else
> block (running your script verbatim). Is this an inconsistency in Perl?
> I'm running perl 5.8.7 on Suse Linux 10.0.
>
Probably a difference between operating systems.
The script works for me as intended on Windows 2000 (perl 5.8.8) but I find
the same behaviour as you on Mandrake-9.1 linux (also perl 5.8.8).
Seems that on Win32, the second instance of refresh() is run as soon as the
second Ctrl-C is hit. But on linux, the second instance of refresh() does
not get run until the first instance has finished running .... which is not
what we want if the script is going to perform as intended.
Perhaps on linux refresh() needs to fork() the process that modifies $global
and sleeps.
(Note - I've never used fork() so my suggestion may not even be sane, faik
:-)
Cheers,
Rob
------------------------------
Date: Mon, 6 Nov 2006 06:23:39 +0000
From: Ben Morrow <benmorrow@tiscali.co.uk>
Subject: Re: catch hitting crtl-c twice
Message-Id: <b01324-dce.ln1@osiris.mauzo.dyndns.org>
Quoth "Sisyphus" <sisyphus1@nomail.afraid.org>:
[invoking a signal handler reentrantly]
> Probably a difference between operating systems.
> The script works for me as intended on Windows 2000 (perl 5.8.8)
[pressing ctrl-c while $SIG{INT} is still running reenters $SIG{INT}]
> but I find
> the same behaviour as you on Mandrake-9.1 linux (also perl 5.8.8).
[the second SIGINT is apparently not delivered until just after
$SIG{INT} returns]
> Seems that on Win32, the second instance of refresh() is run as soon as the
> second Ctrl-C is hit. But on linux, the second instance of refresh() does
> not get run until the first instance has finished running .... which is not
> what we want if the script is going to perform as intended.
General recommendation when using signal handlers is to do nothing in
the actual handler except set a global, which you then check in your
main loop. However, if you really want the behaviour you describe, you
can get it as follows:
use POSIX qw/sigaction SIGINT SA_NODEFER/;
sigaction
SIGINT,
POSIX::SigAction->new(
sub {
warn "start INT handler";
sleep 2;
warn "end INT handler";
},
POSIX::SigSet->new,
SA_NODEFER,
),
or die "sigaction for SIGINT failed: $!";
Note that this defeats the 5.8 'safe signals' mechanism (for this signal
only), which means there is a chance of a segfault if the signal arrives
while perl is in the middle of something non-reentrant. You can
reinstate it with the ->safe method on the POSIX::SigAction object, but
then you lose the reentrancy again. See sigaction and POSIX::SigAction
in the POSIX.pm manpage.
> Perhaps on linux refresh() needs to fork() the process that modifies $global
> and sleeps.
>
> (Note - I've never used fork() so my suggestion may not even be sane, faik
> :-)
Er, no. For a start, a forked child cannot affect $global in the parent
(that's kinda the point :) ).
Ben
--
You poor take courage, you rich take care:
The Earth was made a common treasury for everyone to share
All things in common, all people one. [benmorrow@tiscali.co.uk]
'We come in peace'---the order came to cut them down.
------------------------------
Date: Mon, 6 Nov 2006 01:35:39 GMT
From: Charles DeRykus <ced@blv-sam-01.ca.boeing.com>
Subject: Re: Getting huge data into memory in perl
Message-Id: <J8ACFE.8rB@news.boeing.com>
rahulthathoo wrote:
> Dr.Ruud wrote:
>> rahulthathoo schreef:
>>
>>> open A, $mov_i || die "Shit there is some prob here $!";
>> Wrong or-operator or some () missing.
>> See perlopentut.
>>
>
>That actually works fine...
>
Appearances can be deceiving. That appears to work but will hide the
actual open errors that do occur. [It'd only work with an oddball
filename that evaluates to null, eg. "0"]
Try it with a non-existent filename for instance:
open A, "no_such_file" || die $!;
In fact that'll be parsed just as though you wrote:
open A, "no_such_file";
Take a look Dr. Ruud's perlopentut suggestion.
--
Charles DeRykus
------------------------------
Date: Mon, 6 Nov 2006 01:53:19 GMT
From: Charles DeRykus <ced@blv-sam-01.ca.boeing.com>
Subject: Re: Getting huge data into memory in perl
Message-Id: <J8AD8t.9AI@news.boeing.com>
Charles DeRykus wrote:
> rahulthathoo wrote:
>> Dr.Ruud wrote:
>>> rahulthathoo schreef:
>>>
>>>> open A, $mov_i || die "Shit there is some prob here $!";
>>> Wrong or-operator or some () missing.
>>> See perlopentut.
>>>
> >
>> That actually works fine...
>>
>
> Appearances can be deceiving. That appears to work but will hide the
> actual open errors that do occur. [It'd only work with an oddball
> filename that evaluates to null, eg. "0"]
>
Remember what I said about oddballs working...forget it. It gets
worse :).
It doesn't even work with a filename such as "0" because that'd
always generate a false positive... in other words,
open A, "0" || die $! # dies even if "0" exists and can be opened.
and, if "0" does exist and can't be opened, it'll die but probably won't
report the correct error... except by accident.
--
Charles DeRykus
------------------------------
Date: 5 Nov 2006 20:22:43 -0800
From: matlaw@gmail.com
Subject: HTTP::Request::Common Post problem
Message-Id: <1162786963.666557.186270@h48g2000cwc.googlegroups.com>
I'm trying to Post to a web site using the following code:
>#!/usr/bin/perl
>use HTTP::Request::Common qw(POST);
>use LWP::UserAgent;
>$ua = LWP::UserAgent->new;
>my $req = POST 'http://www.sfarmls.com/scripts/mgrqispi.dll',
> [ APPNAME => 'Sanfrancisco',
> PRGNAME => 'MLSLogin',
> ARGUMENTS => ('-ASS','-AA'),
> ];
>print $ua->request($req)->as_string;
But when I do, I get an HTML file from www.sfarmls.com telling me that
I'm using an invalid entry point.
However, I can easily access this site with the following telnet
commands:
>POST /scripts/mgrqispi.dll HTTP/1.1
>Host: www.sfarmls.com
>Content-Length: 56
>Content-Type: application/x-www-form-urlencoded
>APPNAME=Sanfrancisco&PRGNAME=MLSLogin&ARGUMENTS=-ASS,-AA
Can anyone tell me what I'm doing wrong?
Thanks,
Matt
------------------------------
Date: Sun, 5 Nov 2006 21:47:18 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Keep getting error with email validation script
Message-Id: <slrnektc26.foh.tadmc@tadmc30.august.net>
grocery_stocker <cdalten@gmail.com> wrote:
> #yes I know I should used fork()/exec;
No you shouldn't.
What makes you think that you should?
> system("nslookup $domain");
> }
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 5 Nov 2006 21:51:17 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Keep getting error with email validation script
Message-Id: <slrnektc9l.foh.tadmc@tadmc30.august.net>
grocery_stocker <cdalten@gmail.com> wrote:
> I
> also figures since the OP is & to invoke the subroutine,
What effect does using & on the function call have for the
function that is being discussed?
> we might as
> well just continue to screw ourself by using the unsafe system()
> function.
What is unsafe about the system() function?
Using the shell is certainly unsafe, but you can use the system()
function in such a way that it won't use a shell.
Is that what you meant?
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 6 Nov 2006 05:42:14 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Mon Nov 6 2006
Message-Id: <J8AnuE.1HD9@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-MetaSyntactic-0.99
http://search.cpan.org/~book/Acme-MetaSyntactic-0.99/
Themed metasyntactic variables names
----
Alien-wxWidgets-0.25
http://search.cpan.org/~mbarbon/Alien-wxWidgets-0.25/
building, finding and using wxWidgets binaries
----
CPAN-1.88_59
http://search.cpan.org/~andk/CPAN-1.88_59/
query, download and build perl modules from CPAN sites
----
Class-DBI-v3.0.16
http://search.cpan.org/~tmtm/Class-DBI-v3.0.16/
Simple Database Abstraction
----
Class-MOP-0.36
http://search.cpan.org/~stevan/Class-MOP-0.36/
A Meta Object Protocol for Perl 5
----
DBIx-ORM-Declarative-0.12
http://search.cpan.org/~jschneid/DBIx-ORM-Declarative-0.12/
Perl extension for object-oriented database access
----
DBIx-Web-0.64
http://search.cpan.org/~makarow/DBIx-Web-0.64/
Active Web Database Layer
----
Data-Hierarchy-0.34
http://search.cpan.org/~clkao/Data-Hierarchy-0.34/
Handle data in a hierarchical structure
----
Devel-XRay-0.941
http://search.cpan.org/~jbisbee/Devel-XRay-0.941/
See What a Perl Module Is Doing
----
Email-Filter-Rules-1.121
http://search.cpan.org/~jbisbee/Email-Filter-Rules-1.121/
Simple Rules for Routing Mail with Email::Filter
----
FreeMind-Convert-0.02
http://search.cpan.org/~takeo/FreeMind-Convert-0.02/
FreeMind .mm File Convert to wiki Format
----
Geo-Forward-0.06
http://search.cpan.org/~mrdvt/Geo-Forward-0.06/
Calculate geographic location from lat, lon, distance, and heading.
----
Geo-GDAL-0.20
http://search.cpan.org/~ajolma/Geo-GDAL-0.20/
A Perl interface to the GDAL/OGR library.
----
Geo-Spline-0.06
http://search.cpan.org/~mrdvt/Geo-Spline-0.06/
Calculate geographic locations between GPS fixes.
----
Geo-Spline-0.07
http://search.cpan.org/~mrdvt/Geo-Spline-0.07/
Calculate geographic locations between GPS fixes.
----
JavaScript-XRay-1.2
http://search.cpan.org/~jbisbee/JavaScript-XRay-1.2/
See What JavaScript is Doing
----
Lingua-JA-Romanize-Japanese-0.14
http://search.cpan.org/~kawasaki/Lingua-JA-Romanize-Japanese-0.14/
Romanization of Japanese language
----
Math-Project3D-Plot-1.02
http://search.cpan.org/~smueller/Math-Project3D-Plot-1.02/
Perl extension for plotting projections of 3D functions
----
Math-SymbolicX-NoSimplification-1.00
http://search.cpan.org/~smueller/Math-SymbolicX-NoSimplification-1.00/
Turn off Math::Symbolic simplification
----
Math-SymbolicX-NoSimplification-1.01
http://search.cpan.org/~smueller/Math-SymbolicX-NoSimplification-1.01/
Turn off Math::Symbolic simplification
----
Moose-0.15
http://search.cpan.org/~stevan/Moose-0.15/
A complete modern object system for Perl 5
----
Moose-Policy-0.02
http://search.cpan.org/~stevan/Moose-Policy-0.02/
moose-mounted police
----
Nagios-Object-0.15
http://search.cpan.org/~tobeya/Nagios-Object-0.15/
----
Net-DBus-0.33.4
http://search.cpan.org/~danberr/Net-DBus-0.33.4/
Perl extension for the DBus message system
----
Net-Elexol-EtherIO24-0.12
http://search.cpan.org/~chrisy/Net-Elexol-EtherIO24-0.12/
Object interface for manipulating Elexol Ether I/O 24 units with Perl
----
Net-Elexol-EtherIO24-0.13
http://search.cpan.org/~chrisy/Net-Elexol-EtherIO24-0.13/
Object interface for manipulating Elexol Ether I/O 24 units with Perl
----
Net-Packet-3.01
http://search.cpan.org/~gomor/Net-Packet-3.01/
a framework to easily send and receive frames from layer 2 to layer 7
----
Net-SinFP-2.04
http://search.cpan.org/~gomor/Net-SinFP-2.04/
a full operating system stack fingerprinting suite
----
Object-Factory-Declarative-0.07
http://search.cpan.org/~jschneid/Object-Factory-Declarative-0.07/
Create object factory methods using declarative syntax
----
POE-Component-RSSAggregator-1.021
http://search.cpan.org/~jbisbee/POE-Component-RSSAggregator-1.021/
Watch Muliple RSS Feeds for New Headlines
----
Perl-Critic-0.21
http://search.cpan.org/~thaljef/Perl-Critic-0.21/
Critique Perl source code for best-practices
----
Schedule-Cron-0.95
http://search.cpan.org/~roland/Schedule-Cron-0.95/
cron-like scheduler for Perl subroutines
----
Schedule-Cron-0.96
http://search.cpan.org/~roland/Schedule-Cron-0.96/
cron-like scheduler for Perl subroutines
----
Search-Estraier-0.08
http://search.cpan.org/~dpavlin/Search-Estraier-0.08/
pure perl module to use Hyper Estraier search engine
----
Sledge-Plugin-Pager-0.01
http://search.cpan.org/~tokuhirom/Sledge-Plugin-Pager-0.01/
----
Spreadsheet-ParseExcel-Simple-1.04
http://search.cpan.org/~tmtm/Spreadsheet-ParseExcel-Simple-1.04/
A simple interface to Excel data
----
Test-Perl-Critic-0.08
http://search.cpan.org/~thaljef/Test-Perl-Critic-0.08/
Use Perl::Critic in test programs
----
Test-Simple-0.64_03
http://search.cpan.org/~mschwern/Test-Simple-0.64_03/
Basic utilities for writing tests.
----
Thread-State-0.09
http://search.cpan.org/~makamaka/Thread-State-0.09/
check threads state, context, priority
----
UML-Class-Simple-0.05
http://search.cpan.org/~agent/UML-Class-Simple-0.05/
Render simple UML class diagrams, by loading the code
----
UML-Class-Simple-0.06
http://search.cpan.org/~agent/UML-Class-Simple-0.06/
Render simple UML class diagrams, by loading the code
----
UML-Class-Simple-0.07
http://search.cpan.org/~agent/UML-Class-Simple-0.07/
Render simple UML class diagrams, by loading the code
----
Win32-GUI-1.05
http://search.cpan.org/~robertmay/Win32-GUI-1.05/
Perl Win32 Graphical User Interface Extension
----
Win32-PingICMP-0.50
http://search.cpan.org/~teverett/Win32-PingICMP-0.50/
ICMP Ping support for Win32 based on ICMP.DLL
----
Win32-PingICMP-0.51
http://search.cpan.org/~teverett/Win32-PingICMP-0.51/
ICMP Ping support for Win32 based on ICMP.DLL
----
XML-RSS-Feed-2.211
http://search.cpan.org/~jbisbee/XML-RSS-Feed-2.211/
Persistant XML RSS Encapsulation
----
criticism-0.04
http://search.cpan.org/~thaljef/criticism-0.04/
Perl pragma to enforce coding standards and best-practices
----
trace-0.551
http://search.cpan.org/~jbisbee/trace-0.551/
Module Reanmed to Devel::XRay
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: Mon, 06 Nov 2006 00:42:32 +0100
From: Martin Mohr <mm@mohr.de>
Subject: Perl and OpenGL
Message-Id: <eilsk1$2ac$00$1@news.t-online.com>
Hello,
which OpenGL binding for Perl would you recommend?
I see that there are at least three different modules: OpenGL,
OpenGL::Simple, SDL::OpenGL (also PDL::Graphics::OpenGL).
* OpenGL has the advantage that also the text related GLUT functions are
implemented, but I cannot get it compiled on Linux (for Windows there
is a ppm at bribes).
* OpenGL::Simple compiles fine here, but doesn't support all GLUT
functions like the above mentioned glutBitmapCharacter.
* SDL::OpenGL also builds fine, has other means of displaying text and
supports much much more.
OpenGL::Simple and SDL have been updated a bit more recently than pure
OpenGL, which seems dead.
Any opinions? My app should run on Windows and Linux.
Ciao
Martin
------------------------------
Date: 5 Nov 2006 21:55:30 -0800
From: "Brian McCauley" <nobull67@gmail.com>
Subject: Re: Question on having the hash not butt plug my computers memory
Message-Id: <1162792530.889780.109100@h54g2000cwb.googlegroups.com>
On Nov 5, 6:27 pm, "grocery_stocker" <cdal...@gmail.com> wrote:
> Given the following:
[ object implementation ]
> Okay, if modified the code to have something like:
[ slightly different implementation ]
> Would I still be creating more memory each time I invoked a new
> instance of the object?
Er, creating instanced of objects that store data will always occupy
memory.
What was your real question?
------------------------------
Date: 5 Nov 2006 17:00:54 -0800
From: "DJ Stunks" <DJStunks@gmail.com>
Subject: Re: Scan forward n lines from specified file offset
Message-Id: <1162774854.590100.243920@h48g2000cwc.googlegroups.com>
Robert Dodier wrote:
> Hi,
>
> Given a specified file offset, I want to scan forward n lines, and then
> record the current file offset. I'm going to throw away the n lines
> that
> were read. What is a fast method of reading a number of input lines?
> I could read one line at a time and loop n times, but I'm hoping there
> is something faster than that.
>
> Thanks for any light you can shed on this problem.
you may be able to modify the code layed out in
perldoc -q "How do I count the number of lines in a file?"
to suit your purposes.
-jp
------------------------------
Date: Sun, 5 Nov 2006 16:49:58 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Scan forward n lines from specified file offset
Message-Id: <slrneksqkm.foh.tadmc@tadmc30.august.net>
Robert Dodier <robert.dodier@gmail.com> wrote:
> I could read one line at a time and loop n times, but I'm hoping there
> is something faster than that.
Why?
Has it proven itself to be too slow for your application?
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 5 Nov 2006 16:48:25 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: warnings or -w ?
Message-Id: <slrneksqhp.foh.tadmc@tadmc30.august.net>
Yohan N Leder <ynl@nsparks.net> wrote:
> The FC5 comes with Perl 5.8 and I've checked warnings package is
> presents from the Sisyphus's post. So, the problem is elsewhere (why
> does the use warnings seems to fails ; I've to do some checking and will
> be back soon)
One thing to check that has bitten me more than once in the past:
If you leave the semicolon off of the end of the "use warnings",
then you get messages that seem to come from the Twilight Zone...
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 5 Nov 2006 22:02:28 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: warnings or -w ?
Message-Id: <slrnektcuk.i2i.tadmc@tadmc30.august.net>
Yohan N Leder <ynl@nsparks.net> wrote:
> In article <slrnekrsmp.dri.tadmc@tadmc30.august.net>,
> tadmc@augustmail.com says...
>> Then they likely have a really really old version of perl.
>> Lexical warnings (ie. use warnings) have been part of Perl
>> for many years.
> the problem comes from something
> else than absence of warnings module.
And we would have known that, had we been privileged with
the exact text of the error message!
>> "something like" is worthless when dealing with computers. Exact
>> details matter when dealing with machines.
>>
>> Please quote the exact text of the message.
>>
>> Have you seen the Posting Guidelines that are posted here frequently?
Well, have you?
> Not necessary to be agressive unless you spent a bad day :)
There is not anything agressive in what I wrote (above).
I wasted time guessing the wrong thing because you didn't give
the message text.
You wasted your time because you didn't get the right answer.
Posting the message text helps you and helps everybody else
here too.
Now here is something that _is_ aggressive:
*plonk*
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 05 Nov 2006 18:21:51 -0600
From: yankeeinexile@gmail.com
Subject: Re: www::mechanize and forms
Message-Id: <87zmb5pgps.fsf@gmail.com>
kjhjhjhjadsasda@urbanhabit.com writes:
> Hi, Im working on using www::mechanize to automatically post to a form
> (login) and then scrape the resulting page, see below code. Where does
> the resulting page from below get stored?
>
> Thanks
Nowhere until you elect to store it.
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
Lawrence Statton - lawrenabae@abaluon.abaom s/aba/c/g
Computer software consists of only two components: ones and
zeros, in roughly equal proportions. All that is required is to
sort them into the correct order.
------------------------------
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 V10 Issue 9934
***************************************
