[27828] in Perl-Users-Digest
Perl-Users Digest, Issue: 9192 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Apr 23 18:05:58 2006
Date: Sun, 23 Apr 2006 15:05:06 -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 Sun, 23 Apr 2006 Volume: 10 Number: 9192
Today's topics:
[Announce] A custom version of SOAP::WSDL released <false@mail.it>
Re: [Announce] A custom version of SOAP::WSDL released <rahed@e-last-minute.com>
Re: Term::ReadKey on Win? 5.005 vs 5.8.8? <rvtol+news@isolution.nl>
Re: Term::ReadKey on Win? 5.005 vs 5.8.8? <nospam-abuse@ilyaz.org>
type of reference <news3@8439.e4ward.com>
Re: type of reference <1usa@llenroc.ude.invalid>
Re: type of reference <news3@8439.e4ward.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 23 Apr 2006 16:24:59 +0200
From: giovans <false@mail.it>
Subject: [Announce] A custom version of SOAP::WSDL released
Message-Id: <444b8e36$0$29110$5fc30a8@news.tiscali.it>
Hi all,
I'm not sure if this is the correct place for making
this announce, so please forgive me if I'm out of place.
The SOAP::WSDL page on CPAN appears to be freezed, so I have
released my personal custom version of the module, with some
bug fixed and some feature added.
Namely I have extended the support for the Complex type extensions
and added a simple support for overloaded operations.
You can find some more detail and the file here:
http://giovannisfois.ig3.net/articoli/wsdl.html
Thanks for the attention, have a nice day.
Giovanni
--
giovannisfois (at) tiscali.it
Impossible means not yet done
------------------------------
Date: Sun, 23 Apr 2006 21:32:18 +0200
From: rahed <rahed@e-last-minute.com>
Subject: Re: [Announce] A custom version of SOAP::WSDL released
Message-Id: <uejzoxf3x.fsf@e-last-minute.com>
giovans <false@mail.it> writes:
> Hi all,
> I'm not sure if this is the correct place for making
> this announce, so please forgive me if I'm out of place.
>
> The SOAP::WSDL page on CPAN appears to be freezed, so I have
> released my personal custom version of the module, with some
> bug fixed and some feature added.
>
There's also a mailing list soaplite@yahoogroups.com for SOAP::Lite at
http://groups.yahoo.com/group/soaplite/.
--
Radek
------------------------------
Date: Sun, 23 Apr 2006 16:57:29 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: Term::ReadKey on Win? 5.005 vs 5.8.8?
Message-Id: <e2gc6u.2dg.1@news.isolution.nl>
Ilya Zakharevich schreef:
> Ruud:
>> Win32PeekChar puts only the single unsigned char keycode 'AsciiChar'
>> in parameter 'key' (which is a *char).
>
> This might be considered a bug in Win32PeekChar(). But until it is
> fixed, one must make getc() work with \r.
I created a getc() test, which B.T.W. doesn't have the behaviour of
eating the first CR:
#!/usr/bin/perl
use strict;
use warnings;
use constant # Unix # Win32 #
{ USE_CONIN => 1 # 0 # 1 #
, USE_GETC => 0 # - # - #
, SET_BINMODE => 1 # 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__
AFAIK, the behaviour is the same (on both platforms) for USE_GETC set to
0 or to 1.
I now really like to have a more useful getc() for Win32.
Doesn't there really not already exist a module that replaces getc() by
a more useful one, for Win32?
Maybe Win32::Console::Input(). Term::ReadPassword::Win32 uses it.
Can I send you privately a first try, one of these days?
> (some of my patches made it into
> 5.8.8, so it has a significant chance to work better/differently than
> 5.8.7).
Which patches are you addressing here?
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Sun, 23 Apr 2006 21:09:10 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: Term::ReadKey on Win? 5.005 vs 5.8.8?
Message-Id: <e2gqdm$19t3$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 <e2gc6u.2dg.1@news.isolution.nl>:
> I now really like to have a more useful getc() for Win32.
AFAIU, one should debug PerlIO; most probably, the bug is there. One
should check with pre-5.6.0 Perl first, which has no PerlIO. Or write
a simple C test with read(in, buf, 1) (the C code to replace TRK on
Win is provided in one of the (p5p?) threads I mentioned before;
google for CON CONIN ReadKey).
> > (some of my patches made it into
> > 5.8.8, so it has a significant chance to work better/differently than
> > 5.8.7).
> Which patches are you addressing here?
My patches for PerlIO. Should not be hard to google for.
Yours,
Ilya
------------------------------
Date: Sun, 23 Apr 2006 12:20:22 +0200
From: Michael Goerz <news3@8439.e4ward.com>
Subject: type of reference
Message-Id: <4b12n7Fv6lh2U1@uni-berlin.de>
Hi,
is there a way to find out the type of the datastructure a reference is
pointing to? Suppose I have an array of references and basic types like
this:
@testarray = (
["bla", "xyz"],
{"key" => "value"},
\$var,
"blabla",
123 );
Could I write some function 'typeOfElem', so that
typeOfElem($testarray[0]); prints "reference to array",
typeOfElem($testarray[1]); prints "reference to hash"
typeOfElem($testarray[2]); prints "reference to scalar"
typeOfElem($testarray[3]); prints "scalar"
typeOfElem($testarray[4]); prints "scalar"
Thanks,
Michael Goerz
------------------------------
Date: Sun, 23 Apr 2006 10:27:04 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: type of reference
Message-Id: <Xns97AE41A12326asu1cornelledu@127.0.0.1>
Michael Goerz <news3@8439.e4ward.com> wrote in
news:4b12n7Fv6lh2U1@uni-berlin.de:
> is there a way to find out the type of the datastructure a reference
> is pointing to? Suppose I have an array of references and basic types
> like this:
...
> Could I write some function 'typeOfElem', so that
> typeOfElem($testarray[0]); prints "reference to array",
> typeOfElem($testarray[1]); prints "reference to hash"
> typeOfElem($testarray[2]); prints "reference to scalar"
> typeOfElem($testarray[3]); prints "scalar"
> typeOfElem($testarray[4]); prints "scalar"
Congratulations! You have asked a SAQ (self answering question):
perldoc -f ref
http://www.ginini.com/perlsaq.html
You should make yourself familiar with the builtins provided by Perl:
perldoc perlfunc
Have you read the posting guidelines for this group?
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
comp.lang.perl.misc guidelines on the WWW:
http://augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: Sun, 23 Apr 2006 12:59:00 +0200
From: Michael Goerz <news3@8439.e4ward.com>
Subject: Re: type of reference
Message-Id: <4b14vkFve9cpU1@uni-berlin.de>
A. Sinan Unur wrote:
> Congratulations! You have asked a SAQ (self answering question):
>
> perldoc -f ref
>
> http://www.ginini.com/perlsaq.html
>
> You should make yourself familiar with the builtins provided by Perl:
>
> perldoc perlfunc
>
> Have you read the posting guidelines for this group?
>
> Sinan
>
Thanks,... and sorry. I just missed that one somehow.
Michael
------------------------------
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 9192
***************************************
