[7984] in Perl-Users-Digest
Perl-Users Digest, Issue: 1608 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jan 9 14:18:01 1998
Date: Fri, 9 Jan 98 11:00:42 -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, 9 Jan 1998 Volume: 8 Number: 1608
Today's topics:
100 Levels deep in subroutine calls and recusrion rehana@allmedia.com
ANNOUNCE: File::Sort 0.11 (Chris Nandor)
ANNOUNCE: Mac::Apps::Anarchie 1.5 (Chris Nandor)
ANNOUNCE: Mac::Apps::Launch 1.3 (Chris Nandor)
ANNOUNCE: Mac::Apps::MacPGP 1.2 (Chris Nandor)
ANNOUNCE: Mac::Apps::PBar 1.3 (Chris Nandor)
ANNOUNCE: Mac::Comm::OT_PPP 1.2 (Chris Nandor)
Re: Anyone got a pretty printer for perl? <merlyn@stonehenge.com>
CGI to CGI?? <mattdb@syntrillium.com>
Re: CGI to CGI?? (brian d foy)
Re: Crypt() on Win32 <anonymous@whatever.com>
Does range operator work with file handles? (Austin Hastings)
Re: extracting text? (Frank)
Re: extracting text? <reibert@mystech.com>
Re: extracting text? tobez@plab.ku.dk
Re: File Format Query <jdporter@min.net>
Re: HELP ME How I can to compare two date 01/12/1997>=0 (Sullivan N. Beck)
How to send parameters to a perl script. (Dico Reyers)
Java/Perl integration - not free? (Richard Smol)
Re: MAPI modules for perl WIN32?? (Erik Olson)
Missing a file called perlio.h (Wouter Batelaan)
Re: Missing a file called perlio.h (M.J.T. Guy)
Re: Perl for Engineering purposes (Will Morse)
Re: Perl for Engineering purposes (I R A Aggie)
Re: Perl for Engineering purposes <david_ransier@intercept.com>
Re: Perl for Engineering purposes <P26053@email.mot.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 09 Jan 1998 11:11:45 -0600
From: rehana@allmedia.com
To: roehrich@cray.com
Subject: 100 Levels deep in subroutine calls and recusrion
Message-Id: <884365636.57737219@dejanews.com>
Perl Gurus,
I have an XS that works when it's called from a simple "test.pl" code. I
am calling newXS inside the default XInit() routine contained in
xinit.cpp file of ActiveState Perl build313. Please take a look at my
code included at the end of this mail.
When I use real "test.pl", I run out of memory. The real code makes use
of ODBC, CGI etc. When it is about to call my XS
"main::buildHTML($src_pkg, $in_leafname,$user)", Perl says "100 levels
deep in subroutine calls". And then keeps calling this routine
recursively (actually never goes inside my routine) and then runs out of
memory obviously. Note that I have VC++5.0 debugging set up so I can
debug both C code and Perl code at the same time.
I looked perldiag manpage, and noticed 3 articles on comp.lang.perl.misc
related to Perl rescursion when the subroutine calls are too deep. Also
noticed that this folks are having this problem with Autoloader.
Has anyone yet been able to find a fix for this 100 level deep problem?
I will try calling C as oppose to C++ as XS, though this may not make
any difference. Don't think fooling with Perl300.dll code to go more
than 100 levels deep is a good idea and it may not work, but I may try
that anyway.
NOTE: My problem with 100 levels happen with XS (C++ code) only, our
Perl implementation of the same routine have been working for a long
time. We are just converting this particular routine form Perl to C/C++.
Could you please cc me your respond at "rehana@allmedia.com.
Thanks for your help.
-- rehana
Test.pl
-------
# The real test.pl that uses ODBC, CGI etc. has 100 levels problem . I
am not including
# this file here since it's too long and it needs other files.
# This simple test.pl does not have any problem looks like this.
package ASI::TEST;
use ASI::EXPIRE;
use ASI::HTX;
$expiredate=expiredate(0);
@status = buildHTML( "ASI::TEST", 'facility.htm', test);
htx.pm
------
package ASI::HTX;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(buildHTML);
sub buildHTML
{
my ($src_pkg, $in_leafname,$user) = @_;
// The "main::" package is needed since our XS i part of
// our own "perl.exe" which we needed for Embedding Perl anyway
@status = main::buildHTML($src_pkg, $in_leafname,$user);
print "buildhtml() has been called....\n";
return @status;
}
XS Stuff
----------
#include "buildhtm.hpp"
XS(ASIBuildHTML) // I am adding partial code here
{
dXSARGS;
if (items != 3)
croak("Usage: main::ASIBuildHTML(srcPkg,inLeafName,user)");
SP -= items;
{
char *srcPkg = (char *)SvPV(ST(0),na);
char *inLeafName = (char *)SvPV(ST(1),na);
char *user = (char *)SvPV(ST(2),na);
char **ret;
int numReturns=2, i=0;
HTMLBuilder *htmBuild = new HTMLBuilder();
ret = htmBuild->BuildHTML(inLeafName,user,srcPkg);
for ( i=0; i<numReturns; ret++, ++i)
XPUSHs( sv_2mortal(newSVpv(*ret, 0)));
delete htmBuild;
XSRETURN(2);
}
}
void XInit(void* pVoid)
{
static char thisFile[] = __FILE__;
CPerl *pPerl = (CPerl*)pVoid;
newXS("Win32::MsgBox", NTMsgBox, thisFile);
newXS("Win32::InputBox", NTInputBox, thisFile);
// Rehana: ASI specific XS creation
newXS("buildHTML",ASIBuildHTML,thisFile);
}
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: 9 Jan 1998 18:31:14 GMT
From: pudge@pobox.com (Chris Nandor)
Subject: ANNOUNCE: File::Sort 0.11
Message-Id: <695qdi$6pj$1@news1.teleport.com>
Monday, January 5, 1998
This is File::Sort 0.11, for sorting files similarly to sort(1). Written
primarily for MacPerl users who do not have sort(1) and because of memory
limitations cannot sort files in memory, but works on all perls.
This archive can always be obtained from:
http://pudge.net/macperl/
http://perl.com/CPAN/authors/id/CNANDOR/
http://perl.com/CPAN/modules/by-module/File/
Mac users: The file is a tarred, gzipped file. Use Stuffit Expander
or a similar program to get at the archive.
Please let me know how well it does(n't) work, and any changes you'd
like to see.
--
Chris Nandor pudge@pobox.com http://pudge.net/
%PGPKey=('B76E72AD',[1024,'0824 090B CE73 CA10 1FF7 7F13 8180 B6B6'])
#== MacPerl: Power and Ease ==#
#== Publishing Date: Early 1998. http://www.ptf.com/macperl/ ==#
------------------------------
Date: 9 Jan 1998 18:30:49 GMT
From: pudge@pobox.com (Chris Nandor)
Subject: ANNOUNCE: Mac::Apps::Anarchie 1.5
Message-Id: <695qcp$6p2$1@news1.teleport.com>
Monday, January 5, 1998
This is Anarchie.pm 1.5, a Perl interface to Anarchie 2.01+, a popular
Mac OS FTP client.
REQUIREMENTS:
*MacPerl 5.1.4r4+
*Anarchie 2.01+ or a compatible version of Fetch.
*Mac::Apps::Launch
*You might have to give MacPerl an extra meg of memory, I've had some
problems with it quitting out on me.
This archive can always be obtained from:
http://pudge.net/macperl/
http://perl.com/CPAN/authors/id/CNANDOR/
http://perl.com/CPAN/modules/by-module/Mac/
The file is a tarred, gzipped file. Use Stuffit Expander or a
similar program to get at the archive.
Please let me know how well it does(n't) work, and any changes you'd
like to see.
--
Chris Nandor pudge@pobox.com http://pudge.net/
%PGPKey=('B76E72AD',[1024,'0824 090B CE73 CA10 1FF7 7F13 8180 B6B6'])
#== MacPerl: Power and Ease ==#
#== Publishing Date: Early 1998. http://www.ptf.com/macperl/ ==#
------------------------------
Date: 9 Jan 1998 18:32:08 GMT
From: pudge@pobox.com (Chris Nandor)
Subject: ANNOUNCE: Mac::Apps::Launch 1.3
Message-Id: <695qf8$6q5$1@news1.teleport.com>
Monday, January 5, 1998
This is Mac::Apps::Launch 1.3, a MacPerl application launcher.
REQUIREMENTS:
* MacPerl 5.1.4r4+
This archive can always be obtained from:
http://pudge.net/macperl/
http://perl.com/CPAN/authors/id/CNANDOR/
http://perl.com/CPAN/modules/by-module/Mac/
The file is a tarred, gzipped file. Use Stuffit Expander or a
similar program to get at the archive.
Please let me know how well it does(n't) work, and any changes you'd
like to see.
--
Chris Nandor pudge@pobox.com http://pudge.net/
%PGPKey=('B76E72AD',[1024,'0824 090B CE73 CA10 1FF7 7F13 8180 B6B6'])
#== MacPerl: Power and Ease ==#
#== Publishing Date: Early 1998. http://www.ptf.com/macperl/ ==#
------------------------------
Date: 9 Jan 1998 18:31:39 GMT
From: pudge@pobox.com (Chris Nandor)
Subject: ANNOUNCE: Mac::Apps::MacPGP 1.2
Message-Id: <695qeb$6pn$1@news1.teleport.com>
Monday, January 5, 1998
This is MacPGP.pm 1.2, a Perl interface to MacPGP 2.6.3.
REQUIREMENTS:
*MacPGP 2.6.3
*MacPerl 5.1.4r4
*Mac::Apps::Launch
*You might have to give MacPerl an extra meg of memory, I've had some
problems with it quitting out on me.
This archive can always be obtained from:
http://pudge.net/macperl/
http://perl.com/CPAN/authors/id/CNANDOR/
http://perl.com/CPAN/modules/by-module/Mac/
The file is a tarred, gzipped file. Use Stuffit Expander or a
similar program to get at the archive.
You can use the file MacPGP.pm.asc to determine whether or not the
file came from me. First you have to have my key in your public
keyring (it is in the file key.asc). Then decrypt the file
MacPGP.pm.asc with MacPGP. MacPGP will confirm that it is my singature
to the file MacPGP.pm.
Please let me know how well it does(n't) work, and any changes you'd
like to see.
- --
Chris Nandor pudge@pobox.com http://pudge.net/
%PGPKey=('B76E72AD',[1024,'0824 090B CE73 CA10 1FF7 7F13 8180 B6B6'])
#== MacPerl: Power and Ease ==#
#== Publishing Date: Early 1998. http://www.ptf.com/macperl/ ==#
Version: PGPfreeware 5.0 for non-commercial use <http://www.pgp.com>
Charset: noconv
iQCVAwUBNLI9FChcZja3bnKtAQFrYAP8DIyjmHIXH7fKpnLafzGnbGW5KO92r0Tr
eNmZNqhe3aK4v7u5UnF1SWOOUVtSe7je2YwQuiKQKYxfPL3G9TxEHk0Wp2ZJpFS3
WpPQ4PEez041Na3YYbtwiyRn1LVf3noRSkW1g8ESn38a9wvOZRwwv2QTq8IA1PF1
0FWXMNrYbH0=
=l+he
-----END PGP SIGNATURE-----
------------------------------
Date: 9 Jan 1998 18:32:56 GMT
From: pudge@pobox.com (Chris Nandor)
Subject: ANNOUNCE: Mac::Apps::PBar 1.3
Message-Id: <695qgo$6qn$1@news1.teleport.com>
Monday, January 5, 1998
This is PBar.pm 1.3, a Perl interface to Progress Bar, an Apple
Event-capable progress bar utility. PBar.pm was written by Alan Fry
and Chris Nandor.
REQUIREMENTS:
*MacPerl 5.1.4r4
*Progress Bar 1.0.1
*Mac::Apps::Launch
This archive can always be obtained from:
http://pudge.net/macperl/
http://perl.com/CPAN/authors/id/CNANDOR/
http://perl.com/CPAN/modules/by-module/Mac/
The file is a tarred, gzipped file. Use Stuffit Expander or a
similar program to get at the archive.
Please let me know how well it does(n't) work, and any changes you'd
like to see.
--
Chris Nandor pudge@pobox.com http://pudge.net/
%PGPKey=('B76E72AD',[1024,'0824 090B CE73 CA10 1FF7 7F13 8180 B6B6'])
#== MacPerl: Power and Ease ==#
#== Publishing Date: Early 1998. http://www.ptf.com/macperl/ ==#
------------------------------
Date: 9 Jan 1998 18:32:31 GMT
From: pudge@pobox.com (Chris Nandor)
Subject: ANNOUNCE: Mac::Comm::OT_PPP 1.2
Message-Id: <695qfv$6qf$1@news1.teleport.com>
Monday, January 5, 1998
This is OT_PPP.pm 1.2, a Perl interface to Open Transport/PPP 1.0.
REQUIREMENTS:
*MacPerl 5.1.4r4
*Open Transport and OT/PPP 1.0
*Mac::Apps::Launch
This archive can always be obtained from:
http://pudge.net/macperl/
http://perl.com/CPAN/authors/id/CNANDOR/
http://perl.com/CPAN/modules/by-module/Mac/
The file is a tarred, gzipped file. Use Stuffit Expander or a
similar program to get at the archive.
Please let me know how well it does(n't) work, and any changes you'd
like to see.
--
Chris Nandor pudge@pobox.com http://pudge.net/
%PGPKey=('B76E72AD',[1024,'0824 090B CE73 CA10 1FF7 7F13 8180 B6B6'])
#== MacPerl: Power and Ease ==#
#== Publishing Date: Early 1998. http://www.ptf.com/macperl/ ==#
------------------------------
Date: 09 Jan 1998 09:42:25 -0700
From: Randal Schwartz <merlyn@stonehenge.com>
To: schilli@tep.e-technik.tu-muenchen.de. (Michael Schilli)
Subject: Re: Anyone got a pretty printer for perl?
Message-Id: <8c3eixa9am.fsf@gadget.cscaper.com>
>>>>> "Michael" == Michael Schilli <schilli@tep.e-technik.tu-muenchen.de.> writes:
Michael> Hi everybody,
Michael> has anyone written a keyword-highlighting, line-numbering program
Michael> for Perl-Scripts? Just asking before re-inventing the wheel ...
It's nearly impossible in general. Perl resists all attempts at
beautification. :-)
But more precisely, from a posting I made a year and a half ago (thank
you, Dejanews):
Perl is incredibly difficult to parse. For example,
what's the difference between these:
time /3 ;#/; print "hello";
sin /3 ;#/; print "goodbye";
Right. The first one is time divided by 3, and the print is in a
comment. The second one is the sin of the result of a regular
expression match for "3 ;#", and the print gets executed!
So any *general* pretty-printer would have to know how Perl parses the
same lines, and have all of Perl's bizarrities for that. Just look at
how weird GNU Emacs cperl-mode is, and it *still* gets things wrong.
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 234 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@ora.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: 9 Jan 1998 10:02:00 -0700
From: "Matt Bieber" <mattdb@syntrillium.com>
Subject: CGI to CGI??
Message-Id: <01bd1d20$317fcce0$153ff5cc@matt>
Can anyone tell me if it's possible to call a perl cgi script from within a
cgi script? I have a machine which has a script that is processing form
contents which then need to be emailed. Sendmail, however, resides on our
second machine so it cannot be invoked from within the form processing
script (or can it?). I figure I could send the form contents to a cgi
script on the sendmail machine which would then mail it. Incidently, the
first machine is running NT and the sendmail box is BSD.
Thanks for any help.
-Matt
------------------------------
Date: Fri, 09 Jan 1998 13:22:15 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: CGI to CGI??
Message-Id: <comdog-0901981322150001@news.panix.com>
Keywords: just another new york perl hacker
In article <01bd1d20$317fcce0$153ff5cc@matt>, "Matt Bieber" <mattdb@syntrillium.com> posted:
> Can anyone tell me if it's possible to call a perl cgi script from within a
> cgi script? I have a machine which has a script that is processing form
> contents which then need to be emailed. Sendmail, however, resides on our
> second machine so it cannot be invoked from within the form processing
> script (or can it?).
sure it's possible. LWP makes it trivial even.
why does the second script need to be a CGI script?
how about sending mail directly from the first script?
--
brian d foy <http://computerdog.com>
------------------------------
Date: Fri, 9 Jan 1998 09:17:23 -0800
From: "Shawn M. Nelson" <anonymous@whatever.com>
Subject: Re: Crypt() on Win32
Message-Id: <695mcv$j0f$1@ha2.rdc1.sdca.home.com>
Thank you for the code.
It was very simple for me to implement the crypt() function.
I ran the code in VFP like so:
DECLARE STRING MakePassword IN passwd.dll STRING
cPassCode = MakePassword( "Text To Cryot Here")
RELEASE DLL passwd
Once again, thank you for your time.
--Shawn
------------------------------
Date: 09 Jan 1998 11:14:45 -0500
From: hastinga@tarim.dialogic.com (Austin Hastings)
Subject: Does range operator work with file handles?
Message-Id: <c3lnwpmxop.fsf@tarim.dialogic.com>
Here's what I want to do:
I have generated a set of "changes" that I wish to make to
/etc/aliases. The change set is a bunch of lines delimited by
$top_delim and $bot_delim (which are different, and which appear
alone on their respective lines).
I want to discard any lines contained in the pattern that are already
in the file, and then replace the whole shebang with a new set.
The way the delimiters are written is basically
print "$top_delim\n";
so I'm pretty sure that /^$top_delim$/ will match. (Likewise
bot_delim...)
Here's what I'm doing:
my $changes = new FileHandle($ch_file)
or die "Could not open $ch_file: $!\n";
my $oldaliases = new FileHandle("< /etc/aliases")
or die "Could not open /etc/aliases: $!\n";
my $newaliases = new FileHandle("> /tmp/aliases.new")
or die "Could not open /tmp/aliases.new: $!\n";
while (<$oldaliases>)
{
print $newaliases ($_)
or die "Could not write to /tmp/aliases.new: $!\n"
unless /^$top_delim$/ .. /^$bot_delim$/;
}
close $oldaliases
or die "Could not close /etc/aliases: $!\n";
while (<$changes>)
{
print $newaliases ($_)
or die "Could not write to /tmp/aliases.new: $!\n";
}
The problem I'm having is that the oldaliases file is getting copied
entirely, including the part that I'm trying to exclude.
I got the impression from the man page that the .. operator in this
context was "context-independent" -- that is, that it would just remember
it's state regardless of what file operations were going on around it.
Is this untrue? Does it actually care about reading from stdin or from
the standard "list of files specified on the command line"? Am I doing
something else that's really dumb?
aTdHvAaNnKcSe
=Austin
--
____________________________________
D I A L Austin Hastings
_|_|_|O SCM Administrator
_|_|_|G Dialogic Corporation
_|_|_|I 1515 Rt. 10 Parsippany,NJ 07054
_|_|_|C (201)993-3000 ext. 6546
------------------------------
Date: Fri, 09 Jan 1998 15:57:14 GMT
From: FHeasley@chemistry.com (Frank)
Subject: Re: extracting text?
Message-Id: <34b648a3.3649922@news.halcyon.com>
On Fri, 09 Jan 1998 09:11:42 -0600, David_D._Jones@hud.gov wrote:
>I have a text file and I want to extract all the text between two
>delimiting markes. There can be any number of lines before and after the
>dilimeters. How would I do that? Let'say I have the following text
>
>Line 1
>Line 2
>aaaaa
>Line 3
>Line 4
>Line 5
>aaaaa
>Line 6
>
>I want to get the text between the two aaaaa lines. I would think I
>could use the /aaaaa(.*)aaaaa/ and that would match Line 3-5. but it
>doesn't because the . doesn't match newlines. One solution would be to
>replace all \n with some bizzar string and then do the pattern match,
>then resubstitute the \n back in. There's got to be a better way?
>
>-David
Use the s switch:
/aaaaa(.*)aaaaa/s
Frank
------------------------------
Date: Fri, 09 Jan 1998 09:16:32 -0700
From: "Mark S. Reibert" <reibert@mystech.com>
Subject: Re: extracting text?
Message-Id: <34B64D60.70858F89@mystech.com>
David_D._Jones@hud.gov wrote:
> I have a text file and I want to extract all the text between two
> delimiting markes. There can be any number of lines before and after the
> dilimeters. How would I do that? Let'say I have the following text
>
> Line 1
> Line 2
> aaaaa
> Line 3
> Line 4
> Line 5
> aaaaa
> Line 6
>
> I want to get the text between the two aaaaa lines. I would think I
> could use the /aaaaa(.*)aaaaa/ and that would match Line 3-5. but it
> doesn't because the . doesn't match newlines. One solution would be to
> replace all \n with some bizzar string and then do the pattern match,
> then resubstitute the \n back in. There's got to be a better way?
Try the 's' modifier (e.g., /aaaaa(.*)aaaaa/s), which allows . to match \n.
HTH
-----------------------------
Mark S. Reibert, Ph.D.
Mystech Associates, Inc.
3233 East Brookwood Court
Phoenix, Arizona 85044
Tel: (602) 732-3752
Fax: (602) 706-5120
E-mail: reibert@mystech.com
-----------------------------
------------------------------
Date: Fri, 09 Jan 1998 18:50:19 +0100
From: tobez@plab.ku.dk
Subject: Re: extracting text?
Message-Id: <34B6635B.523B@plab.ku.dk>
Tony.Curtis@vcpc.univie.ac.at> wrote:
> Re: extracting text?, David <David_D._Jones@hud.gov> said:
> David> Line 1
> David> Line 2
> David> aaaaa
> David> Line 3
> David> Line 4
> David> Line 5
> David> aaaaa
> David> Line 6
> David> I would think I could use the /aaaaa(.*)aaaaa/ and
> Look at the "perlre" manpage. See the `s' modifier.
> That's probably what you want.
Why not simply
while (<DATA>)
{
next unless /^aaaaa$/.../^aaaaa$/;
next if /^aaaaa$/;
print;
}
__END__
Line 1
Line 2
aaaaa
Line 3
Line 4
Line 5
aaaaa
Line 6
Tony.
------------------------------
Date: Fri, 09 Jan 1998 11:10:39 -0500
From: John Porter <jdporter@min.net>
Subject: Re: File Format Query
Message-Id: <34B64BFF.136F@min.net>
scott@softbase.com wrote:
>
> No, it is not possible in any practical sense.
quis est iste involvens sententias sermonibus inperitis?
------------------------------
Date: 09 Jan 1998 12:05:09 -0500
From: sbeck@cise.ufl.edu (Sullivan N. Beck)
Subject: Re: HELP ME How I can to compare two date 01/12/1997>=01/01/1997
Message-Id: <xz3d8i1y3wa.fsf@cave.cise.ufl.edu>
Jim> Knowing how important date calculations are to business, and also
Jim> knowing how non-trivial they are to program, I thought I'd check
Jim> the package -- I envisioned near immediate application.
Jim> However, I came up with a few too many problems..
Jim> Failed Test ...
Jim> ...
Jim> 90.91% okay. 17/517 subtests failed, 96.71% okay.
Actually, though it is confusing, it is not a problem. The test cases had
some dependancies on the year (i.e. there was a test case "2nd Monday in
June" or something along those lines). When it became 1998, a number of
tests failed.
I have since fixed this, and in the next release, the tests won't fail
in 1998 (or any other year in the future).
------------------------------------------------------------------------------
Sullivan Beck http://www.cise.ufl.edu/~sbeck/
sbeck@cise.ufl.edu | This space reserved for some saying demonstrating great
PH : (352) 392-1057 | wisdom, wit, or insight. I'll fill it in just as soon
Fax: (352) 392-1220 | as I have any of the above.
------------------------------------------------------------------------------
------------------------------
Date: Fri, 09 Jan 1998 16:03:02 GMT
From: dico@peionline.com (Dico Reyers)
Subject: How to send parameters to a perl script.
Message-Id: <34b648fc.7853506@news1.pei.sympatico.ca>
Hi there,
I am looking to build a perl script which will calculate some
information for me.
The way it should work is like this...
there are many different icons a person can click on and it will load
up a perl script (always the same script). The thing is that the
script should know which icon is calling the script.
for example, if I had this in my html....
<a href="bin/xxxx.cgi"><img src="icon1.gif"></a>
when someone clicks on this link, the script should know that it is
icon1.gif which they clicked. similary there would be other links
like above with icon2.gif and icon3.gif.
how can I let the script know which one the person clicked on? and
finally, how does this show up when the script is run? in other
words, what line of code is needed to for me to know which icon they
pressed.
Thanks in advance,
Dico
------------------------------
Date: 9 Jan 1998 16:20:53 GMT
From: bl227@cleveland.Freenet.Edu (Richard Smol)
Subject: Java/Perl integration - not free?
Message-Id: <695ip5$ri4$1@alexander.INS.CWRU.Edu>
Hi there,
When I heard about Java/Perl integration by Larry Wall I was highly
interested. Alas, it can only be achieved by buying the Perl
Resource Kit. I have no intention though to buy it though, since I am
not interested in most it offers... and I think it's reasonably
expensive.
So, what is happening? Is Perl-code not freely available anymore?
Do I really have to buy the resource Kit just to get Java/Perl
integration?
Greetz,
RS
------------------------------
Date: 9 Jan 1998 16:30:30 GMT
From: eriko@eox.axtech.com (Erik Olson)
Subject: Re: MAPI modules for perl WIN32??
Message-Id: <slrn6bck55.8k.eriko@eox.axtech.com>
In article <34A1B184.5F09@ml.com>, David X. Johnson wrote:
>Looking for a MAPI module for perl WIN32. I'm not interested in simple
>send mail -- I can use SMTP for that. For example: Would like to
>export a list of mail addresses from the global list (MS Exchange) using
>perl.
>
>Does anyone know if/where such a thing exists?
You might try looking at Active Messaging (under SDK
Documentation/Platform SDK/Active Messaging on the MSDN CD, for
example). Active Messaging can be accessed via automation and provides
a fairly complete interface to sending messages (via MAPI or SMTP or
whatever you have installed in your profile) as address books and
foldering.
HTH,
--
Erik Olson <eriko@axtech.com>
Axiom Technologies http://www.axtech.com
------------------------------
Date: Fri, 9 Jan 1998 15:52:45 GMT
From: batelaan@ukpsshp1.serigate.philips.nl (Wouter Batelaan)
Subject: Missing a file called perlio.h
Message-Id: <EMIxFx.K1M@ukpsshp1.serigate.philips.nl>
Dear Co Perl users,
I am looking for the file perlio.h, which seems to be missing from
my perl 5.003 installation.
I have this problem because I am compiling the GD module
v 1.16
The error occurs in the GD.c:
cc -c -D_HPUX_SOURCE -Aa -I/usr/local/include -O -DVERSION=\"1.16\" -DXS_VERSION=\"1.16\" +z -I/usr/local/lib/perl5/lib/PA-RISC1.1/5.003/CORE GD.c
cpp: "GD.c", line 21: error 4036: Can't open include file 'perlio.h'.
Is this file part of perl 5.003?
Any ideas?
--
Wouter Batelaan, SDC, Philips Semiconductors, Southampton
mailto:Wouter.Batelaan@soton.sc.philips.com
tel: +44-1703-316343 fax: +44-1703-316303
------------------------------
Date: 9 Jan 1998 17:34:57 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: Missing a file called perlio.h
Message-Id: <695n41$i43$1@lyra.csx.cam.ac.uk>
Wouter Batelaan <batelaan@ukpsshp1.serigate.philips.nl> wrote:
>I am looking for the file perlio.h, which seems to be missing from
>my perl 5.003 installation.
>I have this problem because I am compiling the GD module
>v 1.16
>The error occurs in the GD.c:
>
>cc -c -D_HPUX_SOURCE -Aa -I/usr/local/include -O -DVERSION=\"1.16\" -DXS_VERSION=\"1.16\" +z -I/usr/local/lib/perl5/lib/PA-RISC1.1/5.003/CORE GD.c
>cpp: "GD.c", line 21: error 4036: Can't open include file 'perlio.h'.
>
>Is this file part of perl 5.003?
This file is present in perl5.004 but not in earlier Perls. Does the
version of GD you've got specify a prequisite Perl version? Looks like
it ought to. You should pass this message to the GD maintainer
(if s/he isn't already listening).
So your options are
a) upgrade to the latest perl (5.004_04) - recommended in any case
b) try and find an older version of GD which will work with perl5.003.
Note that it's no good trying to copy the file from a newer Perl.
GD is trying to use features (the PerlIO abstraction) which simply
weren't available in perl5.003.
Mike Guy
------------------------------
Date: 9 Jan 1998 09:58:49 -0600
From: will@Starbase.NeoSoft.COM (Will Morse)
Subject: Re: Perl for Engineering purposes
Message-Id: <695hfp$5b7$1@Starbase.NeoSoft.COM>
I use perl for geophysical processing, which covers similar ground to
engineering. I don't communicate with GPIB instruments but I read
and write binary data in weird formats.
The one program I have that does communicate with weird instruments
(not that weird, digitizers) wa written in Tcl/Tk, before perl had tk.
I update it from time to time, but I'm not going to convert it at
this point without a real good reason.
One of the real attractions of perl (and for that matter, Tcl/Tk) is that
all my programs are automatically 99.5% platform independent. I have
four different platforms to support and I can write the same code with
an if statement or something to account for minor differences (like
device names or pathes or whatever).
If by targeted groups, you mean a newsgroup, I don't think there are enough
of us or that our issues are unique enough to merit a separate group (as
a co-founder of sci.geo.petroleum, I can tell you that the process is not
trivial). I would be interested in engineering and science applications
discussed in this group (or comp.lang.tcl),
Will
In article <6945kq$dut@dfw-ixnews5.ix.netcom.com>,
J. Bacon <jwbacon@ix.netcom.com> wrote:
>Is anybody out there using Perl for 'engineering' purposes? I just finished
>up a script which communicates with GPIB instruments -- I intend to write most
>all of my product test/calibration routines in Perl in the future (I am tired
>of C compilers obsoleting themselves, and re-inventing the wheel).
>
> [ ... ]
>I have not seen any targeted groups for this use of Perl, but would sure be
>willing to participate in one if such a group exists, or maybe if there are
>other oddballs out there like myself who want to concentrate on this
>particular Perl fetish, we can get something going.
>
--
# Copyright 1997 Will Morse. Internet repost/archive freely permitted.
# Hardcopy newspaper, magazine, etc. quoting requires permission.
#
# Gravity, # Will Morse
# not just a good idea, # Houston, Texas
# it's the law. # will@starbase.neosoft.com
#
# These are my views and do not necessarly reflect anyone else/
=========================================================================
By US Code Title 47, Sec.227(a)(2)(B), a computer/modem/printer
meets the definition of a telephone fax machine. By Sec.227(b)
(1)(C), it is unlawful to send any unsolicited advertisement to
such equipment, punishable by action to recover actual monetary
loss, or $500, whichever is greater, for EACH violation.
=========================================================================
------------------------------
Date: Fri, 09 Jan 1998 11:35:56 -0500
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: Perl for Engineering purposes
Message-Id: <fl_aggie-0901981135560001@aggie.coaps.fsu.edu>
In article <695hfp$5b7$1@Starbase.NeoSoft.COM>, will@Starbase.NeoSoft.COM
(Will Morse) wrote:
+ If by targeted groups, you mean a newsgroup, I don't think there are enough
+ of us or that our issues are unique enough to merit a separate group (as
A mailing list would be easier to get going. And may even be "better".
+ a co-founder of sci.geo.petroleum, I can tell you that the process is not
+ trivial). I would be interested in engineering and science applications
+ discussed in this group (or comp.lang.tcl),
I would be, as well. I work on atmospheric/oceanographic datasets, a
stupendous amount of which is in plain text. I hadn't thought to try
extracting binary data, tho. Hmmm...
James
--
Consulting Minister for Consultants, DNRC
The Bill of Rights is paid in Responsibilities - Jean McGuire
To cure your perl CGI problems, please look at:
<url:http://www.perl.com/perl/faq/idiots-guide.html>
------------------------------
Date: Fri, 9 Jan 1998 08:34:44 -0800
From: "David M. Ransier" <david_ransier@intercept.com>
Subject: Re: Perl for Engineering purposes
Message-Id: <695jnd$473$1@usenet1.interramp.com>
We use Perl as the scripting language in our PCB layout application. I write
scripts to perform custom "tasks" for customers with full access to the
application's command set and EDA database.
David Ransier
J. Bacon wrote in message <6945kq$dut@dfw-ixnews5.ix.netcom.com>...
Is anybody out there using Perl for 'engineering' purposes? I just finished
up a script which communicates with GPIB instruments -- I intend to write
most
all of my product test/calibration routines in Perl in the future (I am
tired
of C compilers obsoleting themselves, and re-inventing the wheel).
If anybody is interested, I put the script on my web page:
http://www.netcom.com/~jwbacon/Index.html
(If you visit the site, click the Camel Icon in the left frame)
I have not seen any targeted groups for this use of Perl, but would sure be
willing to participate in one if such a group exists, or maybe if there are
other oddballs out there like myself who want to concentrate on this
particular Perl fetish, we can get something going.
------------------------------
Date: Fri, 09 Jan 1998 11:11:19 -0700
From: Frank Buntschuh <P26053@email.mot.com>
Subject: Re: Perl for Engineering purposes
Message-Id: <34B66847.7E596F4B@email.mot.com>
I R A Aggie wrote:
>
> In article <695hfp$5b7$1@Starbase.NeoSoft.COM>, will@Starbase.NeoSoft.COM
> (Will Morse) wrote:
>
> + If by targeted groups, you mean a newsgroup, I don't think there are enough
> + of us or that our issues are unique enough to merit a separate group (as
>
> A mailing list would be easier to get going. And may even be "better".
>
> + a co-founder of sci.geo.petroleum, I can tell you that the process is not
> + trivial). I would be interested in engineering and science applications
> + discussed in this group (or comp.lang.tcl),
>
> I would be, as well. I work on atmospheric/oceanographic datasets, a
> stupendous amount of which is in plain text. I hadn't thought to try
> extracting binary data, tho. Hmmm...
>
> James
I have been using perl for processing aerospace data, both test data from our
satellite factory and NORAD TLE (orbital element) data. Although I am quite
interested in what others are doing in the scientific/engineering sense with
perl, I get the most value by lurking in the existing perl groups, persusing
CPAN, etc. IMHO, a separate newsgroup or mailing list wouldn't be of much
value (to me) - I spend enough time and get enough value from what is out
there already.
Just my thoughts...
Frank
+--------------------------------------+-------------------------------+
| Frank Buntschuh | Sometimes, the dragon wins. |
| Frank_Buntschuh-P26053@email.mot.com +-------------------------------+
| Voice: (602)732-4158 | Motorola Satellite Comm. |
| Fax: (602)732-6702 | #include <std.disclaimer> |
+--------------------------------------+-------------------------------+
------------------------ Remember the Names! ---------------------------
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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.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 1608
**************************************
