[9282] in Perl-Users-Digest
Perl-Users Digest, Issue: 2877 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jun 15 17:17:14 1998
Date: Mon, 15 Jun 98 14:00:47 -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 Mon, 15 Jun 1998 Volume: 8 Number: 2877
Today's topics:
A hash question <pcameron@soils.umn.edu>
Calculating Disk Space on Win32 Surface@my-dejanews.com
Re: Certified Perl Programmers <Rosie@dozyrosy.demon.co.uk>
Re: Certified Webmasters scott@softbase.com
Re: Curly braces in if elsif contructs <bowlin@sirius.com>
Re: Curly braces in if elsif contructs (Allan M. Due)
Re: Curly braces in if elsif contructs scott@softbase.com
Re: Curly braces in if elsif contructs <sfarrell@farrell.org>
disk space downs.bj.1@pg.com
Re: Electronic Fax? <rlogsdon@io.com>
Re: Forking, SIG handlers, etc. (Long) <thoellri@tobias.corp.adobe.com>
Format Irritation jduncan@hawk.igs.net
Re: goto in Perl debugger? <morse@segsrv.hlo.dec.com>
Re: Help with using Time in PERL (Brand and Karina Hilton)
Re: Is this insane? <rlogsdon@io.com>
Re: lambda fun in Perl <JKRY3025@comenius.ms.mff.cuni.cz>
Re: Mailing checkbox info from form with perl cgi - hel <rlogsdon@io.com>
Re: mod_perl newsgroup? (Honza Pazdziora)
Re: New module/pragma "enum.pm" (was "fields.pm") <rlogsdon@io.com>
Re: New module/pragma "enum.pm" (was "fields.pm") <zenin@bawdycaste.org>
Re: Perl and Shadow authentication <che@debian.org>
Perl5 and the X11 libraries. <tresing@globalscape.net>
Re: REVIEW: Perl CGI Programming - No Experience Requir (Craig Berry)
Re: REVIEW: Perl CGI Programming - No Experience Requir (Craig Berry)
Re: strange error message .. "value of <handle> ..." (Tad McClellan)
Windows NT, how to copy binary files ! (Jahan K. Jamshidi)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 15 Jun 1998 13:47:15 -0700
From: Paul Cameron <pcameron@soils.umn.edu>
Subject: A hash question
Message-Id: <35858853.41C6@soils.umn.edu>
I finally getting around to using hashes and I ran into this problem.
I've got two arrays and I want to build a hash so that array1 will be
the key and array2 will be the value. The way its set up now I'm only
getting the last key,value pair I put in the hash. I just wondering if
anyone has any ideas on how to make this work or is it just not
possible. Here's some of the code.
@names = "a bunch of names";
@data = "info about those names";
$count = @data;
for ($i = 0; $i < $count; $i++ ) {
%info = ( "$names[$i]", "$data[$i]" );
}
Thanks for any help,
paul
------------------------------
Date: Mon, 15 Jun 1998 19:39:54 GMT
From: Surface@my-dejanews.com
Subject: Calculating Disk Space on Win32
Message-Id: <6m3taa$amq$1@nnrp1.dejanews.com>
I trying to calculate disk space used on a Windows NT servers.I have posted
this question before a receive several replies. But the replies have been
for Unix and not a Windows machine. Has anybody done any calculating of disk
space on a Windows NT machine and can share their code?
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Sun, 14 Jun 1998 16:03:47 +0100
From: Rosemary I H Powell <Rosie@dozyrosy.demon.co.uk>
Subject: Re: Certified Perl Programmers
Message-Id: <FEFtrYATZ+g1Ewsf@dozyrosy.demon.co.uk>
In article <6ls21v$c1u$1@monet.op.net>, Mark-Jason Dominus <mjd@op.net>
writes
>
>In article <6lolt0$coi$1@nnrp1.dejanews.com>, <jduncan@hawk.igs.net> wrote:
>>> I've been thinking that if some people need physical certificates, I
>>> could print some up and supply them for a nominal fee, maybe $2.
>>
>> SASE's would do the trick, then we could all put the certificate on our
>>walls, and be all official. Well, nearly....
>
>Well, I don't think so. If you're going to bother printing real
>certificates, you might as well make them look good. If they're going
>to look good, they should be printed well, maybe embossed, have a bit
>of ribbon attached, and then mailed with a carboard insert to prevent
>postal mangling, etc. I think two bucks is probably about right; I
>wasn't just naming random numbers.
>
Why don't you make it $4 and donate $2 to Randal's legal fund and we'd
all benefit?
Rosemary
Just Another (Certifiable) Microsoft Idiot
-------------------------------------------------------------------
| Rosemary I.H.Powell EMail: Home: rosemary@dozyrosy.demon.co.uk |
| Work: r.i.h.powell@rl.ac.uk |
| http://www.netlink.co.uk/users/dozyrosy/ |
| http://www.dozyrosy.demon.co.uk/ |
-------------------------------------------------------------------
------------------------------
Date: 15 Jun 1998 17:54:09 GMT
From: scott@softbase.com
Subject: Re: Certified Webmasters
Message-Id: <6m3n41$drs$1@mainsrv.main.nc.us>
> I am a Certified Web Master.
In the time you spent getting Certified, I put up several web sites :^)
Seriously, I'm tired of all these certification ripoff scams. If
you're a good web page designer, your work will speak for itself. The
only people who get anything from these scams are the people who sit
back and rake in money from the suckers who fall for them. I'm tired
of organizations like Novell and Microsoft who try to squeeze blood out
of turnips by screwing developers over with their developer taxation
programs (you must be a MSCE or a CNE to get a job troubleshooting on
our proprietary junk that doesn't work) and I'm tired of all these
other certification copycats. One great thing about free software is
it does an end-run around all these losers. Competent people who get
the job done use free software!
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.
------------------------------
Date: Mon, 15 Jun 1998 11:59:17 -0700
From: Jim Bowlin <bowlin@sirius.com>
To: Bob Trieger <sowmaster@juicepigs.com>
Subject: Re: Curly braces in if elsif contructs
Message-Id: <35856F05.B867355B@sirius.com>
Bob Trieger wrote:
> [snip]
> Not that it really matters in the scheme of things but I'm with you. I just
> checked out perlstyle and didn't see the closing curly mentioned.
I think the line that says "Uncuddle elses" means to put a newline
between a closing brace and an else.
-- Jim Bowlin
------------------------------
Date: 15 Jun 1998 19:31:11 GMT
From: due@murray.fordham.edu (Allan M. Due)
Subject: Re: Curly braces in if elsif contructs
Message-Id: <6m3spv$pog$0@206.165.146.55>
Bob Trieger wrote in message <6m3p5m$c2c$3@ligarius.ultra.net>...
|Not that it really matters in the scheme of things but I'm with you. I just
|checked out perlstyle and didn't see the closing curly mentioned.
Well actually it does. I remember reading the perlstyle page and seeing
that "Larry prefers ... Uncuddled elses". This term caught my attention
and it is my recollection that uncuddled elses means the
if {
}
else {
}
style.
Which I actually prefer. I just find it easier to read somehow.
Allan M. Due
Due@murray.fordham.edu
The beginning of wisdom is the definitions of terms.
- Socrates
------------------------------
Date: 15 Jun 1998 18:01:30 GMT
From: scott@softbase.com
Subject: Re: Curly braces in if elsif contructs
Message-Id: <6m3nhq$drs$2@mainsrv.main.nc.us>
Ask Bjoern Hansen (ask@netcetera.dk) wrote:
> } elsif ($testset eq "esfs") {
> What do you think?
I absolutely, positively, 100% ***HATE*** the style you propose and
would use a source reformatter to obliterate it from the universe if
any of it got near me. Such strong reactions are not unusual in
the war of indention styles.
I dislike this, and the equivalent C
if () {
} else {
}
on the grounds that it obfuscates the code unnecessarily. An important
keyword should not be left on the ground amongst a dense undergrowth of
squiggles. It needs to be held up high where people can notice it.
Also, the obfuscatory style defeats good block structuring by defeating
the logical structure of the code. Both the if and else are important
and need to begin a block, not be nested in a squiggle forest.
For every construct, you'll find people who argue different ways. The
definitive book is Code Complete, where Steve McConnel summarizes all
the arguments. Most people would not change their style, though, for
any reason. Most people have strong convictions for why they write a
certain way, usually involving perceived improvements in code
readability. Unless you present some overwhelming reason why one style
is better (and probably no such reason actually exists), no one is ever
swayed.
The only way you can get people to follow a certain layout style is to
mandate it in a Dilbertesque like way, and then most of the good
programmers will go elsewhere where they can have more freedom. (Cf
the Dilbert cartoon about all the employees quitting which ends in
"does that mean we get the bonuses?")
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.
------------------------------
Date: Mon, 15 Jun 1998 20:29:59 GMT
From: stephen farrell <sfarrell@farrell.org>
Subject: Re: Curly braces in if elsif contructs
Message-Id: <87vhq2z9vc.fsf@couatl.uchicago.edu>
due@murray.fordham.edu (Allan M. Due) writes:
> Bob Trieger wrote in message <6m3p5m$c2c$3@ligarius.ultra.net>...
> |Not that it really matters in the scheme of things but I'm with you. I just
> |checked out perlstyle and didn't see the closing curly mentioned.
>
> Well actually it does. I remember reading the perlstyle page and seeing
> that "Larry prefers ... Uncuddled elses". This term caught my attention
> and it is my recollection that uncuddled elses means the
>
> if {
> }
> else {
> }
> style.
>
> Which I actually prefer. I just find it easier to read somehow.
well of the three styles,
if
{
...
}
else
{
...
}
takes up too much space, and
if {
...
} else {
...
}
takes up too little space, so
if {
...
}
else {
...
}
seems just right =).
--sf
------------------------------
Date: Mon, 15 Jun 1998 20:03:11 GMT
From: downs.bj.1@pg.com
Subject: disk space
Message-Id: <6m3ulv$dh5$1@nnrp1.dejanews.com>
Has anyone out there have any code that they can share on calculating used
disk space on Windows NT server. The info I have gotten in the past seems to
work on a Unix machine. I'm looking for something besides David Roth
Adminmisc modules. We can not copy any new code to our production servers
until it has gone thru our standards testing. So I looking for some code
that can be run from the Perl in the Coreutil directory. Thanks for any
help.
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Sun, 14 Jun 1998 23:58:18 -0500
From: REUBEN LOGSDON <rlogsdon@io.com>
Subject: Re: Electronic Fax?
Message-Id: <Pine.BSI.3.96.980614235601.13432D-100000@pentagon.io.com>
There's a company that will interface email & faxes at
http://www.faxsav.com. If you want to send a fax from a web page they
will send you a hacked copy of Matt Wright's formmail that does this and
then you can have your form submission trigger a fax to a certain number.
Pretty easy to set up (& it uses perl)
Regards,
Reuben Logsdon
On 10 Jun 1998, Martien Verbruggen wrote:
> In article <357DE649.EF32EB3D@ipacs.com>,
> Ong Joo Chin <jcong@ipacs.com> writes:
> > Is it possible to write a PERL script (or any CGI script) that send data
>
> It's perl for the program/interpreter, Perl for the language. If
> that's what you mean, yes, it is possible, provided you have a fax
> gateway that will allow you to interface with it. This could be a fax
> modem, which you talk to directly, or a piece of software or api,
> which allows you to talk through that.
>
> If you don't have that hardware, you can't do it, unless you use some
> third party public mail to fax gateway or something like that.
>
> None of this has anything to do with perl.
>
> > from the internet to a fax machine? If possible, what is the best
>
> What does 'from the internet to a fax machine' mean? It really makes
> no sense.
>
> > language to use (C, PERL, shell script)? Is there any reference or codes
> > that you can recommend?
>
> Odd question. That depends on the hardware setup you use. it also
> depends on a possible api that the vendor supplies. If you need to
> talk to a fax modem directly, I suggest you find out first (somewhere
> else) how that is normally done.
>
> If you want to communicate through a serial port, I suggest you read
> the perl faq.
>
> Maybe what you should do is _first_ identify how you would do it, what
> hardware you wish to use etc. Then you come back with a _specific_
> question about the piece of perl which is not doing what you expect it
> to do, and maybe we can help out then. The question you pose right now
> is really too vague.
>
> Martien
> --
> Martien Verbruggen |
> Webmaster www.tradingpost.com.au |
> Commercial Dynamics Pty. Ltd. | Curiouser and curiouser, said Alice.
> NSW, Australia |
>
>
------------------------------
Date: 15 Jun 1998 11:59:25 -0700
From: Tobias Hoellrich <thoellri@tobias.corp.adobe.com>
Subject: Re: Forking, SIG handlers, etc. (Long)
Message-Id: <yjzu35mv6cy.fsf@tobias.corp.adobe.com>
"Gabriele R. Fariello" <gabriele@kollwitz.doit.wisc.edu> writes:
>
> I have tried re-declaring the $SIG{'SIGCHLD'} handler in the handler
> routine itself, but I got identical results.
>
> Basically I need help.
>
> My apologies if this is an RTFM question, but I cannot seem to find which
> FM to read, so RTFM responses with information about the FM are
> appreciated.
>
> -Gabriele
>
Gabriele,
are you sure you tried to reset the SIGCHLD-handler in the handler
itself? I got similar results from your original script, some of the
deaths didn't get caught by the handler and it complained about about
some "SIGCHLDs being MISSED". After I added:
$SIG{'CHLD'} = \&read_child;
at the end of &read_child - everything was fine and no matter how
short the sleep-interval was, every childs death was caught. This was
on Solaris 2.5.1 - it may be possible that your OS has some - uhm -
deficiencies.
Hope this helps
Tobias
------------------------------
Date: Mon, 15 Jun 1998 19:01:52 GMT
From: jduncan@hawk.igs.net
Subject: Format Irritation
Message-Id: <6m3r30$6ph$1@nnrp1.dejanews.com>
Okay, I've been poking around at this for about an hour now, and it's
starting to drive me a little bit bonkers. I'm reading data from an database
one line at a time, which isn't the problem. However, I am tied in knots
because I'm trying to use format to output the data afterwards, my camelbook
is at home, the FAQ came up answerless, and the perlform.pod didn't help me
any either.
I get one row of data and then I want to append the data to the format,
rather than perform multiple writes. I'd much rather have it just make one
write() at the end. Why-o-why doesn't format support .='s - and if it does,
why is perl giving me a syntax error?
Regards,
James.
--
jduncan@hawk.igs.net
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Mon, 15 Jun 1998 09:14:25 -0400
From: Tim Morse <morse@segsrv.hlo.dec.com>
Subject: Re: goto in Perl debugger?
Message-Id: <35851E31.41C6@segsrv.hlo.dec.com>
Deva Seetharam wrote:
> Tim Morse wrote:
>
> > Is there a 'goto <linenumber>'-like command for the perl debugger?
> > I'd like to be able to change the flow of control when I debug
> > my perl scripts but can't figure out how to do it.
> >
> > I can't find any likely commands in the debugger and I've looked
> > at the FAQs and newsgroup archives with no luck. It seems like
> > I must be missing something obvious. Any help would be appreciated,
> > thanks.
> >
> > Tim Morse
>
> what about c [line] ?
> Have a look at Camel book's Chapter 8 ["Other Oddments"].
>
> Hope this helps.
Appreciate the response but I looked at that command. It does
a continue with an optional breakpoint at the line number. The
code inbetween still gets executed. I'm looking for something
that I can say 'goto 100' from line 20 and the next line that
gets executed is line 100, no code inbetween gets executed.
Tim
------------------------------
Date: Mon, 15 Jun 1998 19:00:39 GMT
From: bkhilton@netcom.com (Brand and Karina Hilton)
Subject: Re: Help with using Time in PERL
Message-Id: <bkhiltonEuLwt4.CLs@netcom.com>
In article <6m3dtt$i41$1@nnrp1.dejanews.com>, <dgower@ibm.net> wrote:
>Hello-
>
>I am trying to make a script that will rotate images depending on the day
>of the week(MON,TUE,etc). If anyone knows of a script like this that already
>exists let me know, if not I will keep trying, but maybe you can help me with
>this problem. When using the following
>
>use Time::gmtime;
> $gm = gmtime();
> printf "The day in Greenwich is %s\n",
> (qw(Sun Mon Tue Wed Thu Fri Sat Sun))[ gm->wday() ];
Don't you just hate it when there's a misprint in the example?
You need a dollar sign in front of the gm->
like this:
printf "The day in Greenwich is %s\n",
(qw(Sun Mon Tue Wed Thu Fri Sat Sun))[ $gm->wday() ];
For future reference, always use "use strict" and "-w". They
would have given you better hints.
Brand
------------------------------
Date: Mon, 15 Jun 1998 02:09:36 -0500
From: REUBEN LOGSDON <rlogsdon@io.com>
To: Steve Vertigan <steve@vertigan.iinet.net.au>
Subject: Re: Is this insane?
Message-Id: <Pine.BSI.3.96.980615020639.13432F-100000@pentagon.io.com>
[posted & mailed]
Okay, if you have working Perl scripts in Unix you can port them to an
NT-IIS4 platform with minimal to intermediate work, depending on how
complex they are, etc. Once you have the Perl scripts working on NT then
you could use perl2exe from demobuilder.com which makes standalone
independent exe's out of Perl scripts and then you can put those exe's on
the customer's site. Everyone is then happy
Regards,
Reuben Logsdon
On Sat, 13 Jun 1998, Steve Vertigan wrote:
> Mike Whitaker wrote:
>
> > Install Perl for NT.
> > You won't regret it.
> >
> > And, no, I'm not being facetious. In the 10 hours you've spent, you
> > could have a working NT Perl talking to IIS and running CGI's.
>
> I don't doubt it but what I forgot to make clear in my original post was
> that I don't have access to the NT machine :(
>
> The situation is that I'm working for a web development company and a client
> has requested the scripts be installed in his account on an ISP that's
> running NT with IIS 4.0 and nothing else. To make things even more
> difficult the ISP isn't even in the same country as us. At this point I'm
> about ready to tell my boss that it's not going to be worth the time and
> trouble to support this woeful environment but I thought I'd see if anyone
> has any suggestions first.
>
> Regards,
> --Steve
>
>
------------------------------
Date: Mon, 15 Jun 1998 21:25:36 -0700
From: Jan Krynicky <JKRY3025@comenius.ms.mff.cuni.cz>
Subject: Re: lambda fun in Perl
Message-Id: <3585F3C0.5CE7@comenius.ms.mff.cuni.cz>
John Porter wrote:
>
> You have to worry about side-effects in any case, if the
> language permits them. If you really want to never have to
> worry about side-effects, then you must restrict yourself to
> language which don't allow them.
With all the features you usualy get from them (eg. lazines)
I wouldn't use the word "restrict". I love functional languages,
but for scripting, Perl is better.
Jenda
http://www.fmi.cz/private/Jenda new Win32:FileOp with Open and SaveAs
dialogs !
------------------------------
Date: Mon, 15 Jun 1998 01:42:14 -0500
From: REUBEN LOGSDON <rlogsdon@io.com>
To: Tim Swallow <tim.swallow@mta.jenson.com>
Subject: Re: Mailing checkbox info from form with perl cgi - help!!!
Message-Id: <Pine.BSI.3.96.980615013447.13432E-100000@pentagon.io.com>
[posted and mailed]
Tim,
Checkboxes with the same name will be sent sequentially by the browser; it
is your parsing of stdin which destroys all but the last name,value set.
If you do a net sniff while the browser is sending up it's data (or if you
just print the data from $buffer) you will see something like this:
FooName=FooValue&information=Box1&information=Box2&information=Box3
One way to handle this is to append similar values for a given name in a
comma delimited list:
foreach (split(m/\&/,$buffer)) {
next unless m/([^\=]+)\=(.*)/;
($thisName,$thisValue) = ($1,$2);
if ($FORM{$thisName}) {
$FORM{$thisName} .= ', '.$thisValue;
}
else {
$FORM{$thisName} = $thisValue;
}
}
In this way $FORM{'information'} will be "Box1, Box2, Box3". Of course
you could also use a more optimal name/value setup in your HTML from the
beginning.
Regards,
Reuben Logsdon
On Fri, 12 Jun 1998, Tim Swallow wrote:
> Hi,
>
> I've just started to look at using Perl CGI scripts on my web page to mail
> the contents of a form back to me.
>
> My form has some check boxes in and I am having problems mailing the
> selected checkboxex info. back to me.
>
> The checkboxes are defined in my HTML code as follows:
>
> <LI> <INPUT TYPE="checkbox" NAME="information" VALUE="Box1">Box1.
> <LI> <INPUT TYPE="checkbox" NAME="information" VALUE="Box2">Box2.
> <LI> <INPUT TYPE="checkbox" NAME="information" VALUE="Box3">Box3
>
>
> Using the following piece of code in my perl script, I can print the form
> output including checked checkboxes to an html page:
>
> @pairs = split(/&/, $buffer);
>
> foreach $pair (@pairs)
> {
> ($name, $value) = split(/=/, $pair);
> $value =~ tr/+/ /;
> $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>
> print "Setting $name to $value<P>";
>
> $FORM{$name} = $value;
> }
> .
>
> I am having a problems seperating the checked checkbox info when mailing the
> form output back to me. The code I am using in my form to try to do this is
> as follows:
>
> @INFORMATIONS = split("\0",$FORM{'information'});
> open (MAIL, "|$mailprog $recipient") || die "Can't open $mailprog!\n";
> print MAIL "Reply-to: $FORM{'username'} ($FORM{'realname'})\n";
> print MAIL "Subject: WWW comments (Forms submission)\n\n";
> print MAIL "$FORM{'username'} ($FORM{'realname'}) sent the following\n";
> print MAIL
> "------------------------------------------------------------\n";
> print MAIL "$FORM{'name'}\n";
> print MAIL "$FORM{'phone'}\n";
>
> foreach $INFORMATION (@INFORMATIONS) {print MAIL "$INFORMATION \n";}
>
>
> print MAIL
> "\n------------------------------------------------------------\n";
> print MAIL "Server protocol: $ENV{'SERVER_PROTOCOL'}\n";
> print MAIL "Remote host: $ENV{'REMOTE_HOST'}\n";
> print MAIL "Remote IP address: $ENV{'REMOTE_ADDR'}\n";
> close (MAIL);
>
>
> Instead of listing each checked checkbox being listed, only the last one
> checked is listed.
>
> I'm not sure if i am making a mistake in the following lines from the code
> above..
>
> @INFORMATIONS = split("\0",$FORM{'information'});
>
> foreach $INFORMATION (@INFORMATIONS) {print MAIL "$INFORMATION \n";}
>
>
>
> Please help...
>
> Cheers
>
> Tim
>
>
>
>
------------------------------
Date: Mon, 15 Jun 1998 20:02:45 GMT
From: adelton@fi.muni.cz (Honza Pazdziora)
Subject: Re: mod_perl newsgroup?
Message-Id: <adelton.897940965@aisa.fi.muni.cz>
Kevin Miles <kmiles@erols.com> writes:
> Sorry for the mispost, but which newsgroup is most appropriate for
> mod_perl questions?
There is no newsgroup but there is a mailing list, see for how to
subshttp://perl.apache.org/cribe.
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, 15 Jun 1998 02:17:14 -0500
From: REUBEN LOGSDON <rlogsdon@io.com>
To: =?ISO-8859-1?Q?Fran=E7ois_Pinard?= <pinard@iro.umontreal.ca>
Subject: Re: New module/pragma "enum.pm" (was "fields.pm")
Message-Id: <Pine.BSI.3.96.980615021548.13432H-100000@pentagon.io.com>
On Sat, 13 Jun 1998, [ISO-8859-1] Fran=E7ois Pinard wrote:
> Zenin <zenin@bawdycaste.org> writes:
>=20
> > =09Speaking of which, anyone know an efficient way to see if a number
> > =09is a power of 2 without needing a lookup table?
>=20
> Here is a fairly common idiom:
>=20
> =09unless ($n & ($n - 1)) {
> =09 # $n is an exact power of 2
> =09}
Pretty cool - how does that work?? What does the single ampersand
operator do?
Regards,
Reuben Logsdon
[posted & mailed]
------------------------------
Date: 15 Jun 1998 20:22:06 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: New module/pragma "enum.pm" (was "fields.pm")
Message-Id: <897942654.739137@thrush.omix.com>
Brendan O'Dea <bod@compusol.com.au> wrote:
: Not quite the same--in this case I think that there can be a documentary
: advantage in grouping a set of related names together.
This I can deal with. Code should be self documenting for the most
part. I still think though that it belongs in an expanded constant
syntax.
: My point is simply that if you create a module called `enum' then it is
: highly likely that people will use it as they do the C/C++ equivalent.
True, but within reason. In C/C++ it's used to create new types
and give them names. This just isn't possible in Perl at all. It
can handle the auto-incrementing, but not the set name or type
checking. The enum excapes { list } is an example of this. While
this is good for C/C++ because one can call things type 'excapes'
or such, it doesn't and can't transfer over to Perl this exactly.
It would be nice if it could, but the language just doesn't support
it.
--
-Zenin
zenin@archive.rhps.org
------------------------------
Date: 15 Jun 1998 13:16:17 -0700
From: Ben Gertzfield <che@debian.org>
Subject: Re: Perl and Shadow authentication
Message-Id: <yttn2bezai6.fsf@gilgamesh.cse.ucsc.edu>
>>>>> "Tom" == Tom Phoenix <rootbeer@teleport.com> writes:
Tom> On Fri, 12 Jun 1998, Sean Mahrt wrote:
Sean> I want to do verification of passwords within a perl program
Sean> when I'm running shadow?
Tom> If your system's crypt() function doesn't provide a way to do
Tom> this, you'll probably want a program which is set-id to
Tom> root. Be careful! See the perlsec manpage. Hope this helps!
Also, you'll have to have made sure you patch Perl to use getspnam()
and its friends.
I don't believe the patch has made it into the pre-5.005, so we're
going to have to continue patching by hand to get any shadow
support into Perl.
The patch is at
http://www.rosat.mpe-garching.mpg.de/mailing-lists/perl-porters/1998-03/msg01574.html
-- I sure wish it would have made it into 5.005 :/
Ben
--
Brought to you by the letters G and O and the number 13.
"If you turn both processors off, you will have to reboot." -- The Be Book
Debian GNU/Linux -- where do you want to go tomorrow? http://www.debian.org/
I'm on FurryMUCK as Che, and EFNet and YiffNet IRC as Che_Fox.
------------------------------
Date: Mon, 15 Jun 1998 15:39:14 -0500
From: Thomas Resing <tresing@globalscape.net>
Subject: Perl5 and the X11 libraries.
Message-Id: <35858672.428907C2@globalscape.net>
I have a question regarding security and Perl.
For security reasons, the X11 libraries are restricted from normal users
of our linux server.
Perl 4 runs with no problem under this restriction, but now that we have
Perl5
installed users without access to the X11 libraries get the following
error while executing the Perl interpreter:
> perl5
can't open `/usr/X11R6/lib/libX11_s.2.1.0'
Segmentation fault (core dumped)
My question is, why does Perl 5 need access to this library?
The version installed right now is 5.001. If this X11 issue is related
to the version number of Perl I am interested, but a "use the latest
version" answer is not what I am looking for.
Any help is greatly appreciated.
Thanks in advance.
Tom
--
..................................
Tom Resing Programmer/Analyst
GlobalSCAPE www.globalscape.net
..................................
------------------------------
Date: 15 Jun 1998 19:55:36 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: REVIEW: Perl CGI Programming - No Experience Required
Message-Id: <6m3u7o$42l$1@marina.cinenet.net>
On the array vs. list question: Would it be accurate to say that an array
is an lvalue (in the C parser sense), a list an rvalue, and that the usual
lvalue -> rvalue transformation is available?
Forgive me if this analogy is woefully misguided, or if it already appears
in the docs somewhere -- I couldn't find it, if the latter.
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: 15 Jun 1998 20:00:30 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: REVIEW: Perl CGI Programming - No Experience Required
Message-Id: <6m3ugu$42l$2@marina.cinenet.net>
Paul David Fardy (pdf@morgan.ucs.mun.ca) wrote:
: Rahul Dhesi <c.c.eiftj@54.usenet.us.com> writes:
: > Is it fair to say that if you can use a list as an lvalue, then the list
: > is an array, otherwise it's not? But that's more a distinction between
: > lvalues and rvalues, than between arrays and lists. Both seem to me
: > to be ordered sequences of items.
:
: Tom Christiansen <tchrist@mox.perl.com> writes:
: >No. Behold a list as an lvalue:
:
: > ($a, $b, $c) = fred();
:
: Oh,well, I thought I had things straight, but maybe I don't. That
: doesn't look "a list as an lvalue"; it looks like a list of lvalues.
I agree; I think it's a spurious example. Not to say there might not be a
non-spurious one out there.
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: Mon, 15 Jun 1998 10:16:13 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: strange error message .. "value of <handle> ..."
Message-Id: <trd3m6.2hl.ln@localhost>
Allan M. Due (due@murray.fordham.edu) wrote:
: In article <byronj-1506981301410001@t-man.nd.edu.au>, Byron Jones
: (byronj@nd.edu.au) posted...
: |greetings
: |
: |(please cc any replies to my email address as i don't check this group
: |frequently)
: |
: Folks in this newsgroup often find such requests annoying.
^^^^^^^^^^^^^^
It is not specific to this newsgroup.
That is annoying in ANY newsgroup, as indicated by this snippet
from a news.announce.newusers FAQ:
--------------------------------------------------------------------------
Subject: How to find the right place to post (FAQ)
Date: 11 Jun 1997 17:01:37 -0400
Followup-To: news.newusers.questions
Expires: 9 Jul 1997 21:01:30 GMT
Summary: This article gives some general hints to help you find an
appropriate place to post on a given topic, and gives pointers
to some available resources. A few other new-user topics are
also addressed, mostly through pointers to other FAQs.
[The most recent version of this document is posted periodically in
several newsgroups, including news.newusers.questions, news.groups, and
news.announce.newusers. It can also obtained by anonymous FTP as
ftp://rtfm.mit.edu/pub/usenet/news.answers/finding-groups/general. If
you do not have access to anonymous FTP, you can retrieve it by
sending email to mail-server@rtfm.mit.edu with the command "send
usenet/news.answers/finding-groups/general" in the message.]
[ ... snip ... ]
3) Any article to a newsgroup you do not read
If you do not read a newsgroup, you cannot know what the subject of the
newsgroup is, what the standards of behavior are, what the frequently
discussed topics are. Usenet does not exist to give you a free research
tool. It is also considered incredibly rude to post a question to a
^^^^^^^^^^^^^^^^^^^^^^^^^^
newsgroup you do not read, and ask for replies in e-mail - by doing so,
you are telling the people you want to answer your question that their
issues are not important to you.
--------------------------------------------------------------------------
: Individuals
: take the time to try and offer assistance, but you can't take the time to
: check back. At least you say you will return at some point. My
: experience is that such statements dramatically decrease the probability
: of helpful follow-up posts.
They also dramatically decrease the probability of getting any
*future* questions answered, as many will killfile you the first
time that you say something like you said...
For me, this is the "Usenet suicide sin" (no forgiveness).
Most of my killfile entries are removed after a month or two.
However the "send me email because I don't read this newsgroup" type
stay in there forever...
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 15 Jun 98 20:50:34 GMT
From: JahanJ@yahoo.com (Jahan K. Jamshidi)
Subject: Windows NT, how to copy binary files !
Message-Id: <897943835.512088@wagasa.cts.com>
I know how to read a ascii file using perl and write it out somewhere else. I
have problem reading a binary file and write out to a new location (kind of
like copying the an executable program to a new locaiton). Does perl support
this function? Any help is greatly appriciated.
Thanks in advance
- J
------------------------------
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 2877
**************************************
