[16996] in Perl-Users-Digest
Perl-Users Digest, Issue: 4408 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Sep 22 21:05:28 2000
Date: Fri, 22 Sep 2000 18:05:10 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <969671110-v9-i4408@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 22 Sep 2000 Volume: 9 Number: 4408
Today's topics:
"not in string" - how to do it? <fpuzvqgxcrnpu@tgr.arg>
Re: "not in string" - how to do it? <jeff@vpservices.com>
Re: "not in string" - how to do it? (Richard J. Rauenzahn)
Re: "not in string" - how to do it? <tony_curtis32@yahoo.com>
Re: "not in string" - how to do it? <fpuzvqgxcrnpu@tgr.arg>
Re: "not in string" - how to do it? <jeff@vpservices.com>
Re: "not in string" - how to do it? (Richard J. Rauenzahn)
Re: "not in string" - how to do it? <lr@hpl.hp.com>
[ANNOUNCE] Apache::XPP 2.00 (new package) <dougw@cnation.com>
[ANNOUNCE] BingoX 1.91 (new package) <david@cnation.com>
Re: A simple dependency excercise <tim@ipac.caltech.edu>
Re: A simple dependency excercise (Abigail)
Chicago Perl Talks by Damian Conway, October <spug@halcyon.com>
Re: Does Perl have C API? (Abigail)
Re: generating arrays on the fly (Craig Berry)
getting images with LWP? <bbowden@mitre.org>
Re: getting images with LWP? <eli@there-is-no-more-qzto.com>
Re: Identify this book! (Richard J. Rauenzahn)
MSXML.dll <idbugm@idbugm.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 22 Sep 2000 22:41:09 GMT
From: "Kurt Schmidt" <fpuzvqgxcrnpu@tgr.arg>
Subject: "not in string" - how to do it?
Message-Id: <9eRy5.3325$TT.210727@dfiatx1-snr1.gtei.net>
Keywords: regular expression
I am so sorry if this is not the right place to post it, but I have no idea
where to look for the answer -- I used up al the resources of which I know.
Let's say that I have arbitrary strings like
aklklsdjjf
ssdalkfj
srwokgfl
jkljsdpitl;
skkdddk
dlkliujgmn
klksddffd
and so on
I want to match all strings EXCEPT those that have one or more d in it.
Seems like a simple question, but what is the answer?
Thanks in advance!
Kurt
--
Address protection: to reply by email directly, please apply "rot13"
decryption to the address and then remove the fruit from the address
fpuzvqgxcrnpu@tgr.arg. I regret any inconvenience but this is there to
limit the deluge of opportunities provided by our mass mailing, spamming
brethren. Your newsreader should have a handy "rot13" feature; I also found
a convenient one on http://www.rtg.se/~niclas/rot13.htm
------------------------------
Date: Fri, 22 Sep 2000 15:58:07 -0700
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: "not in string" - how to do it?
Message-Id: <39CBE3FF.5B501147@vpservices.com>
Kurt Schmidt wrote:
>
> I want to match all strings EXCEPT those that have one or more d in it.
while (<DATA>) {
print unless /d/;
}
--
Jeff
------------------------------
Date: 22 Sep 2000 23:30:21 GMT
From: nospam@hairball.cup.hp.com (Richard J. Rauenzahn)
Subject: Re: "not in string" - how to do it?
Message-Id: <969665420.633993@hpvablab.cup.hp.com>
Jeff Zucker <jeff@vpservices.com> writes:
>Kurt Schmidt wrote:
>>
>> I want to match all strings EXCEPT those that have one or more d in it.
>
>while (<DATA>) {
> print unless /d/;
>}
Ummm, no...
while(<DATA>) {
print unless(tr/d// > 1)
}
Rich
--
Rich Rauenzahn ----------+xrrauenza@cup.hp.comx+ Hewlett-Packard Company
Technical Consultant | I speak for me, | 19055 Pruneridge Ave.
Development Alliances Lab| *not* HP | MS 46TU2
ESPD / E-Serv. Partner Division +--------------+---- Cupertino, CA 95014
------------------------------
Date: 22 Sep 2000 18:41:41 -0500
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: "not in string" - how to do it?
Message-Id: <87em2c2dvu.fsf@limey.hpcc.uh.edu>
>> On 22 Sep 2000 23:30:21 GMT,
>> nospam@hairball.cup.hp.com (Richard J. Rauenzahn) said:
> Jeff Zucker <jeff@vpservices.com> writes:
>> Kurt Schmidt wrote:
>>
>> I want to match all strings EXCEPT those that have one
>> or more d in it.
>>
>> while (<DATA>) { print unless /d/; }
> Ummm, no...
> while(<DATA>) { print unless(tr/d// > 1) }
Ummm, no...
*one or more* "d" in it
/d/ fulfils that criterion.
hth
t
--
Namaste!
And an "oogabooga" to you too!
-- Homer Simpson
------------------------------
Date: Fri, 22 Sep 2000 23:44:58 GMT
From: "Kurt Schmidt" <fpuzvqgxcrnpu@tgr.arg>
Subject: Re: "not in string" - how to do it?
Message-Id: <_9Sy5.3363$TT.231160@dfiatx1-snr1.gtei.net>
Thanks, but... actually, it is a little more complicated than just the "not
d," but I got everything else worked out except for that. The full problem
is that the string must match certain criteria and must not match certain
other; something like "have a "wxyz" followed by "mrst" and a q in between
them but there must not be a "d" in between them. I got the match - that
wasn't too hard, of course, but having the "not match" for a patter like
that is something I could not quite find. I think that multiple ifs may be
appropriate, but I thought a regular expressions might be able to do that.
Thanks again!
Kurt
--
Address protection: to reply by email directly, please apply "rot13"
decryption to the address and then remove the fruit from the address
fpuzvqgxcrnpu@tgr.arg. I regret any inconvenience but this is there to
limit the deluge of opportunities provided by our mass mailing, spamming
brethren. Your newsreader should have a handy "rot13" feature; I also found
a convenient one on http://www.rtg.se/~niclas/rot13.htm
"Richard J. Rauenzahn" <nospam@hairball.cup.hp.com> wrote in message
news:969665420.633993@hpvablab.cup.hp.com...
> Jeff Zucker <jeff@vpservices.com> writes:
> >Kurt Schmidt wrote:
> >>
> >> I want to match all strings EXCEPT those that have one or more d in it.
> >
> >while (<DATA>) {
> > print unless /d/;
> >}
>
> Ummm, no...
>
> while(<DATA>) {
> print unless(tr/d// > 1)
> }
>
> Rich
> --
> Rich Rauenzahn ----------+xrrauenza@cup.hp.comx+ Hewlett-Packard Company
> Technical Consultant | I speak for me, | 19055 Pruneridge Ave.
> Development Alliances Lab| *not* HP | MS 46TU2
> ESPD / E-Serv. Partner Division +--------------+---- Cupertino, CA 95014
------------------------------
Date: Fri, 22 Sep 2000 17:03:38 -0700
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: "not in string" - how to do it?
Message-Id: <39CBF35A.B84284DF@vpservices.com>
Kurt Schmidt wrote:
>
> Thanks, but... actually, it is a little more complicated than just the "not
> d,"
Then next time please explain your real problem.
--
Jeff
------------------------------
Date: 22 Sep 2000 23:56:00 GMT
From: nospam@hairball.cup.hp.com (Richard J. Rauenzahn)
Subject: Re: "not in string" - how to do it?
Message-Id: <969666960.32612@hpvablab.cup.hp.com>
Tony Curtis <tony_curtis32@yahoo.com> writes:
>>> On 22 Sep 2000 23:30:21 GMT,
>>> nospam@hairball.cup.hp.com (Richard J. Rauenzahn) said:
>
>> Jeff Zucker <jeff@vpservices.com> writes:
>>> Kurt Schmidt wrote:
>>>
>>> I want to match all strings EXCEPT those that have one
>>> or more d in it.
>>>
>>> while (<DATA>) { print unless /d/; }
>
>> Ummm, no...
>
>> while(<DATA>) { print unless(tr/d// > 1) }
>
>Ummm, no...
>
> *one or more* "d" in it
Thanks -- my Perl is good, but my English interpreter core dumped! I
read it as 'more than one'.
Rich
--
Rich Rauenzahn ----------+xrrauenza@cup.hp.comx+ Hewlett-Packard Company
Technical Consultant | I speak for me, | 19055 Pruneridge Ave.
Development Alliances Lab| *not* HP | MS 46TU2
ESPD / E-Serv. Partner Division +--------------+---- Cupertino, CA 95014
------------------------------
Date: Fri, 22 Sep 2000 17:10:25 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: "not in string" - how to do it?
Message-Id: <MPG.143594d076c7379998adb8@nntp.hpl.hp.com>
[Removed alt.perl.]
In article <_9Sy5.3363$TT.231160@dfiatx1-snr1.gtei.net> on Fri, 22 Sep
2000 23:44:58 GMT, Kurt Schmidt <fpuzvqgxcrnpu@tgr.arg> says...
> Thanks, but... actually, it is a little more complicated than just the "not
> d," but I got everything else worked out except for that. The full problem
> is that the string must match certain criteria and must not match certain
> other; something like "have a "wxyz" followed by "mrst" and a q in between
> them but there must not be a "d" in between them. I got the match - that
> wasn't too hard, of course, but having the "not match" for a patter like
> that is something I could not quite find. I think that multiple ifs may be
> appropriate, but I thought a regular expressions might be able to do that.
When it is a set of individual characters to rule out, it is very easy
to do it in a regex:
/wxyz[^d]*q[^d]*mrst/
Ruling out a particular string is somewhat harder.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 22 Sep 2000 14:07:41 -0700
From: dougw <dougw@cnation.com>
Subject: [ANNOUNCE] Apache::XPP 2.00 (new package)
Message-Id: <ssnn6kp7805ne6@corp.supernews.com>
The URL:
http://sourceforge.net/project/showfiles.php?group_id=11363&release_id=12224
has entered CPAN as
file: $CPAN/authors/id/C/CN/CNATION/Apache-XPP-2.00.tar.gz
size: 36657 bytes
md5: 07c2d7a921f2c5e578b7be34acdaec58
Apache::XPP is an embedded perl language designed to co-exist with
HTML.
See
http://opensource.cnation.com/projects/XPP/ for more information.
- XPP stands for 'XPP Parses Perl' or 'XPML Page Parser', and is a
fast/efficient HTML parser that parses embedded
perl, as well as HTML like tags, from dynamic html pages called XPML
pages.
- XPP supports arbitrary Perl within XPML Pages as well as XPP tags
which are easier for HTML programmers to write.
Even though XPP allows non-perl tags, XPP remains blazingly fast by
converting all XPP tags to Perl code, compiling
the page and caching the compiled page in memory. Each application can
create its own XPP tags specific to that
application.
- XPP supports a flexible include mechanism for including other files
or URLs which can also be parsed or include
other included files.
- XPP also supports a flexible caching model, letting you write your
own caching and expiry schemes in same way
people write DBD modules for DBI.
--
Doug Weimer
------------------------------
Date: Fri, 22 Sep 2000 12:28:28 -0700
From: David Alan Pisoni <david@cnation.com>
Subject: [ANNOUNCE] BingoX 1.91 (new package)
Message-Id: <ssnn6qtanj3kea@corp.supernews.com>
Cnation is pleased to announce the initial posting of BingoX to CPAN.
The URL
<http://download.sourceforge.net/bingox/BingoX-1.91.tar.gz>
has entered CPAN as
file: $CPAN/authors/id/C/CN/CNATION/BingoX-1.91.tar.gz
size: 72136 bytes
md5: cbf5108d666a83b64843e991eea61d1d
BingoX is an open source, object oriented Web Application Framework
written in mod_perl meant to dramatically reduce the time required to
build large dynamic, database driven web sites and applications. BingoX
is also a methodology for building web sites and applications which
enables groups of developers to work together in a more consistent
manner. With the BingoX framework, it is possible with a minimal amount
of code to:
* Create large, database driven, dynamic sites in a fraction of the
time.
* Access complex relational databases through an intuitive and
consistent object-oriented API.
* Create powerful administrative interfaces for managing content in
your database.
* Create dynamic web sites which separate business logic from code,
letting HTML Integrators work on display while Application Programmers
write business logic.
* Reuse code within a project and between projects, cutting development
time even further.
What BingoX is not :
* A new form of gambling.
* A domestic or farm animal.
For more detailed information on BingoX (and other Cnation open source
projects) go to <http://opensource.cnation.com/>.
------------------------------
Date: Fri, 22 Sep 2000 15:15:22 -0700
From: Tim Conrow <tim@ipac.caltech.edu>
Subject: Re: A simple dependency excercise
Message-Id: <39CBD9FA.43A9D9F6@ipac.caltech.edu>
David Steuber wrote:
>
> Tomorrow, (Friday), I plan to write a Perl script to do the following
> (on a Linux system):
>
> 1) starting at the filesystem root, glob each file in each directory.
> 2) run the file command on each file if -x
> 3) run the ldd command on each file if ELF executable &&
> dynamically linked
> 4) keep track of each shared object in the file system
> 5) make a list of all .so files that are NOT referenced
> 6) remove the unreferenced .so files
>
> I won't automate step 6 in the first itteration of the script that
> does 1..5. Too dangerous ;-).
>
> On the face of it, this seems like a simple thing to do. If I were
> serious about being a Perl programmer, how long should this take me?
It took me about an hour, I'm ashamed to say, but a) I'm not a sysadmin, and b)
I'd never used File::Find before. I'm sure a seasoned sysadmin and perl
programmer could do it in 15 min.s.
--
-- Tim Conrow tim@ipac.caltech.edu |
------------------------------
Date: 23 Sep 2000 00:33:28 GMT
From: abigail@foad.org (Abigail)
Subject: Re: A simple dependency excercise
Message-Id: <slrn8snugf.5fq.abigail@alexandra.foad.org>
Tim Conrow (tim@ipac.caltech.edu) wrote on MMDLXXIX September MCMXCIII in
<URL:news:39CBD9FA.43A9D9F6@ipac.caltech.edu>:
() David Steuber wrote:
() >
() > Tomorrow, (Friday), I plan to write a Perl script to do the following
() > (on a Linux system):
() >
() > 1) starting at the filesystem root, glob each file in each directory.
() > 2) run the file command on each file if -x
() > 3) run the ldd command on each file if ELF executable &&
() > dynamically linked
() > 4) keep track of each shared object in the file system
() > 5) make a list of all .so files that are NOT referenced
() > 6) remove the unreferenced .so files
() >
() > I won't automate step 6 in the first itteration of the script that
() > does 1..5. Too dangerous ;-).
() >
() > On the face of it, this seems like a simple thing to do. If I were
() > serious about being a Perl programmer, how long should this take me?
()
() It took me about an hour, I'm ashamed to say, but a) I'm not a sysadmin, and
() I'd never used File::Find before. I'm sure a seasoned sysadmin and perl
() programmer could do it in 15 min.s.
Perhaps a seasoned Perl programmer could, but this is a task I'd use
the shell for. ;-)
Abigail
--
perl5.004 -wMMath::BigInt -e'$^V=Math::BigInt->new(qq]$^F$^W783$[$%9889$^F47]
.qq]$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W]
.qq]98$^F76777$=56]);$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^V
%$^U;$^V/=$^U}while$^V!=$^W'
------------------------------
Date: 22 Sep 2000 22:22:22 GMT
From: Seattle PERL Users Group <spug@halcyon.com>
Subject: Chicago Perl Talks by Damian Conway, October
Message-Id: <8qgm2u$it6$1@brokaw.wa.com>
Keywords: damian conway Perl advanced object oriented perl parsing consultix
* * * October Perl Seminars in Chicago, by Damian Conway * * *
Damian Conway will be presenting two fee-based training seminars in Chicago
from 10/9-10/11, entitled "Advanced Object Oriented Perl" and "Beyond
Regexes: Text Parsing with Perl Modules".
These seminars are being organized through Consultix, which is the
contact for additional course information and registration services.
We've decided to extend the 10% discount into next week, so register
soon to take advantage of a substantial savings.
Detailed information on Damian Conway's October Perl Seminars is available
at http://www.consultix-inc.com. Prices are on the registration forms.
*========================================================================*
| Dr. Tim Maher, CEO, Consultix (206) 781-UNIX/8649; ask for FAX# |
| Email: tim@consultix-inc.com Web: http://www.consultix-inc.com |
|Training- TIM MAHER: Unix, Perl DAMIAN CONWAY: Adv. Perl, OOP, Parsing |
I========================================================================*
------------------------------
Date: 23 Sep 2000 00:26:13 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Does Perl have C API?
Message-Id: <slrn8snu2s.5fq.abigail@alexandra.foad.org>
Xiaoyan Liu (x.liu@xsb.com) wrote on MMDLXXIX September MCMXCIII in
<URL:news:39cbc947_3@dilbert.ic.sunysb.edu>:
##
## Does Perl have a C API for programmers to call from outside a perl engine?
## My intention is to use Perl regular expression in Java through Java Native
## Interface.
Did you read the man pages dealing with this problem?
Abigail
--
perl -we '$_ = q ;4a75737420616e6f74686572205065726c204861636b65720as;;
for (s;s;s;s;s;s;s;s;s;s;s;s)
{s;(..)s?;qq qprint chr 0x$1 and \161 ssq;excess;}'
------------------------------
Date: Fri, 22 Sep 2000 22:15:46 -0000
From: cberry@cinenet.net (Craig Berry)
Subject: Re: generating arrays on the fly
Message-Id: <ssnmgir8gsc08a@corp.supernews.com>
JakeRocket (rocket@acme.com) wrote:
: Can someone point me to some resources that will help me convert an
: example such as the following: (This is what a sample text would look
: like).
:
: a01 1
[snip]
: a07 2
: ....and so on.
:
: I want to have the variables a01 = 1, a02 = 2, ao3 = 2, a04 = 1,etc.
You probably don't actually want to do that. Why not have a hash called
%a instead, with keys like '01' and '02'? Then $a{02} would have the
value 2 and so forth. This avoids symbolic references, which are
generally a bad practice for a variety of reasons you can read about in
the archives.
But, in any case, for each line, assuming that line is in $_:
my ($name, $val) = split;
$$name = $val; # Your way...
$a{substr($name, 1)} = $val; # ...or my way.
--
| Craig Berry - http://www.cinenet.net/~cberry/
--*-- "Quidquid latine dictum sit, altum viditur."
|
------------------------------
Date: Fri, 22 Sep 2000 20:05:41 -0400
From: Bruce Bowden <bbowden@mitre.org>
Subject: getting images with LWP?
Message-Id: <39CBF3D4.7342D497@mitre.org>
Sorry if this is a rudimentary question or better suited to a Perl CGI
group (which I do not have access to...), but I am not getting anywhere
with this problem with my current resources.
I am trying to retrieve an image from a website. I know the exact URL to
the image. I have tried to use LWP::Simple as follows:
use LWP::Simple;
$picfile="C:/somepath/image.jpg";
$image=get('http://host.domain.com/dir/file.jpg');
open(FILE, ">$picfile");
binmode FILE; #ADDED FOR NT SERVER
print FILE $image;
close(FILE);
The file http://host.domain.com/dir/file.jpg definitely exists, I can
see it with a browser. The script creates a jpg file with the right name
on my local file system, but it has a size of 0kb. The script is
actually a bit more complicated than this (it is outputting a web page
after performing a database query...) but I don't think that this part
is dependent on the rest of the script. I am running NT4 Server with
Activestate Perl 5.005 (build 521). Anybody have an idea what I am
missing?
Three things to note:
1. I do not have FTP access to the host in question.
2. In the context of my CGI program, the page that is output never stops
loading, it seems to be stuck on this piece (again, I don't think this
is the result of any other part of the script - or to be more accurate,
I KNOW that it is not dependent on the rest of the script, as it runs
fine without this piece).
3. LWP is working fine on my machine:
get('http://host.domain.com/dir/file.htm') works great every time.
p.s. one more thing - the dir in question has a dot (.) in the
dirname... can't imagine that this makes a difference but you never
know.
------------------------------
Date: 23 Sep 2000 00:50:53 GMT
From: Eli the Bearded <eli@there-is-no-more-qzto.com>
Subject: Re: getting images with LWP?
Message-Id: <eli$0009222048@qz.little-neck.ny.us>
In comp.lang.perl.misc, Bruce Bowden <bbowden@mitre.org> wrote:
> Sorry if this is a rudimentary question or better suited to a Perl CGI
> group (which I do not have access to...), but I am not getting anywhere
This is not CGI.
> I am trying to retrieve an image from a website. I know the exact URL to
> the image. I have tried to use LWP::Simple as follows:
>
> use LWP::Simple;
> $picfile="C:/somepath/image.jpg";
> $image=get('http://host.domain.com/dir/file.jpg');
Check to see that $image is not undef at this point, since that
is hole get() returns its errors:
die "get failed," unless defined($image);
> open(FILE, ">$picfile");
> binmode FILE; #ADDED FOR NT SERVER
Hmmm. Does getstore($url, $file) work on NT? I have no idea if
it does the right thing with binmode(). The return value from
getstore() is the three digit HTTP status code which would be
useful to know. If it is 200 the download 'worked' (in the
sense that you got something without any error notification).
head($url) might be useful to try too, for diagnostics. (Some
servers don't allow/support HEAD requests, though.)
> The file http://host.domain.com/dir/file.jpg definitely exists, I can
> see it with a browser. The script creates a jpg file with the right name
I can imagine server configurations that would allow a file.jpg to
be downloaded by a typical browser, when viewed as part of a web
page, but not when linked to directly (Referer: checking) or when
accessed by special download tools (browser sniffing). So it might
not be a problem in your script.
Elijah
------
sub z($$){(substr(shift,1)cmp substr(shift,1))*-1}$,=v32;$\
=v10;@japh=qw(Another Hacker Perl Just);print sort z @japh;
------------------------------
Date: 22 Sep 2000 23:38:31 GMT
From: nospam@hairball.cup.hp.com (Richard J. Rauenzahn)
Subject: Re: Identify this book!
Message-Id: <969665909.122626@hpvablab.cup.hp.com>
Probably this book: http://perl.com/critiques/p5cgiweb4nt.html
Rich
stdenton@my-deja.com writes:
>Here's a question that is very truly "misc"!
>
>From http://www.info.lk/techweb/perl/tutor/
>
>"The sort function compares two variables, $a and $b. They must be
>called $a and $b otherwise it won't work. One chap published a book
>with stolen code, and he changed $a and $b to $x and $y. He obviously
>didn't test the program because it would have failed and he would have
>noticed. And this book was really published ! Don't believe everything
>you read in books - but web tutorials are always 100% truthful :-)"
>
>My question is, what book is this guy talking about?
>
>Sent via Deja.com http://www.deja.com/
>Before you buy.
--
Rich Rauenzahn ----------+xrrauenza@cup.hp.comx+ Hewlett-Packard Company
Technical Consultant | I speak for me, | 19055 Pruneridge Ave.
Development Alliances Lab| *not* HP | MS 46TU2
ESPD / E-Serv. Partner Division +--------------+---- Cupertino, CA 95014
------------------------------
Date: Fri, 22 Sep 2000 23:46:37 GMT
From: IDBugM <idbugm@idbugm.com>
Subject: MSXML.dll
Message-Id: <8qgr0p$6qt$1@nnrp1.deja.com>
I'm in a bit of a bind. I'm trying to use Perl to post an XML string to
a secure server. Since I'm running this script on a Win32 system using
Net::SSLeay would be very difficult to use.
I've used the MSXML.DLL for ASP but I've never tried accessing the DLL's
from Perl. I've tried looking into all these groups for an answer but
maybe I'm making it more difficult than it really is. Here is the basic
code I use in VB that I'm trying to convert into Perl.
dim anXMLhttpObject, strResult
Set anXMLhttpObject = Server.CreateObject("microsoft.XMLHttp")
anXMLhttpObject.open "POST",TransactionURL,false
anXMLhttpObject.setRequestHeader "Content-type", "text/xml"
anXMLhttpObject.send RequestXMLstring
strResult = anXMLhttpObject.responseText
Anyone know how to convert this using the Win32::API module for Active
State? Please help if you know how to do this. Thanks
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 V9 Issue 4408
**************************************
