[10981] in Perl-Users-Digest
Perl-Users Digest, Issue: 4581 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jan 8 04:07:10 1999
Date: Fri, 8 Jan 99 01:00:15 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 8 Jan 1999 Volume: 8 Number: 4581
Today's topics:
Can I execute Perl Scipt from VB ? <bsumpter@msn.com.au>
extract MULTIPLE form data <mw@workmail.com>
Re: line noise (Abigail)
Re: Need help using MakeMaker for scripts (Randy Kobes)
Re: Someone asked how to capitalise first letter of eac (Larry Rosler)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 8 Jan 1999 19:48:00 +1100
From: "Barry G. Sumpter" <bsumpter@msn.com.au>
Subject: Can I execute Perl Scipt from VB ?
Message-Id: <774gia$p49$1@m2.c2.telstra-mm.net.au>
This is a multi-part message in MIME format.
------=_NextPart_000_00B0_01BE3B3F.CBEFC760
Content-Type: text/plain;
charset="windows-1252"
Content-Transfer-Encoding: quoted-printable
Colleagues,
I'm currently working with two very intelligent ClearCase experts.
They both swear by perl and have developed extensive custom automation =
perl script for ClearCase.
However, 90% of our development work is in VB and a lot of supporting =
apps are in exchange/outlook forms using VBScript and VBA. The other =
10% being C++.
We would love to be able to execute Perl scripts using VB / VBScript / =
VBA / C++.
Does anyone know of an activex control either a .dll or .exe or .ocx =
that would
allow us to do this?
Thanks everyone,
Barry G. Sumpter
Senior Analyst/Developer - Praxa Pty. Ltd.
Australia Post - Riposte Project
Wk: (03) 9204-5072 Mb: 0407 856 646
Barry.Sumpter@AusPost.Com.AU
BSumpter@VIC.BigPond.Net.AU
Hm: (03) 9899-1682
------=_NextPart_000_00B0_01BE3B3F.CBEFC760
Content-Type: text/html;
charset="windows-1252"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
<HTML>
<HEAD>
<META content=3Dtext/html;charset=3Diso-8859-1 =
http-equiv=3DContent-Type>
<META content=3D'"MSHTML 4.72.3110.7"' name=3DGENERATOR>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT size=3D2><FONT size=3D2>
<P>Colleagues</FONT>,</FONT></P></DIV>
<DIV><FONT color=3D#000000 size=3D2>I'm currently working with two very =
intelligent=20
ClearCase experts.</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2>They both swear by perl and have =
developed=20
extensive custom automation perl script for ClearCase.</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT> </DIV>
<DIV><FONT color=3D#000000 size=3D2>However, 90% of our development work =
is in VB=20
and a lot of supporting apps are in exchange/outlook forms using =
VBScript and=20
VBA. The other 10% being C++.</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT> </DIV>
<DIV><FONT color=3D#000000 size=3D2>We would love to be able to execute =
Perl scripts=20
using VB / VBScript / VBA / C++.</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT> </DIV>
<DIV><FONT color=3D#000000 size=3D2>Does anyone know of an activex =
control either a=20
.dll or .exe or .ocx that would</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2>allow us to do this?</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT> </DIV>
<DIV><FONT size=3D2>Thanks everyone,</FONT></DIV>
<DIV><FONT size=3D2></FONT> </DIV>
<DIV><FONT size=3D2>
<DIV><FONT color=3D#000000 size=3D2>Barry G. Sumpter</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2>Senior Analyst/Developer - Praxa =
Pty.=20
Ltd.</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2>Australia Post - Riposte =
Project</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2>Wk: (03) 9204-5072 Mb: 0407 856 =
646</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT></FONT><FONT color=3D#000000 =
size=3D2><A=20
href=3D"mailto:Barry.Sumpter@AusPost.Com.AU">Barry.Sumpter@AusPost.Com.AU=
</A></FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2><A=20
href=3D"mailto:BSumpter@VIC.BigPond.Net.AU">BSumpter@VIC.BigPond.Net.AU</=
A></FONT></DIV><FONT=20
size=3D2>
<DIV><FONT color=3D#000000 size=3D2>Hm: (03)=20
9899-1682</FONT></DIV></FONT></FONT></DIV></BODY></HTML>
------=_NextPart_000_00B0_01BE3B3F.CBEFC760--
------------------------------
Date: Fri, 08 Jan 1999 09:44:26 +0100
From: Michael Reutter <mw@workmail.com>
Subject: extract MULTIPLE form data
Message-Id: <3695C569.AE83B0EC@workmail.com>
I use this code to see what data my forms send to my cgi-script:
---------cut-----------
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/~!/ ~!/g;
$value =~ s/\r/\n/;
$FORM{$name} = $value;
}
}
print "Content-type: text/html\nExpires: Thu, 01 Dec 1994 16:00:00
GMT\n\n";
print "<HTML><HEAD><TITLE>DATA</TITLE></HEAD><BODY><PRE>\n";
foreach $key (sort keys(%FORM)) {
print "$key=$FORM{$key}\n";
}
---------cut-----------
but what will I have to do if I want to see data sent by
<select name="flavors" MULTIPLE>
<option value="pistachio">Pistachio
<option value="walnut">Walnut
<option value="creme">Creme
</select>
I will always see the last selection (if selected walnut AND creme, I
will only see creme 'cause creme overwrites walnut!)
Yes, if I expect a specific key like "flavors", I can handle it, but
what if I want to do it flexible, so that the perl script recognizes, if
that value is a MULTPILE or a "single" value?
If the script gets a multiple value, I want it to pritn something like:
flavors (multiple):
walnut
creme
is this possible???
thanks
michael
------------------------------
Date: 8 Jan 1999 08:21:05 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: line noise
Message-Id: <774f5h$ifq$1@client3.news.psi.net>
Bart Lateur (bart.lateur@skynet.be) wrote on MCMLV September MCMXCIII in
<URL:news:3695cf16.27798750@news.skynet.be>:
\\ bj wrote:
\\
\\ >OTOH, the lack of a formal, legal support requirement makes the
\\ >"suits" nervous and upset at times.
\\
\\ Does the "legal support requirement" actually help in commercial
\\ products? It's my (limited) experience that it's not the top notch
\\ people that do the technical support, to put it politely. Yet, those
\\ support problems may be the toughest of all.
Top notch isn't always what one needs. But being able to call adequate
support when you have a problem, and knowing there will be someone
available to help you has its merits.
Recently, I found myself in a situation where being able to call (Sun)
tech support at 1 am was a real lifesaver. Perhaps we good have had
free top notch answers from a newsgroup, but that would have taken a
while. Instead, we paid money, got a few pointers and were able to get
the server running again without losing data and even get a few hours of
sleep before people came in the next morning. It wasn't free, it wasn't
top-notch, but we hadn't downtime during office hours. And that carries
a lot of weight.
Abigail
------------------------------
Date: 8 Jan 1999 07:54:28 GMT
From: randy@theory.uwinnipeg.ca (Randy Kobes)
Subject: Re: Need help using MakeMaker for scripts
Message-Id: <slrn79bevh.2iu.randy@theory.uwinnipeg.ca>
On Thu, 7 Jan 1999 11:00:10 -0500, David Coppit <dwc3q@cs.virginia.edu> wrote:
>
>Okay, I've got a script that is broken into several modules (that are
>not shared). Below is my small Makefile.PL that installs the script and
>supporting files. I have a few questions, though:
>
>- How do I get the permissions to be 755 -- in particular, the main script
> and configuration file?
Hi,
I believe the permissions will be correctly set when the user
invokes 'make install'.
>- How can I force the user to specify the PREFIX using
> "perl Makefile.PL PREFIX=~/somedir". (I *don't* want this stuff
> installed in the normal perl locations.)
I suppose you could put a line in Makefile.PL that would die
unless PREFIX is set, along with an explanation of why. But is
there a good reason why it should be set? I would guess
that many people have sufficient privileges to install in the
system directories, and it would be inconvenient for these people
to have to maintain separate module spaces.
>- What about people on non-Unix systems? Does perl come with make?
There is a perl version of make under
http://www.perl.com/CPAN/authors/id/NI-S/
Alternatively, if you had in mind Win32, there's nmake or dmake
which work quite well at installing modules on Windows 95/98/NT.
>- Is there a way to get MakeMaker to take the version information from
> the id line? (Some modules don't set VERSION, and use something like
> the following instead.)
> # $Id: Parse.pm,v 2.3 1996/06/09 14:49:59 aas Exp $
I believe for a number of reasons that the setting of a $VERSION in
the modules is encouraged. The PAUSE software, for one, uses it
if it's there, I think. MakeMaker will parse a file determined
by VERSION_FROM for this value, the actual regular expression used
being given in the MakeMaker docs.
>- My use of PM for all the files seems weird. Is there a better way?
By default, all .pm and .pl files found in the PMLIBDIRS directories
are installed, and PMLIBDIRS defaults to 'lib' and $(BASEEXT). So
you can leave these out unless you want to override these defaults.
>- Make uninstall doesn't seem to work, and is pretty unnecessary here.
> How do I suppress the creation of the .packlist file?
I think make uninstall is no longer supported.
>
>Thanks a lot!
>David
--
Best regards,
Randy Kobes
Physics Department Phone: (204) 786-9399
University of Winnipeg Fax: (204) 774-4134
Winnipeg, Manitoba R3B 2E9 e-mail: randy@theory.uwinnipeg.ca
Canada http://theory.uwinnipeg.ca/
------------------------------
Date: Fri, 8 Jan 1999 00:04:08 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Someone asked how to capitalise first letter of each word
Message-Id: <MPG.10ff5bcd12232cd898997f@nntp.hpl.hp.com>
In article <alecler-0801990049340001@dialup-709.hip.cam.org> on Fri, 08
Jan 1999 00:49:34 -0500, Andre L. <alecler@cam.org> says...
...
> sub reverse_word {
> join '', reverse split //, shift;
> }
>
> $_ = 'just another perl hacker';
> s/(\w+)/reverse_word($1)/ge;
> print;
Your function 'reverse_word' has the same functionality as the built-in
'reverse' function in scalar context (but must be lots slower).
$_ = 'just another perl hacker';
s/(\w+)/reverse $1/ge;
print;
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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.misc (and this Digest), send your
article to perl-users@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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 V8 Issue 4581
**************************************
