[9245] in Perl-Users-Digest
Perl-Users Digest, Issue: 2840 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jun 11 13:17:23 1998
Date: Thu, 11 Jun 98 10:00:35 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 11 Jun 1998 Volume: 8 Number: 2840
Today's topics:
Re: [META] hypersensitivity (was: Re: Command line subs (Michael J Gebis)
Re: [META] hypersensitivity jimbo@soundimages.co.uk
Re: [META] hypersensitivity (Stuart McDow)
ACL handling module for Solaris? (Max Caines)
Re: ascii to hex (Larry Rosler)
Re: Certified Perl Programmers (Tom Harrington)
Re: Certified Perl Programmers <dean@mail.biol.sc.edu>
Re: CFV: comp.lang.perl.moderated moderated (Stuart McDow)
Re: Command line substitution thru subdirectories (Jason Turner)
Re: conditional use statement?? (Larry Rosler)
Error w/ "sprintf" formatting portion of script ?? (rga)
Re: Error w/ "sprintf" formatting portion of script ?? <tkil@scrye.com>
Re: Help with Perl CGI script <rootbeer@teleport.com>
HELP! <awillems@xs4all.nl>
Re: HELP! <gdonohoe@nmp.nokia.com>
Re: HELP! <quednauf@nortel.co.uk>
How do I read a file from someone's web site? <bth@acsu.buffalo.edu>
Re: How do I read a file from someone's web site? <jdf@pobox.com>
Re: How do I read a file from someone's web site? scott@softbase.com
JPL Copyright <npk@bnl.gov>
Re: MODERATION: Time to Vote (Stuart McDow)
Multiple $ENV{PATH} entries on Win NT holgerman@my-dejanews.com
Re: Multiple $ENV{PATH} entries on Win NT (Larry Rosler)
Re: Number of digits in a string droby@copyright.com
OpenGL & Perl <npk@bnl.gov>
Re: Package Question -- How can I circularly include? (Chip Salzenberg)
Performance impact of "require" holgerman@my-dejanews.com
PERL 5.004.04 MP-RAS (OS) <adamsj@tophosting.com>
Perl and Netware and Linux. . .oh my!! <pearse@mail.shebang.net>
Perl Compiler Kit (kmkoh)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 11 Jun 1998 16:42:04 GMT
From: gebis@albrecht.ecn.purdue.edu (Michael J Gebis)
Subject: Re: [META] hypersensitivity (was: Re: Command line substitution thru subdirectories)
Message-Id: <6lp1cs$ls9@mozo.cc.purdue.edu>
gbacon@cs.uah.edu (Greg Bacon) writes:
}In article <6ll0it$l5n@mozo.cc.purdue.edu>,
} gebis@albrecht.ecn.purdue.edu (Michael J Gebis) writes:
}: You know, there was a time when I used to auto-select your posts.
}:
}: *plonk*
}It's really disheartening to see such a high population of
}hypersensitive crybabies in this newsgroup. I'll be glad when the first
}of July has come and gone.
You know, I don't take this thing very lightly. Tom's a very smart
guy--scratch that, he's a dammed genious. His technical writings have
been an immense help to me. The FAQ is the best on the net. When the
perl cookbook comes out, I'll be first in line to buy it. It's
probably not wise to rate the top contributors to the perl community,
but he's obviously _way_ up there, and his value to perl is beyond
question. The knowledge he's shared on this group has helped me time
and time again. He doesn't owe me anything, but my debt to him is
great. By killfilling him, I'm sacrificing more than he (or
anybody) probably will every realize.
But I don't need the bile and hatred.
--
Mike Gebis gebis@ecn.purdue.edu mgebis@eternal.net
------------------------------
Date: 11 Jun 1998 17:34:16 +0100
From: jimbo@soundimages.co.uk
Subject: Re: [META] hypersensitivity
Message-Id: <uk96n28zb.fsf@JIMBOSNTSERVER.i-have-a-misconfigured-system-so-shoot-me>
gbacon@cs.uah.edu (Greg Bacon) writes:
> jimbo@soundimages.co.uk writes:
> : I fear that Perl, if left to the likes
> : of Mr. Bacon, will become (even more than today) a culture of us vs
> : them. The **in the know and are'nt we just the greatest wizards of all
> : time** vs **the rest of us who have heard and want to learn and use
> : Perl but are considered sub human because we hold an OS license from
> : Redmond**.
>
> Have you stopped beating your wife?
>
> Greg
The observation stands. Why all the anguish? Is there something that
prevents so many people from ignoring posts they find unpalatable? Why
bother to read and then to reply if your blood pressure goes up and
your ease with life goes down? With so many posters with such a wide
and sometime conflicting range of experience and/or expertise with not
only Perl but net news norms and behaviours only serves to underline
the need for moderation. In thought, in word, and in deed. One can be
as correct as one can be and still fail to educate. As I said at the
bottom of my previous post, Tom P. is THE model. His tolerance, his
patience AND his capacity to remain civil are superb. I wish you and I
had them.
Jim Brewer
------------------------------
Date: 11 Jun 1998 16:39:04 GMT
From: smcdow@arlut.utexas.edu (Stuart McDow)
Subject: Re: [META] hypersensitivity
Message-Id: <6lp178$oea$1@ns1.arlut.utexas.edu>
jimbo@soundimages.co.uk writes:
>
> *nix had the chance to be the OS of the desktop but chased
> the holy grail of the corporate license revenue gravy train.
You seem to be unaware of the slow, quiet, but wholesale movement of
corporate IS and IT enterprise servers from NT back to unix based
systems.
http://www.kirch.net/unix-nt.html
http://www.aberdeen.com/research/comp/viewpnts/1997/v10n20/97090178.htm
http://www.aberdeen.com/research/comp/onsite/case1/body.htm
At the bottom line, it doesn't make sense to use a buggy and
unreliable OS for mission critical applications.
> So, *nix fans, face up to the facts, your approach and methodology
> is not widespread, not well known and not well understood by the
> largest population of users on the planet.
Oh, please. It's a lot more widespread than you're willing to
admit. As for the largest popluation on the planet, I think that this
has more to do with excellent marketing, monopolistic practices, the
dumbing-down of programming and computer usage in general, and the
proliferation of hand-holding - than it does with technological merit.
Let's not confuse popularity with desirability.
> As was stated earlier in a related post, don't read and/or don't
> respond if you don't like the platform and/or the methodology and/or
> approach that such a platform embodies.
Then let's not have complaints about the perl docs or perl itself
being "unix centric". What's good for the goose...
--
Stuart McDow Applied Research Laboratories
smcdow@arlut.utexas.edu The University of Texas at Austin
"Look for beauty in roughness, unpolishedness"
------------------------------
Date: 11 Jun 1998 16:47:13 GMT
From: in1012@wlv.ac.uk (Max Caines)
Subject: ACL handling module for Solaris?
Message-Id: <6lp1mh$7pu@ccuh.wlv.ac.uk>
I'm looking for a some routines to read and write Solaris access control lists.
I can't find anything on CPAN, but Sun's ACL routines are OS-specific, so it's
not to be of general interest. Anyone know of any?
Thanks
--
+-------------------------------------------------------------------+
| Max Caines | M.B.Caines@WLV.AC.UK |
| Technical Services Manager | JANET: M.B.Caines@UK.AC.WLV |
| Computer Centre | Phone: 01902 322245 |
| Wolverhampton University | Fax: 01902 322777 |
+-------------------------------------------------------------------+
------------------------------
Date: Thu, 11 Jun 1998 07:53:24 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: ascii to hex
Message-Id: <MPG.fe98f2994007f7d9896b8@nntp.hpl.hp.com>
In article <a7nol6.lig.ln@localhost>, tadmc@flash.net says...
> Jason Oakley (waulok@trust-me.com.SPAMLESS) wrote:
> : How do i convert eg. "hello21" into it's hex equiv of each
> : character?
...
> $str = 'hello21';
>
> ### use split() and concatenation
> foreach (split //, $str) {
> $hex .= sprintf "%x", ord($_);
> }
> print "$hex\n";
>
>
> ### use a regex substitution
> $str =~ s/(.)/sprintf "%x", ord($1)/ge;
> print "$str\n";
To avoid ambiguity if there are control characters in the input string,
it might be wise to replace '%x' by '%.2x'. Try, for example,
$str = "\a\aw\a\aw\a\a"; # 7777777777 or 0707770707770707 ?
Or Yet Another Way to Do It (the shortest way?):
### use unpack
$str = unpack 'H*', $str;
print "$str\n";
--
Larry Rosler
Hewlett-Packard Laboratories
lr@hpl.hp.com
------------------------------
Date: 11 Jun 1998 15:48:44 GMT
From: tph@longhorn.uucp (Tom Harrington)
Subject: Re: Certified Perl Programmers
Message-Id: <6lou8s$j6a6@eccws1.dearborn.ford.com>
David Adler (dha@panix.com) wrote:
: On Wed, 10 Jun 1998 22:25:40 GMT, Randal Schwartz <merlyn@stonehenge.com> wrote:
: >>>>>> "Mark-Jason" == Mark-Jason Dominus <mjd@op.net> writes:
: >
: >Mark-Jason> ``Oh, yes. I've been a certified Perl developer since 1997.''
: >
: >I've been a certifiable Perl hacker since, oh, 1989. :-)
: And that's only because perl's not much older than that...
Since when does that make a difference in hiring?
"Required skills: ... at least 5 years experience with Java ...."
--
Tom Harrington --------- tph@rmii.com -------- http://rainbow.rmii.com/~tph
This message was printed on all-new, 100% virgin electrons
Cookie's Revenge: ftp://ftp.rmi.net/pub2/tph/cookie/cookies-revenge.sit.hqx
------------------------------
Date: 10 Jun 1998 11:41:08 -0400
From: Dean Pentcheff <dean@mail.biol.sc.edu>
Subject: Re: Certified Perl Programmers
Message-Id: <m3wwaptgbv.fsf@mail.biol.sc.edu>
mjd@op.net (Mark-Jason Dominus) writes:
> In article <EuAxH7.9p4@news.boeing.com>,
> Charles DeRykus <ced@bcstec.ca.boeing.com> wrote:
> >Perhaps though the Perl Institute could issue a certificate.
> ...
> For my scheme to work, it helps to have as many competing certifynig
> authorities as possible.
Collect 'em, save 'em, get the whole set! Whee! I like this...
[I'm a little disturbed, though, that no one in this thread has flamed
another poster. Aren't we overdue for that?]
-Dean
--
N. Dean Pentcheff <pentcheff@acm.org>
Biological Sciences, Univ. of South Carolina, Columbia SC 29208 (803-777-7068)
------------------------------
Date: 11 Jun 1998 16:16:57 GMT
From: smcdow@arlut.utexas.edu (Stuart McDow)
Subject: Re: CFV: comp.lang.perl.moderated moderated
Message-Id: <6lovtp$j8r$1@ns1.arlut.utexas.edu>
Steffen Beyer <sb@sdm.de> writes:
>
> I am greatly in favour of a moderated Perl newsgroup (I have been waiting
> for it unpatiently for years), but I cannot vote in favour of it as long
> as there is not the slightest hint of at least some democratic control.
Please read all the charters of all the moderated newsgroups in the
Usenet, and tell us which ones democratically elect their moderators.
Welcome to the Usenet.
--
Stuart McDow Applied Research Laboratories
smcdow@arlut.utexas.edu The University of Texas at Austin
"Look for beauty in roughness, unpolishedness"
------------------------------
Date: Thu, 11 Jun 1998 15:25:02 GMT
From: jason.turner@btinternet.com (Jason Turner)
Subject: Re: Command line substitution thru subdirectories
Message-Id: <358beaa5.32493640@news.btinternet.com>
On Tue, 09 Jun 1998 17:11:05 -0400, Bob Roklan posted
<357DA4E9.DA495FD6@code80.npt.nuwc.navy.mil>:
> I am running Perl 5.003 on Windows 95.
<...>
> perl -i.old -p -e "s/foo/bar/g" *.htm
>
>but how can I tell perl to do the same for a specified directory and
>down?
Hi Bob, you're a military man. How would the A-Team do it?
Jason, who finds the analogy rather amusing.
Hanibal: "Mr. T, we've dropped into a war zone, what's in the barn ?"
C>ver
Windows 95. [Version 4.00.950]
C>bash
Bad command or file name
Mr. T: "Only found rusty tools and a broken pipe" <grump>
Hanibal: "Face, checkout under that dust cloth"
C>perl -v
This is perl, version 5.004_02
Face: "The oxy-acetylene welding kit, as usual" <grin>
C>start /m mplayer /play /close d:\music\themes\A-Team.mid
C>dir /s /b *.htm > f.tmp
Murdock: "\But what\of the\space mines ?"
"\The space\mines are\everywhere"
Mr T: "Shuddup fool!"
C>xcopy *.htm c:\ /S /L /N > t.tmp
C>find "HTM" < t.tmp > f.tmp
C>perl -pe "$_='perl -i.moo -pe \"s/foo/bar/g\" '.$_" f.tmp>doit.bat
C>doit
C>start /m sndrec32 /play /close c:\windows\media\tada.wav
Face: "I think the work in this thread is now done"
Hanibal: "I love it when a plan comes together" :)
------------------------------
Date: Thu, 11 Jun 1998 08:01:26 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: conditional use statement??
Message-Id: <MPG.fe99122d93a50e29896b9@nntp.hpl.hp.com>
In article <01bd9547$0c7a7310$d53ec69b@leicester>, jwilson@ic.ac.uk
says...
> The values in the %ENV hash can be used.
> --
> .
>
> Jeff Wilson
> London - UK
>
> Craig M. Votava <craig@lucent.com> wrote in article
> <357F05F7.6231@lucent.com>...
> > Folks-
> >
> > I want to write a single perl script that will
> > detect what OS it is running under, so it can
> > use the system call to launch a command
> > if on a unix machine, or the Win32::Process
> > stuff if on a windows based machine.
Can you be more specific -- which values in %ENV, Windows NT vs Windows
95, etc.?
--
Larry Rosler
Hewlett-Packard Laboratories
lr@hpl.hp.com
------------------------------
Date: Thu, 11 Jun 1998 15:05:05 GMT
From: rga@io.com (rga)
Subject: Error w/ "sprintf" formatting portion of script ??
Message-Id: <357ff036.7031008@news.io.com>
Any ideas on why some servers won't process this portion
of a CGI script that runs fine on most platforms ..
========= HERE's THE SCRIPT PORTION
# sub total quantities greater than 1
if ($quantity > 1) {
$sub_price = ($quantity * $price);
$sub_price = sprintf "%.2f", $sub_price;
1 while $sub_price =~ s/(\d)(\d\d\d)(?!\d)/$1,$2/;
$price = ($quantity * $price);
}
======= HERE'S THE SERVER ERROR
<filename> failed for 129.37.53.156,
reason: malformed header from script
syntax error in file <filename> at
line 191, next 2 tokens "sprintf "%.2f""
/(\d)(\d\d\d)(?!\d)/: ?+* follows nothing in regexp at
<filename>i line 192.
======== HERE'S RUNNING PERL -C
This is what I get running perl -c on both scripts:
{2} % perl -c order_count.pl
syntax error in file order_count.pl at line 191, next 2 tokens
"sprintf
"%.2f""
/(\d)(\d\d\d)(?!\d)/: ?+* follows nothing in regexp at order_count.pl
line 192.
{3} % perl -c order_final.pl
syntax error in file order_final.pl at line 246, next 2 tokens
"sprintf
"%.2f""
/(\d)(\d\d\d)(?!\d)/: ?+* follows nothing in regexp at order_final.pl
line 247.
Please email any ideas .
Thanks MUCHO !!
------------------------------
Date: 11 Jun 1998 10:16:21 -0600
From: Tkil <tkil@scrye.com>
Subject: Re: Error w/ "sprintf" formatting portion of script ??
Message-Id: <gpvgfhq22.fsf@scrye.com>
[posted and cc'd to cited author]
>>>>> "rga" == rga <rga@io.com> writes:
rga> Any ideas on why some servers won't process this portion
rga> of a CGI script that runs fine on most platforms ..
do a "perl -v" on this platform and on the platforms where this code
works, and you will hopefully be enlightened.
t.
p.s. if it's a BSDish system, you might try using "perl5" instead of
"perl"; until recently, some systems were still shipping perl4 as
the default "perl".
--
Tkil * <URL: http://www.scrye.com/~tkil> * hopelessly hopeless romantic.
"So amplify this little one | She hears as much as she can see
She's a volume freak | And what she sees, she can't believe."
-- Catherine Wheel, _Happy Days_, "Judy Staring At The Sun"
------------------------------
Date: Thu, 11 Jun 1998 16:09:50 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Help with Perl CGI script
Message-Id: <Pine.GSO.3.96.980611090627.5401f-100000@user2.teleport.com>
On Thu, 11 Jun 1998, Jason Bodine wrote:
> Subject: Help with Perl CGI script
Please check out this helpful information on choosing good subject
lines. It will be a big help to you in making it more likely that your
requests will be answered.
http://www.perl.com/CPAN/authors/Dean_Roehrich/subjects.post
> Can someone please tell me what perl code to use that will allow a
> script to CC: and BCC: copies of form data?
It sounds as if you want to send mail from your Perl script. There is
something in section nine of the FAQ about this. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 11 Jun 1998 15:23:10 GMT
From: "A. Willems" <awillems@xs4all.nl>
Subject: HELP!
Message-Id: <01bd954c$997e8260$87826dc2@applicatie>
If somebody has some perl-scripts or some description how perl works please
send it to:
vinlud@vinlud.demon.nl
Thanks!
V. Ludden
------------------------------
Date: Thu, 11 Jun 1998 16:42:32 +0100
From: Graham Donohoe <gdonohoe@nmp.nokia.com>
Subject: Re: HELP!
Message-Id: <357FFAE8.746D@nmp.nokia.com>
A. Willems wrote:
>
> If somebody has some perl-scripts or some description how perl works please
> send it to:
>
> vinlud@vinlud.demon.nl
>
> Thanks!
>
> V. Ludden
I have plenty of perl scripts.
Sorry, I don't know how perl works, I think it is some kind of magical
interaction between some things in my computer.
Alternatively, you could try finding out for yourself. It may mean you
might actually learn something.
www.perl.com
There, you could almost have guessed it yourself.....
------------------------------
Date: Thu, 11 Jun 1998 16:54:04 +0100
From: "F.Quednau" <quednauf@nortel.co.uk>
To: vinlud@vinlud.demon.nl
Subject: Re: HELP!
Message-Id: <357FFD9C.C063E26C@nortel.co.uk>
A. Willems wrote:
>
> If somebody has some perl-scripts or some description how perl works please
> send it to:
>
> vinlud@vinlud.demon.nl
>
> Thanks!
>
> V. Ludden
HARHAR! Have you actually tried the obvious? www.perl.com, perl.org, CPAN,
altavista, infoseek? cgi-resources.com ? my webpage ?)
--
____________________________________________________________
Frank Quednau
http://www.surrey.ac.uk/~me51fq
________________________________________________
------------------------------
Date: Thu, 11 Jun 1998 10:55:45 -0400
From: Bryan T Hoch <bth@acsu.buffalo.edu>
Subject: How do I read a file from someone's web site?
Message-Id: <Pine.GSO.3.96.980611104931.10086A-100000@callisto.acsu.buffalo.edu>
Hi,
I wanted to know how to have a cgi file open a remote connection
to someone's web address (http://whatever.com) and then read in what the
file says to a $variable_string. It will be a long variable string I
realize.
Does anyone know how to do this?
Thanks.
Bryan H
------------------------------
Date: 11 Jun 1998 11:47:21 -0500
From: Jonathan Feinberg <jdf@pobox.com>
To: Bryan T Hoch <bth@acsu.buffalo.edu>
Subject: Re: How do I read a file from someone's web site?
Message-Id: <1zsvopgm.fsf@mailhost.panix.com>
Bryan T Hoch <bth@acsu.buffalo.edu> writes:
> I wanted to know how to have a cgi file open a remote connection
> to someone's web address (http://whatever.com) and then read in what the
> file says to a $variable_string. It will be a long variable string I
> realize.
use LWP::Simple;
my $html = get('http://pobox.com/~jdf/');
print $html;
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf/
------------------------------
Date: 11 Jun 1998 14:23:26 GMT
From: scott@softbase.com
Subject: Re: How do I read a file from someone's web site?
Message-Id: <6lop8u$3j6$1@mainsrv.main.nc.us>
Bryan T Hoch (bth@acsu.buffalo.edu) wrote:
> I wanted to know how to have a cgi file open a remote connection
> to someone's web address (http://whatever.com) and then read in what the
> file says to a $variable_string. It will be a long variable string I
> realize.
> Does anyone know how to do this?
See attached. This puts the URL into an array, so you'll have
to use join to get a string. No big deal.
Scott
--
Look at Softbase Systems' client/server tools, www.softbase.com
Check out the Essential 97 package for Windows 95 www.skwc.com/essent
All my other cool web pages are available from that site too!
My demo tape, artwork, poetry, The Windows 95 Book FAQ, and more.
# Usage: @junk = graburl("www.tonyrobbins.com", "/giant.html");
sub graburl {
my ($host, $file) = @_;
my ($remote, # the name of the SMTP server
$port, # the mail port
$iaddr, $paddr, $proto, $line); # these vars used internally
$remote = $host;
$port = 80;
$iaddr = inet_aton($remote) || die "no host: $remote";
$paddr = sockaddr_in($port, $iaddr);
$proto = getprotobyname('tcp');
select(SOCK);
$| = 1;
socket(SOCK, PF_INET, SOCK_STREAM, $proto) || die "socket: $!";
connect(SOCK, $paddr) || die "connect: $!";
select(STDOUT);
print SOCK "GET $file HTTP/1.0\n";
print SOCK "Accept: */*\n";
print SOCK "\n";
sleep(5);
@x = <SOCK>;
close (SOCK) || die "close: $!";
return @x;
}
------------------------------
Date: Thu, 11 Jun 1998 15:41:17 +0000
From: Nicholas Konidaris <npk@bnl.gov>
Subject: JPL Copyright
Message-Id: <357FFA9D.8B07E570@bnl.gov>
Hi,
JPL which came with the Perl Resource Kit seems like a good option to
me, however, I don't know what the copyright is on it?
If someone could tell me, I'd appreciate it!
nick
------------------------------
Date: 11 Jun 1998 16:19:20 GMT
From: smcdow@arlut.utexas.edu (Stuart McDow)
Subject: Re: MODERATION: Time to Vote
Message-Id: <6lp028$js5$1@ns1.arlut.utexas.edu>
stanley@skyking.OCE.ORST.EDU (John Stanley) writes:
>
> Gosh, 57 lines, including quotes and headers. What invective. But Tom
> has no interest in keeping the discussion civil.
Take it to news.groups, please.
--
Stuart McDow Applied Research Laboratories
smcdow@arlut.utexas.edu The University of Texas at Austin
"Look for beauty in roughness, unpolishedness"
------------------------------
Date: Thu, 11 Jun 1998 14:48:37 GMT
From: holgerman@my-dejanews.com
Subject: Multiple $ENV{PATH} entries on Win NT
Message-Id: <6loqo5$jsc$1@nnrp1.dejanews.com>
I am trying to set an explicit $ENV{PATH} at the beginning of my Perl CGI
scripts for security reasons. Under UNIX, I would set something like
$ENV{PATH} = '/usr/bin:/bin:/usr/sbin';
Every path entry was seperated by a colon and that was it. Under NT, I need to
set something like
$ENV{PATH} = 'c:/system32/winnt';
Unfortunately, Perl on Win seems to now treat the colon as part of the path,
not as a seperator.
Anybody knows how to add more than one? I am on NT Server 4.0, using
ActiveWare's Perl for Windows, Build 315.
Thanks & regards,
Bjoern
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Thu, 11 Jun 1998 08:13:26 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Multiple $ENV{PATH} entries on Win NT
Message-Id: <MPG.fe993ee9cd30cac9896ba@nntp.hpl.hp.com>
In article <6loqo5$jsc$1@nnrp1.dejanews.com>, holgerman@my-dejanews.com
says...
> I am trying to set an explicit $ENV{PATH} at the beginning of my Perl CGI
> scripts for security reasons. Under UNIX, I would set something like
>
> $ENV{PATH} = '/usr/bin:/bin:/usr/sbin';
>
> Every path entry was seperated by a colon and that was it. Under NT, I need to
> set something like
>
> $ENV{PATH} = 'c:/system32/winnt';
>
> Unfortunately, Perl on Win seems to now treat the colon as part of the path,
> not as a seperator.
>
> Anybody knows how to add more than one? I am on NT Server 4.0, using
> ActiveWare's Perl for Windows, Build 315.
Use semicolon. Surprise!!!
--
Larry Rosler
Hewlett-Packard Laboratories
lr@hpl.hp.com
------------------------------
Date: Thu, 11 Jun 1998 15:48:24 GMT
From: droby@copyright.com
Subject: Re: Number of digits in a string
Message-Id: <6lou88$o93$1@nnrp1.dejanews.com>
>
> Not to be pedantic, but....
>
Well, if you want pedantry...
> All integers, when displayed in base 10 consist of nothing but digits.
>
> >It wasn't about a string 6 digits long.
>
> Exactly. It was about a number, not a string.
>
> >Numbers typed in by users can have commas in them.
>
> Then they are strings that represent numbers, not numbers.
>
They're strings representing numbers with or without the commas or other
separators, and whether they're in base 10, 16, 36, 2 or RAD50.
If you want real pedantry, even an integer, byte, long, float, double or
whatever is still not really a number, but simply a bitstring representing
one. A number is much more abstract.
--
Don Roby
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Thu, 11 Jun 1998 15:40:26 +0000
From: Nicholas Konidaris <npk@bnl.gov>
Subject: OpenGL & Perl
Message-Id: <357FFA6A.7A6A3946@bnl.gov>
Hi folks,
Anyone have much success with the perl OpenGL library? The author seems
to have dissapeared unfortunatly, and I can not get it to compile with
Mesa.
Basically, the include files keep screwing up.
Thanks
nick
------------------------------
Date: Thu, 11 Jun 1998 16:41:08 GMT
From: chip@mail.atlantic.net (Chip Salzenberg)
Subject: Re: Package Question -- How can I circularly include?
Message-Id: <6lp1e2$28i$1@cyprus.atlantic.net>
According to "John Bokma" <john@castleamber.com>:
>F.Quednau <quednauf@nortel.co.uk> wrote:
>> Nicholas Konidaris wrote:
>> > What am I doing wrong?
>>
>> You should possibly have a look in the inheritance section of the
>> perltoot pages.
>
>Or scratch your head and kick the computer :-)
>(Same quality of reply)
The former leads to enlightenment, the latter to property damage.
--
Chip Salzenberg - a.k.a. - <chip@pobox.com>
"I brought the atom bomb. I think it's a good time to use it." //MST3K
-> Ask me about Perl training and consulting <-
Like Perl? Want to help out? The Perl Institute: www.perl.org
------------------------------
Date: Thu, 11 Jun 1998 14:59:24 GMT
From: holgerman@my-dejanews.com
Subject: Performance impact of "require"
Message-Id: <6lorcc$knf$1@nnrp1.dejanews.com>
To keep my code more managable, I group my subroutines in library files that
I require at the beginning of the script (up to 15 files). I was wondering
though what the performance impact on the script is as every external call
(open, system, stat etc.) will negatively influence performance of the script
(at least that's what I heard...).
Is there any rule of thumb to apply in this case (e.g. 'Do not require more
than 20 files.')? Should I consolidate them into fewer files?
Any advise greatly appreciated,
regards,
Bjoern
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Thu, 11 Jun 1998 11:05:21 -0400
From: "J.Adams" <adamsj@tophosting.com>
Subject: PERL 5.004.04 MP-RAS (OS)
Message-Id: <357FF230.65067395@tophosting.com>
ok I need help with this...
We are running a UNIX NetScape Commerce Server...
i wrote a very simple PERL script...with a .cgi extension to test out
PERL(we are running 5.004.04) when i rean the script from the command
line everything was fine. Then I called it from the browser andf it
gave me a server error. we had this problem before with other scripts
that ran on an Apache Server...when used on this Commerce Server running
MP RAS operating system the scripts refuse to work..in or out of the cgi
bin with pl or cgi extensions..and just about every different
configuration you could think of....if anyone can help me with this
problem p[lease email me
jadams@tophosting.com
thank you
oh yeah this is the script:
!#/usr/bin/perl
print "Content-type: text/html\n\n";
print " HELLO ";
------------------------------
Date: Thu, 11 Jun 1998 11:09:53 -0500
From: Robert Eric Pearse <pearse@mail.shebang.net>
Subject: Perl and Netware and Linux. . .oh my!!
Message-Id: <35800151.892C8A8C@mail.shebang.net>
Hey all,
I've got what I "think" is a unique problem. . .
Problem: There is constant stream of doc's piling up on a Netware
networked drive. I need to put them on a colocated Linux web server.
Also, there is an Access 2.0 database sitting on the same drive that
contains data about the docs. (I know, I know. . .but the office is
still using Win3.X. . .my hands are tied!)
Here's what I need done:
1) Move the docs to the web server.
2) Grab the data in the Access database and shoot it over to a new
database on the Linux box
3) Fix existing code to access the database for the docs and data
instead of hunting in an ASCII file and some directories
Yes, a job for Perl. No problem. Using Win32::ODBC to access the data.
And 'readdir'ing my way all around that drive. (just getting silly with
it. . .it is fun language).
Here comes the Netware stuff (we're using it for printing and file
sharing.) My Wintel box is acting as a "go between" between the network
drive and the database. It just seems easier to format my hd and install
Linux. (I'm prone to rash decisions. . .) But, how do I access the LAN.
There must be someway to tie a Linux box into a Netware LAN to access
printers, files, and that Access database.
So, I think it breaks down to two problems:
1) How do I get access to printers and files on a Netware LAN from a
Linux box?
2) How do access the Access database from Linux using Perl?
>From what little I know about ODBC, I gather that I need a DSN to Access
the data. Can I put one on the Linux box? Also, I looked at a HOWTO on
setting up an Intranet for Netware, etc. clients but I'm the client. It
didn't help much.
Cheers,
Robert
------------------------------
Date: Thu, 11 Jun 1998 15:29:30 GMT
From: kmkoh@pc.jaring.my (kmkoh)
Subject: Perl Compiler Kit
Message-Id: <6lota8$hs@news2.jaring.my>
Tried to compile a script using "dbmopen" function.
No errors during compilation, but the resulting binary spit
out an error message saying "No dbm on this machine".
Try to convert to use "tie" function and "use NBDM_File;"
but not much success. Again no errors during compilation,
but the resulting binary spit out this message:
Can't locate object method "TIEHASH" via package "NDBM_File"
help...
------------------------------
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 2840
**************************************
