[11199] in Perl-Users-Digest
Perl-Users Digest, Issue: 4799 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Feb 1 17:07:23 1999
Date: Mon, 1 Feb 99 14:00:19 -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 Mon, 1 Feb 1999 Volume: 8 Number: 4799
Today's topics:
Re: ** Newbie has production Perl problem, please help <no_spam@no_spam.com>
Accessing Lotus Notes db from Perl <reid.lee@natinst.com>
Re: alternative perl NG for newbies? (Tad McClellan)
Can't load ... for module ... <drummond-m@rmc.ca>
Re: CGI form processing <chromyak@usa.net>
Re: CGI form processing (peter)
Re: Comments in Perl code (Martien Verbruggen)
Re: Creating a new directory <newsposter@cthulhu.demon.nl>
Re: debug this script please <elst.fels@nospam.ping.be>
Re: debug this script please (Steve Linberg)
Re: debug this script please <design@raincloud-studios.com>
Re: Dial up Networking and PERL (Steve Leibel)
Help Unistalling ActivePerl (Blair Kingsland)
How to use Sockets in Perl? <martin.baur@mindpower.com>
Re: How to use Sockets in Perl? <jim.michael@gecm.com>
Match Parens-More Perlish? frogsmock@my-dejanews.com
Re: Print OUT korn shell syntax in Perl script? (Tad McClellan)
Printing with Perl (Matti Johannes Kdrki)
Re: Problem generating a chart in perl (Steve Linberg)
Problems embedding Perl in multiple threads <Tiberi@redshift.com>
Search Engine <gibsonc@aztec.asu.edu>
Re: SED command in PERL through HTML (Tad McClellan)
Re: Visual Perl? <svend@lubypublishing.com>
Re: Visual Perl? <design@raincloud-studios.com>
Re: What text editors are you using for Perl? (Clay Irving)
Re: Win32 and $_ <ludlow@us.ibm.com>
Win32 user ids byoungstrom@my-dejanews.com
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 1 Feb 1999 13:14:11 -0600
From: "Ban Spam Now" <no_spam@no_spam.com>
Subject: Re: ** Newbie has production Perl problem, please help **
Message-Id: <794uip$l37@dfw-ixnews9.ix.netcom.com>
Fixed! I was declaring variables before the package statement.
------------------------------
Date: Mon, 1 Feb 1999 12:43:51 -0600
From: "Reid Lee" <reid.lee@natinst.com>
Subject: Accessing Lotus Notes db from Perl
Message-Id: <794sgb$i7m$1@remarQ.com>
Does anyone know if there are .pm's (Perl modules) for accessing Lotus Notes
databases from a Perl CGI script? The Perl CGI script will be running on a
Solaris 2.x machine and our Notes servers are running NT.
Thanks,
Reid Lee
National Instruments
------------------------------
Date: Mon, 1 Feb 1999 12:43:11 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: alternative perl NG for newbies?
Message-Id: <vjs497.ho1.ln@magna.metronet.com>
23_skidoo (23_skidoo@geocities.com) wrote:
: i know that there are a lot of very busy people in this newsgroup who
: know more about perl than is probably healthy :) some of these people
: seem to get 'snappish' when a newbie asks a question
I think you have it wrong there.
A newbie asking a question isn't what sets folks off.
A newbie (or anyone, even a oldbie) asking a question that
is easy to find and clearly answered in files already
installed on your hard disk is what gets folks snappish.
Of course, some folks get snappish when the relevant docs are
not easy to find or are not easy to understand.
Getting snappish in that case is Really Bad, but I believe it
to be the minority of the snappish replies.
Snappishness is inversely proportional to the (perceived)
amount of time the questioner spent trying to get the
question answered themselves.
eg:
When someone says:
"I have been using system() but it doesn't capture the output
from the command. How do I capture the output?"
Significant snappishness is likely to ensue since the description
of the system() function clearly says how to do it.
Folks are pretty darn sure that the poster did not spend even
60 seconds trying to find the answer in such a case...
: perhaps
: somewhere for the less experienced to swap ideas and help eachother out
: would be a good idea.
: whatcha all think?
I think that this very same idea has been beaten to death.
A thread about this comes up about once a month or so...
If there are only newbies there, then you'll have the blind
leading the blind.
Folks meaning to help who give a bad answer without even knowing
that it is bad will create more problems rather than solve problems.
Good intentions do not equate to good results :-)
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 01 Feb 1999 15:20:39 -0500
From: Mark E Drummond <drummond-m@rmc.ca>
Subject: Can't load ... for module ...
Message-Id: <36B60C97.12995C4F@rmc.ca>
Hi all,
I have installed the Netscape LDAP SDK 3.0 for C and PerLDAP. When I try
to run a test script I get the fol:
------------
Can't load
'/usr/lib/perl5/site_perl/5.005/i586-linux/auto/Mozilla/LDAP/API/API.so'
for module Mozilla::LDAP::API: File not found at
/usr/lib/perl5/5.00502/i586-linux/DynaLoader.pm line 168.
at /usr/lib/perl5/site_perl/5.005/i586-linux/Mozilla/LDAP/Utils.pm line
29
------------
But the file
/usr/lib/perl5/site_perl/5.005/i586-linux/auto/Mozilla/LDAP/API/API.so
_does_ exist, and it is in the right spot, and of course it was
installed there by the perLDAP install routine.
I've had errors like this before when a module _was_ missing, but never
when a module _wasn't_ missing. So my question is, what am I missing?!
--
_________________________________________________________________
Mark E Drummond Royal Military College of Canada
drummond-m@rmc.ca Computing Services
Linux Uber Alles perl || die
The day Microsoft makes something that doesn't
suck is the day they start making vacuums
------------------------------
Date: Mon, 1 Feb 1999 17:53:25 -0300
From: "Kostyantyn Chromyak" <chromyak@usa.net>
Subject: Re: CGI form processing
Message-Id: <6wot2.59$6b.3211532@news.randori.com>
Olivier wrote: <36b52903.0@news.one.net>...
>Sorry Konstantyn,
>
>but this question IS PERL specific since I am asking whether this can
be
>done in PERL or not. If you had a bad day please take out it on
somebody
>else. Maybe you should not read newsgroups if your first reaction is
>such a negative one.
>
>Olivier
>
Excuse me Olivier, I feel you don't understand
my intention: my reaction was not flame; I
simply suggested you the more appropiate groups
where you could get more help. And if you'll read
the whole message, you can find the answer after
newsgroup suggestion.
From your private mail I understood you want to prepare
this script at your own. Well, good luck, it obviously
can be useful. If you will not take offence, I think
you could find some tips at:
http://hoohoo.ncsa.uiuc.edu/overview.html
(The Common Gateway Interface);
http://www.halcyon.com/sanford/cgi/index.html
(CGI Resources);
http://www.cc.ukans.edu/info/cgi/cgi-with-perl.html
(Building blocks for CGI scripts in Perl), etc.
There are more links there.
About your problem: the idea is to inicialize
the form fields with the same values obtained from
submitted form (then your user will see filled
form) and to add some words about error (if any).
It will be more simple if you prepare the primary form
with the same script (if script is called with GET
method, you generate the blank form; if it was POST,
you read the values submited, check if exists any error
and if not, process the data as you want and post the
"Thank you" page; if error exists, you generate the same
form, but fill the fields with submitted values and
add error message to generated html.
BTW, perl is quite universal and you can express
any algorithm with it; the CGI is only text based protocol,
*not language-specific*. If you ask if CGI script can
be programmed with perl, the answer is "yes"; You can
use perl, C, Bourn shell, apple script and so on.
Every tool which can be used to read environment
variables and standard input and write into standard
output stream can be used to solve your problem.
Once more, excuse me and good luck.
Kostyantyn.
--
__________________________________
The best solutions in programming, physics,
electronics and automatic control.
To reply delete ".NOSPAM" from reply address.
I don't read (filter!) letters from well-known spammers.
I don't read(filter) anything @yahoo.com
e-mail: <chromyak@usa.net.NOSPAM>
________________________________
ICQ 13497907, tel. (54-11) 4811-7913
(ukranian, spanish, english, russian)
Kostyantyn Chromyak
________________________________
------------------------------
Date: Mon, 01 Feb 1999 19:37:41 GMT
From: pdroogma@netscape.net (peter)
Subject: Re: CGI form processing
Message-Id: <36b601fb.20911609@192.168.0.1>
On Sun, 31 Jan 1999 23:07:56 -0500, "Olivier" <olivierf@worldnet.att.net> wrote:
>Sorry Konstantyn,
>
>but this question IS PERL specific since I am asking whether this can be
>done in PERL or not. If you had a bad day please take out it on somebody
>else. Maybe you should not read newsgroups if your first reaction is such a
>negative one.
>
>Olivier
>
>
You can do this with Perl, I'm using it a lot and I guess many others as well.
So if this is your only question, you have the answer.
------------------------------
Date: Mon, 01 Feb 1999 21:50:23 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Comments in Perl code
Message-Id: <zkpt2.12$wk3.2833@nsw.nnrp.telstra.net>
In article <794p50$3ei@bgtnsc01.worldnet.att.net>,
"Charles R. Thompson" <design@raincloud-studios.com> writes:
> I mean... maybe I misunderstand this... but isn't there a bit of
> a server performance difference where memory is an issue when
> you are opening about 137,000 bytes of files with comments
> compared with 98,000 bytes without when you have about 65+ users
> accessing the system at the same time?
Well, not as far as perl is concerned. Perl parses and compiles the
files, but doesn't keep the source in memory, just the parse tree.
During the parsing/compiling stage perl will have to at least have a
look at comment lines, and that gives a minimal slowdown. Hard to
notice it though.
Since your OS should do some caching, the disk doesn't even need to be
accessed that much for that. The only (very minor) down side is that
the file takes up a little more space in the disk cache. I don't
believe that you would really notice that to be a problem, unless you
have many more files that need to go through the disk cache than you
have memory available. In that case, however, your machine needs more
memory :)
> We mainly develop for small businesses on virtual servers, so
> there you already have 20 to 30 sites on the same machine, plus
> there are usually CPU time limits, bandwidth issues, etc... We
The size of a perl script has no effect on the bandwidth. I don't
believe the CPU times will be very different.
If you need to shave bandwidth, images are the place to start. then
you have a look at your HTML. If you're worried about CPU, the fact
that perl needs to recompile your program every time will cost much
much more CPU than having a few comments around. Looking at mod_perl
for Apache or using a compile dlanguage may help there.
> $CGI_PATH=$BASE_PATH.'cgi-bin/';
>
> instead of this...
>
> $CGI_PATH = $BASE_PATH . 'cgi-bin/';
Again, there will be no noticeable difference as far as perl is
concerned. You will use slightly less disk space, but that's all. No
CPU or bandwidth difference.
> I've found code in the past where the previous developer placed
> anywhere from 3-20(yeah 20) lines of comments every 3 or so
> lines of code. Worse... instead of external documentation, they
> put every last lovin instruction in the script. The parser only
> reads the first character... but it has to open the file to do
> so in the first place.
It has to open the file anyway, to parse it.
I seriously doubt that you will be able to come up with one real life
example where code slows down the running of your perl program
noticeably.
If you are really so worried about all this, you should seriously
consider programming in C, having your reuseable code in shared
libraries, so the executable sizes don't get too large.
But again: disk space is really the only thing that you are saving
by leaving out comments and white space. Disk space is cheap.
Programmer time isn't. Having readable code is as far as I am
concerned most definitely preferable above shaving off 2 or 3 ms of
CPU time per day.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: Mon, 01 Feb 1999 15:54:11 -0500
From: Erik van Roode <newsposter@cthulhu.demon.nl>
Subject: Re: Creating a new directory
Message-Id: <36B6146C.4B41039E@cthulhu.demon.nl>
M wrote:
>
> Can anyone help with the code. I am trying to create a script the will
> allow an admin to create new directories on the server.
>
> For some reason, the mkdir("filename", 0755) does not work.
>
> Here is the code. Can someone please help me on this one?
>
> $result = mkdir("newdir",0755);
>
> Is there another function?
mkdir works fine.
>From the documentation:
---
mkdir FILENAME,MODE
Creates the directory specified by FILENAME, with permissions
specified by MODE (as modified by umask). If it succeeds it
returns 1, otherwise it returns 0 and sets $! (errno).
---
So do mkdir ("newdir", 0755) or die "Could not make directory newdir: $!"
Then you should see _why_ mkdir does not make the directory.
Erik
--
Sure, doesn't everyone sign up for internet service so as to have
their mailbox stuffed with megabytes of postage-due rubbish every day?
Absolutely. And everyone who owns a car intends that it be used as a
portable dumpster. Any unwanted garbage in their vehicle they can
simply throw away, after all.
------------------------------
Date: Mon, 1 Feb 1999 20:04:23 +0100
From: "myname@mydomain.com" <elst.fels@nospam.ping.be>
Subject: Re: debug this script please
Message-Id: <794to5$951$1@news3.Belgium.EU.net>
I've done that ... there doesn't seem to be a problem
I really don't get it
Steve Linberg heeft geschreven in bericht ...
>In article <794rk2$6k5$1@news3.Belgium.EU.net>, "myname@mydomain.com"
><elst.fels@nospam.ping.be> wrote:
>
>> Can anyone tell me what is wrong with this script ?
>
>why not do this:
>
>perl -c 'foo.pl'
>
>That will tell you exactly what's wrong. You could even add "use
>diagnostics" for a more verbose explanation.
>
>--
>Steve Linberg, Systems Programmer &c.
>National Center on Adult Literacy, University of Pennsylvania
>email: <linberg@literacy.upenn.edu>
>WWW: <http://www.literacyonline.org>
------------------------------
Date: Mon, 01 Feb 1999 14:15:34 -0500
From: linberg@literacy.upenn.edu (Steve Linberg)
Subject: Re: debug this script please
Message-Id: <linberg-0102991415340001@ltl1.literacy.upenn.edu>
In article <794to5$951$1@news3.Belgium.EU.net>, "myname@mydomain.com"
<elst.fels@nospam.ping.be> wrote:
> I've done that ... there doesn't seem to be a problem
> I really don't get it
ok, here's what I get when I syntax-check your code:
# Scalar found where operator expected, at end of line
File 'Untitled'; Line 8
# (Missing semicolon on previous line?)
# syntax error, near ")
$img "
File 'Untitled'; Line 8
# Unmatched right bracket, at end of line
File 'Untitled'; Line 9
# Untitled had compilation errors.
--
Steve Linberg, Systems Programmer &c.
National Center on Adult Literacy, University of Pennsylvania
email: <linberg@literacy.upenn.edu>
WWW: <http://www.literacyonline.org>
------------------------------
Date: 1 Feb 1999 19:11:09 GMT
From: "Charles R. Thompson" <design@raincloud-studios.com>
Subject: Re: debug this script please
Message-Id: <794u8d$ogo@bgtnsc01.worldnet.att.net>
>Can anyone tell me what is wrong with this script ?
>I really don't get it, I always get an internal server error.
Usually you get this when something that accesses the *system*
is screwed up or you forgot your header. So .. let's look at
your code and see...
1) Is this *really* where perl is installed?
2) Are you sure?
>#!/usr/bin/perl -w
3) Okay.. you did a print... so what are you printing to? I'm
assuming an HTML browser by the look of the tag. So where is
the header?
>print "<img src=\"$img\">\n";
4) Do you know where your error logs are? If you had read them,
you would most likely see the term Premature end of script
headers or somesuch. What good does the -w switch do if you
aren't going to look at the errors it spits out in the first
place?
I'll say ALL for the sake of good practice, but ALL documents
going out to a browser need a content type header. In your case,
try ....
#!/usr/bin/perl -w
print "Content-type: text/html\n\n";
Then all your code.
CT
"It tis a poor musician who blames his instrument."
------------------------------
Date: Mon, 01 Feb 1999 11:26:53 -0800
From: stevel@coastside.net (Steve Leibel)
Subject: Re: Dial up Networking and PERL
Message-Id: <stevel-0102991126540001@192.168.100.2>
In article <793bus$l7l$1@news0-alterdial.uu.net>, "Matt Wiseman"
<webmaster@Shoggoth.org> wrote:
> I've seen cases where a Porn Site uses javascript to cause a change to the
> default DUN file and causes the computer to redial the new 1-900 ISP I don't
> particularly find this sort of activity very moral. . .. what are you
> planning on doing with this code??
>
Jeez Matt. If the guy posted to alt.carpentry that he needed help
hammering some nails, would you ding him because you once heard about
somebody hitting someone over the head with a hammer?
Hey some spammers use Perl to send out truckloads of spam, maybe we should
all give up Perl.
Steve L
------------------------------
Date: Mon, 01 Feb 1999 20:53:55 GMT
From: blairk@istar.ca (Blair Kingsland)
Subject: Help Unistalling ActivePerl
Message-Id: <vvot2.51$%q5.344468@NewsRead.Toronto.iSTAR.net>
Hi:
I installed ActivePerl on Win95. But something went wrong. So, I
(stupidly) unistalled AP by deleting the AP directory. I should have
used the Win95 unistall, but I forgot. Now, I want to re-install AP.
But I get a "system error decompressing file" message when I start the
AP install.
I think I may have a corrupt registry. How do I completely remove the
old copy of AP?
Your help would be appreciated.
Blair
Blairk@tigron.com
------------------------------
Date: Mon, 01 Feb 1999 21:29:23 +0100
From: Martin Baur <martin.baur@mindpower.com>
Subject: How to use Sockets in Perl?
Message-Id: <36B60EA3.C72FA6DA@mindpower.com>
Hi
Sorry for my newbie question ... but as usual, clients are urging me ..
:-(
I understand Perl as a language but not its libs yet.
I have to open a socket to a port on a given machine and transmit a
single line string without CR/LF at the end. After this sending, I have
to wait synchronously to receive a single line string. Then I can close
the socket and return. I imagine something like this (sorry for the
pascal style. At the moment, I cannot write it properly in Perl.)
function SendSocket (ip, port, string: string): string;
Could please anybody email/post me a code snippet which implements that
little bit of code? And what libs do I have to have/get?
Thank you VERY much ....
Martin
--
MindPower
EDV-Dienste
__________________________________________________________
Internet-Mail: martin.baur@mindpower.com.xyz
Internet (biz): http://www.mindpower.com
Internet (priv): http://www.mindpower.com/mb-es (german)
PGP-Key: http://www.mindpower.com/pgp.htm
Voice: +41-1-687 11 66
__________________________________________________________
Visit and join our Web-based BBS! If you're pleased, why
not run your own? We're happy to get into contact! Try:
http://www.mindpower.com/scripts/dbh.isa/EnterBBS?d=6931
__________________________________________________________
To prevent SPAM: When mailing to us, remove xyz first!
------------------------------
Date: Mon, 01 Feb 1999 15:54:32 -0500
From: Jim Michael <jim.michael@gecm.com>
Subject: Re: How to use Sockets in Perl?
Message-Id: <36B61487.3418@gecm.com>
Martin Baur wrote:
> I have to open a socket to a port on a given machine and transmit a
> single line string without CR/LF at the end. After this sending, I
man perlipc
HTH.
------------------------------
Date: Mon, 01 Feb 1999 21:05:45 GMT
From: frogsmock@my-dejanews.com
Subject: Match Parens-More Perlish?
Message-Id: <7954v5$hmf$1@nnrp1.dejanews.com>
Folks,
I've been messing with approaches to matching arbitrarily nested constructs
in Perl, and read with interest the various posts that said it couldn't be
done using regular expressions. Anyway, I'm fairly new to Perl, and I've
come up with this approach for matching nested parentheses. But it *feels*
ugly, so . . .
In the spirit of TMTOWTDI, would anyone care to comment on how to make this
better, faster, more efficient, or generally more Perlish? One-liner,
anyone? :) Anyway, here 'tis:
#!/usr/bin/perl
# parse nested parens
$txt = 'a(b(c(d(in d))in b))e(in e)\n';
$txt .= 'does this work (i doubt it (highly))?';
$txt =~ s/\(/*1*/gi; # replace "(" w/ *1*
$txt =~ s/\)/*-1*/gi; # replace ")" w/ *-1*
# (*1* chosen because it is known (by me)
# not to exist in the sample text. Something
# equally obscure could be used if *1* happens
# to be in use in the text.)
# find opening parens (now *1*)
while ($txt =~ /\*1\*/g) {
$i = 1;
$start = pos($txt);
$remainder = $';
# find opening or closing parens in the remainder
while ($remainder =~ /\*(-?1)\*/g) {
$i += $1;
# extract match when the correct closing paren is caught
if ($i == 0) {
$length = pos($remainder);
$match = substr($txt, $start, $length);
$match =~ s/\*1\*/(/gi;
$match =~ s/\*-1\*/)/gi;
$match = "(" . $match;
print "$match\n";
last;
}
}
}
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 1 Feb 1999 12:51:50 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Print OUT korn shell syntax in Perl script?
Message-Id: <64t497.ho1.ln@magna.metronet.com>
Bill Williams (biwillia@cisco.com) wrote:
: Can you do the following in a perl script? I want to add the following
: korn shell snippet
: to a print out statement in perl ( I am trying to use perl to create a
: korn shell template):
print <<'ENDKORN'; <======
: unset VOLS BUVOLS
: I=0
: while [ $I -lt ${#BASE[*]} ]
: do
: unset VOL
: for V in ${BASE[$I]}
: do
: BUVOLS="$BUVOLS vC${V}"
: VOL="$VOL $V"
: done
: VOLS[$I]="$VOL"
: I=`expr $I + 1`
: done
: export BUVOLS VOLS BASE"
ENDKORN <======
: Is there a different escape sequence? Or anything I can do to
: remedy this?
Use a 'here-doc' (described in 'perldata.pod') , as I added above.
Use single quotes if you want perl to ignore things that
look like variable names.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 1 Feb 1999 21:05:33 GMT
From: makarki.NOSPAM@news.hit.fi (Matti Johannes Kdrki)
Subject: Printing with Perl
Message-Id: <7954ut$582$1@news.hit.fi>
How do I print text and graphics with Perl under Win95/NT4?
I'll need to create a tool which handles a big amount of dynamic data and
generates a summary to paper. The data to be printed is text but I'll need
to add a company logo (from .bmp or .jpg file) to the beginning of every
page.
--MJK
------------------------------
Date: Mon, 01 Feb 1999 13:59:59 -0500
From: linberg@literacy.upenn.edu (Steve Linberg)
Subject: Re: Problem generating a chart in perl
Message-Id: <linberg-0102991359590001@ltl1.literacy.upenn.edu>
In article <QTlt2.869$f4.374@weber.videotron.net>, "Matts"
<matthu@videotron.ca> wrote:
> This is a multi-part message in MIME format.
Please don't post MIME to newsgroups. Microsoft Outlook Express
4.72.3110.1 isn't a very good choice for reading newsgroups. You might
want to look into a better newsreader.
> My boss want me to generate a chart from a datafile. I know how to =
> generate one that goes from left to right using a table but he wants it =
> down to up. I figured a table won't work in that situation. Somebody =
> told me about image generation in a CGI how can I do that? I don't know =
> any language to generate an image...=20
Tables are two-dimensional and you can interpret that any way you please.
If you have a specific question about Perl, you should post it. If you're
wondering about using HTML tables to represent data, then
comp.infosystems.www.authoring.html might be a better choice.
--
Steve Linberg, Systems Programmer &c.
National Center on Adult Literacy, University of Pennsylvania
email: <linberg@literacy.upenn.edu>
WWW: <http://www.literacyonline.org>
------------------------------
Date: Mon, 1 Feb 1999 11:22:46 -0800
From: "Rick Tiberi" <Tiberi@redshift.com>
Subject: Problems embedding Perl in multiple threads
Message-Id: <794uig$ogv$1@remarQ.com>
Hi,
I've been trying to embed multiple instances of the Perl interpreter in my C
program, each running in its own thread. I see that messages about this
have been posted before, but the answers don't seem to help me.
I'm using NT 4.0. I'm not using any external modules except a simple test
module to interface to my C code. Embedding works fine for a single
instance.
I have tried version 5.005.02, with MULTIPLICITY set, and with or without
USE_THREADS. I have used a mutex around the parse (and cleanup) phase.
(Without USE_THREADS, it will at least work if I also lock the mutex around
perl_run(), but the thread version fails during the second perl_construct(),
even on the simple MULTIPLICITY demo from perlembed.)
I downloaded the 5.005.03 (trial 5) and things still do not work (I set
USE_MULTIPLE and USE_THREADS).
Has anyone got this to work without serializing the calls to run the
interpreter?
Thanks,
--Rick Tiberi
tiberi@redshift.com
------------------------------
Date: Mon, 1 Feb 1999 13:53:56 -0700
From: "gip" <gibsonc@aztec.asu.edu>
Subject: Search Engine
Message-Id: <7953vu$dou@bmw.hwcae.az.Honeywell.COM>
Can someone point out a perl module or code that will search my site AND a
intranet newsgroup?
Thanks for your time.
CG
------------------------------
Date: Mon, 1 Feb 1999 12:53:09 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: SED command in PERL through HTML
Message-Id: <l6t497.ho1.ln@magna.metronet.com>
smanand@my-dejanews.com wrote:
: I am trying to execute a "sed" command in a UNIX PERL script which
: is called by a HTML form file as below.
: Please help
perldoc -f system
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 01 Feb 1999 13:21:58 -0600
From: Sven Davies <svend@lubypublishing.com>
Subject: Re: Visual Perl?
Message-Id: <36B5FED5.285B@lubypublishing.com>
D.Taylor wrote:
>
> In article <36b7a975.3640813@news.skynet.be>
> bart.lateur@skynet.be "Bart Lateur" writes:
>
> > "D.Taylor" wrote:
> >
> > > Does anybody out there kow if there is a visual perl for the mac?
> >
> > I don't know what you expect of a "Visual Perl", but MacPerl has long
> > been the most "visual" Perl around. It may still be.
> >
> > Bart.
> >
> Hi, what I meant was is there a sort of PageMill type WSYWYG program
> that would allow you to fill in the blanks ie a form creation program
> that would write the perl like visual html editors do.
I love when people over simplify things. First off, Perl is nowhere
simular to HTML and can't easily be generated from a WYSIWYG interface.
The bigest problem is what would you type in the interface: Perl's
Output? How would you tell the interface to write the behind the scenes
stuff?
Now having said that, there is an application on the Windows platform
that has a CGI Wizard. I haven't played with it too much because I
don't trust it, but it might be helpful to you. The application is
called Perl Builder and can be purchased on-line at:
http://www.solutionsoft.com/
Meanwhile if anyone has heard of an application that new what I wanted
and could program it for me, please let me know. It sure would be
helpful.
Yours,
--
========================================================
Sven T. Davies http://www.lubypublishing.com |
On-Line Coordinator http://www.billiardsdigest.com |
Luby Publishing http://www.bowlersjournal.com |
========================================================
------------------------------
Date: 1 Feb 1999 20:55:33 GMT
From: "Charles R. Thompson" <design@raincloud-studios.com>
Subject: Re: Visual Perl?
Message-Id: <7954c5$8js@bgtnsc01.worldnet.att.net>
>Meanwhile if anyone has heard of an application that new what I
wanted
>and could program it for me, please let me know. It sure would
be
>helpful.
It's an archaic system called Employees 1.0 based off of the
BIOLOGY::Human package. It's still in Beta because no matter how
many times you run your code through the parser, it doesn't know
what you want.
:)
CT
------------------------------
Date: 1 Feb 1999 14:00:48 -0500
From: clay@panix.com (Clay Irving)
Subject: Re: What text editors are you using for Perl?
Message-Id: <794tl0$d3c$1@panix.com>
In <36B48D05.78290335@purco.qc.ca> Leon Stepanian <info@purco.qc.ca> writes:
>Hi;
>OK. This may be a dumb question but it is really getting on my nerves.
>I have written Perl programs wth various editors such as ED and Wordpad
>(in text mode).
>But now, when I retrieve an old Perl script and simply do a save without
>doing any editing, the file size has grown considerably.
>When I view the file with Ztree in DUMP mode, I have noticed that before
>each carriage return character (which is symbolized by a shadded square
>with a letter "o" inside, there is a "musical note" (can't find this
>character) . Especially after the first all important line
>"#!/usr/bin/perl". When I send this script back to my ISP and activate
>the script from my HTML, I'm getting a Server error. When I send the
>original script, it works fine.
>So, what is happening is the editor is adding this musical note
>character before my end of line character and perl is seeing this as an
>illegal character. I simply can't understand why this is happenning.
>Is there an editor that is 100% simple character based which does not
>add such things to the file, or does anyone have an explanation. I'm
>going crazy because I can't edit my older Perl files to update the code.
Before the 'editor war' starts again:
http://reference.perl.com/query.cgi?editors
--
Clay Irving
clay@panix.com
------------------------------
Date: Mon, 01 Feb 1999 13:55:16 -0600
From: James Ludlow <ludlow@us.ibm.com>
Subject: Re: Win32 and $_
Message-Id: <36B606A4.38EC5D47@us.ibm.com>
Paul Bruno wrote:
>
> Hey, everyone! Ok, here's the problem: I am using Active Perl, build
> 509, on Win95 and haven't had too many problems.
>
> Except for this one: The default varible $_ just doesn't work on my
> machine!!! For example, a script snippet like this,
> snip| <STDIN>;
> snip| print "Here is the value of the def var:\n$_";
> just doesn't work on my machine!!! Although no one really needs the
> default varible, I just wanted to know what was up with this!
This has nothing to do with Win32. You have simply misread the section
in the docs describing automatic assignment and angle brackets (<>).
$ perldoc perlop
Look for the section "I/O Operators".
--
James Ludlow (ludlow@us.ibm.com)
(Any opinions expressed are my own, not necessarily those of IBM)
------------------------------
Date: Mon, 01 Feb 1999 21:15:33 GMT
From: byoungstrom@my-dejanews.com
Subject: Win32 user ids
Message-Id: <7955hf$i4j$1@nnrp1.dejanews.com>
Is it possible for a perl script running under NT 4.0 to dynamically change
the user id that it is running under? If so, how?
For instance, I want to write a cgi script that will allow passwords to be
changed via a form. I want the user to enter their username/password to log
in then use this information to have my script run as that user on the server.
Thanks in advance!
Brian Youngstrom
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
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 4799
**************************************
