[23041] in Perl-Users-Digest
Perl-Users Digest, Issue: 5261 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jul 23 09:06:37 2003
Date: Wed, 23 Jul 2003 06:05:09 -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, 23 Jul 2003 Volume: 10 Number: 5261
Today's topics:
@INC is not what I expect (niz)
Re: @INC is not what I expect <andre@colt.net>
Re: @INC is not what I expect <simon.andrews@bbsrc.ac.uk>
Re: display client ip address on web page <me@privacy.net>
Gnuplot module (Alythh)
How to make a http-connection <jd@dagerot.nu>
Re: How to make a http-connection <grazz@pobox.com>
Re: How to make a http-connection <cat@no-spam.com>
Re: Larry W... out of work ?? Impossible... or... <me@privacy.net>
Re: Larry W... out of work ?? Impossible... or... <REMOVEsdnCAPS@comcast.net>
Re: Mailing a message with attachcments <me@privacy.net>
Re: Passing parameters to a Perl Script from Command Li (Dave from Dublin)
Re: perlcc makes it big <nntp@cox.net>
Re: perlio problem? redhat 9, perl 5.8.0 <shirsch@adelphia.net>
printing an array <mihai.maris@alcatel.ro>
Re: printing an array <thepoet@nexgo.de>
Re: printing an array <andre@colt.net>
references help (slash)
size of graphics files.... <bill@gites.org.uk>
Re: size of graphics files.... <bigj@kamelfreund.de>
Re: size of graphics files.... <bill@gites.org.uk>
Re: Soap::Lite and hashes <SaschaMoe@web.de>
SQL query problem <mareks1@poczta.onet.pl>
Re: Why is 'last' not allowed here (Ronald Fischer)
Re: <bwalton@rochester.rr.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 23 Jul 2003 01:38:14 -0700
From: niz@infidel.freeserve.co.uk (niz)
Subject: @INC is not what I expect
Message-Id: <fc69f921.0307230038.6700a29e@posting.google.com>
I have this perl script running on solaris in korn:
$ cat scriptb.sh
#!/usr/bin/perl
use strict;
use DBI;
these are my included library directories:
$ perl -e "print join(\"\n\", @INC);"
/opt/arbor/arborvbs/klaunchdir/klaunch_3.1
/opt/arbor/arborvbs/scriptdir/bin
/opt/arbor/arborvbs/arbor3p/arborperl56/lib/5.6.0/sun4-solaris
/opt/arbor/arborvbs/arbor3p/arborperl56/lib/5.6.0
/opt/arbor/arborvbs/arbor3p/arborperl56/lib/site_perl/5.6.0/sun4-solaris
/opt/arbor/arborvbs/arbor3p/arborperl56/lib/site_perl/5.6.0
/opt/arbor/arborvbs/arbor3p/arborperl56/lib/site_perl
.
but when i run the script:
$ scriptb.sh
Can't locate DBI.pm in @INC (@INC contains:
/opt/arbor/arborvbs/klaunchdir/klaunch_3.1
/opt/arbor/arborvbs/scriptdir/bin /usr/perl5/5.00503/sun4-solaris
/usr/perl5/5.00503 /usr/perl5/site_perl/5.005/sun4-solaris
/usr/perl5/site_perl/5.005 .) at ./scriptb.sh line 3.
BEGIN failed--compilation aborted at ./scriptb.sh line 3.
$
as you can see the scripts @INC list is completely different from what
i expect, and so it can't find DBI.pm.
any explanations? how is it getting that strange @INC list?
------------------------------
Date: Wed, 23 Jul 2003 08:45:42 GMT
From: Andre Bonhote <andre@colt.net>
Subject: Re: @INC is not what I expect
Message-Id: <slrnbhsipm.gdr.andre@lothlorien.noc.ch.colt.net>
In article <fc69f921.0307230038.6700a29e@posting.google.com>, niz wrote:
> I have this perl script running on solaris in korn:
I don't think perl cares about your shell environment.
> $ cat scriptb.sh
> #!/usr/bin/perl
> use strict;
> use DBI;
>
> these are my included library directories:
>
> $ perl -e "print join(\"\n\", @INC);"
Ah! only perl. Not /usr/bin/perl ...
[snip]
> /opt/arbor/arborvbs/arbor3p/arborperl56/lib/5.6.0/sun4-solaris
> /opt/arbor/arborvbs/arbor3p/arborperl56/lib/5.6.0
> /opt/arbor/arborvbs/arbor3p/arborperl56/lib/site_perl/5.6.0/sun4-solaris
> /opt/arbor/arborvbs/arbor3p/arborperl56/lib/site_perl/5.6.0
> /opt/arbor/arborvbs/arbor3p/arborperl56/lib/site_perl
This makes me assume you have two different perl interpreters installed.
Could you try the same with /usr/bin/perl instead of perl only?
[snip]
> any explanations? how is it getting that strange @INC list?
That's the only idea I that comes to my mind ATM.
André
--
Every cloud engenders not a storm.
-- William Shakespeare, "Henry VI"
------------------------------
Date: Wed, 23 Jul 2003 09:57:19 +0100
From: Simon Andrews <simon.andrews@bbsrc.ac.uk>
Subject: Re: @INC is not what I expect
Message-Id: <3F1E4DEF.3070908@bbsrc.ac.uk>
niz wrote:
> I have this perl script running on solaris in korn:
>
> $ cat scriptb.sh
> #!/usr/bin/perl
> $ perl -e "print join(\"\n\", @INC);"
> the scripts @INC list is completely different from what
> i expect, and so it can't find DBI.pm.
>
> any explanations? how is it getting that strange @INC list?
You've got two versions of perl installed.
Your script is pointing at an install of perl 5.005 and your command
line is seeing perl 5.6.0. You need to update the first line of your
script to point to 5.6.0 instead.
At a command line type "which perl" to get the location of the other
perl binary, and use this location as the first line of your script,
then you should be good to go.
TTFN
Simon.
------------------------------
Date: Wed, 23 Jul 2003 21:54:57 +1200
From: "Tintin" <me@privacy.net>
Subject: Re: display client ip address on web page
Message-Id: <bfllum$g9cnr$1@ID-172104.news.uni-berlin.de>
"Joe" <joe_stevensen@yahoo.com> wrote in message
news:a911e5d5.0307221130.11f88871@posting.google.com...
> I need help writing a script that will display a web client's ip
> address on my web page.
>
> I am running apache on linux. I have perl installed.
It isn't possible to determine the IP address the users to your website.
The best you can do is determine the address of where the request has come
from (or at least, claims to have come from).
------------------------------
Date: 23 Jul 2003 01:50:46 -0700
From: alythh@netscape.net (Alythh)
Subject: Gnuplot module
Message-Id: <6a25ba72.0307230050.57da7475@posting.google.com>
I just installed Chart::Graph::Gnuplot, and I'm fairly satisfied.
But...
My wish is to be able to make a gnuplot() call, make it display the
graph, and stay there while other data becomes available... while
replotting the updated data.
Is there a way to communicate between the two processes in this way?
Or is this module just to output to a file?
Thanks for any info
Alessandro Magni
------------------------------
Date: Wed, 23 Jul 2003 11:59:01 +0200
From: "Joachim Dagerot" <jd@dagerot.nu>
Subject: How to make a http-connection
Message-Id: <%ZsTa.19245$KF1.304151@amstwist00>
I have a very simple problem:
I want to, from a perl script, do a http/POST alternative GET.
It's of no importance at all what is recieved from the server, better is
even if the perl-script just throws away the http_request and continues do
whatever it's doing.
Today I use a system-"command" curl to do the same thing, but that's not
optional.
I am certainly a novice on perl so the more extensive answer the better!
Thanks in advance,
Joachim
------------------------------
Date: Wed, 23 Jul 2003 12:31:29 GMT
From: Steve Grazzini <grazz@pobox.com>
Subject: Re: How to make a http-connection
Message-Id: <BevTa.30122$7O.25930@nwrdny01.gnilink.net>
Joachim Dagerot <jd@dagerot.nu> wrote:
> I want to, from a perl script, do a http/POST alternative GET.
% perldoc -q "fetch an HTML file"
% perldoc lwpcook
--
Steve
------------------------------
Date: Wed, 23 Jul 2003 22:59:53 +1000
From: Cat <cat@no-spam.com>
Subject: Re: How to make a http-connection
Message-Id: <3F1E86C8.1BDCCA75@no-spam.com>
Joachim Dagerot wrote:
>
> I want to, from a perl script, do a http/POST alternative GET.
>
#!/bin/perl
use strict;
use warnings;
use diagnostics;
use LWP::Simple;
my $url="http://search.cpan.org/";
my $content = get($url);
print($content)
------------------------------
Date: Wed, 23 Jul 2003 21:48:22 +1200
From: "Tintin" <me@privacy.net>
Subject: Re: Larry W... out of work ?? Impossible... or...
Message-Id: <bfllic$g1ft6$1@ID-172104.news.uni-berlin.de>
"stu7" <stuseven@hotmail.com> wrote in message
news:d7dd90b0.0307211916.2feb9d1b@posting.google.com...
> +
> ...or is it ?
[snipped rambling rant]
Son of Moronzilla?
------------------------------
Date: Wed, 23 Jul 2003 05:01:19 -0500
From: "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
Subject: Re: Larry W... out of work ?? Impossible... or...
Message-Id: <Xns93C13D3D5A3DBsdn.comcast@206.127.4.25>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
stuseven@hotmail.com (stu7) wrote in
news:d7dd90b0.0307221713.76ff86dc@posting.google.com:
> *** ah... it's eric again... and same complaint as before.
Yes, my complaint is about your rudeness.
> *** The problem eric is, for one, I DID NOT ADDRESS MY POST
> *** TO YOU... dont take it so personally ?
You posted in a public forum. The proper response is a public one.
> ***
> *** At the outside, it is possible I was too eager to jump
> *** on your non-reply in particular, and you may in fact
> *** have intended no more than to point out a problem you
> *** were having reading my post...
No, as I pointed out before, I have no problem reading your posts. I was
trying to point out that many other people would have problems.
> but Email is more suited
> *** for personalized problems like that, rather than adding
> *** content to the newsgroup.
No. See now, that's one of the conventions that you are ignorant of.
Helpful general tips are to be posted to the newsgroup, even if they are
not directly related to the original post's topic, because other people
will see and learn. That way, those who know the conventions won't have
to respond privately to as many posts, and they can see that a particular
post has been responded to.
> *** FYI - there is no problem with my quoting style whatsoever...
> *** it works fine on Google_ it is in fact a style I was taught
> *** to use in an Email/NewsReader class...
Then I might suggest that either you misunderstood the instruction, or
the class you took was a poor one. You might want to follow up with the
instructor to clarify what is wrong with your posting style. And, with
all due respect to Google, these social conventions were old when Google
was created. They were old when I started using Usenet a decade ago.
> I do apologize if
> *** it causes problems on your system, but I suspect this is
> *** a laptop you're using... so most web pages wont work for
> *** you... again, it isn't especially relevant to me, as a poster
> *** with a question, to address issues like this, although I am
> *** sympathetic... really.
Most webpages don't work on laptops?? This is news.
> *** Or... if you dont like the facts of this matter, try to
> *** follow this example :) Suppose you were on vacation,
> *** and stopped to ask directions... and the person you
> *** asked said something like - "Hey... whats with the
> *** flowers on the shirt ? Definitely bad... and your
> *** wife is kinda fat and dumpy too... we dont like that
> *** around here... and, yea, I know how to get to where you
> *** asked about, but Im not going to tell you !".
> *** Sure, thats a little exaggereated... but really, it is
> *** almost as irrelevant as your style critique of my perl
> *** question.
Let me suggest a counter-analogy. Suppose you're walking down a sidewalk
in a neighborhood you're familiar with. A car pulls up with the radio
blaring and honks repeatedly at you. When you go over to see what his
problem is, he says, "Hey, I need to get to 4th and Broad. Tell me how
to get there. Now come on, make it snappy!" And then he tosses a
cigarette butt out of his car at your feet.
Maybe you'll help him, maybe you won't. Nobody would blame you for not
helping him and just walking away. But then suppose you said to him, "You
know, people would be more likely to help you get places if you would
turn down your radio and not honk at them, and to say words like
'please' and 'thank you'". And then this driver went ballistic, ripping
into you, calling you childish and saying "You don't own this street!
Who do you think you are? I'll honk my horn any time I want -- at 3am if
I feel like it!"
Well, how would you feel about a driver who so thoroughly ignored social
conventions like that?
- --
Eric
$_ = reverse sort qw p ekca lre Js reh ts
p, $/.r, map $_.$", qw e p h tona e; print
-----BEGIN xxx SIGNATURE-----
Version: PGPfreeware 7.0.3 for non-commercial use <http://www.pgp.com>
iQA/AwUBPx5c3GPeouIeTNHoEQL5AQCfY6xf3DWOEI+O1Lt7Jj1xp2RmFnoAoL6z
JOjYXyuEQXAKDtlVnSfYb3kg
=9yeq
-----END PGP SIGNATURE-----
------------------------------
Date: Wed, 23 Jul 2003 20:40:59 +1200
From: "Tintin" <me@privacy.net>
Subject: Re: Mailing a message with attachcments
Message-Id: <bflhk0$gajgu$1@ID-172104.news.uni-berlin.de>
"Vittorio" <victor@none.it> wrote in message
news:E7QSa.5805$t92.180038@news1.tin.it...
> I need sending many mails with the same structure:
>
> An explanatory message AND a couple of attachments, an excel and pdf file.
>
> Now, following the many examples in the Internet, I've been able using
> use MIME::Entity;
> use NET::Smtp; (this module is necessary because I need authentication
> through an Exchange mail server)
>
> to send a message in which both the text of the message and the files
> are treated as attachments.
>
> Is there any way to keep them separated?
>
> Please an example would be highly appreciated.
MIME::Lite makes this very easy for you. Plenty of examples in the
documentation.
------------------------------
Date: 23 Jul 2003 01:36:44 -0700
From: davidmcguinness@dublin.ie (Dave from Dublin)
Subject: Re: Passing parameters to a Perl Script from Command Line (Linux)
Message-Id: <9d18d9fe.0307230036.4bfb6fbe@posting.google.com>
Hi again,
Thanks for the help, sorry about the dual posting, I just read
somebody mention that comp.lang.perl is not used much AFTER I had
posted there so I figured I needed to post again,
Thanks anyhow,
Dave
"Jürgen Exner" <jurgenex@hotmail.com> wrote in message news:<PCbTa.51725$EZ2.19870@nwrddc01.gnilink.net>...
> Dave from Dublin wrote:
> > I'm fairly new to both programming in shell script (linux) and in
> > programming in perl.
>
> You also seem to be new to Usenet. Please do not multipost. I just answered
> your question in the other NG and now there are two disjoint threads where
> nobody knows what's going on in the other.
>
> If you want to post in several NGs (which in general is frowned upon anyway)
> then at least do a cross-posting.
>
> jue
------------------------------
Date: Wed, 23 Jul 2003 07:32:36 GMT
From: Matt H <nntp@cox.net>
Subject: Re: perlcc makes it big
Message-Id: <slrnbhsb27.soa.nntp@distraction.ath.cx>
In article <bfk59p$n9f$1@nets3.rz.RWTH-Aachen.DE>, Tassilo v. Parseval wrote:
>
> So even after stripping it's still 890K in size. Did you perhaps tell
> perlcc to do dynamic instead of static linking? If so, how?
I am getting a dynamic a.out. I just used 'perlcc test.pl' to compile
it, no switches were used.
------------------------------
Date: Wed, 23 Jul 2003 11:55:11 GMT
From: "Steven N. Hirsch" <shirsch@adelphia.net>
Subject: Re: perlio problem? redhat 9, perl 5.8.0
Message-Id: <zIuTa.36442$8g6.516781@news1.news.adelphia.net>
Muttley wrote:
> In article <2369e2ad.0306240806.142022a9@posting.google.com>
> gordon@ockham.be (gordon) wrote:
>
>>
>>I'm having some problems running a bit of legacy perl code on a newly
>>installed redhat 9. With the perl 5.8.0 that comes with redhat 9, the
>>match against the string literal works, the match against the same
>>string read from a file fails.
>
>
> Gordon,
>
> I think you have saved me from possible insanity!
>
> I've been trying to isolate a problem with an INN News Server running
> on Redhat9. There is a reporting tool called innreport that fails on
> my system as the line read is not caught by a regex. If I define it
> as a string literal, then the line is processed quite correctly.
> This is on an out-of-the-box installation.
>
> It seems that Redhat 9 certainly does have a fairly serious bug.
You are getting bit by RedHat's half-assed implementation of unicode.
There is a "magic" environment variable which can be set to suppress the
(mis)behavior. Check either the RH9 release notes or possibly one of
the RedHat-related Usenet groups.
------------------------------
Date: Wed, 23 Jul 2003 10:19:34 +0300
From: Mihai Maris <mihai.maris@alcatel.ro>
Subject: printing an array
Message-Id: <3F1E3706.D0F6E3DC@alcatel.ro>
Hi all,
I'm working with perl ...
This is perl, v5.6.1 built for sun4-solaris
... and I'm trying to print a vector like this:
@array = ("one", "two");
print @array; # prints the array normally
print @array . "\n"; # prints the numbers of element in the array.
Why the second print doesn't print the array like the first one ?
#
# I want to mention that I'm a begginer in perl.
#
------------------------------
Date: Wed, 23 Jul 2003 09:38:29 +0200
From: "Christian Winter" <thepoet@nexgo.de>
Subject: Re: printing an array
Message-Id: <3f1e3b75$0$6779$9b4e6d93@newsread2.arcor-online.net>
"Mihai Maris" <mihai.maris@alcatel.ro> wrote:
[...]
> print @array; # prints the array normally
> print @array . "\n"; # prints the numbers of element in the array.
>
> Why the second print doesn't print the array like the first one ?
[...]
Hi,
because of the concatenation operator "." your
array is treated in scalar context. To concatenate
the contents of the array automatically, simply
substitute the "." with "," so that print gets a
list instead of the concatenation result as its
argument, or put @array inside double quotes
(print "@array\n") or use join().
HTH
-Christian
------------------------------
Date: Wed, 23 Jul 2003 08:39:29 GMT
From: Andre Bonhote <andre@colt.net>
Subject: Re: printing an array
Message-Id: <slrnbhsie1.gdr.andre@lothlorien.noc.ch.colt.net>
Hi Mihai, hi Christian
In article <3f1e3b75$0$6779$9b4e6d93@newsread2.arcor-online.net>,
Christian Winter wrote:
> "Mihai Maris" <mihai.maris@alcatel.ro> wrote:
> [...]
>> print @array; # prints the array normally
>> print @array . "\n"; # prints the numbers of element in the array.
>>
>> Why the second print doesn't print the array like the first one ?
> [...]
>
> Hi,
>
> because of the concatenation operator "." your
> array is treated in scalar context. To concatenate
> the contents of the array automatically, simply
> substitute the "." with "," so that print gets a
> list instead of the concatenation result as its
> argument, or put @array inside double quotes
> (print "@array\n") or use join().
As alternative to join() you could alter the list separator variable $"
to something you prefer, like
perl -e '$"=","; @array=qw(one two three); print "@array\n";'
which results in
one,two,three
HTH
André
--
Every cloud engenders not a storm.
-- William Shakespeare, "Henry VI"
------------------------------
Date: 23 Jul 2003 04:18:56 -0700
From: satishi@gwu.edu (slash)
Subject: references help
Message-Id: <30fe9f1e.0307230318.146881fc@posting.google.com>
Hi,
I need some desperate help with my references usage in the code below.
I'd appreciate the help enormously.
Following is the input in the "data" file:
quick brown fox
brown quick
brown fox jumped
fox brown quick
fox jumped over
fox resting over
jumped fox brown
jumped over lazy
over jumped fox
over lazy dog
lazy over jumped
lazy dog tripped
dog lazy over
dog tripped over
tripped dog lazy
tripped over resting
over tripped dog
over resting fox
resting tripped over
resting fox
Following is the code:
use strict;
my %C; # arrayref of children for a parent
my %P; # parent for a child
open (D, "<data") or die;
while (<D>) {
chomp;
my ($p, $c) = split /\s+/;
next if ((grep /^$p$/, @{$C{$c}}) || $p eq $c);
# add the child to the list of this parent's children
# unless we've already done so
push (@{$C{$p}}, $c) unless (grep /^$c$/, @{$C{$p}});
# record the parent for this child
$P{$c} = $p;
}
close (D);
my @T; # top levels - parents without parents :^)
foreach (keys %C) {
push (@T, $_) unless $P{$_};
}
# build the chart, starting with top levels
my $level = 0;
children($level, \@T);
sub children {
my ($level, $arrayref) = @_;
foreach (sort @$arrayref) {
# show indented
print (" " x $level);
print "$_\n";
# show the children (if any)
children($level+1, $C{$_}) if $C{$_};
}
}
---------------------------------------
And the output I seek is the following:
quick
brown
fox
brown
quick
fox
jumped
fox
brown
quick
resting
over
jumped
over
jumped
fox
brown
over
lazy
over
jumped
fox
tripped
dog
lazy
dog
resting
fox
lazy
over
jumped
dog
tripped
dog
lazy
over
tripped
over
tripped
dog
lazy
over
resting
resting
over
tripped
fox
When I run the above code, I get an infinite loop but I am not sure
where the mistake might be. I have been fiddling with this problem for
long now and any help would be greatly appreciated.
Thanks,
Slash
------------------------------
Date: Wed, 23 Jul 2003 09:39:04 +0200
From: "Bill Parker" <bill@gites.org.uk>
Subject: size of graphics files....
Message-Id: <bfle2q$dm6$1@news-reader3.wanadoo.fr>
Is it possible to easily mimic php's getimagesize function in perl? In
particular, I want to get at an images size in KB and X and Y values.
I fully admit to laziness in having purchased but not yet read Verbruggen's
"Graphics Programming with Perl" but I'm hoping this is such a simple task
that a) I won't need Image::Magick or whatever and b) someone else already
has a code fragment to hand
Thanks for any help and pointers etc.
Bill
------------------------------
Date: Wed, 23 Jul 2003 04:47:54 +0200
From: "Janek Schleicher" <bigj@kamelfreund.de>
Subject: Re: size of graphics files....
Message-Id: <pan.2003.07.23.02.47.53.221411@kamelfreund.de>
Bill Parker wrote at Wed, 23 Jul 2003 09:39:04 +0200:
> Is it possible to easily mimic php's getimagesize function in perl? In
> particular, I want to get at an images size in KB and X and Y values.
>
> I fully admit to laziness in having purchased but not yet read Verbruggen's
> "Graphics Programming with Perl" but I'm hoping this is such a simple task
> that a) I won't need Image::Magick or whatever and b) someone else already
> has a code fragment to hand
To get the size of a file in KB, please read
perldoc -f -X
To get its size in pixel width and height, have a look to the CPAN module
Image::Size
Greetings,
Janek
------------------------------
Date: Wed, 23 Jul 2003 13:28:17 +0200
From: "Bill Parker" <bill@gites.org.uk>
Subject: Re: size of graphics files....
Message-Id: <bflrgj$3ss$1@news-reader3.wanadoo.fr>
Ta
Image::Size is in fact on summat like page 2 of said book. And very good it
is too.
"Janek Schleicher" <bigj@kamelfreund.de> wrote in message
news:pan.2003.07.23.02.47.53.221411@kamelfreund.de...
> Bill Parker wrote at Wed, 23 Jul 2003 09:39:04 +0200:
>
> > Is it possible to easily mimic php's getimagesize function in perl? In
> > particular, I want to get at an images size in KB and X and Y values.
> >
> > I fully admit to laziness in having purchased but not yet read
Verbruggen's
> > "Graphics Programming with Perl" but I'm hoping this is such a simple
task
> > that a) I won't need Image::Magick or whatever and b) someone else
already
> > has a code fragment to hand
>
> To get the size of a file in KB, please read
> perldoc -f -X
>
> To get its size in pixel width and height, have a look to the CPAN module
> Image::Size
>
>
> Greetings,
> Janek
------------------------------
Date: Wed, 23 Jul 2003 13:21:21 +0200
From: Sascha Moellering <SaschaMoe@web.de>
Subject: Re: Soap::Lite and hashes
Message-Id: <bflk21$92t$07$1@news.t-online.com>
Alasdair Allan wrote:
> I'm using SOAP::Transport::HTTP::Daemon as I didn't have a handy server
> around to use the CGI module as you did in your example. The main problem
> you had was that you were trying to send a reference to a hash instead of
> a hash...
>
Hi,
I think, I can't use this solution, because I have to send the data using
SSL. I even tried to dereference the hash, but that does not work:
<SOAP-ENV:Body>
<SOAP-ENV:Fault>
<faultcode xsi:type="xsd:string">SOAP-ENV:Server</faultcode>
<faultstring xsi:type="xsd:string">Can't use string ("1") as a HASH ref
while "strict refs" in use at server.cgi line 16. </faultstring>
</SOAP-ENV:Fault>
</SOAP-ENV:Body>
Thank you,
Sascha
------------------------------
Date: Wed, 23 Jul 2003 14:46:43 +0200
From: "news.tpi.pl" <mareks1@poczta.onet.pl>
Subject: SQL query problem
Message-Id: <bfm09b$5b6$1@atlantis.news.tpi.pl>
I have a problem.
I try to execute SQL command which return more than 9 columns by DBD:PgPP
and DBI (module).
The procedure return error:
Can't call method "fetch" on an undefined value at
c:/per/site/lib/DBD.PgPP.pm line 330.
If I execute less than 9 collumn is OK.
How I can resolve this problem
Robson
r.wyka@interia.pl
POLAND
------------------------------
Date: 22 Jul 2003 22:59:56 -0700
From: ronaldf@eml.cc (Ronald Fischer)
Subject: Re: Why is 'last' not allowed here
Message-Id: <219750c.0307222159.6268fc05@posting.google.com>
Abigail <abigail@abigail.nl> wrote in message news:<slrnbhpppn.pkh.abigail@alexandra.abigail.nl>...
> Ronald Fischer (ronaldf@eml.cc) wrote on MMMDCXII September MCMXCIII in
> <URL:news:219750c.0307212225.2238600@posting.google.com>:
> )) "A BLOCK by itself (labeled or not) is semantically equivalent to a
>
> ^^^^^^^^^
>
> It's a block, but your first quote says "A block BY ITSELF". A block
> belonging by an if isn't a block by itself.
Now I understand, thanks a lot. This clearly was a defect in my understanding
of the English language.
Ronald
------------------------------
Date: Sat, 19 Jul 2003 01:59:56 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re:
Message-Id: <3F18A600.3040306@rochester.rr.com>
Ron wrote:
> Tried this code get a server 500 error.
>
> Anyone know what's wrong with it?
>
> if $DayName eq "Select a Day" or $RouteName eq "Select A Route") {
(---^
> dienice("Please use the back button on your browser to fill out the Day
> & Route fields.");
> }
...
> Ron
...
--
Bob Walton
------------------------------
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.
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 5261
***************************************
