[27835] in Perl-Users-Digest
Perl-Users Digest, Issue: 9199 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Apr 25 03:05:41 2006
Date: Tue, 25 Apr 2006 00:05:05 -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 Tue, 25 Apr 2006 Volume: 10 Number: 9199
Today's topics:
Re: How to remove all duplications of characters <jurgenex@hotmail.com>
new CPAN modules at Tue Apr 25 2006 (Randal Schwartz)
Re: Term::ReadKey on Win? 5.005 vs 5.8.8? <nospam-abuse@ilyaz.org>
Re: Term::ReadKey on Win? 5.005 vs 5.8.8? <rvtol+news@isolution.nl>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 25 Apr 2006 01:46:36 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: How to remove all duplications of characters
Message-Id: <0cf3g.6095$BO2.3747@trnddc02>
Ignoramus21673 wrote:
[something]
Would you mind sticking to one email alias?
Or are you suffering from multiple shizophrenia?
jue
------------------------------
Date: Tue, 25 Apr 2006 04:42:04 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules at Tue Apr 25 2006
Message-Id: <Iy9H24.1x76@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.
Class-MOP-0.26
http://search.cpan.org/~stevan/Class-MOP-0.26/
A Meta Object Protocol for Perl 5
----
POE-Component-SNMP-1.01
http://search.cpan.org/~rdb/POE-Component-SNMP-1.01/
POE interface to Net::SNMP
----
Template-Plugin-ByDate-0.01
http://search.cpan.org/~dmcbride/Template-Plugin-ByDate-0.01/
Keeps/removes included text based on whether the current date is within range.
----
WWW-Mechanize-TWiki-0.11
http://search.cpan.org/~wbniv/WWW-Mechanize-TWiki-0.11/
WWW::Mechanize subclass to navigate TWiki wikis
----
POE-Component-SNMP-1.00
http://search.cpan.org/~rdb/POE-Component-SNMP-1.00/
POE interface to Net::SNMP
----
Alien-wxWidgets-0.07
http://search.cpan.org/~mbarbon/Alien-wxWidgets-0.07/
building, finding and using wxWidgets binaries
----
Catalyst-Engine-HTTP-POE-0.03
http://search.cpan.org/~agrundma/Catalyst-Engine-HTTP-POE-0.03/
Single-threaded multi-tasking Catalyst engine
----
Tk-Wizard-Bases-1.942
http://search.cpan.org/~lgoddard/Tk-Wizard-Bases-1.942/
----
Net-DNS-ZoneFile-Fast-0.7
http://search.cpan.org/~hardaker/Net-DNS-ZoneFile-Fast-0.7/
parse BIND8/9 zone files
----
Algorithm-RandomMatrixGeneration-0.02
http://search.cpan.org/~anaghakk/Algorithm-RandomMatrixGeneration-0.02/
Perl module to generate matrix given the marginals.
----
VUser-Email-0.2.0
http://search.cpan.org/~rsmith/VUser-Email-0.2.0/
----
MP4-Info-1.07
http://search.cpan.org/~jhar/MP4-Info-1.07/
Fetch info from MPEG-4 files (.mp4, .m4a, .m4p, .3gp)
----
Error-0.15009
http://search.cpan.org/~shlomif/Error-0.15009/
Error/exception handling in an OO-ish way
----
RFID-Base-0.004
http://search.cpan.org/~giff/RFID-Base-0.004/
----
File-Copy-Recursive-0.21
http://search.cpan.org/~dmuey/File-Copy-Recursive-0.21/
Perl extension for recursively copying files and directories
----
Catalyst-5.678
http://search.cpan.org/~agrundma/Catalyst-5.678/
The Elegant MVC Web Application Framework
----
Net-Whois-Raw-1.07
http://search.cpan.org/~despair/Net-Whois-Raw-1.07/
Get Whois information for domains
----
Algorithm-SVMLight-0.04
http://search.cpan.org/~kwilliams/Algorithm-SVMLight-0.04/
Perl interface to SVMLight Machine-Learning Package
----
Test-Run-TAP-Model-0.0100_01
http://search.cpan.org/~shlomif/Test-Run-TAP-Model-0.0100_01/
Accessible (queryable, serializable object) result collector for Test::Run::Straps runs.
----
sofu-0.2.7
http://search.cpan.org/~maluku/sofu-0.2.7/
----
threads-1.24
http://search.cpan.org/~jdhedden/threads-1.24/
Perl interpreter-based threads
----
Bio-DasLite-1.28
http://search.cpan.org/~rpettett/Bio-DasLite-1.28/
Perl extension for the DAS (HTTP+XML) Protocol (http://biodas.org/)
----
Net-Scan-SSH-Server-Version-0.01
http://search.cpan.org/~mcantoni/Net-Scan-SSH-Server-Version-0.01/
grab SSH server version
----
Net-Scan-SNMP-0.01
http://search.cpan.org/~mcantoni/Net-Scan-SNMP-0.01/
scan devices to verify SNMP community
----
Net-Scan-HTTP-Server-Version-0.01
http://search.cpan.org/~mcantoni/Net-Scan-HTTP-Server-Version-0.01/
grab HTTP server version
----
Net-Scan-HTTP-Server-Directory-0.01
http://search.cpan.org/~mcantoni/Net-Scan-HTTP-Server-Directory-0.01/
scan for directory on a web server
----
Net-Scan-Ftp-Anonymous-0.01
http://search.cpan.org/~mcantoni/Net-Scan-Ftp-Anonymous-0.01/
scan for anonymous read/write access FTP servers
----
Catalyst-Plugin-Authentication-Credential-Hatena-0.01
http://search.cpan.org/~typester/Catalyst-Plugin-Authentication-Credential-Hatena-0.01/
Hatena authentication for Catalyst
----
Tree-Binary-Dictionary-0.02
http://search.cpan.org/~teejay/Tree-Binary-Dictionary-0.02/
A dictionary API to a binary tree
----
Lingua-AR-Word-1.5.4
http://search.cpan.org/~benazzo/Lingua-AR-Word-1.5.4/
Perl extension for getting the stem and ArabTeX encoding of Arabic words
----
File-Tools-0.02
http://search.cpan.org/~szabgab/File-Tools-0.02/
UNIX tools implemented as Perl Modules and made available to other platforms as well
----
Tree-Binary-Dictionary-0.01
http://search.cpan.org/~teejay/Tree-Binary-Dictionary-0.01/
----
Hatena-API-Auth-0.02
http://search.cpan.org/~naoya/Hatena-API-Auth-0.02/
Perl intaface to the Hatena Authentication API
----
Hatena-API-Auth-0.01
http://search.cpan.org/~naoya/Hatena-API-Auth-0.01/
Perl intaface to the Hatena Authentication API
----
Spread-Message-0.2
http://search.cpan.org/~markpf/Spread-Message-0.2/
provide messaging using the Spread toolkit
----
Catalyst-5.70_01
http://search.cpan.org/~mramberg/Catalyst-5.70_01/
The Elegant MVC Web Application Framework
----
Sledge-Plugin-Prototype-0.03
http://search.cpan.org/~horiuchi/Sledge-Plugin-Prototype-0.03/
Sledge plugin which implements wrapper arround HTML::Prototype module
----
Log-Dispatch-FileRotate-1.14
http://search.cpan.org/~markpf/Log-Dispatch-FileRotate-1.14/
Log to files that archive/rotate themselves
----
Apache2-UploadProgress-0.2
http://search.cpan.org/~ceeshek/Apache2-UploadProgress-0.2/
Track the progress and give realtime feedback of file uploads
----
DBIx-Admin-TableInfo-2.00
http://search.cpan.org/~rsavage/DBIx-Admin-TableInfo-2.00/
A wrapper for table_info(), column_info(), *_key_info()
----
Net-GPSD-0.19
http://search.cpan.org/~mrdvt/Net-GPSD-0.19/
Provides a perl interface to the gpsd daemon.
----
FormValidator-Simple-0.15
http://search.cpan.org/~lyokato/FormValidator-Simple-0.15/
validation with simple chains of constraints
----
IO-Socket-TIPC-1.00
http://search.cpan.org/~infinoid/IO-Socket-TIPC-1.00/
TIPC sockets for Perl
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.
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, 25 Apr 2006 02:10:38 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: Term::ReadKey on Win? 5.005 vs 5.8.8?
Message-Id: <e2k0eu$2cja$1@agate.berkeley.edu>
[A complimentary Cc of this posting was NOT [per weedlist] sent to
Dr.Ruud
<rvtol+news@isolution.nl>], who wrote in article <e2jv81.1cs.1@news.isolution.nl>:
> > I would expect to get 0/75 for Left, and 0/91 for Shift-F8.
> Is the code below good enough for that test?
>
> perl -MTerm::ReadKey
> -le "binmode STDIN or die $!;
> ReadMode 5, STDIN;
> while(1) {
> $_ = getc STDIN;
> print length($_).q{:}.ord;
> last if 3==ord
> }; ReadMode 0, STDIN"
>
> The lengths always come out as 1, as expected.
On a "correctly set up" read() from "DOS console", pressing `Left'
should generate two characters, 0 and 75; likewise for other special
keys.
> >> In the code in my previous post, the first-13-gets-eaten-bug is not
> >> there, as long as you leave USE_GETC at 0.
> >> With SET_BINMODE 1, there are no eaten or delayed 13s, even if
> >> USE_GETC is 1 and/or USE_CONIN is 0.
> > I assume this is with some pre-5.6.0 Perl, right?
>
> No, in the Win32-corner I only have a perl, v5.8.8 built for
> MSWin32-x86-multi-thread (AciveState) here.
Then I have no idea what it is you write about in the part quoted with
"> >>"... And the fault of PerlIO is not yet proven...
Thanks,
Ilya
------------------------------
Date: Tue, 25 Apr 2006 07:51:25 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: Term::ReadKey on Win? 5.005 vs 5.8.8?
Message-Id: <e2kkis.104.1@news.isolution.nl>
Ilya Zakharevich schreef:
> Dr.Ruud:
>>> I would expect to get 0/75 for Left, and 0/91 for Shift-F8.
>>
>> Is the code below good enough for that test?
>>
>> perl -MTerm::ReadKey
>> -le "binmode STDIN or die $!;
>> ReadMode 5, STDIN;
>> while(1) {
>> $_ = getc STDIN;
>> print length($_).q{:}.ord;
>> last if 3==ord
>> }; ReadMode 0, STDIN"
>>
>> The lengths always come out as 1, as expected.
>
> On a "correctly set up" read() from "DOS console", pressing `Left'
> should generate two characters, 0 and 75; likewise for other special
> keys.
perl was run from a Win2000 CMD.EXE console. I am not aware of anything
special on this system.
>>>> In the code in my previous post, the first-13-gets-eaten-bug is not
>>>> there, as long as you leave USE_GETC at 0.
>>>> With SET_BINMODE 1, there are no eaten or delayed 13s, even if
>>>> USE_GETC is 1 and/or USE_CONIN is 0.
>>>
>>> I assume this is with some pre-5.6.0 Perl, right?
>>
>> No, in the Win32-corner I only have a perl, v5.8.8 built for
>> MSWin32-x86-multi-thread (AciveState) here.
>
> Then I have no idea what it is you write about in the part quoted with
> "> >>"... And the fault of PerlIO is not yet proven...
I am retrying the USE_GETC options ... yes, confirmed what was written
there. The source that I used:
#!/usr/bin/perl
use strict;
use warnings;
use constant # Unix # Win32 #
{ USE_CONIN => 0 # 0 # 1 #
, USE_GETC => 0 # - # - #
, SET_BINMODE => 0 # 0 # 1 #
, SET_READMODE => 4 # 5 # 4/5 #
};
use Term::ReadKey; # if defined SET_READMODE;
sub my_getc {
my $in = @_ ? shift : <STDIN>;
return getc $in if USE_GETC;
my $buf;
return -1 if read($in, $buf, 1) < 1;
return substr($buf, 0, 1);
}
my $fname = USE_CONIN ? 'CONIN$' : '-';
open my $con, "+< $fname" or die "Can't open '$fname': $!";
if (defined SET_READMODE) {
ReadMode SET_READMODE, $con;
}
if (SET_BINMODE) {
binmode $con or die "Can't binmode '$fname': $!";
}
while ( defined($_ = my_getc($con)) ) {
my $ord = ord;
print "Esc " if $ord == 27;
print "|$_| " if $ord >= 32;
print "<", $ord, ">\n";
last if $ord == 3;
}
if (defined SET_READMODE) {
ReadMode 0, $con;
}
close $con;
__END__
This produces a burst of three <13>s, once the third Enter is hit. So
the <13>s get delayed, but none gets eaten.
With USE_GETC set to 1, I need to hit Enter four times, after which a
burst of three <13>s is displayed. So one gets eaten.
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
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 9199
***************************************
