[8629] in Perl-Users-Digest
Perl-Users Digest, Issue: 2246 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Apr 4 01:07:31 1998
Date: Fri, 3 Apr 98 22:00:28 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 3 Apr 1998 Volume: 8 Number: 2246
Today's topics:
AIX Dynaloader Success store0@hotmail.com
Re: Anon Scalar Expression (was: Evaluate expression in <rootbeer@teleport.com>
Re: contexts: is there such a thing as array? (Chip Salzenberg)
Re: DBI & suidperl causes core dump <rootbeer@teleport.com>
Dummy question <ipc@kiva.net>
Re: Dummy question (Jim Michael)
Re: Dummy question nospam@domain.com
Re: File Uploading... <lr@hpl.hp.com>
Re: foreach loop & current element index <dformosa@st.nepean.uws.edu.au>
Re: How do I strip newlines from a var (John Moreno)
Re: how to count a list of comma sep. items (John Moreno)
Re: internationalisation of MacPerl (Georg Bauer)
Re: Is there a "Newsgroup" for Newbies to Perl? (Chip Salzenberg)
Newbie needs NT Help <telowery@bellsouth.net>
Obfusticator <tory1@mail.idt.net>
Re: Obfusticator (I R A Aggie)
Re: outputing dir to html page <rootbeer@teleport.com>
Re: Ping <slreid@micron.net>
Re: Random numbers (Perl fails this test) (Excession)
Running a CGISite! <hobbezz@hotmail.com>
Script Headers <-nospam-thumperz@deltanet.com>
Re: SIGINT ? (Ilya Zakharevich)
Re: SIGINT ? (Stephen O. Lidie)
Re: Someone put my munged e-mail address on a spam list <dformosa@st.nepean.uws.edu.au>
Re: Someone put my munged e-mail address on a spam list (John Stanley)
Re: SUID perl? <eugene@vertical.net>
Re: unpack vs. substr (was Re: Data Structure for Input (Jeffrey Drumm)
use e-mail in perl script in NT slnlz@cc.usu.edu
Re: use strict and GD <rootbeer@teleport.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 03 Apr 1998 21:20:59 -0600
From: store0@hotmail.com
Subject: AIX Dynaloader Success
Message-Id: <6g48ur$c8n$1@nnrp1.dejanews.com>
After many years of assuming there was no way to get Perl compiled on AIX
with dynamic loading enabled, I tried it again recently and managed to
get it to work. In the hope that someone else out there finds this
useful, I'll let you know what I did. I'm using GNU C (gcc) 2.8.1 on AIX
4.1.4 on a PowerPC 601 system. This is also using GNU make 3.75.
There are two problems I found:
1) The "cc" variable is not passed to the aix hints shell script
(./hints/aix.sh) so it can't tell I'm using gcc. I changed this script
and added this to the top:
cc='gcc'
This also got rid of that nasty "-qmaxmem=8192" error message some of
you may be all-too-familiar with.
2) I'm using the GNU linker, which didn't seem to work for perl. This
led to adding another line to the aix.sh script:
ld='/usr/ccs/bin/ld'
NOTE: Changing the LD environment variable before running "Configure" didn't
work.
After I made these two changes, perl 5.004_04 magically compiled:
$ ./Configure -d
$ make
$ make test
(everything "ok" or "not supported on this platform")
Good luck, AIX/gcc folks!
-- Steve Bonds
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Fri, 3 Apr 1998 21:49:44 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: Bart Lateur <bart.mediamind@tornado.be>
Subject: Re: Anon Scalar Expression (was: Evaluate expression inside print "")
Message-Id: <Pine.GSO.3.96.980403214829.1988J-100000@user2.teleport.com>
On Fri, 3 Apr 1998, Bart Lateur wrote:
> Kevin Reid wrote:
>
> >\($x,$y,$z) is equivalent to (\$x,\$y,\$z).
>
> But apparently, only in a list context.
>
> In a scalar context, it returns a SCALAR ref, and the comma's are
> interpreted as the comma operator.
Oddly enough, that's what (\$x, \$y, \$z) does in a scalar context. So,
even if it's not what you wanted, it's consistent!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sat, 04 Apr 1998 00:38:55 GMT
From: chip@mail.atlantic.net (Chip Salzenberg)
Subject: Re: contexts: is there such a thing as array?
Message-Id: <6g3vi9$27e$1@cyprus.atlantic.net>
According to Dan Boorstein <dboorstein@shopcfn.com>:
>Spider's example of a hash slice does indeed return a list, the
>last element of which is assigned to $a.
No. A hash slice in a scalar context cannot ever, ever, EVER be said
to "return" anything BUT a scalar. That scalar does happen to be the
one denoted by the last specified subscript. But to imagine that the
slice (1) returns a list and then (2) that list is somehow evaluated
in a scalar context, is WRONG WRONG WRONG.
Sorry for the emphasis, but you must believe me, and so must readers.
--
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: Fri, 3 Apr 1998 21:23:51 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: Igor Chunikhin aka Stormbringer <igor@news.kharkov.ua>
Subject: Re: DBI & suidperl causes core dump
Message-Id: <Pine.GSO.3.96.980403212312.1988H-100000@user2.teleport.com>
On 2 Apr 1998, Igor Chunikhin aka Stormbringer wrote:
> I trying to use DBI library with suidperl and getting core dump in Perl_form
> function. Meanwhile, non-suid perl plus DBI works fine.
If you can cook up a short test case that demonstrates the bug with
5.004_04, please run perlbug to submit this bug report. Thanks!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Fri, 3 Apr 1998 21:43:48 -0500
From: "Lobsang" <ipc@kiva.net>
Subject: Dummy question
Message-Id: <6g46la$hc1$1@topsy.kiva.net>
I have just begun learning Perl-Win32 (using Perl5 for Dummies). Because of
my inexperience, I often get tons of error messages in the DOS window.
There are so many they run off the screen, and I never have a chance to see
the beginning. Is there any way to view the error messages page by page in
DOS?
Thank you in advance.
------------------------------
Date: Sat, 4 Apr 1998 03:21:01 GMT
From: genepool@netcom.com (Jim Michael)
Subject: Re: Dummy question
Message-Id: <genepoolEqvDB2.1xv@netcom.com>
Lobsang (ipc@kiva.net) wrote:
: I have just begun learning Perl-Win32 (using Perl5 for Dummies). Because of
: my inexperience, I often get tons of error messages in the DOS window.
: There are so many they run off the screen, and I never have a chance to see
: the beginning. Is there any way to view the error messages page by page in
: DOS?
Perhaps redirect the error messages to a file so you can read them with
your morning coffee:
perl mybadscript.pl myarg1 myargetc > mybreakfeastreading.txt
------------------------------
Date: 4 Apr 1998 03:51:06 GMT
From: nospam@domain.com
Subject: Re: Dummy question
Message-Id: <6g4ana$a6l$1@picasso.op.net>
Lobsang (ipc@kiva.net) wrote:
: I have just begun learning Perl-Win32 (using Perl5 for Dummies). Because of
: my inexperience, I often get tons of error messages in the DOS window.
: There are so many they run off the screen, and I never have a chance to see
: the beginning. Is there any way to view the error messages page by page in
: DOS?
Open up the Control Panel, and adjust the properties for
the "Console". ("Console" is for NT, I forget what the
corresponding control panel is in Win95.) You can set
the screen buffer size to something like 500. This will
let you scroll back up and view the previous 500 lines.
--
##--------------------------------
## John Nolan
## jpn acm org
##--------------------------------
------------------------------
Date: Fri, 03 Apr 1998 17:42:54 -0800
From: Larry Rosler <lr@hpl.hp.com>
To: Darryl Blackburn <dblackbu@runet.edu>
Subject: Re: File Uploading...
Message-Id: <3525901E.7E4934CB@hpl.hp.com>
Darryl Blackburn wrote:
>
> I wrote a perl script that allows users to upload a binary
> file to the server. I did this on a unix box, however
> I've been trying to port it to a 95 machine without success.
>
> On the unix side, the file information comes in through stdin,
> on the dos side, only a few bytes of data are passed in in this
> manner. Anyone else ever have this problem? Does win95 pass
> data around in some other manner??
>
> Thanks,
> --
> ------------------
> ------------------
> Darryl Blackburn
> Radford University
Try using the function "binmode FH" after opening the file.
This will eliminate bogus handling of new-line characters.
Another possible problem involves characters that are interpreted as
end-of-file. If this is the case, you may have to encode and decode the
file.
Larry Rosler
Hewlett-Packard Laboratories
lr@hpl.hp.com
------------------------------
Date: 4 Apr 1998 04:09:13 GMT
From: ? the platypus {aka David Formosa} <dformosa@st.nepean.uws.edu.au>
Subject: Re: foreach loop & current element index
Message-Id: <891662953.954906@cabal>
In <Pine.SGI.3.95.980402102433.27534A-100000@vangogh.bergen.org> Jeff Pinyan <jefpin@bergen.org> writes:
[...]
>This question simultaneously came up in the #perl channel on EFnet.
>Currently, there are _no more_ puncuation variables left
What about all the $^ ones, have these combernations been used up?
--
I'm a perl programer if you need perl programing hire me. Buy easter bilbies.
Please excuse my spelling as I suffer from agraphia see the url. Support NoCeM
http://www.cit.nepean.uws.edu.au/~dformosa/Spelling.html http://www.cm.org/
I'm sorry but I just don't consider 'because its yucky' a convincing argument
------------------------------
Date: Sat, 04 Apr 1998 04:48:12 GMT
From: phenix@interpath.com (John Moreno)
Subject: Re: How do I strip newlines from a var
Message-Id: <1d6xmpk.v6rbvq1pij8o8N@roxboro0-004.dyn.interpath.net>
Abigail <abigail@fnx.com> wrote:
> Bryan Sapot (bsapot@office1.gundaker.com) wrote:
> ++ how can i strip new lines out at var.
> ++
>
> Removing new lines is very tricky, as the manual tells you so.
> Ignore the complicated things in the manual, and put in this
> neat little trick:
>
> $var=join+q,,,grep{ord${qq$\137$}<10 or+10<ord}split+q,,,$var;
>
> If you're old enough not to read the manual, you won't have a
> problem understanding the above line.
Dear Abby, (sorry if the Abby is offensive - I just can't bring my self
to pass it up)
This seems to work with
$var="jack\12";
but NOT with
$var="jack\15";
Of course I only have the slightest idea of what's happening, so don't
mind me.
--
John Moreno
I am trying to convince the author of YA-NewsWatcher that the latest
version should be released to the public. He doesn't think there's much
interest in a new version. Help me prove him wrong. To do so, send me
mail <mailto:phenix@interpath.com> with a Subject of New YA. Comments
on what you like/dislike in the current version will be appreciated.
------------------------------
Date: Sat, 04 Apr 1998 04:48:22 GMT
From: phenix@interpath.com (John Moreno)
Subject: Re: how to count a list of comma sep. items
Message-Id: <1d6xo5i.ue341yyvtu2oN@roxboro0-004.dyn.interpath.net>
Tony Reeves <areeves1@csc.com> wrote:
> I have a list of items that looks like this:
>
> item, item1, item2, item3, item4
>
> The list can be from one to 10.
>
> I know I can use split to put them into separate variables, but how do I
> know how may I got? is there a easy way to count the number of items then
> store them in a assoc array?
Yes there is, but the exact method depends upon the format.
Can you ever have something like "item, item1, ,item3"? Or is it only
one item per comma - look in perlop for s/PATTERN/REPLACEMENT/. That'll
tell you all you need.
--
John Moreno
I am trying to convince the author of YA-NewsWatcher that the latest
version should be released to the public. He doesn't think there's much
interest in a new version. Help me prove him wrong. To do so, send me
mail <mailto:phenix@interpath.com> with a Subject of New YA. Comments
on what you like/dislike in the current version will be appreciated.
------------------------------
Date: Fri, 3 Apr 1998 21:56:22 GMT
From: gb@hugo.westfalen.de (Georg Bauer)
Subject: Re: internationalisation of MacPerl
Message-Id: <gb-0304982356220001@hugo.westfalen.de>
In article <86yaxmoh8w.fsf@gwaihir.ethz.ch>, Matthias Neeracher
<neeri@iis.ee.ethz.ch> wrote:
>> BTW, would it be easier to cope with international text using Python?
>Sigh... you're breaking my heart. Ask Jack Jansen, he probably knows.
If I were really evel, I would point out that the newest TCL (8.1) has
support for international character sets and Unicode. But then, mentioning
TCL in this newsfroup would be really bad. So, of course, I don't do that.
Ups. I'm so sorry ... ;-)
bye, Georg
--
#!/usr/bin/perl -0777pi
s/TS:.*?\0/$_=$&;y,a-z, ,;s, $,true,gm;s, 512,2048,;$_/es
------------------------------
Date: Sat, 04 Apr 1998 00:33:51 GMT
From: chip@mail.atlantic.net (Chip Salzenberg)
Subject: Re: Is there a "Newsgroup" for Newbies to Perl?
Message-Id: <6g3v8p$26q$1@cyprus.atlantic.net>
According to Lloyd Zusman <ljz@asfast.com>:
>So perhaps we should rename comp.lang.perl.misc to something like
>comp.lang.perl.we-are-pretending-to-be-a-university
You miss the point. All newsgroups must be like this, because the
supply of ignorance (no insult intended here) always exceeds the
supply of volunteer expertise. Instructional forums are broken if
they don't optimize for multiplying the force of instruction.
The only alternative to a university model is a mob with a gradually
falling collective expertise.
--
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: Sat, 04 Apr 1998 04:03:50 GMT
From: Edward Lowery <telowery@bellsouth.net>
Subject: Newbie needs NT Help
Message-Id: <3525B18C.D7CF3846@bellsouth.net>
I've written Perl script for Unix and I need to run it from NT. I've
downloaded the
ActiveState Perl32 program and installed it, but can't get my webbrowser
to do anything.
Any ideas? I'm doing this on WIN 95. I'm also trying this on IIS.
Ed Lowery
------------------------------
Date: Fri, 03 Apr 1998 22:05:39 -0800
From: tory1 <tory1@mail.idt.net>
Subject: Obfusticator
Message-Id: <3525CDB2.B45589D6@mail.idt.net>
Hi All,
I have some perl programs I would like to distribute but
I would like the perl code to be "hidden". It strikes me
that
a "random" obfusticator would shroud the code sufficiently.
Does anyone know of any code I could use to effectively
use for this purpose.
Thanks in Advance,
Jim
------------------------------
Date: Fri, 03 Apr 1998 23:58:55 -0500
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: Obfusticator
Message-Id: <fl_aggie-0304982358550001@aggie.coaps.fsu.edu>
In article <3525CDB2.B45589D6@mail.idt.net>, ddss@usa.net wrote:
+ Hi All,
+ I have some perl programs I would like to distribute but
+ I would like the perl code to be "hidden". It strikes me
+ that
+ a "random" obfusticator would shroud the code sufficiently.
Here's something I said a long time ago, in a newsgroup far, far
away from here:
The rich culture in the Perl community exists because everything is in
the open. Perl is more than _just_ a programming language, and far
more than the sum of its parts. Hiding code just goes against that
culture.
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: Fri, 3 Apr 1998 21:21:56 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: Mike Lai <mclai@binnie.demon.co.uk>
Subject: Re: outputing dir to html page
Message-Id: <Pine.GSO.3.96.980403212135.1988G-100000@user2.teleport.com>
On Thu, 2 Apr 1998, Mike Lai wrote:
> The code below runs on the command line (i.e in a command box) but not
> from an URL in Netscape.
When you're having trouble with a CGI program in Perl, you should first
look at the please-don't-be-offended-by-the-name Idiot's Guide to solving
such problems. It's available on CPAN.
http://www.perl.com/CPAN/
http://www.perl.org/CPAN/
http://www.perl.org/CPAN/doc/FAQs/cgi/idiots-guide.html
http://www.perl.org/CPAN/doc/manual/html/pod/
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Fri, 3 Apr 1998 22:14:48 -0700
From: "Steven L Reid" <slreid@micron.net>
Subject: Re: Ping
Message-Id: <6g4fh7$b5i$1@news01.micron.net>
Calle Dybedahl wrote in message ...
>> But it uses the TCP echo port which isn't the *real* ping. And since
>> many (most?) sysadmin disable this service in their host for security
>> reason (I strongly recommend anyone to do this), Net::Ping is almost
>> unusable.
>
>You haven't looked at it for a long time, have you? The way Net::Ping
>looks today (and, as far as I remember, looked like a year ago) you
>get to chose if you want to send TCP, UDP or ICMP packets.
Humm, seems my version of Net::Ping negleted that feature? My latest build
(which isn't more than a couple months old) still says TCP? I'd still like
to hear an answer though. The I hate having to use the system command (and
it's inherit slowness) to ping hosts!
Steven Reid
goldfinger69@geocites.com
------------------------------
Date: Sat, 04 Apr 1998 05:18:38 GMT
From: daclay@NOSPAMzip.com.au (Excession)
Subject: Re: Random numbers (Perl fails this test)
Message-Id: <3525c1df.3832643@news.zip.com.au>
On 3 Apr 1998 15:11:53 -0800, rokicki@cello.hpl.hp.com (Tom Rokicki) wrote:
>Perl's random numbers (from rand()) are atrocious---almost useless.
>They just aren't very random.
Try this:
$s1 = time();
$m=2147483647;
$q=127773;
$a=16807;
$r=2836;
for(1..100){print &r()};
sub r{
$h=$s1/$q;$l=$s1%$q;$t=$a*$l-$r*$h;if($t>0){$s1=$t}else{$s1=$t+$m}
}
---
David Andrew Clayton # Please remove NO_SPAM when
dac@NOSPAM.pcug.org.au # sending email replies.
I post therefore I am. #
------------------------------
Date: Sat, 04 Apr 1998 00:36:59 -0500
From: TheTool <hobbezz@hotmail.com>
Subject: Running a CGISite!
Message-Id: <3525C6FB.A3B1C631@hotmail.com>
A friend and I want to assemble a fairly large site. I have some
questions on the best way to assemble the CGI...
Our site will have a common header and footer. But we will have a host
of content that we want to parse in between the two... I was assuming
we would name the files in some sort of consecutive order, like
f00001.html, f00002.html and so on.....then we could just reference the
file. Is this good, bad, etc?
What about Forms? How difficult is it to retrieve information from a
FORM in an HTML file without Using CGI.PM?
Im sure you can see that I am just learning PERL and am stabbing in the
dark here. If you have any information that might help me out, please
let me know! Id really appreciate it!
TheTool
thetool@iname.com
------------------------------
Date: Fri, 03 Apr 1998 20:14:59 -0800
From: Thumperz <-nospam-thumperz@deltanet.com>
Subject: Script Headers
Message-Id: <3525B3C2.76F7@deltanet.com>
I was using a perl program in my cgi-bin for a wwwboard. I ran the
program for awhile with no problems, then started getting an error.
The error I get is a "Premature end of script headers". Any help would
be appreciated. Thanks in adavance,
Perry
------------------------------
Date: 4 Apr 1998 02:48:02 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: SIGINT ?
Message-Id: <6g4712$dkl$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Larry Rosler
<lr@hpl.hp.com>],
who wrote in article <35258B14.F4221DC7@hpl.hp.com>:
> Try reestablishing the signal handler by moving the
> $SIG{INT} = ... into main().
>
> See the Blue Camel, p. 339 bottom - 341 top. In some implementations,
> "you had to reinstall the signal handler each time it got called."
Are you sure this is required with newer Perls? I would think they
use "reliable signal handling" nowadays (see rsignal() in Perl
source).
Ilya
------------------------------
Date: 4 Apr 1998 03:02:35 GMT
From: lusol@turkey.cc.Lehigh.EDU (Stephen O. Lidie)
Subject: Re: SIGINT ?
Message-Id: <6g47sb$1tte@fidoii.cc.Lehigh.EDU>
Ilya Zakharevich (ilya@math.ohio-state.edu) wrote:
: [A complimentary Cc of this posting was sent to Larry Rosler
: <lr@hpl.hp.com>],
: who wrote in article <35258B14.F4221DC7@hpl.hp.com>:
: > Try reestablishing the signal handler by moving the
: > $SIG{INT} = ... into main().
: >
: > See the Blue Camel, p. 339 bottom - 341 top. In some implementations,
: > "you had to reinstall the signal handler each time it got called."
: Are you sure this is required with newer Perls? I would think they
: use "reliable signal handling" nowadays (see rsignal() in Perl
: source).
Would someone please run Phil's actual code.... I hacked on it over an
hour, even trying POSIX sigaction to no avail....
The best I managed was this, and it's not pretty (-;
#!/usr/local/bin/perl -w
#use diagnostics -verbose;
use POSIX;
use strict;
use subs qw/frog/;
use vars qw/$sigset $sigaction/;
$| = 1;
my $sigset = POSIX::SigSet->new;
my $sigaction = POSIX::SigAction->new(undef, $sigset, undef);
{
local $^W = 0;
die "Can't create handler: $!" unless POSIX::sigaction(SIGINT, $sigaction, $sigaction);
}
sub frog {
while (1) {
print "in main!\n";
my $in = <>;
if (defined $in) {
chomp $in;
print " in=$in!\n";
}
}
}
$SIG{__WARN__} = sub {};
frog;
This does what he wants, but as soon as I define a handler the program's behaviour
reverts to his program's ...
The $^W and __WARN__ stuff quiets Perl but I don't know why I need it!
------------------------------
Date: 4 Apr 1998 03:46:56 GMT
From: ? the platypus {aka David Formosa} <dformosa@st.nepean.uws.edu.au>
Subject: Re: Someone put my munged e-mail address on a spam list
Message-Id: <891661616.31034@cabal>
In <6g0iob$s7s$1@news.orst.edu> stanley@skyking.OCE.ORST.EDU (John Stanley) writes:
>In article <EqsAsJ.37q@cre.canon.co.uk>,
>Andy Wardley <abw@cre.canon.co.uk> wrote:
[...]
>>But the replies that Tom is trying to make are in response to questions
>>posted in USENET, which *is* public forum.
>USENET is not mail.
However Usenet grew out of a mail system and is tightly it.
[...]
> Please explain
>why being pissed that someone does not tell you how to send mail to them
>in a USENET post is any more relevant than them not including their
>phone number so you can call them.
Because Usenet has worked on the assumention that mail exists. Due to
this intermasy many tradtions require email to work correctly. You need
the ablity to comment privertly to a public post.
--
I'm a perl programer if you need perl programing hire me. Buy easter bilbies.
Please excuse my spelling as I suffer from agraphia see the url. Support NoCeM
http://www.cit.nepean.uws.edu.au/~dformosa/Spelling.html http://www.cm.org/
I'm sorry but I just don't consider 'because its yucky' a convincing argument
------------------------------
Date: 4 Apr 1998 05:54:24 GMT
From: stanley@skyking.OCE.ORST.EDU (John Stanley)
Subject: Re: Someone put my munged e-mail address on a spam list
Message-Id: <6g4hug$5k0$1@news.orst.edu>
In article <891661616.31034@cabal>,
? the platypus {aka David Formosa} <dformosa@st.nepean.uws.edu.au> wrote:
>However Usenet grew out of a mail system and is tightly it.
Mighty oaks from tiny acorns grow. Mighty oaks are not acorns, however.
As for USENET being "tightly it", I have no idea what you mean. Is this
another perversion of english like "my bad" presumably meaning "my
mistake"?
>Because Usenet has worked on the assumention that mail exists.
USENET works even when email does not. There is no such assumption.
>Due to
>this intermasy many tradtions require email to work correctly. You need
>the ablity to comment privertly to a public post.
There is no such "need". Some people desire it, but that does not make
it a need.
What is an "intermasy"?
------------------------------
Date: Fri, 03 Apr 1998 22:44:03 -0500
From: Eugene Sotirescu <eugene@vertical.net>
Subject: Re: SUID perl?
Message-Id: <3525AC81.C96FB962@vertical.net>
There are 2 related parts here:
1. the UNIX, server part
2.the Perl part
1.you chmod u+s your script so it can run with the uid of a user who has
permission to write to files (since the server , usually user 'nobody',
doesn't have that, or if it does, shouldn't have it).
2.as soon as you do 1., your Perl script will run in taint mode (even if you
dont' have the -T switch turned on). All the security measures that Perl
rolls out in taint mode (and that you can read about in perlsec) are now on.
It won't let you write to disk until you've satisfied its requirements (set
PATH explicitely, untaint user input, etc).
HTH
Eugene
Cal Sawyer wrote:
> Hi.
>
> I'd like to build a set of perl CGI apps that allow our users to perform
> certain ops on their files or establish vacation notification. I've been
> reading on this a bit, but the methods for getting CGI scripts to execute
> SUID as invoking user are pretty hard to grasp, when you can find them at
> all.
>
> I wouldn't be above asking for/offering payment for a working starter kit
> to get the ball rolling. I know a lot of ISP's and Universities do this
> routinely but it's simply out of my area of expertise.
>
> Any offers, help, advice, assitance deeply appreciated.
>
> --
> ---------------------------------------
> Cal Sawyer
> Electronic Communication Design
> Emily Carr Institute of Art and Design
> Vancouver, B.C. Canada
> ---------------------------------------
------------------------------
Date: Sat, 04 Apr 1998 03:20:54 GMT
From: drummj@mail.mmc.org (Jeffrey Drumm)
Subject: Re: unpack vs. substr (was Re: Data Structure for Input File)
Message-Id: <35259b81.172851226@news.mmc.org>
On Fri, 03 Apr 1998 23:26:46 GMT, jgloudon@manitoba.bbn.com (Jason Gloudon)
wrote:
>Jeffrey R. Drumm <drummj@mail.mmc.org> wrote:
>.
>.
>>If you've got to strip the nulls out of the variables you've extracted with
>>substr(), there's an extra, somewhat expensive operation required (a tr/\0//d,
>>for example).
>
>tr won't do it though, a null terminated string may look like "some\0letters",
>so tr won't strip the trailing garbage. s/\0.*$// might.
Urgk. My bad . . . not having much (well, any) experience with
null-terminated strings, I made the silly assumption the term really
referred to null-padded. Since s/// with its associated regex baggage is
even more costly than tr///d, the small advantage substr() had in this case
probably just evaporated.
Learn somethin' new every day . . . thanks, Jason.
--
Jeffrey R. Drumm, Systems Integration Specialist
Maine Medical Center Information Services
420 Cumberland Ave, Portland, ME 04101
drummj@mail.mmc.org
"Broken? Hell no! Uniquely implemented." -me
------------------------------
Date: 3 Apr 98 12:07:13 MDT
From: slnlz@cc.usu.edu
Subject: use e-mail in perl script in NT
Message-Id: <EdGJWcZkzTwq@cc.usu.edu>
I am trying to use e-mail in perl script in NT environment. I know it is very
easy in Unix, but how about in NT? Can anyone give me a hand?
James
slnlz@cc.usu.edu
------------------------------
Date: Fri, 3 Apr 1998 21:19:19 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: Tom Mornini <tmornini@netcom.com>
Subject: Re: use strict and GD
Message-Id: <Pine.GSO.3.96.980403211316.1988F-100000@user2.teleport.com>
On Thu, 2 Apr 1998, Tom Mornini wrote:
> Subject: use strict and GD
> $im->string(gdSmallFont,$CENX,$CENY,$LOTNUMBER,$black);
>
> The error message is:
>
> Bareword "GD::Font::gdSmallFont" not allowed while "strict subs" in use at
> /usr/local/etc/httpd/perl/pq-mp.mod_perl line 879 (#1)
>
> (F) With "strict subs" in use, a bareword is only allowed as a
> subroutine identifier, in curly braces or to the left of the "=>" symbol.
> Perhaps you need to predeclare a subroutine?
If Perl's internal compiler is seeing this line before it loads GD.pm,
you'll get this message. Could that be the case?
> Also, I'm formally complaining :-) about Perl's method of checking for
> unitialized variables. If I have code that says:
>
> 01: my $foo='';
>
> 63: if ($foo)
> 64: {
> 65: print 'foo is';
> 66: }
>
> Perl will complain that $foo is unitialized at line 63, if $foo didn't
> have any non-null values assigned between lines 1 and 63.
That doesn't happen to me. Do you have an old version of Perl, or can you
make a test case under 5.004 which demonstrates this bug?
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
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 2246
**************************************
