[8384] in Perl-Users-Digest
Perl-Users Digest, Issue: 2001 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Mar 2 10:17:34 1998
Date: Mon, 2 Mar 98 07:01:00 -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, 2 Mar 1998 Volume: 8 Number: 2001
Today's topics:
Re: Access Databases <netnuevo@best.com>
ANNOUNCE: DOCModify 1.3 to modify fields in every file <pivari@geocities.com>
Re: Conflict in this Newsgroup (Bart Lateur)
Re: Conflict in this Newsgroup shaker@netusa1.net
Re: Conflict in this Newsgroup (Mike Heins)
Re: Conflict in this Newsgroup <tchrist@mox.perl.com>
Re: Cookies Too many clowns heres your answer (Bart Lateur)
Re: Courthouse and Perl <merlyn@stonehenge.com>
Faxing from Perl <martin@highway-innovations.com.sg>
Re: Faxing from Perl (Honza Pazdziora)
Re: Faxing from Perl <mindmore@mindless.com>
Re: graphics <jdf@pobox.com>
HELP needed on my perl script!! (Jason Cheung)
Re: Killfile Triage (Seymour J.)
Memory leakage under 5.004_04 (Daniel Walton)
Re: My Own Header Proposals (was: Proposal: use SEEFAQ (brian d foy)
Need BMP to GIF converter (Irene Barg)
Re: Need Help Compiling Perl 5.004_04 on HP-UX 9 <cbb@pczbf009.ar4.fra.dlh.de>
need info on obtaining perl for windows 3.1 (Stan Zylowski)
ORAPERL: How can I get an output paramater from an Orac <pax@adv.magwien.gv.at>
Re: parameters (Jason Nugent)
problem: running a background process from cgi-script?? <tkr@lehtori.cc.tut.fi>
Q:real time display <shadow@ksts.seed.net.tw>
Re: Regional PUGs (brian d foy)
Re: Removing JavaScript via a regex (Abigail)
Re: Removing JavaScript via a regex (Jason Nugent)
Scalar variable problem! <daniel@enea.se>
Strict <frankie@etsetb.upc.es>
Re: The Ineffable Tom C. (Kent E. Holsinger)
Re: The Ineffable Tom C. (Steve Linberg)
Re: Update another frame from Perl script. (brian d foy)
Re: Upgrading from Perl 4 to Perl 5 - Differences? (I R A Aggie)
Re: Win32::NetAdmin::UserCreate qn (Nick Tonkin)
wonderful perl can do everything at once! malinet@loom.net.au
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 02 Mar 1998 04:23:30 -0800
From: Stephanie Ray <netnuevo@best.com>
Subject: Re: Access Databases
Message-Id: <34FAA4C1.FF2DD449@best.com>
There is a product called Access2Web (or database2web) at
http://www.sitesoft.com/. I used it when I was first starting out...
Joseph Migliore wrote:
> I'm a CGI newbie who needs information about Microsoft Access queries!
> Any help would be greatly appreciated!
------------------------------
Date: Mon, 02 Mar 1998 11:29:40 +0000
From: Fabrizio Pivari <pivari@geocities.com>
Subject: ANNOUNCE: DOCModify 1.3 to modify fields in every file
Message-Id: <34FA9824.B36A1DCF@geocities.com>
Hi,
I'm glad to announce the version 1.3 of DOCModify.
DOCModify is a very flexible and powerfull PERL script. It permits you
to modify in every format file the fields you specify in the
configuration file modify.cfg. It works
with PERL 5.x on UNIX and Wintel Systems.
This tool is a free ANFACE Software tool.
What's new in 1.3 version:
Added filecfg option: with this option you can change the configuration
file (default "docmodify.cfg")
This is the URL where you can find the tool
http://www.geocities.com/CapeCanaveral/Hangar/4794/
Enjoy it!
Send me your suggestions
--
Fabrizio Pivari
mailto:pivari@geocities.com
http://www.geocities.com/CapeCanaveral/Lab/3469/
Member of ANFACE Software
http://www.geocities.com/CapeCanaveral/Hangar/4794/
------------------------------
Date: Mon, 02 Mar 1998 11:35:31 GMT
From: bart.mediamind@tornado.be (Bart Lateur)
Subject: Re: Conflict in this Newsgroup
Message-Id: <3507995c.14618343@news.tornado.be>
nvp@shore.net (Nathan V. Patwardhan) wrote:
>People don't read FAQs and when auto-FAQ'ed get really pissed off and
>*still* won't read it. People won't read weekly FAQ postings or other
>stuff, so I think that this is a non-factor.
I just had a silly idea: let the Perl executable display an intro text
pointing towards the documentation, *everytime a script is run*, or when
there is a syntax error.
You can disable this by using a command line option. Of course, you'll
have to look it up in the documentation.
Many beginners don't know the meaning of "FAQ", or do not even realise
that the POD files are, (A), the documentation, and (B), that they can
be opened with a regular text editor.
Nah, it won't work. Beginners will tell each other to run a script with
the "-quiet" option, to avoid the irritating intro. They won't even see
it once.
Urm... It COULD work after all. Just don't allow disabling this message
in case of a syntax error.
Bart.
------------------------------
Date: Mon, 02 Mar 1998 07:57:50 -0600
From: shaker@netusa1.net
Subject: Re: Conflict in this Newsgroup
Message-Id: <6deds4$btt$1@nnrp1.dejanews.com>
In article <8cu39hekh6.fsf@gadget.cscaper.com>,
Randal Schwartz <merlyn@stonehenge.com> wrote:
>
> >>>>> "Nathan" == Nathan V Patwardhan <nvp@shore.net> writes:
>
> Nathan> The fact is that the experts have tried really, really hard to
> Nathan> preserve the Usenet culture that many of us were a part of in its
> Nathan> "hey day" and are probably burned out from having done so. I don't
> Nathan> remember Tom or Randal or anyone else freaking out *at all* four
> Nathan> or five years ago.
>
Despite the 'really, really hard' efforts of the experts to ' preserve the
Usenet culture that many (...) were a part of in its "hey day" ', it has
NOT worked. Is it possible that this attempt is like tilting at windmills ?
Doesn't the fact that it has NOT worked tell something ? One can either be
wistful [and keep on singing a la Archie Bunker, 'when boys were boys, and
men were men, those were the days'], or figure out something that will work
in today's environment, when the genie is out of the bottle ?
> This is accurate. I am *continually* *appalled* at the "take and no
> give" attitude prevailing in most Usenet groups these days.
> Especially in comp.lang.perl.*, seeing as that's my "home" for the
> moment.
>
Again, the world has changed. When the group is small and comes roughly from
the same background, one can enforce a culture by peer pressure. [I am
willing to bet that even in those golden days, this was not automatic and
there were 'attitude adjusting discussions'.] However, today people come to
technical groups from non-technical groups, for instance. In the 'golf'
group, for instance, a person can ask 'What are some of the good places to
golf near Oshkosh, Wisconsin ?' and they will get a polite, helpful answer
(maybe even from Joe Hall :-) :-) ]. Very few jump on their throats and say
'this is a FAQ', this is already documented on that Web page, etc. Having
come from this background, people are going to ask simple questions in this
vein. I am NOT demanding that every (or even any) one of these be answered.
If this bothers anybody, why don't they just leave it alone and ignore it ?
If someone else provides an answer, again ignore it ? This may not have been
how things worked in the past, but we need to find solutions for today's
environment. The fact that a certain attitude is common in other parts of the
net must tell us to take it into consideration, rather than wishing that it
will go away.
Randall and the other key Perlers rightly deserve a special place in any Perl
newsgroup. However, think of this. Someone new gets handed a Perl script at
work. He goes and buys a couple of books and starts working with the scripts.
He gets taken by the 'sense of community' touted in the books. He wants to be
a part of it too. In other words, he wants clpm to be his home too - he does
not intend to displace Randall from his home. He posts something like: 'This
is my first Perl program; I am glad it worked". Somebody instantly replies
"Not" (in response to the "it worked' part.) Pre-democratization, this kind
of postings may not have occured (much) at all. But today, does this guy have
a place in clpm or not ? Make no mistake; one of the attractions of
newsgroups is that it makes it possible for people to band together in little
communities, live in shared homes. This attraction is for newcomers too. Perl
books encourage this attraction and convince newcomers that they too can be a
part of it. We need to find a home for this outlet, whether an 'intro'
newsgroup or something else. One can of course take the position that unless
a person is able to contribute to the potluck, they cannot think of this as a
home, that they have to walk on eggshells, as 'non-resident aliens' with
limited rights, as 'third class citizens' . However, I am not sure how one
can enforce it - other than the current 'killfile publication parties' and
'new insult discovery cermonies'.
> Usenet is *not* the help line or the answer desk.
>
> It's the potluck (see earlier post).
>
> It's where you give a little and take a little.
>
> We who might know are *never* under an obligation to answer
> *anything*. And if you cry wolf too many times, no-one will be around
> to believe you when you need it.
>
I agree with you 1000% that when someone asks a question, nobody is under an
obligation to answer it. However, it does not seem right to me that somebody
has a right to scare off other answerers (kind souls who even add a 'hope
this helps', bless their hearts), especially when that somebody is presenting
an 'inviting' face in their books.
> If you think that's a "high and mighty" attitude to take, please read
> a few more months before passing judgement. You'll start to see how
> 80% of the postings in this group are merely FAQs or misdirected
> posts, or responses to same. What a *waste*. What a *waste* of a good
> medium.
>
I agree with you that a large number of posts may be FAQs or misdirected
posts, or responses to same. However, we need to find a civilized way of
providing an outlet for these also, since these happen and will no doubt
continue to happen.
I suggested beefing up the miniFAQ not because miraculous results will occur
but because it increases the chances of the desired behavior occuring. Also,
if somebody does something such as asking a FAQ, one person can e-mail the
miniFAQ, rather than abuse them here. This will further increase the chances
of the desired behavior occuring. To be successful, all these have to be done
in conjunction with providing an outlet for these type of questions. I am a
teetotaler; but didn't prohibition teach us something ? :-)
> Sure, the pool can be used as a toilet. But why?
>
Analogies can be given several different ways. Isn't it more like the
following ?
"We are old-timers. We possess tremendous self-discipline. If we know we are
going to the pool, we *always* take a leak twenty minutes ahead of time. In
fact, this is well documented in four different places, right on your system.
You have to do it exactly this way. Otherwise you are an urchin; you
certainly are not one of us. Taking a leak behind the bushes, is a no-no. I
am turning you in. Only gypsies and shoeless beggars do this. etc."
Obviously, I am being facetious here. Isn't it better to provide a john near
the pool (and say keep it under a lock and key system if necessary - to keep
the true offenders (spammers, for instance) out) ?
Regards.
V. Chandrasekhar
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: 2 Mar 98 14:34:28 GMT
From: mikeh@minivend.com (Mike Heins)
Subject: Re: Conflict in this Newsgroup
Message-Id: <34fac374.0@news.one.net>
shaker@netusa1.net wrote:
> Randall and the other key Perlers rightly deserve a special place in any Perl
> newsgroup. However, think of this. Someone new gets handed a Perl script at
> work. He goes and buys a couple of books and starts working with the scripts.
> He gets taken by the 'sense of community' touted in the books. He wants to be
> a part of it too. In other words, he wants clpm to be his home too - he does
> not intend to displace Randall from his home. He posts something like: 'This
> is my first Perl program; I am glad it worked". Somebody instantly replies
> "Not" (in response to the "it worked' part.) Pre-democratization, this kind
> of postings may not have occured (much) at all. But today, does this guy have
> a place in clpm or not ? Make no mistake; one of the attractions of
> newsgroups is that it makes it possible for people to band together in little
> communities, live in shared homes. This attraction is for newcomers too. Perl
> books encourage this attraction and convince newcomers that they too can be a
> part of it. We need to find a home for this outlet, whether an 'intro'
> newsgroup or something else. One can of course take the position that unless
> a person is able to contribute to the potluck, they cannot think of this as a
> home, that they have to walk on eggshells, as 'non-resident aliens' with
> limited rights, as 'third class citizens' . However, I am not sure how one
> can enforce it - other than the current 'killfile publication parties' and
> 'new insult discovery cermonies'.
I would like to state for the record that Randal Schwartz is without
a doubt one of the best examples in this newsgroup. His posts are unfailingly
cheerful, polite, and kind. Please be careful which brush you tar people
with.
Regards,
Mike Heins http://www.minivend.com/ ___
Internet Robotics |_ _|____
Just because something is 131 Willow Lane, Floor 2 | || _ \
obviously happening doesn't Oxford, OH 45056 | || |_) |
mean something obvious is <mikeh@minivend.com> |___| _ <
happening. --Larry Wall 513.523.7621 FAX 7501 |_| \_\
------------------------------
Date: 2 Mar 1998 14:38:09 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Conflict in this Newsgroup
Message-Id: <6deg8h$mgj$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, bart.mediamind@tornado.be (Bart Lateur) writes:
:I just had a silly idea: let the Perl executable display an intro text
:pointing towards the documentation,
Fixed in the next release. I'm quite serious -- I did this last week
or so. The `perl -h' help command will include this line:
-v print version, patchlevel, plus VERY IMPORTANT perl info
Which should prompt them into using:
% perl -v
This is perl, version 5.004_05 built for i686-linux
Copyright 1987-1998, Larry Wall
Perl may be copied only under the terms of either the Artistic
License or the GNU General Public License, which may be found in
the Perl 5.0 source kit.
Complete documentation for Perl, including FAQ lists, should be
found on this system using `man perl' or `perldoc perl'. If you have
access to the Internet, point your browser at http://www.perl.com/,
the Perl Home Page.
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
Actually, you'll know we're nearing the end when I make |$foo| mean
"absolute value"... :-) Larry Wall in <1994Feb25.192042.17196@netlabs.com>
------------------------------
Date: Mon, 02 Mar 1998 11:35:36 GMT
From: bart.mediamind@tornado.be (Bart Lateur)
Subject: Re: Cookies Too many clowns heres your answer
Message-Id: <3504908d.12362848@news.tornado.be>
Fain <mindmore@mindless.com> wrote:
> Have you thought about using cookies in JavaScript instead of
>CGI/perl, it will probally be faster and easer? Just a thought.
Have you thought about the fact that many people refuse to enable
JavaScript in their browsers? Some do that for security reasons ("no
unknows apps on my computer please"), but I for one am sick and tired of
messageboxes popping up, saying that there's a syntax error in the
JavaScript. What gets passed one browser, does not necessarily work on
another, or even another version of the same browser.
Let's stick to web=data-only, please.
Bart.
------------------------------
Date: 02 Mar 1998 05:14:07 -0700
From: Randal Schwartz <merlyn@stonehenge.com>
To: Butch Bridges <bridges@brightok.net>
Subject: Re: Courthouse and Perl
Message-Id: <8chg5he1dc.fsf@gadget.cscaper.com>
>>>>> "Butch" == Butch Bridges <bridges@brightok.net> writes:
Butch> I am trying to decide if Perl is the way to go with placing our court
Butch> records on the Net so the public can access them. Is it very
Butch> complicated? Please reply by email with any suggestions or help. I
Butch> really know nothing about doing this. Thanks....... Butch Bridges
Heh... if the Washington County Courthouse in Oregon would do that,
and it could access evidence in past trials on-line,
you could ask about my case, bring up some of the evidence,
and it'd be a Perl script serving up a ... Perl script!
:-)
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 183 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@teleport.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: Mon, 02 Mar 1998 19:34:57 +0800
From: Martin Wong <martin@highway-innovations.com.sg>
Subject: Faxing from Perl
Message-Id: <34FA9961.3455@highway-innovations.com.sg>
Dear all,
is there any way I can fax a document/text file in Perl on a win32 based
NT platform? Maybe I can use an external program or something.
Any ideas?
Drop me an email : martin@highway-innovations.com.sg
------------------------------
Date: Mon, 2 Mar 1998 13:19:02 GMT
From: adelton@fi.muni.cz (Honza Pazdziora)
Subject: Re: Faxing from Perl
Message-Id: <adelton.888844742@aisa.fi.muni.cz>
Martin Wong <martin@highway-innovations.com.sg> writes:
> Dear all,
>
> is there any way I can fax a document/text file in Perl on a win32 based
> NT platform? Maybe I can use an external program or something.
I'm not aware of any module that would send a fax for you. So maybe
you would need to find some external program to do it. Then it's only
a matter of running it and passing it correct parameters. No problem
with Perl.
Hope this helps,
--
------------------------------------------------------------------------
Honza Pazdziora | adelton@fi.muni.cz | http://www.fi.muni.cz/~adelton/
I can take or leave it if I please
------------------------------------------------------------------------
------------------------------
Date: Mon, 02 Mar 1998 16:27:58 +0200
From: Fain <mindmore@mindless.com>
To: martin@highway-innovations.com.sg
Subject: Re: Faxing from Perl
Message-Id: <34FAC1EE.445897A0@mindless.com>
> Dear all,
>
> is there any way I can fax a document/text file in Perl on a win32 based
> NT platform? Maybe I can use an external program or something.
>
Yes... there is a way.go to CGI resources (http://www.cgi-resources.com I
think). After getting there go to the Perl section and then go to the
miscellaneous section and you could see something called perlfax.pl or a
link with a description to a place that has made a way to do this. I just
found it this morning.
I'm at work right now but if you would rather me just send it to you I will
when I get home (My works WAN sucks so it's useless to try to get if for
you right now).
If you do get it on your own please e-mail me and let me know if it worked
because I've been thinking of trying it myself.-
Nathanmindmore@mindless.com
> Any ideas?
>
> Drop me an email : martin@highway-innovations.com.sg
------------------------------
Date: 02 Mar 1998 09:49:48 -0500
From: Jonathan Feinberg <jdf@pobox.com>
Subject: Re: graphics
Message-Id: <yaytqh9v.fsf@news.concentric.net>
malinet@loom.net.au writes:
> Can someone please tell me how to load and display a bitmap onto the
> screen using perl?? Or at least plot a pixel or draw a cirlce??
> I would also like to know how to play .au files??
There's an internet resource you should know about?? It's called
CPAN?? It's a repository of Perl distributions, documentation,
and modules?? One way to access it is via the web:
http://www.perl.com/CPAN-local/
When you get there, you should search for such keywords as "graphic,"
"sound," and whatever else you're interested in?? If you're using the
Windows operating system (as seems likely) you'll want to download the
perl bindist from
http://www.perl.com/CPAN-local/authors/Gurusamy_Sarathy/
Hope this helps??
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY??
------------------------------
Date: 2 Mar 1998 14:41:20 GMT
From: cheungj5@cs.man.ac.uk (Jason Cheung)
Subject: HELP needed on my perl script!!
Message-Id: <6degeg$mdp$1@m1.cs.man.ac.uk>
So far I can use perl to identify whether the users are 1st or 2nd years. However, is there a way to use perl to identify if no one is logged onto one or more machines??
The format of the textfile is like this:
n7a
2:32pm up 3 days, 8:28, 0 user, load average: 0.00, 0.00, 0.00
User tty login@ idle JCPU PCPU what
n7b
2:32pm up 3 days, 8:25, 1 user, load average: 0.08, 0.02, 0.01
User tty login@ idle JCPU PCPU what
cheungj5 console 1:59pm 32 1:25 1:17 textedit
cheungj5 ttyp0 2:00pm 31 1:35 1:35 xvnews
cheungj5 ttyp1 2:00pm 32 /usr/local/bin/ksh
cheungj5 ttyp2 2:25pm 2 1 rsh n7b /usr/ucb/w
n7c
2:32pm up 3 days, 8:24, 0 user, load average: 0.00, 0.00, 0.00
User tty login@ idle JCPU PCPU what
As you can see, machines n7a and n7c are free, but how do I show thast in perl?
I would really appreciate it if anyone can help me! Thanks!
Jason
------------------------------
Date: Sun, 01 Mar 98 22:08:52 -0500
From: Shmuel (Seymour J.) Metz <spamtrap@library.lspace.org>
Subject: Re: Killfile Triage
Message-Id: <34fa22c4$1$fuzhry$mr2ice@news1.mnsinc.com>
In <slrn6fddna.42f.guckes@rudin.math.fu-berlin.de>, on 02/27/1998
at 12:51 PM, guckes@math.fu-berlin.de (Sven Guckes) said:
>Now, what would happen if everyone just used a valid address?
Your spammer buddies would send them a lot of junk E-mail. GoAT.
*PLONK*
--
-----------------------------------------------------------
Shmuel (Seymour J.) Metz, SysProg and JOAT
Atid/2
Team OS/2
Team PL/I
Any unsolicited commercial junk E-mail will be subject to legal
action. I reserve the right to publicly post or ridicule any abusive
E-mail.
I mangled my E-mail address to foil automated spammers; reply to
domain acm dot org user shmuel to contact me. Do not reply to
spamtrap@library.lspace.org
-----------------------------------------------------------
------------------------------
Date: Mon, 02 Mar 1998 10:21:54 GMT
From: dw_cdsc@opti.okdirect.com (Daniel Walton)
Subject: Memory leakage under 5.004_04
Message-Id: <8697EF50C7E56F38.9753BDA8937341D3.4E467CF0A8B032B6@library-proxy.airnews.net>
I have a daemon process that I have been successfully running under
Perl 5.003 for several months now without a single problem. Recently
I was forced to upgrade to Perl 5.004_04 for another piece of
software. Now that I have upgraded, however, the original daemon
process is leaking memory.
The process used to consume 7 megabytes and would not grow at all over
a period of weeks. Under 5.004_04 the process consumes around 30
megabytes per day.
Does anyone have any info about 5.004_04 I should know about that
could cause something like this? I am running FreeBSD 2.2.5 on the
server.
Is there any easy way to track memory usage? Perhaps an easy way to
look into the memory usage of a package? This would allow me to at
least determine what package to start my debugging in.
The daemon is a network server and I am using Socket, IO::Socket, and
IO::Select...
Thanks!
Dan
------------------------------
Date: Mon, 02 Mar 1998 05:33:48 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: My Own Header Proposals (was: Proposal: use SEEFAQ and/or OFFTOP)
Message-Id: <comdog-ya02408000R0203980533480001@news.panix.com>
Keywords: from just another new york perl hacker
In article <MPG.f5aac30129f1d93989733@news.concentric.net>, jdf@pobox.com (Jonathan Feinberg) posted:
>Russell_Schulz@locutus.ofB.ORG said...
>: I had suggested an extra header. perhaps `SEEFAQ' in the Keywords:
>: header would be enough. perhaps a `FAQ-Pointer: yes' would.
>
>While we're at it, how about METOO, Mostly-Quote, SPAM, Written-In-Anger,
>With-Attached-Pamela-Anderson-Lee-Mpegs, SPAM, OT, WAY-OT, Just-Killfile-Me-
>Now, SPAM, SPAM, Kludgy-Rewrite-Of-Printf, SPAM_SPAM_SPAM...
i think Eli already uses a few of those. that MIPS version of the
Playstation is pretty nifty :)
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
------------------------------
Date: 2 Mar 1998 14:18:43 GMT
From: barg@nickel.as.arizona.edu (Irene Barg)
Subject: Need BMP to GIF converter
Message-Id: <6def43$cfm$1@news.ccit.arizona.edu>
Hello,
Has anyone written a Perl script to convert BMP to GIF (or JPEG)?
Thanks,
Irene Barg
-------------------------------------------------------------------
Irene Barg Email: ibarg@as.arizona.edu
Steward Observatory Phone: 520-621-2602
University of Arizona FAX: 520-621-1891
Tucson, AZ 85721 http://nickel.as.arizona.edu/~barg
-------------------------------------------------------------------
------------------------------
Date: 2 Mar 1998 10:23:48 GMT
From: Christopher Blencowe <cbb@pczbf009.ar4.fra.dlh.de>
Subject: Re: Need Help Compiling Perl 5.004_04 on HP-UX 9
Message-Id: <6de1bk$he2@ar4dec01.ar4.fra.dlh.de>
Go into a newsgroup like
comp.sys.hpux
Clarence T. Pate <> wrote:
> Is there some place to get more documentation on how to compile Perl
> other than the documentation that comes with the package?
> Will the compile work with the standard compiler that comes with HP-UX
> 9?
> Thanks in advance,
> Clarence T. Pate
------------------------------
Date: 2 Mar 1998 13:38:34 GMT
From: ir767@cleveland.Freenet.Edu (Stan Zylowski)
Subject: need info on obtaining perl for windows 3.1
Message-Id: <6decoq$jp$1@alexander.INS.CWRU.Edu>
hi cant seem to find perl for windows 3.1
i do have a book with cd rom which says
it has compiled ports of perl. is this
the same as perl program or are these
individual programs?
--
* http://members.tripod.com/~stanz/utopia.html (homepage)
* http://www.grokware.com (check out)
------------------------------
Date: 2 Mar 1998 12:19:38 GMT
From: "Master Disk" <pax@adv.magwien.gv.at>
Subject: ORAPERL: How can I get an output paramater from an Oracle Stored Procedure
Message-Id: <01bd45d4$e715f0c0$4901cb8d@ta5630.adv.magwien.gv.at>
It's no problem to call Stored Procedures and to put an IN parameter.
But how can i get an OUT parameter ?
Thanks and Regards,
Alex(pax@adv.magwien.gv.at)
------------------------------
Date: 2 Mar 1998 14:17:18 GMT
From: ap958@chebucto.ns.ca (Jason Nugent)
Subject: Re: parameters
Message-Id: <6def1e$4v5$1@News.Dal.Ca>
DAN ALBERTSSON (dan.albertsson@swipnet.se) wrote:
: Can someone explain how this passing of arguments to a self made function
: works.
: -How do I receive two list in @_ when I send, for instance:
: calculate(@ListX, @ListY);
If you want to pass arrays or hashes to subroutines and keep them
complete (since Perl mashes all variables into @_), you have to pass them
by reference. Your calculate function would have to be something like:
calculate(\@ListX,\@ListY);
and then later on in your subroutine you can get at your variables
using something like:
my ($listX_ref,$listY_ref) = @_; # references are scalar
foreach (@$listX_ref){
...... # do something here
}
and the same for your @listY.
: -How do I receive one list and one ordinary variable, for instance:
: calculate(@ListX, $ItemY);
If you want to keep them apart, you have to pass the array by
reference in the same manner as above.
All of this is explained really well in the man pages, as well as
the FAQ over on http://language.perl.com/faq/index.html.
Hope this clears some stuff up,
Jason
---------------------
Jason Nugent, BSc(Hons)
ap958@chebucto.ns.ca "Beneath this canvas monochrome
Certified Web Master Wrapped in the shroud of this grey home
I'll paint a picture all my own
I'll paint a picture"
Live to ride,
Ride to Live. -Anacrusis
********************************************************************
The Best Place for Sport on the net! - Sportscience www.sportsci.org
********************************************************************
------------------------------
Date: 2 Mar 1998 09:33:05 GMT
From: Tommi Reiman <tkr@lehtori.cc.tut.fi>
Subject: problem: running a background process from cgi-script??
Message-Id: <6dduch$h06$1@cc.tut.fi>
Keywords: newbie, help, fork
How can I start a background process from perl cgi-script?? The idea is
to print out a message (HTML) that the task is now running as a background
process. I have tried fork() but it seems to wait until the background
process is completed until printing anything to the screen.
-------------------------------------------
#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
print "Started \n";
unless (fork)
{
chdir("my path");
system "./wait.pl";
exit 0;
}
print "\ ...still running foreground \n";
-------------------------------------------
wait.pl:
-------------------------------------------
#!/usr/local/bin/perl
for (0..100000) { }
print "\n background process done \n";
-------------------------------------------
Tommi Reiman
------------------------------
Date: Mon, 02 Mar 1998 18:03:52 +0800
From: shadow <shadow@ksts.seed.net.tw>
Subject: Q:real time display
Message-Id: <34FA8408.7E68@ksts.seed.net.tw>
Hi everyboby:
There is a program that I wish it realtime display in the
browser,
The file name is nph-test,the server is apache 1.2.4 ,the browser is
netscap 3.0:
>>#!/usr/bin/perl
>>$server_protocol=$ENV{SERVER_PROTOCOL};
>>$server_software=$ENV{SERVER_SOFTWARE};
>>print "$server_protocol 200\n";
>>print "Server: $server_software\n";
>>print "Content-type: text/plain\n\n";
>>print "OK,Here I go. I am going to count from 1 to 5!\n";
>>for ($loop=1;$loop<=5;$loop++){
>> print "$loop\n";
>> sleep(1);
>>}
>>print "All Done!\n";
But this program display 1~5 one time,why can't display 1~5 one after
one,
Please tell me how to do ,thank you!
------------------------------
Date: Mon, 02 Mar 1998 05:16:05 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Regional PUGs
Message-Id: <comdog-ya02408000R0203980516050001@news.panix.com>
Keywords: from just another new york perl hacker
In article <34F59C87.DB2076F0@micro.ti.com>, Holly Sommer <hsommer@micro.ti.com> posted:
>PUG - Perl User Groups.
>
>I was wondering if there are any such beasties out there... and if not,
>whether there might be interest in forming any as such.
so far i know of at least six such groups. Perl Mongers can either
help you find one or start one :)
--
brian d foy <comdog@computerdog.com>
Perl Mongers <URL:http://www.pm.org>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
------------------------------
Date: 2 Mar 1998 08:56:59 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Removing JavaScript via a regex
Message-Id: <6dds8r$9un$4@client2.news.psi.net>
Abigail (abigail@fnx.com) wrote on 1644 September 1993 in
<URL: news:6dd49j$62l$1@client2.news.psi.net>:
++ Jason Nugent (ap958@chebucto.ns.ca) wrote on 1644 September 1993 in
++ <URL: news:6dctdv$gh$1@News.Dal.Ca>:
++
++ ++ $line =~s{ # start the regex
++ ++ <[^>]*> #
++ ++ }{}gsx; # strip out comments and html
++
++ Problems:
++ - It removes everything from the first < to the last >.
Uhm, that's of course not true.
Abigail
--
perl5.004 -wMMath::BigInt -e'$^V=new Math::BigInt+qq;$^F$^W783$[$%9889$^F47$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W98$^F76777$=56;;$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^V%$^U;$^V/=$^U}while$^V!=$^W'
------------------------------
Date: 2 Mar 1998 11:57:59 GMT
From: ap958@chebucto.ns.ca (Jason Nugent)
Subject: Re: Removing JavaScript via a regex
Message-Id: <6de6s7$3ve$1@News.Dal.Ca>
Abigail (abigail@fnx.com) wrote:
: Really? If that works really well, then what is your problem?
It does work really well. I have run it through thousands of HTML
pages without a hitch most of them time. I KNOW it is simplistic and that
it won't work well for the very reasons you mentioned. But, for standard
markup, it does it's job as long as the task isn't too complicated..
Unfortunately, I need more than that here. The regex I have here is not
general enough, and it does break in a lot of situations. I know that.
: It seems to me that your problem is that the above does *NOT*
: work well. There seldom passes a day I don't tell someone that
: you *cannot* parse HTML with a single regex.
I never once implied that was what I was looking for. I did in
fact mention that I have tried Tom's very well thought out parsing routine
from the FMTEYEWTK pages. I myself have come up with a few more regexs
that work a bit better, but I can't get them to do exactly what I want.
Is that a crime? I thought not. I have read the information. I have
read the man pages. I've looked for myself. And now, I asked you.
: Problems:
: - It removes everything from the first < to the last >.
as you know, this is not the case.
: - Removes perfectly valid *data*. 'a < b' does not start a tag.
Good points, all of them, and I realize this.
: If you seriously think that a tag matches <[^>]*>, don't make any attempts
: creating a search engine. You lack some fundamental knowledge about
: HTML.
You have no idea what my HTML knowledge is like, so I am just
going to ignore this. Abigail, I do appreciate your comments, and I value
your opinion. The only way a programmer gets better in any language is by
working at it, and, when they hit a wall and have looked up information
for themselves and STILL can't get past it, they ask someone with more
experience in the area.
Jason
--
---------------------
Jason Nugent, BSc(Hons)
ap958@chebucto.ns.ca "Beneath this canvas monochrome
Certified Web Master Wrapped in the shroud of this grey home
I'll paint a picture all my own
I'll paint a picture"
Live to ride,
Ride to Live. -Anacrusis
********************************************************************
The Best Place for Sport on the net! - Sportscience www.sportsci.org
********************************************************************
------------------------------
Date: Mon, 02 Mar 1998 14:25:45 +0100
From: Daniel <daniel@enea.se>
Subject: Scalar variable problem!
Message-Id: <34FAB358.E0A80113@enea.se>
Does anyone know if there is any limit to the number of characters in a
string / scalar variable?
-- daniel
------------------------------
Date: Mon, 02 Mar 1998 14:09:54 +0100
From: Francesc Guasch <frankie@etsetb.upc.es>
Subject: Strict
Message-Id: <34FAAFA2.E7B6D93C@etsetb.upc.es>
Hi, I want to use strict but what if I wanted to use
a globar variable ?
using ::DIRLIST in a sub makes perl complain :
Bareword "::DIRLIST" not allowed while "strict subs" in use at ./Llistes.pl line
8.
Execution of ./Llistes.pl aborted due to compilation errors.
Do I have to pass that variable to the subroutine also ?
--
^-^.-----, mailto:frankie@etsetb.upc.es
o o _ ) http://www.etsetb.upc.es/~frankie
Y (_, (__(Ssss
------------------------------
Date: 02 Mar 1998 07:25:36 -0500
From: kent@darwin.eeb.uconn.edu (Kent E. Holsinger)
Subject: Re: The Ineffable Tom C.
Message-Id: <wkyaytqny7.fsf@darwin.eeb.uconn.edu>
>>>>> "Michael" == Michael Conlen <meconlen@intnet.net> writes:
Michael> If there's a
Michael> faq on perl programming its self its unknown to me (the
Michael> camel book?).
The Perl FAQ is a standard part of standard Perl installations. I
posted a script a few days ago (perlfaq) that facilitates FAQ
searches. Use dejanews to find it, or e-mail me and I'll send you a
copy.
Kent
--
Kent E. Holsinger Kent@Darwin.EEB.UConn.Edu
http://darwin.eeb.uconn.edu
-- Department of Ecology & Evolutionary Biology
-- University of Connecticut, U-43
-- Storrs, CT 06269-3043
------------------------------
Date: Mon, 02 Mar 1998 07:57:20 -0500
From: linberg@literacy.upenn.edu (Steve Linberg)
Subject: Re: The Ineffable Tom C.
Message-Id: <linberg-0203980757200001@projdirc.literacy.upenn.edu>
In article <6d9kcv$7b5$1@lennon.postino.com>, falstaff@lennon.postino.com
(John) wrote:
> I am the Perl guru at
> work and many people come to me with questions. I suggest different
> books, but _always_ warn people to stay away from "Learning Perl
> on Win32", which is co-authored by Tom C. Tom has posted slams on
> NT and Win32, or posted his kill-file list that includes anything to
> do with Win32. For him to try and profit from Win32 is a dictionary
> definition of Hypocracy.
Well, it's a shame (for your people) that you feel that way, because the
truth is, it's a damn fine book, and has lots of terrific code samples and
discussions that the Llama and Camel don't. I've certainly benefited from
it, on the occasions where I have had to be a PoB.
_____________________________________________________________________
Steve Linberg | National Center on Adult Literacy
Systems Programmer etc. | University of Pennsylvania
linberg@literacy.upenn.edu | http://www.literacyonline.org
------------------------------
Date: Mon, 02 Mar 1998 05:37:33 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Update another frame from Perl script.
Message-Id: <comdog-ya02408000R0203980537330001@news.panix.com>
Keywords: from just another new york perl hacker
In article <6cs9uc$s8v@camel20.mindspring.com>, "Rick Ryan" <rickryan@datrixnet.com> posted:
>I'm building a messaging system with 2 frames. Frame 1 has a list of message
>headers. When the user clicks a message header I want to run a system
>program (with back ticks), then return the results (message text) to frame
>2. Oh yea, this is under (shudder) NT. Any suggestions?
get rid of NT?
but you probably wanted a suggestion about the frames issues. see
the CGI Meta FAQ, but check the message headers before you ask where it
is.
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
------------------------------
Date: Mon, 02 Mar 1998 09:31:46 -0500
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: Upgrading from Perl 4 to Perl 5 - Differences?
Message-Id: <fl_aggie-0203980931470001@aggie.coaps.fsu.edu>
In article <8cyaytekws.fsf@gadget.cscaper.com>, Randal Schwartz
<merlyn@stonehenge.com> wrote:
+ Or, for those of you that haven't realized that you have ALL the docs
+ RIGHT THERE on your disk... :-)
Someone who hasn't installed perl 5 on their machine probably will have
dead, flea-bitten camel carcass documents on their machine... :)
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/CPAN-local/doc/FAQs/cgi/idiots-guide.html>
------------------------------
Date: Mon, 02 Mar 1998 09:09:46 GMT
From: nick@NOSPAMTHANKSciof.sbcc.net (Nick Tonkin)
Subject: Re: Win32::NetAdmin::UserCreate qn
Message-Id: <34fa724e.141411008@news.silcom.com>
On Mon, 02 Mar 1998 10:02:45 +1300, _Admin <mark@wnmeds.ac.nz> wrote:
Do you mean a local path directory? If so, just use the full path as
the home directory. If you want to map a drive from a workstation to a
directory on the server, don't set a home directory, but then create
one, share it, and connect in the log-in script. At least that's the
only way I've found to do it.
__________________________
#!C:/perl/bin/perl.exe
use Win32;
use Win32::NetAdmin;
use Win32::AdminMisc;
use Win32::NetResource;
&setup();
&create();
sub setup {
$server = "\\\\christine";
$password = "123456";
$password_age = "0";
$privilege = "1";
$home_dir = "E:/users/$uid";
$temp_dir = "E:/temp";
$comment = "A comment";
$flags = "66049";
$script = "login.bat";
$ShareInfo = {
'path' => "$home_dir",
'netname' => "$uid\$",
'remark' => "Home share of $uid",
'passwd' => "",
'current-users' =>0,
'permissions' => 0,
'maxusers' => -1,
'type' => 0,};
$parm;
}
sub create {
Win32::NetAdmin::UserCreate(
$server, $uid, $password, $password_age, $privilege, '',
$comment, $flags, $script)
|| die ("Could not create user ($uid): $!");
## This returns succesful but does not work
Win32::AdminMisc::UserSetMiscAttributes(
$server, $uid, USER_PASSWORD_EXPIRED, 1)
|| die ("Could not set attributes for user ($uid): $!");
mkdir($home_dir,0777)
|| die ("Could not make directory ($home_dir): $!");
Win32::NetResource::NetShareAdd($ShareInfo,$parm)
|| die "Could not add share ($ShareInfo{'$netname'}): $!";
## Assuming your drive is NTFS
my $arb = system("echo y| cacls $home_dir /T /G $uid:F
Administrator:F > $temp_dir/nul")
|| die ("Could not change permissions on ($home_dir): $!");
}
_________________________________
;login.bat
net use H: E/users/%username%$
__________________________________
Hope this helps
Nick
>hi
>
>The documentation on Win32::NetAdmin::UserCreate doesn't seem to include
>an option to assign a drive letter to a user's home directory. Am i
>missing something here?
>
>I am using NT 4.0 by the way.
>
>ta
>Mark
------------------------------
Date: Mon, 02 Mar 1998 22:08:45 +1100
From: malinet@loom.net.au
Subject: wonderful perl can do everything at once!
Message-Id: <34FA933D.F4D643A@loom.net.au>
>Can you have inheratance in Perl? Polimorphism? Objects? Can you write
> operating system tasks eg. multithreading, garbage collection?? Can
you
> write programs to contol specific hardware setups, eg. multi
processors, 3d
> accelerators (open-gl) ? Can you run your programs in a web browser?
Is it
> easy to write large scale projects in perl?
Let me answer your questions one by one. Yes, yes, yes, yes, yes, yes,
yes, yes. These have all been done.
You can embed Perl in Netscape and do all the things on that web page---
the problem is that it depends on people having the right plug-in
for their browser. That'll change.
-Jon Orwant orwant@media.mit.edu
------------------------------
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 2001
**************************************
