[29345] in Perl-Users-Digest
Perl-Users Digest, Issue: 589 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jun 27 14:10:10 2007
Date: Wed, 27 Jun 2007 11:09:12 -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, 27 Jun 2007 Volume: 11 Number: 589
Today's topics:
"Out of memory!" ??? <jiehuang001@gmail.com>
Re: about condensed regular expression syntax raksha34@gmail.com
Re: about condensed regular expression syntax anno4000@radom.zrz.tu-berlin.de
Re: about condensed regular expression syntax <mritty@gmail.com>
Re: about condensed regular expression syntax <bik.mido@tiscalinet.it>
Re: about condensed regular expression syntax <wahab@chemie.uni-halle.de>
Re: Correct newlines for Perl programs in subversion? <joe+usenet@sunstarsys.com>
Re: Correct newlines for Perl programs in subversion? <a24061@ducksburg.com>
Re: Correct newlines for Perl programs in subversion? <savagebeaste@yahoo.com>
Re: date parts in one step <baxter.brad@gmail.com>
DBIx::Simple, authentication fails <justin@masonsmusic.co.uk>
Re: DBIx::Simple, authentication fails <mritty@gmail.com>
Re: FAQ 1.6 What is perl6? <anonymous@127.0.0.1>
Re: Forking and SSH connections <jrpfinch@gmail.com>
Re: Help needed to send and receive mails through Perl <noreply@gunnar.cc>
Help: Binary <openlinuxsource@gmail.com>
Re: Help: Binary <bik.mido@tiscalinet.it>
Oh great gurus of the list, I need help with a regular <cate.donoghue@gmail.com>
Re: Oh great gurus of the list, I need help with a regu <mritty@gmail.com>
Re: Oh great gurus of the list, I need help with a regu alorinna@gmail.com
Re: Oh great gurus of the list, I need help with a regu <mritty@gmail.com>
Re: Oh great gurus of the list, I need help with a regu <savagebeaste@yahoo.com>
Question about SOAP::Lite <henry@procura.invalid>
Re: Question about SOAP::Lite <henry@procura.invalid>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 27 Jun 2007 11:07:28 -0700
From: Jie <jiehuang001@gmail.com>
Subject: "Out of memory!" ???
Message-Id: <1182967648.410786.135080@o61g2000hsh.googlegroups.com>
Hi, I have this script trying to do something for an array of files.
The script is posted at http://www.humanbee.com/CHE/MERGE.txt
As you can see, for each file in
("1","2","3","4","5","6","7","8","9"....
some processing will be carried out. Even though my Mac has 6G memory,
the program will give this following message after processing file
"4". My question is, if there is enough memory to process each one
individually, why there is not enough memory to process the array in a
loop by using "foreach". I assume within this foreach loop, when one
file is finished processing and the output file is written, the memory
will be released, to begin processing the next one. Isn't that true??
Also, for another program, when I use "foreach <IN-FILE>", it runs out
of memory. but when I change to "while<IN-FILE>", it works fine...
Strange....
=======the error message========
perl(14232) malloc: *** vm_allocate(size=1069056) failed (error
code=3)
perl(142Out of memory!32) malloc: *** error: can't allocate region
perl(14232) malloc: *** set a breakpoint in szone_error to debug
------------------------------
Date: Wed, 27 Jun 2007 06:09:15 -0700
From: raksha34@gmail.com
Subject: Re: about condensed regular expression syntax
Message-Id: <1182949755.442128.165800@g4g2000hsf.googlegroups.com>
Ok, a valid string is of the following form:
i) must start with an alphabet
ii) then it can be any alphanumeric after that. it can end here, but
if not then rule iii) applies
iii) and finally it may or may not end in the following 4 forms:
[num]
<num>
{num}
(num)
*** num means any nonnegative integer.
thanks,
Rakesh
J=FCrgen Exner wrote:
> raksha34@gmail.com wrote:
> > i have to match the following types of strings:
> >
> > my @Data =3D qw(
> > PTY
> > COUNT2
> > IN_B
> > IN[3]
> > ADD<2>
> > SUM{25}
> > MULT(9)
> > );
>
> The RE
> /.+/
> will perfectly match those strings.
>
> It will also match a few other strings, quite a few actually, but as you
> didn't specify any criteria for what strings not to match that should be =
ok.
>
> jue
------------------------------
Date: 27 Jun 2007 13:28:00 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: about condensed regular expression syntax
Message-Id: <5ef6v0F39agm3U1@mid.dfncis.de>
<raksha34@gmail.com> wrote in comp.lang.perl.misc:
> hi all,
>
> i have to match the following types of strings:
>
> PTY
> IN_B
> IN[3]
> ADD<2>
> SUM{25}
> MULT(9)
>
> Here's my attempt at condensing the regular expression:
>
> use strict;
> use warnings;
>
> my @Data = qw(
> PTY
> COUNT2
> IN_B
> IN[3]
> ADD<2>
> SUM{25}
> MULT(9)
> );
>
> my %h = qw(
> [ ]
> { }
> ( )
> < >
> );
>
> my $pin_re = q/\A[a-zA-Z]\w*(?:([<[({])\d+$h{\1})?\z/;
Uh, no, that won't work. I'm not sure how it even compiles, but
that kind of match-time replacement only works on the replacement
side of an s///, not in a regex.
[...]
> The reason for writing the regular expression in this format
> was to avoid having to use a lot ORs.
>
> but it doesnt work.
>
> Can you suggest someway of fixing this?
Well, use the or's. You don't have to write them yourself. Using your
table %h from above:
my $paren_re = join '|' => map "\Q$_\E\\d+\Q$h{$_}\E" => keys %h;
my $pin_re = qr/\A[a-zA-Z]\w*(?:$paren_re)?\z/;
That should do what you want.
The alternative would be to use (?{{ code }}) insertions to provide
the the closing counterpart, but ugh... I haven't tried this.
Anno
------------------------------
Date: Wed, 27 Jun 2007 07:18:13 -0700
From: Paul Lalli <mritty@gmail.com>
Subject: Re: about condensed regular expression syntax
Message-Id: <1182953893.674545.174850@q69g2000hsb.googlegroups.com>
On Jun 27, 9:09 am, raksh...@gmail.com wrote:
> Ok, a valid string is of the following form:
>
> i) must start with an alphabet
/^[a-zA-Z] <...>
> ii) then it can be any alphanumeric after that. it can end here, but
<...> [a-zA-Z0-9]+(?:<...>)?$/
> if not then rule iii) applies
> iii) and finally it may or may not end in the following 4 forms:
>
> [num]
> <num>
> {num}
> (num)
<...> (?:\[\d+\]|<\d+>|\{\d+\}|\(\d+\)) <...>
Put it all together:
/^ #beginning of string
[a-zA-Z] #start with an alpha
[a-zA-Z0-9]+ #continue with 1 or more alphanums
(?:\[\d+\]|<\d+>|\{\d+\}|\(\d+\))? #optionally your digits
$/x #end of string
Paul Lalli
P.S. I'm not entirely certain that all of ] } and ) need to be
escaped, but they won't hurt.
------------------------------
Date: Wed, 27 Jun 2007 16:10:57 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: about condensed regular expression syntax
Message-Id: <c4q4831m54fk21h6irpku634t92m9it3t3@4ax.com>
On Wed, 27 Jun 2007 06:09:15 -0700, raksha34@gmail.com wrote:
>i) must start with an alphabet
[a-zA-Z] or [a-z] with -i
>ii) then it can be any alphanumeric after that. it can end here, but
>if not then rule iii) applies
"any" means zero or more? \w*
>iii) and finally it may or may not end in the following 4 forms:
>
>[num]
><num>
>{num}
>(num)
Simple enough IMHO to go with the "or":
(?:\[\d+\]|<\d+>|\{\d+\}|\(\d+\))?. I must say that I've spent some
time now trying to do the same thing with a hash approach, but all in
all it seems to me that all attempts are more costly in terms of
space. All in all I would go this way (/x added for clarity):
/[a-z]
\w+
(?:
\[\d+\]
|
<\d+>
|
\{\d+\}
|
\(\d+\)
)?/ix
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Wed, 27 Jun 2007 17:46:49 +0200
From: Mirco Wahab <wahab@chemie.uni-halle.de>
Subject: Re: about condensed regular expression syntax
Message-Id: <f5u0pf$238e$1@nserver.hrz.tu-freiberg.de>
raksha34@gmail.com wrote:
> Ok, a valid string is of the following form:
>
> i) must start with an alphabet
> ii) then it can be any alphanumeric after that. it can end here, but
> if not then rule iii) applies
> iii) and finally it may or may not end in the following 4 forms:
>
> [num]
> <num>
> {num}
> (num)
>
> *** num means any nonnegative integer.
>
>
Your approach wasn't that bad in the first place.
Please note that some of your replacement chars
might be special in regex context ==> the ')'.
The hash thing needs to be enveloped into an
code assertion, like
...
my @Data = qw'
PTY
COUNT2
IN_B
IN[3]
ADD<2>
SUM{25}
MULT(9) ';
my %h = qw' [ ] { } ( \) < > ';
my $pin_re = qr/^[A-z]+\w?
(?:
( [<{[(] ) \d+
(??{"$h{$1}"})
)?
$/x;
for (@Data) {
print "$_ " . (/$pin_re/ ? 'OK' : 'NO') . " match\n"
}
...
Regards
M.
------------------------------
Date: Wed, 27 Jun 2007 10:37:25 -0400
From: Joe Schaefer <joe+usenet@sunstarsys.com>
Subject: Re: Correct newlines for Perl programs in subversion?
Message-Id: <878xa5tqe2.fsf@gemini.sunstarsys.com>
Adam Funk <a24061@ducksburg.com> writes:
> What is the correct svn:eol-style property to use for Perl programs in
> subversion? I've seen both LF and native in use.
Use "native", which is the right choice for source code written
in just about any programming language.
--
Joe Schaefer
------------------------------
Date: Wed, 27 Jun 2007 16:58:45 +0100
From: Adam Funk <a24061@ducksburg.com>
Subject: Re: Correct newlines for Perl programs in subversion?
Message-Id: <l2eal4-c1q.ln1@news.ducksburg.com>
On 2007-06-27, Joe Schaefer wrote:
> Adam Funk <a24061@ducksburg.com> writes:
>
>> What is the correct svn:eol-style property to use for Perl programs in
>> subversion? I've seen both LF and native in use.
>
> Use "native",
OK, thanks.
> which is the right choice for source code written in just about any
> programming language.
Except DOS batch files --- woops, that's not a programming
language... ;-)
------------------------------
Date: Wed, 27 Jun 2007 09:24:42 -0700
From: "Clenna Lumina" <savagebeaste@yahoo.com>
Subject: Re: Correct newlines for Perl programs in subversion?
Message-Id: <5efhahF38vb2iU1@mid.individual.net>
Adam Funk wrote:
> On 2007-06-27, Joe Schaefer wrote:
>
>> Adam Funk <a24061@ducksburg.com> writes:
>>
>>> What is the correct svn:eol-style property to use for Perl programs
>>> in subversion? I've seen both LF and native in use.
>>
>> Use "native",
>
> OK, thanks.
>
>> which is the right choice for source code written in just about any
>> programming language.
>
> Except DOS batch files --- woops, that's not a programming
> language... ;-)
Well, for a long time it was the closest thing to shell script on
windows, before WSH came about.
Actually, I would almost consider the language used in BAT files to be a
stripped down and caffeine-free version of qbasic (which seems more
evident in more complex batch files.)
--
CL
------------------------------
Date: Wed, 27 Jun 2007 13:44:05 -0000
From: Brad Baxter <baxter.brad@gmail.com>
Subject: Re: date parts in one step
Message-Id: <1182951845.613819.237350@g4g2000hsf.googlegroups.com>
On Jun 24, 10:08 am, "Petr Vileta" <sto...@practisoft.cz> wrote:
> Function 1 : 37 seconds
> Function 2 : 52 seconds
> Function 3 : 44 seconds
So, given that it's a line of code that you'll execute exactly once,
it looks like a toss-up to me. :-)
--
Brad
------------------------------
Date: Wed, 27 Jun 2007 13:40:12 -0000
From: Justin Catterall <justin@masonsmusic.co.uk>
Subject: DBIx::Simple, authentication fails
Message-Id: <74dc.468268bc.b8fd5@zem>
I have the following code to connect to a database:
#!/usr/bin/perl
use warnings ;
use strict ;
use DBIx::Simple ;
use SQL::Abstract ;
use CGI qw/:standard/ ;
use CGI::Carp qw/fatalsToBrowser/ ;
my $dataSource ;
db_connect() ;
print "Connected\n";
sub db_connect {
my $user = "name" ;
my $password = "password" ;
my $dataSource = DBIx::Simple->connect(
'dbi:Pg:database=prospects', $user, $password,
{ RaiseError => 1 , AutoCommit => 0 }
) or die DBI::Simple->error ;
}
If I run this from the command line "Connected" gets printed. If I run
it from a browser I get:
DBI connect('database=prospects','justin',...) failed: FATAL: Ident
authentication failed for user "justin" at
/var/www/inhouse/prospects/demo.cgi line 22
Does anyone know why this should be?
Thank you for your comments and suggestions.
--
Justin C, by the sea.
------------------------------
Date: Wed, 27 Jun 2007 07:41:22 -0700
From: Paul Lalli <mritty@gmail.com>
Subject: Re: DBIx::Simple, authentication fails
Message-Id: <1182955282.946592.36580@g4g2000hsf.googlegroups.com>
On Jun 27, 9:40 am, Justin Catterall <jus...@masonsmusic.co.uk> wrote:
> I have the following code to connect to a database:
<snip>
> If I run this from the command line "Connected" gets printed. If I run
> it from a browser I get:
>
> DBI connect('database=prospects','justin',...) failed: FATAL: Ident
> authentication failed for user "justin" at
> /var/www/inhouse/prospects/demo.cgi line 22
>
> Does anyone know why this should be?
The user you're logged in as on the command line has access to the
database. The user your webserver is running as does not.
Fix the access permissions to your database.
See also:
$ perldoc -q 500
Found in /software/perl-5.8.5-0/pkg/lib/5.8.5/pod/perlfaq9.pod
My CGI script runs from the command line but not the
browser. (500 Server Error)
Paul Lalli
------------------------------
Date: Wed, 27 Jun 2007 11:39:34 -0400
From: "Jim Carlock" <anonymous@127.0.0.1>
Subject: Re: FAQ 1.6 What is perl6?
Message-Id: <468284bc$0$4660$4c368faf@roadrunner.com>
"Tad McClellan" wrote:
: Like acceptable spelling.
:
: If some famous Perl guy would of jsut implemented a spell-correcting
: 'bot, then things would of been a lot better around here...
Acceptable grammar? "would have been" or "would of been"?
With some literal translations, compare...
"will have been"
to
"will of been"
"Of" tends to make the "would" a noun and the "been" an adjective.
--
Jim Carlock
Custom Designed Swimming Pools
http://www.aquaticcreationsnc.com/swimming/pool/builder/nc/viewing1.php
------------------------------
Date: Wed, 27 Jun 2007 07:38:47 -0700
From: jrpfinch <jrpfinch@gmail.com>
Subject: Re: Forking and SSH connections
Message-Id: <1182955127.986213.271840@k79g2000hse.googlegroups.com>
Thanks xho,
I'm going to carry on using nofork until it falls over. If it does,
then i'll try out your "1/10 as often" suggestion.
------------------------------
Date: Wed, 27 Jun 2007 17:32:43 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Help needed to send and receive mails through Perl in Windows
Message-Id: <5efeedF382b0vU1@mid.individual.net>
kowtham@gmail.com wrote:
> I have installed ActivePerl 5.8.8 in my Win'XP system. I have
> installed lot of modules for that.....but none of the modules is
> woking for me to send and receive mails as my configuration is not
> proper. I am not even sure whether it is proper or not. Can anyone
> send me which module is best with sample configuration files....
Try Mail::Sender, which should work without dependencies.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Wed, 27 Jun 2007 22:39:16 +0800
From: "Amy Lee" <openlinuxsource@gmail.com>
Subject: Help: Binary
Message-Id: <pan.2007.06.27.14.39.15.114962@gmail.com>
Hi,
Is there any programs that can convert perl codes to binary mode?
I use Linux system.
Thanks in advance~
Amy Lee
------------------------------
Date: Wed, 27 Jun 2007 17:40:46 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Help: Binary
Message-Id: <gu0583l0r87kbln25eq4p7v535rvrv0de5@4ax.com>
On Wed, 27 Jun 2007 22:39:16 +0800, "Amy Lee"
<openlinuxsource@gmail.com> wrote:
>Is there any programs that can convert perl codes to binary mode?
Probably yes, granted that you specify (i) what is "perl codes" and
(ii) what to "convert to binary mode" may possibly mean. The closest
thing I can think of that could make sense out of your question is
perldoc -f binmode
But then you may also be interested in the ':raw' open() layer.
Or perhaps you want a binary executable out of a Perl source? Then see
PAR. In any case you're forcing use to use our esp fu and give answer
to two different questions, none of which may the one you actually
have in your mind, only because you didn't mind taking care of
specifying the latter clearly enough!
>I use Linux system.
Irrelevant except possibly for the fact that binmode() shouldn't be
needed there. But using it shouldn't do harm.
>Thanks in advance~
Than YOU in advance for asking your question more clearly next time,
which you will do, won't you?
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Wed, 27 Jun 2007 13:52:23 -0000
From: cate <cate.donoghue@gmail.com>
Subject: Oh great gurus of the list, I need help with a regular expression please
Message-Id: <1182952343.275854.139230@m36g2000hse.googlegroups.com>
I have a perl file that will read an XML file and search for the tag
<pop> (and read the entire tag) with this expression:
$/='<'.$ARGV[1].'>';
where pop has been passed in as the argument. I now have to do the
same with an XML file that is coming with with this format: <pop
loc="AA11"> or <pop loc="A24"> or <pop loc="AA1">. I have tried a
number of different combinations but I just can't seem to get this
right. After this one I gave up:
$/='<'.$ARGV[1].' loc="\w+">';
If anyone can assist me on this, I'd be very grateful.
Thanks,
Cate
------------------------------
Date: Wed, 27 Jun 2007 07:10:59 -0700
From: Paul Lalli <mritty@gmail.com>
Subject: Re: Oh great gurus of the list, I need help with a regular expression please
Message-Id: <1182953459.059745.89810@n60g2000hse.googlegroups.com>
On Jun 27, 9:52 am, cate <cate.donog...@gmail.com> wrote:
> Subject: [...] I need help with a regular expression please
> I have a perl file that will read an XML file and search
STOP. Regular expressions are not the correct tool for this job.
Regular expressions cannot parse XML. Any solution you come up with
will be buggy and will fail in fantastic and mysterious ways when
presented with perfectly valid XML that you were not counting on.
Go to http://search.cpan.org. Search for 'XML'. There are about a
hundred different modules that you should be using. I would recommend
XML::Simple for an introductory module, until/unless you find that
it's too "simple" for your needs.
> right. After this one I gave up:
> $/='<'.$ARGV[1].' loc="\w+">';
$/ is a string. You cannot put a regular expression into it. (Though
see File::Stream for a way around that restriction)
Paul Lalli
------------------------------
Date: Wed, 27 Jun 2007 14:28:14 -0000
From: alorinna@gmail.com
Subject: Re: Oh great gurus of the list, I need help with a regular expression please
Message-Id: <1182954494.918172.223230@m36g2000hse.googlegroups.com>
Thank you. This program has been working great for all of my normal
XML files (we break them down from 10-140mb original files into
manageable sizes using Perl) but this has simply thrown me for a loop.
I'll check out your suggestions, and really appreciate your advice.
Cate
------------------------------
Date: Wed, 27 Jun 2007 07:33:19 -0700
From: Paul Lalli <mritty@gmail.com>
Subject: Re: Oh great gurus of the list, I need help with a regular expression please
Message-Id: <1182954799.069891.20250@g4g2000hsf.googlegroups.com>
On Jun 27, 10:28 am, alori...@gmail.com wrote:
> Thank you. This program has been working great for all
> of my normal XML files (we break them down from 10-140mb
> original files into manageable sizes using Perl) but this
> has simply thrown me for a loop.
.... which is exactly what I said would happen. That's why you don't
use Regexps for parsing XML. :-)
> I'll check out your suggestions, and really appreciate
> your advice.
Good luck.
Paul Lalli
------------------------------
Date: Wed, 27 Jun 2007 09:15:33 -0700
From: "Clenna Lumina" <savagebeaste@yahoo.com>
Subject: Re: Oh great gurus of the list, I need help with a regular expression please
Message-Id: <5efgpcF38ml3qU1@mid.individual.net>
Paul Lalli wrote:
> On Jun 27, 9:52 am, cate <cate.donog...@gmail.com> wrote:
>
>> Subject: [...] I need help with a regular expression please
>> I have a perl file that will read an XML file and search
>
> STOP. Regular expressions are not the correct tool for this job.
> Regular expressions cannot parse XML. Any solution you come up with
> will be buggy and will fail in fantastic and mysterious ways when
> presented with perfectly valid XML that you were not counting on.
>
> Go to http://search.cpan.org. Search for 'XML'. There are about a
> hundred different modules that you should be using. I would recommend
> XML::Simple for an introductory module, until/unless you find that
> it's too "simple" for your needs.
>
>> right. After this one I gave up:
>> $/='<'.$ARGV[1].' loc="\w+">';
>
> $/ is a string. You cannot put a regular expression into it. (Though
> see File::Stream for a way around that restriction)
Although being able to use $/ as a regex would be rather nifty, if you
think about it. True, it would mimic split() in some ways, but the big
difference would be every 'line' read would be delimited by the regex
rather than "\n", in which you'd have to read in either big chunks or
the whole file entirely and _then_ apply the split, because trying to
apply a split like this on normal ("\n" delimited) lines cannot catch
multi-line delimited data. At least nowhere as elegant and cleanly as
this potentially would.
Bottom line: applying regex as an $INPUT_RECORD_SEPARATOR would be
infinitely useful, and to me seems right up Perl's alley.
An idea for Perl 6 perhaps?
--
CL
------------------------------
Date: Wed, 27 Jun 2007 14:48:30 +0000 (UTC)
From: Henry <henry@procura.invalid>
To: comp.lang.perl.misc
Subject: Question about SOAP::Lite
Message-Id: <7c75cff7268a108c986f2202b63ec@ns01>
I want to send raw xml with SOAP and have something like this:
my $ns1 = "http://www.vrom.nl/wkpb/stuf";
my $ns2 = "http://www.egem.nl/StUF/StUF0205";
my $ns3 = "http://www.vrom.nl/wkpb0102";
my $method = SOAP::Data
-> attr ({'xmlns:StUF' => $ns2, 'xmlns:wkpb' => $ns3})
-> prefix ('wkpb-stuf')
-> uri ($ns1)
;
my $soap = SOAP::Lite
-> readable (1)
-> proxy ($ep)
-> uri ($ns1)
-> on_action ( sub { return '""';} )
-> call ($method => SOAP::Data->type('xml' => $aanvraag))
;
$aanvraag is the file containing the raw xml.
When I do this I get an SOAP-call:
<soap:Envelope
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"
soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Body>
<wkpb-stuf:c-gensym2 xmlns:wkpb-stuf="http://www.vrom.nl/wkpb/stuf" xmlns:StUF="http://www.egem.nl/StUF/StUF0205"
xmlns:wkpb="http://www.vrom.nl/wkpb0102"> <StUF:stuurgegevens>
<StUF:berichtsoort>Lk02</StUF:berichtsoort>
How can I get rid of the c-gensym elements?
--
Henry
------------------------------
Date: Wed, 27 Jun 2007 15:05:39 +0000 (UTC)
From: Henry <henry@procura.invalid>
To: comp.lang.perl.misc
Subject: Re: Question about SOAP::Lite
Message-Id: <7c75cff7268a848c986f48595c996@ns01>
Hello,
As a supplement to my previous message:
I want to create something like this:
<soapenv:Envelope
xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:wkpb-stuf="http://www.vrom.nl/wkpb/stuf"
xmlns:StUF="http://www.egem.nl/StUF/StUF0205"
xmlns:wkpb="http://www.vrom.nl/wkpb0102"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<soapenv:Body>
..................content of xml file...................
</soapenv:Body>
</soapenv:Envelope>
--
Henry
------------------------------
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 589
**************************************
