[27915] in Perl-Users-Digest
Perl-Users Digest, Issue: 9279 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Jun 10 21:06:47 2006
Date: Sat, 10 Jun 2006 18:05:04 -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 Sat, 10 Jun 2006 Volume: 10 Number: 9279
Today's topics:
[Announce] New custom version of SOAP::WSDL released <false@mail.it>
Re: best method to perform operations on word lists <massion@gmx.de>
Re: CGI for collecting phone numbers <no@email.com>
I received eBay Star Developer Award <ignoramus14786@NOSPAM.14786.invalid>
Re: I received eBay Star Developer Award <kris.baker@prodigyy.net>
Re: I received eBay Star Developer Award <wahab@chemie.uni-halle.de>
Re: I received eBay Star Developer Award <john@castleamber.com>
Re: I received eBay Star Developer Award <lumpy@digitalcartography.com>
Re: I received eBay Star Developer Award <ignoramus14786@NOSPAM.14786.invalid>
Re: I received eBay Star Developer Award <bertha@yetta.net>
Re: I received eBay Star Developer Award <ignoramus14786@NOSPAM.14786.invalid>
Re: I received eBay Star Developer Award caroball@aol.com
Re: I received eBay Star Developer Award <ignoramus14786@NOSPAM.14786.invalid>
identifying the duplicate when removing duplicates from <jack_posemsky@yahoo.com>
Re: identifying the duplicate when removing duplicates <wahab@chemie.uni-halle.de>
Re: identifying the duplicate when removing duplicates <tadmc@augustmail.com>
Re: identifying the duplicate when removing duplicates <wahab@chemie.uni-halle.de>
MIME::Parser: How do I get a list of the generated file <nomail@sorry.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 10 Jun 2006 18:49:00 +0200
From: giovans <false@mail.it>
Subject: [Announce] New custom version of SOAP::WSDL released
Message-Id: <448af7fa$0$998$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.
I'm working on my own at a Custom version of the module, with some
bugfix and feature added.
Some of the changes I have done:
June 2006
- added an overloading support based on the unique name of the input message
of the call.
- added a light support to the sympletypes, now are tolerated. But the
restrictions aren't checked, That is a work for the server, I suppose.
- added a light support to the imported namespaces in the types section.
- added the support for the multiple SOAP bindings. Now you can tell the
SOAP binding which has to be used.
- the method will use his own soapAction if defined
- the method will use his own namespace if defined
- some other code cleaning
So, if the standard module is troubling you with strange error, please feel
free to try mine.
http://giovannisfois.ig3.net/articoli/wsdl.html
Thanks for the attention, have a nice day.
Giovanni
giovans(at)users.sourceforge.net
------------------------------
Date: 10 Jun 2006 10:02:55 -0700
From: "Francois Massion" <massion@gmx.de>
Subject: Re: best method to perform operations on word lists
Message-Id: <1149958975.177638.229500@i40g2000cwc.googlegroups.com>
Bart Van der Donck schrieb:
> Francois Massion wrote:
>
> > Well, the issue is really a matter of pragmatism. If I do the work
> > manually or with some VBA macros it will take ages. The situation I am
> > trying to address is not so uncommon to people working on glossary
> > issues. Therefore I am trying to find a language-independant solution
> > which works, say, for 90% of the words.
>
> If you can afford such an error margin, here is a brute approach:
>
> #!perl
> use strict; use warnings;
> my $list =3D
> "=FCberzeugt
> =FCberzeugt,
> =FCberzogen
> =FCberzogen,
> =FCberzogen.
> =FCblich
> =FCbliche
> =FCblichen
> =FCblicherweise";
> my @terms =3D split /\n/, $list;
> my $prev =3D 'nonesuch584685542256RANOM58544';
This didn't modify the list. Maybe the reason is the $prev definition.
> s/(\.|,|e|en|e,|en,|e\.|en\.)$// for @terms;
I also tried Dr. Ruud's regex but it would have to be rewritten for
each language. Here a Polish list example:
zeliwa
zeliwa.
zeliwa,
zeliwna
zeliwnej
zeliwny
zeliwo
zelu
zurawia
Zurawie
zuraw
> @terms =3D grep($_ ne $prev && ($prev =3D $_), sort @terms);
> print $_."\n" for @terms;
>=20
> FWIW,
> =20
> --=20
> Bart
------------------------------
Date: Sat, 10 Jun 2006 16:14:50 +0100
From: Brian Wakem <no@email.com>
Subject: Re: CGI for collecting phone numbers
Message-Id: <4f05vaF1g1dh3U1@individual.net>
ferreira@unm.edu wrote:
> Please don't think that I am asking some one to do this for me! I have
> spent hours trying to figure out why this simple script won't work.
>
> This is what I have:
>
> The html file:
>
> <FORM ACTION="/sms.pl" METHOD="POST">Cell Number: <INPUT TYPE="text"
> NAME="phone"><input type="submit" name="submitButtonName" border="0">
> </FORM>
>
>
> The sms.pl file:
>
> #!/usr/bin/perl
> use CGI::Carp qw(fatalsToBrowser);
> my $file = '/users/web/king/web/sms.txt';
> open (FILE, ">>" . $file) or die "cannot open file for appending: $!";
> flock (FILE, 2) or die "cannot lock file exclusively: $!";
> print "Content-type: text/html\n\n";
> print FILE $phone . "\n";
> close (FILE) or die "cannot close file: $!";
>
>
>
> And a sms.txt file
> All of the files are in the same place on the server
>
> The is the error log message:
> access:
> c-68-35-76-89.hsd1.nm.comcast.net - - [09/Jun/2006:17:28:30 +0000]
> "POST /sms.pl HTTP/1.1" 500 -
It is unlikely your webserver is configured to execute files in your
document root. You may have to move it into /cgi-bin or similar, and make
sure it is executable by the webserver (permissions).
--
Brian Wakem
Email: http://homepage.ntlworld.com/b.wakem/myemail.png
------------------------------
Date: Sat, 10 Jun 2006 19:32:37 GMT
From: Ignoramus14786 <ignoramus14786@NOSPAM.14786.invalid>
Subject: I received eBay Star Developer Award
Message-Id: <p7Fig.5831$BD1.5328@fe07.usenetserver.com>
I am at eBay developers conference right now, and they gave me a Star
Developer Award for writing a Net::eBay perl module. That perl module
allows developers to send queries to eBay API by making very simple
perl calls. Useful for website developers or people like me who like
to ist stuff on ebay without going to their website.
Apparently, I am one of about 8 or so people who received the award
this year.
Pictures will be provided after I get back home from conference.
This module is described at my site www.net-ebay.org.
i
------------------------------
Date: Sat, 10 Jun 2006 19:44:35 GMT
From: "Kris Baker" <kris.baker@prodigyy.net>
Subject: Re: I received eBay Star Developer Award
Message-Id: <DiFig.145822$F_3.123686@newssvr29.news.prodigy.net>
"Ignoramus14786" <ignoramus14786@NOSPAM.14786.invalid> wrote in message
news:p7Fig.5831$BD1.5328@fe07.usenetserver.com...
>I am at eBay developers conference right now, and they gave me a Star
> Developer Award for writing a Net::eBay perl module. That perl module
> allows developers to send queries to eBay API by making very simple
> perl calls. Useful for website developers or people like me who like
> to ist stuff on ebay without going to their website.
>
> Apparently, I am one of about 8 or so people who received the award
> this year.
>
> Pictures will be provided after I get back home from conference.
>
> This module is described at my site www.net-ebay.org.
>
> i
Congrats!
Kris
------------------------------
Date: Sat, 10 Jun 2006 22:07:27 +0200
From: Mirco Wahab <wahab@chemie.uni-halle.de>
Subject: Re: I received eBay Star Developer Award
Message-Id: <e6f916$e3d$1@mlucom4.urz.uni-halle.de>
Thus spoke Ignoramus14786 (on 2006-06-10 21:32):
> I am at eBay developers conference right now, and they gave me a Star
> Developer Award for writing a Net::eBay perl module.
BTW: how did they manage to install this in the first place?
# Failed test 'Pod coverage on Net::eBay'
# in /usr/lib/perl5/site_perl/5.8.7/Test/Pod/Coverage.pm at line 126.
# Coverage for Net::eBay is 57.1%, with 3 naked subroutines:
# UTF8
# hash2xml
# verifyAndPrint
# Looks like you failed 1 test of 1.
t/pod-coverage....dubious
Test returned status 1 (wstat 256, 0x100)
DIED. FAILED test 1
Failed 1/1 tests, 0.00% okay
Regards
Mirco
------------------------------
Date: 10 Jun 2006 20:12:31 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: I received eBay Star Developer Award
Message-Id: <Xns97DE9AB60D80Ccastleamber@130.133.1.4>
Ignoramus14786 <ignoramus14786@NOSPAM.14786.invalid> wrote:
> I am at eBay developers conference right now, and they gave me a Star
> Developer Award for writing a Net::eBay perl module. That perl module
> allows developers to send queries to eBay API by making very simple
> perl calls. Useful for website developers or people like me who like
> to ist stuff on ebay without going to their website.
>
> Apparently, I am one of about 8 or so people who received the award
> this year.
>
> Pictures will be provided after I get back home from conference.
>
> This module is described at my site www.net-ebay.org.
Congratulations, sounds quite cool!
--
John Bokma Freelance software developer
&
Experienced Perl programmer: http://castleamber.com/
------------------------------
Date: Sat, 10 Jun 2006 13:26:15 -0700
From: "Lumpy" <lumpy@digitalcartography.com>
Subject: Re: I received eBay Star Developer Award
Message-Id: <4f0o7mF1gkgp5U1@individual.net>
Ignoramus14786 wrote:
> I am at eBay developers conference right
> now, and they gave me a Star
> Developer Award for writing a Net::eBay perl module...
You should have the perl appraised by a licensed
perlologist.
Lumpy
--
You were on CHiPs? Did you wear those sexy
tight pants and high boots like Erik Estrada?
No. Swimtrunks.
www.lumpymusic.net
------------------------------
Date: Sat, 10 Jun 2006 21:34:02 GMT
From: Ignoramus14786 <ignoramus14786@NOSPAM.14786.invalid>
Subject: Re: I received eBay Star Developer Award
Message-Id: <eVGig.15112$NB3.8533@fe16.usenetserver.com>
On 10 Jun 2006 20:12:31 GMT, John Bokma <john@castleamber.com> wrote:
> Ignoramus14786 <ignoramus14786@NOSPAM.14786.invalid> wrote:
>
>> I am at eBay developers conference right now, and they gave me a Star
>> Developer Award for writing a Net::eBay perl module. That perl module
>> allows developers to send queries to eBay API by making very simple
>> perl calls. Useful for website developers or people like me who like
>> to ist stuff on ebay without going to their website.
>>
>> Apparently, I am one of about 8 or so people who received the award
>> this year.
>>
>> Pictures will be provided after I get back home from conference.
>>
>> This module is described at my site www.net-ebay.org.
>
> Congratulations, sounds quite cool!
>
Thanks, John and Kris. I must note for readers of
alt.marketing.online.ebay that John's suggestions were supremely
useful in making this perl module usable (and he even suggested the
name!).
i
------------------------------
Date: Sat, 10 Jun 2006 16:51:09 -0500
From: Bertha <bertha@yetta.net>
Subject: Re: I received eBay Star Developer Award
Message-Id: <slrne8mgbf.4fh.bertha@yetta.net>
On Sat, 10 Jun 2006 19:32:37 GMT, Ignoramus14786
<ignoramus14786@NOSPAM.14786.invalid> defied the laws of time and space to say:
> I am at eBay developers conference right now, and they gave me a Star
> Developer Award for writing a Net::eBay perl module. That perl module
> allows developers to send queries to eBay API by making very simple
> perl calls. Useful for website developers or people like me who like
> to ist stuff on ebay without going to their website.
Congrats! Don't forget us when you become rich and famous!
-Bertha
--
A wok is what you throw at a wabbit.
------------------------------
Date: Sat, 10 Jun 2006 22:42:48 GMT
From: Ignoramus14786 <ignoramus14786@NOSPAM.14786.invalid>
Subject: Re: I received eBay Star Developer Award
Message-Id: <IVHig.8962$ZP1.8498@fe57.usenetserver.com>
On Sat, 10 Jun 2006 16:51:09 -0500, Bertha <bertha@yetta.net> wrote:
> On Sat, 10 Jun 2006 19:32:37 GMT, Ignoramus14786
><ignoramus14786@NOSPAM.14786.invalid> defied the laws of time and space to say:
>
>> I am at eBay developers conference right now, and they gave me a Star
>> Developer Award for writing a Net::eBay perl module. That perl module
>> allows developers to send queries to eBay API by making very simple
>> perl calls. Useful for website developers or people like me who like
>> to ist stuff on ebay without going to their website.
>
> Congrats! Don't forget us when you become rich and famous!
Thank you... If I ever do, I know that Net::eBay will not play a role
in that!
i
------------------------------
Date: 10 Jun 2006 17:09:21 -0700
From: caroball@aol.com
Subject: Re: I received eBay Star Developer Award
Message-Id: <1149984560.942880.118560@f6g2000cwb.googlegroups.com>
Ignoramus14786 wrote:
> I am at eBay developers conference right now, and they gave me a Star
> Developer Award for writing a Net::eBay perl module. That perl module
> allows developers to send queries to eBay API by making very simple
> perl calls. Useful for website developers or people like me who like
> to ist stuff on ebay without going to their website.
>
> Apparently, I am one of about 8 or so people who received the award
> this year.
>
> Pictures will be provided after I get back home from conference.
>
> This module is described at my site www.net-ebay.org.
Congrats from a long long ago COBAL programmer - we thought at that
time that we were the ultimate in programs, etc --- kinda like a
horse saying automobiles will never catch on
------------------------------
Date: Sun, 11 Jun 2006 00:40:34 GMT
From: Ignoramus14786 <ignoramus14786@NOSPAM.14786.invalid>
Subject: Re: I received eBay Star Developer Award
Message-Id: <6EJig.23780$Wa1.7783@fe66.usenetserver.com>
On 10 Jun 2006 17:09:21 -0700, caroball@aol.com <caroball@aol.com> wrote:
>
> Ignoramus14786 wrote:
>> I am at eBay developers conference right now, and they gave me a Star
>> Developer Award for writing a Net::eBay perl module. That perl module
>> allows developers to send queries to eBay API by making very simple
>> perl calls. Useful for website developers or people like me who like
>> to ist stuff on ebay without going to their website.
>>
>> Apparently, I am one of about 8 or so people who received the award
>> this year.
>>
>> Pictures will be provided after I get back home from conference.
>>
>> This module is described at my site www.net-ebay.org.
>
> Congrats from a long long ago COBAL programmer - we thought at that
> time that we were the ultimate in programs, etc --- kinda like a
> horse saying automobiles will never catch on
>
Thanks...
i
------------------------------
Date: 10 Jun 2006 11:14:36 -0700
From: "Jack" <jack_posemsky@yahoo.com>
Subject: identifying the duplicate when removing duplicates from any array
Message-Id: <1149963276.447804.130340@m38g2000cwc.googlegroups.com>
Hello,
The following removes duplicates from my array, however I cannot figure
out how to get Perl to also output the duplicate offender itself, since
I want to know "which" was the actual duplicate it removed on the
output... knowing what below is the duplicate is simple by looking at
the array (t1), but imagine a huge array, and you want to know "which"
were the dups after processing, what would I need to add to the code
below to output the actual duplicate being t1 ? Any tips are
appreciated :
@in = ("t1", "t2", "t1", "t3");
# Sort First, then Dedup
@in = sort @in;
# Start Dedup routine into @out array
print " IN ", $#in;
$prev = "not equal to $in[0]";
@out = grep($_ ne $prev && ($prev = $_, 1), @in);
print " OUT ", $#out;
Thank you !
Jack
------------------------------
Date: Sat, 10 Jun 2006 20:46:47 +0200
From: Mirco Wahab <wahab@chemie.uni-halle.de>
Subject: Re: identifying the duplicate when removing duplicates from any array
Message-Id: <e6f49t$cn8$1@mlucom4.urz.uni-halle.de>
Thus spoke Jack (on 2006-06-10 20:14):
> The following removes duplicates from my array, however I cannot figure
> out how to get Perl to also output the duplicate offender itself, since
> ...
> @in = ("t1", "t2", "t1", "t3");
> # Sort First, then Dedup
> @in = sort @in;
> # Start Dedup routine into @out array
> print " IN ", $#in;
> $prev = "not equal to $in[0]";
> @out = grep($_ ne $prev && ($prev = $_, 1), @in);
> print " OUT ", $#out;
Dupes, Array, unique and the like means
almost every time: hash!
Consider
...
1: my @in = qw(t1 t2 t1 t3);
2: my %dupchk;
3:
4: $dupchk{$_}++ for @in;
5: @in = sort keys %dupchk;
6:
7: print map {"$_ was $dupchk{$_} times there\n"} @in;
...
can you figure? If not, ask.
Regards
Mirco
------------------------------
Date: Sat, 10 Jun 2006 15:11:29 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: identifying the duplicate when removing duplicates from any array
Message-Id: <slrne8m9rh.bnt.tadmc@magna.augustmail.com>
Jack <jack_posemsky@yahoo.com> wrote:
> The following removes duplicates from my array, however I cannot figure
> out how to get Perl to also output the duplicate offender itself,
-------------------------------
#!/usr/bin/perl
use warnings;
use strict;
my @in = ("t1", "t2", "t1", "t3", 't1', 't2', 't2');
my %cnt;
foreach ( @in ) {
print "$_\n" if $cnt{$_}++;
}
my @out = keys %cnt;
-------------------------------
> Thank you !
Uh huh.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 10 Jun 2006 23:19:54 +0200
From: Mirco Wahab <wahab@chemie.uni-halle.de>
Subject: Re: identifying the duplicate when removing duplicates from any array
Message-Id: <e6fd91$fpq$1@mlucom4.urz.uni-halle.de>
Thus spoke Tad McClellan (on 2006-06-10 22:11):
> Jack <jack_posemsky@yahoo.com> wrote:
>
>> The following removes duplicates from my array, however I cannot figure
>> out how to get Perl to also output the duplicate offender itself,
>
> my @in = ("t1", "t2", "t1", "t3", 't1', 't2', 't2');
>
> my %cnt;
> foreach ( @in ) {
> print "$_\n" if $cnt{$_}++;
> }
> my @out = keys %cnt;
Uhh, yes - yours was somehow more 'perlish' but
sth. like below possibly a standard (book)
solution for this ...
my @in = qw(t1 t2 t1 t3 t1 t2 t1 t3 t1 t2 t1 t3 t3);
@in = grep { !$seen{$_}++ } @in;
print "$_ found $seen{$_} x\n" for @in;
Regards
Mirco
------------------------------
Date: Sat, 10 Jun 2006 13:35:27 -0700
From: Arvin Portlock <nomail@sorry.com>
Subject: MIME::Parser: How do I get a list of the generated filenames?
Message-Id: <e6faef$me1$1@agate.berkeley.edu>
Using the MIME::Parser module parser->parse_data generates
a whole bunch of files by default (without extending filer).
There doesn't seem to be any way to actually get the names
of the files that it creates.
I've tried several things. First I tried recommended filename()
but this has no relation whatsoever to the actual filenames
that are ultimately generated.
Last I tried output_path. Seemed very promising but it seems
to lie:
my $ent = $parser->parse_data ($msg->stringify);
foreach my $part ($ent->parts_DFS) {
my $partpath = $parser->filer->output_path ($part->head);
print "$pathpath\n";
}
c:\out\msg-888-2.dat
c:\out\msg-888-3.dat
c:\out\msg-888-4.html
c:\out\04040101_i-2.gif
c:\out\040404s3_i-2.gif
c:\out\04082603_i-2.gif
c:\out\041130s1_i-2.gif
c:\out\04123103_i-2.gif
None of these files exist. There exists a file called msg-888-1.html
which wasn't reported but no file called msg-888-4.html. I can
ignore the .dat files but I need to know the other filenames.
Do I need to create my own filer?
Arvin
------------------------------
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 9279
***************************************
