[10070] in Perl-Users-Digest
Perl-Users Digest, Issue: 3663 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Sep 8 20:07:21 1998
Date: Tue, 8 Sep 98 17:00:19 -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 Tue, 8 Sep 1998 Volume: 8 Number: 3663
Today's topics:
Re: crypt() on a NT system (Ben Coleman)
Re: crypt.pm where can i find this module (Martien Verbruggen)
Re: Determine NT Logon Server? (Martien Verbruggen)
Re: Financial Function Needed (Martien Verbruggen)
For Sale: O'Reilly Perl Resource Kit - WIN32 gkeene@my-dejanews.com
Re: fork problem dow.jones@home.se
Re: fork problem (Martien Verbruggen)
Re: How do you supply cleartext password and be secure <garry@america.net>
Re: How do you supply cleartext password and be secure <garry@america.net>
Re: Is perl millennium compliant ? (Tad McClellan)
Re: Is perl millennium compliant ? <sneaker@sneex.fccj.org>
Re: ndbm problem <davis@nod.lvl.pri.bms.com>
Re: Of FAQS and Rounding... (Larry Rosler)
Re: Perl & Java - differences and uses <zenin@bawdycaste.org>
Re: Perl gurus opinion needed. <zenin@bawdycaste.org>
Re: Perl Programmer Needed <zenin@bawdycaste.org>
Re: Perl Programmer Needed <zenin@bawdycaste.org>
Re: Perl Programmer Needed <Richard@WowMe.com>
Re: Perl Programmer Needed (Malcolm Hoar)
Re: perl question <sneaker@sneex.fccj.org>
Script doesn't like text fields? (Amy O'Neill Houck)
Re: sendmail/cgi/sockets (Martien Verbruggen)
Re: Stripping out 'bad' HTML (Martien Verbruggen)
Re: Which method am I on? (Charles DeRykus)
Win32 Lib path problems <alext@cri-boi.nospam.com>
Re: Win32 Lib path problems <alext@cri-boi.nospam.com>
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 08 Sep 1998 22:39:00 GMT
From: tnguru@termnetinc.com (Ben Coleman)
Subject: Re: crypt() on a NT system
Message-Id: <35f5b1a4.444918519@news.mindspring.com>
On 8 Sep 1998 17:59:00 GMT, ehp@gte.net (Ethan H. Poole) wrote:
>Somewhere out there someone has released a crypt.pm module which you could
>use in a pinch.
Yup. See http://www.pdv-systeme.de/users/martinv/Crypt.pm, provided by
Martin Vorlaender. See his post on 21 Feb 1998 about it.
Ben
--
Ben Coleman
Senior Systems Analyst
TermNet Merchant Services, Inc.
Atlanta, GA
------------------------------
Date: Tue, 08 Sep 1998 23:39:30 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: crypt.pm where can i find this module
Message-Id: <SejJ1.18$cm3.127607@nsw.nnrp.telstra.net>
In article <35F58689.CAD03113@uni-muenster.de>,
"Frank Ruetten" <ruttenf@uni-muenster.de> writes:
> I have a very urgent problem. I have to implement the perl crypt()
> function but this is not included in the 32 bit Version but on UNX.
> Someone told me that there is a module called cryp.pm anywhere outhere.
> Where can i dowload this module. I was not able to find this file via
> archie.
Most perl modules are available from CPAN:
http://www.perl.com/CPAN/modules
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au |
Commercial Dynamics Pty. Ltd. | Curiouser and curiouser, said Alice.
NSW, Australia |
------------------------------
Date: Tue, 08 Sep 1998 23:36:07 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Determine NT Logon Server?
Message-Id: <HbjJ1.15$cm3.127607@nsw.nnrp.telstra.net>
In article <35f5420b.331546843@newshost.unx.sas.com>,
snorjb@wnt.sas.com (RonBo) writes:
> How would I determine the NT Logon Server under Perl?
I am not sure what 'NT Logon Server' means, but I am certain that
there is nothing in perl that will determine it for you. It sounds
pretty much like a platform specific functionality, in which case you
will either need to use one of the tools that comes with NT, or you
might check out the activestate web site to see if there's a module
that might offer you this functionality. You can also check CPAN
(http://www.perl.com/CPAN/modules/) and see if one of the modules in
the Win32 name space can help you.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | A Freudian slip is when you say one
Commercial Dynamics Pty. Ltd. | thing but mean your mother.
NSW, Australia |
------------------------------
Date: Tue, 08 Sep 1998 22:55:40 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Financial Function Needed
Message-Id: <MBiJ1.12$cm3.108294@nsw.nnrp.telstra.net>
In article <35F4A9A7.E3FF8A51@wrkhors.com>,
Steven Lembark <lembark@wrkhors.com> writes:
> F**(-n/m) / P - 1 = i (God i wish netscape spoke TeX!)
And how would that be helpful on Usenet? :)
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | Hi, Dave here, what's the root
Commercial Dynamics Pty. Ltd. | password?
NSW, Australia |
------------------------------
Date: Tue, 08 Sep 1998 23:33:35 GMT
From: gkeene@my-dejanews.com
Subject: For Sale: O'Reilly Perl Resource Kit - WIN32
Message-Id: <6t4esf$v73$1@nnrp1.dejanews.com>
For Sale - Brand New O'Reilly Perl Resource Kit - WIN32 (published August
1998). Brand new, with CD, etc.
Retail Price: 149.95
Amazon Price: 119.96 (plus shipping)
http://www.amazon.com/exec/obidos/ASIN/1565924096/002-5022446-2151066
My Price: $75.00 (plus shipping or free delivery in Portland, Corvallis,
Eugene, Oregon).
Send mail (REMOVE NOSPAMTODAY) to: gregkeeneNOSPAMTODAY@NOSPAMTODAYyahoo.com
for information.
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Tue, 08 Sep 1998 22:46:57 GMT
From: dow.jones@home.se
Subject: Re: fork problem
Message-Id: <6t4c50$rac$1@nnrp1.dejanews.com>
The problem was that I didn't flush STDOUT / set $| = 1
That solved the problem.
The reason that it didn't happen to you must be that you run the program from
the command prompt.
// Daniel
In article <x3y4suipvh2.fsf@tigre.matrox.com>,
Ala Qumsieh <aqumsieh@tigre.matrox.com> wrote:
>
> Daniel <dwiesel@my-dejanews.com> writes:
>
> >
> > I've got a script in perl that forks alot. However my code doesn't
> > seem to be correct. The output procuces the same text over and over
> > again and I can't figure out why.
> >
> > Please have a look at my code and the output it produces
> >
> > The output that I thaught my code would produce
> > ===============================================
> >
> > Content-Type: text/plain
> >
> > 7649 forked process 7650 (started: 0)
> > Child stuff by 7650
> > 7649 forked process 7651 (started: 1)
> > Child stuff by 7651
> > 7649 forked process 7652 (started: 2)
> > Child stuff by 7652
> > 7649 forked process 7653 (started: 3)
> > Child stuff by 7653
> > 7649 forked process 7654 (started: 4)
> > Child stuff by 7654
> > 7649: Terminating
> >
> > # Not necessary in this order...
>
> You program generated the following output for me:
>
> Content-Type: text/plain
>
> Child stuff by 1132
> 1131 forked process 1132 (started: 0)
> Child stuff by 1133
> 1131 forked process 1133 (started: 1)
> Child stuff by 1134
> 1131 forked process 1134 (started: 2)
> Child stuff by 1135
> 1131 forked process 1135 (started: 3)
> 1131 forked process 1136 (started: 4)
> Child stuff by 1136
> 1131: Terminating
>
> Which is pretty much what you're looking for .. what version of Perl
> and OS are you using?
>
> (This is perl, version 5.004_04 built for sun4-solaris)
>
> --
> Ala Qumsieh | No .. not Just Another
> ASIC Design Engineer | Perl Hacker!!!!!
> Matrox Graphics Inc. |
> Montreal, Quebec | (Not yet!)
>
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Tue, 08 Sep 1998 23:30:03 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: fork problem
Message-Id: <%5jJ1.13$cm3.127607@nsw.nnrp.telstra.net>
In article <35f4f8eb.3700470@nntpserver.swip.net>,
Daniel <dwiesel@my-dejanews.com> writes:
> I've got a script in perl that forks alot. However my code doesn't
> seem to be correct. The output procuces the same text over and over
> again and I can't figure out why.
# perldoc -f fork
=item fork
Does a fork(2) system call. Returns the child pid to the parent process
and 0 to the child process, or C<undef> if the fork is unsuccessful.
Note: unflushed buffers remain unflushed in both processes, which means
you may need to set C<$|> ($AUTOFLUSH in English) or call the autoflush()
method of IO::Handle to avoid duplicate output.
^^^^^^^^^^^^^^^^^^^^^^^^^
It's in the documentation. What's more: it's in the firs paragraph
describing the function you use. You really should read this stuff,
you know?
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | Hi, Dave here, what's the root
Commercial Dynamics Pty. Ltd. | password?
NSW, Australia |
------------------------------
Date: Tue, 08 Sep 1998 22:18:23 GMT
From: Garry Williams <garry@america.net>
Subject: Re: How do you supply cleartext password and be secure in Perl (was Perl compiler)
Message-Id: <35F5AD77.64D4006F@america.net>
Peter A Fein wrote:
>
> Garry Williams <garry@america.net> writes:
> >
> > I don't understand. Why not setuid?
> >
> > Have the script run as your own ID and make a file with the secrets in
> > it readable *only* by you. It's as secure as the file system.
>
> What about security holes in the script? Even if you don't make it
> setuid 0, but rather something else, it still necessarily leaves the
> possibility of reading the password file open.
Can you be more specific? "Scrub" the environment data you use. What's
the problem?
-Garry Williams
> > > >How do people supply there FTP, SQL etc scripts with that all important
> > > >password?
------------------------------
Date: Tue, 08 Sep 1998 22:52:15 GMT
From: Garry Williams <garry@america.net>
Subject: Re: How do you supply cleartext password and be secure in Perl (was Perl compiler)
Message-Id: <35F5B553.BD339387@america.net>
Garry Williams wrote:
>
> Peter A Fein wrote:
> >
> > Garry Williams <garry@america.net> writes:
> > >
> > > I don't understand. Why not setuid?
> > >
> > > Have the script run as your own ID and make a file with the secrets in
> > > it readable *only* by you. It's as secure as the file system.
> >
> > What about security holes in the script? Even if you don't make it
> > setuid 0, but rather something else, it still necessarily leaves the
> > possibility of reading the password file open.
>
> Can you be more specific? "Scrub" the environment data you use. What's
> the problem?
> -Garry Williams
>
> > > > >How do people supply there FTP, SQL etc scripts with that all important
> > > > >password?
Well, I felt the need to follow up my follow up. :-) Here's a snippet
of what needs to be done to keep things secure and illustrates what I
meant. This was taken from a setuid 0 script, but there is no need to
run as root. The same principle applies -- give up the euid after
reading the file. The file is only readable by the setuid user. Heck,
it's not even in the Web server document root. I don't see how anyone
can read it or coax the secret from the cgi script.
#!/opt/perl/bin/perl -w
use strict;
...
# Set certain values in the environment
$ENV{INFORMIXDIR} = '/usr/informix';
$ENV{PATH} = '/bin';
delete $ENV{IFS};
delete $ENV{ENV};
...
my $DBLOGIN '/usr/local/etc/secrets';
my $ruid;
my $dbh;
...
########################## setuid root #####################
$ruid = $<; # Save real user ID
$< = 0; # Become root
unless ( open(DBPASS, $DBLOGIN) ) {
die "can't open $DBLOGIN, $!";
}
unless ( defined($_ = <DBPASS>) ) {
die "can't read database login/password, $!";
}
close(DBPASS);
chomp;
($dblogin, $dbpasswd) = split(m[/]);
$< = $ruid; # Change back to real uid
$> = $ruid; # Give up root
######################## end root ##########################
###################
# Open database
###################
$dbh = DBI->connect('dbi:Informix:fulcrum@atl2_se', $dblogin, $dbpasswd)
|| die "DBI->connect: $DBI::errstr";
...
------------------------------
Date: Fri, 4 Sep 1998 09:14:06 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Is perl millennium compliant ?
Message-Id: <ejsos6.jk.ln@metronet.com>
Les George (georgelj@boat.bt.com) wrote:
: Does snybody knwo if the current releases of perl have been certified
^^^^^^^^^
: for millennium compliance ?
What Certification Authority do you want to believe?
Perl will blow up in less that 18 months.
Stop using it immediately.
Try Visual Basic instead.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 08 Sep 1998 18:05:39 -0400
From: Bill 'Sneex' Jones <sneaker@sneex.fccj.org>
Subject: Re: Is perl millennium compliant ?
Message-Id: <35F5AA33.D12EDAFF@sneex.fccj.org>
Tad McClellan wrote:
>
> What Certification Authority do you want to believe?
>
"I do hereby certify that perl is as compliant as the
programmer is. If the programmer isn't, then sorry."
PS - Should I say something about VB, just to start a
long drawn out thread, again ?
Just teasing,
-Sneex- :]
__________________________________________________________________
Bill Jones | FCCJ Webmaster | http://webmaster.fccj.org/Webmaster
__________________________________________________________________
It is common sense to take a method and try it. If it fails,
admit it frankly and try another. But above all, try something.
-- Franklin D. Roosevelt
------------------------------
Date: 08 Sep 1998 10:18:25 -0400
From: Malcolm Davis <davis@nod.lvl.pri.bms.com>
Subject: Re: ndbm problem
Message-Id: <xo2lnnuadse.fsf@nod.lvl.pri.bms.com>
For the record, the source of my ndbm difficulties was not with the
overall size of the database (dbm_open vs. dbm_open64), but with the
size of the data records. I failed to check that my key/value pairs
fell under the 1024 byte limit imposed by the ndbm implementation.
I have solved my problems by switching to GDBM.
For what it's worth, below are the diffs for my NDBM64_File from the
corresponding NDBM_File files. The code seems to work okay. It is
just me that doesn't.
Malcolm
diff -c NDBM_File/Makefile.PL NDBM64_File/Makefile.PL
*** NDBM_File/Makefile.PL Mon Jun 24 10:25:03 1996
--- NDBM64_File/Makefile.PL Wed Aug 26 14:41:35 1998
***************
*** 1,8 ****
use ExtUtils::MakeMaker;
WriteMakefile(
! NAME => 'NDBM_File',
LIBS => ["-L/usr/local/lib -lndbm", "-ldbm -lucb"],
MAN3PODS => ' ', # Pods will be built by installman.
XSPROTOARG => '-noprototypes', # XXX remove later?
! VERSION_FROM => 'NDBM_File.pm',
);
--- 1,8 ----
use ExtUtils::MakeMaker;
WriteMakefile(
! NAME => 'NDBM64_File',
LIBS => ["-L/usr/local/lib -lndbm", "-ldbm -lucb"],
MAN3PODS => ' ', # Pods will be built by installman.
XSPROTOARG => '-noprototypes', # XXX remove later?
! VERSION_FROM => 'NDBM64_File.pm',
);
diff -c NDBM_File/NDBM_File.pm NDBM64_File/NDBM64_File.pm
*** NDBM_File/NDBM_File.pm Fri Aug 16 15:45:53 1996
--- NDBM64_File/NDBM64_File.pm Wed Aug 26 15:13:43 1998
***************
*** 1,4 ****
! package NDBM_File;
BEGIN {
if ($] >= 5.002) {
--- 1,4 ----
! package NDBM64_File;
BEGIN {
if ($] >= 5.002) {
***************
*** 14,20 ****
$VERSION = "1.00";
! bootstrap NDBM_File $VERSION;
1;
--- 14,20 ----
$VERSION = "1.00";
! bootstrap NDBM64_File $VERSION;
1;
***************
*** 22,34 ****
=head1 NAME
! NDBM_File - Tied access to ndbm files
=head1 SYNOPSIS
! use NDBM_File;
! tie(%h, 'NDBM_File', 'Op.dbmx', O_RDWR|O_CREAT, 0640);
untie %h;
--- 22,34 ----
=head1 NAME
! NDBM64_File - Tied access to ndbm files
=head1 SYNOPSIS
! use NDBM64_File;
! tie(%h, 'NDBM64_File', 'Op.dbmx', O_RDWR|O_CREAT, 0640);
untie %h;
diff -c NDBM_File/NDBM_File.xs NDBM64_File/NDBM64_File.xs
*** NDBM_File/NDBM_File.xs Sat Jan 14 23:55:12 1995
--- NDBM64_File/NDBM64_File.xs Thu Aug 27 13:31:59 1998
***************
*** 3,19 ****
#include "XSUB.h"
#include <ndbm.h>
! typedef DBM* NDBM_File;
! #define dbm_TIEHASH(dbtype,filename,flags,mode) dbm_open(filename,flags,mode)
! #define dbm_FETCH(db,key) dbm_fetch(db,key)
! #define dbm_STORE(db,key,value,flags) dbm_store(db,key,value,flags)
! #define dbm_DELETE(db,key) dbm_delete(db,key)
! #define dbm_FIRSTKEY(db) dbm_firstkey(db)
! #define dbm_NEXTKEY(db,key) dbm_nextkey(db)
! MODULE = NDBM_File PACKAGE = NDBM_File PREFIX = dbm_
! NDBM_File
dbm_TIEHASH(dbtype, filename, flags, mode)
char * dbtype
char * filename
--- 3,19 ----
#include "XSUB.h"
#include <ndbm.h>
! typedef DBM64* NDBM64_File;
! #define dbm_TIEHASH(dbtype,filename,flags,mode) dbm_open64(filename,flags,mode)
! #define dbm_FETCH(db,key) dbm_fetch64(db,key)
! #define dbm_STORE(db,key,value,flags) dbm_store64(db,key,value,flags)
! #define dbm_DELETE(db,key) dbm_delete64(db,key)
! #define dbm_FIRSTKEY(db) dbm_firstkey64(db)
! #define dbm_NEXTKEY(db,key) dbm_nextkey64(db)
! MODULE = NDBM64_File PACKAGE = NDBM64_File PREFIX = dbm_
! NDBM64_File
dbm_TIEHASH(dbtype, filename, flags, mode)
char * dbtype
char * filename
***************
*** 22,39 ****
void
dbm_DESTROY(db)
! NDBM_File db
CODE:
! dbm_close(db);
datum
dbm_FETCH(db, key)
! NDBM_File db
datum key
int
dbm_STORE(db, key, value, flags = DBM_REPLACE)
! NDBM_File db
datum key
datum value
int flags
--- 22,39 ----
void
dbm_DESTROY(db)
! NDBM64_File db
CODE:
! dbm_close64(db);
datum
dbm_FETCH(db, key)
! NDBM64_File db
datum key
int
dbm_STORE(db, key, value, flags = DBM_REPLACE)
! NDBM64_File db
datum key
datum value
int flags
***************
*** 43,70 ****
croak("No write permission to ndbm file");
croak("ndbm store returned %d, errno %d, key \"%s\"",
RETVAL,errno,key.dptr);
! dbm_clearerr(db);
}
int
dbm_DELETE(db, key)
! NDBM_File db
datum key
datum
dbm_FIRSTKEY(db)
! NDBM_File db
datum
dbm_NEXTKEY(db, key)
! NDBM_File db
datum key
int
! dbm_error(db)
! NDBM_File db
void
! dbm_clearerr(db)
! NDBM_File db
--- 43,70 ----
croak("No write permission to ndbm file");
croak("ndbm store returned %d, errno %d, key \"%s\"",
RETVAL,errno,key.dptr);
! dbm_clearerr64(db);
}
int
dbm_DELETE(db, key)
! NDBM64_File db
datum key
datum
dbm_FIRSTKEY(db)
! NDBM64_File db
datum
dbm_NEXTKEY(db, key)
! NDBM64_File db
datum key
int
! dbm_error64(db)
! NDBM64_File db
void
! dbm_clearerr64(db)
! NDBM64_File db
diff -c NDBM_File/typemap NDBM64_File/typemap
*** NDBM_File/typemap Thu Jul 31 14:50:24 1997
--- NDBM64_File/typemap Thu Aug 27 11:09:11 1998
***************
*** 4,9 ****
--- 4,10 ----
datum T_DATUM
gdatum T_GDATUM
+ NDBM64_File T_PTROBJ
NDBM_File T_PTROBJ
GDBM_File T_PTROBJ
SDBM_File T_PTROBJ
end
--
Malcolm E. Davis <mailto:davism@bms.com>
H23-07; Bristol-Myers Squibb; P.O.Box 4000; Princeton, NJ 08543-4000
Phone: 609-252-4324 FAX: 609-252-6030
LV H.3812D
------------------------------
Date: Tue, 8 Sep 1998 15:24:56 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Of FAQS and Rounding...
Message-Id: <MPG.105f4e927c776a8c98979b@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and a copy mailed.]
In article <35F5A500.3EDE0110@sneex.fccj.org> on Tue, 08 Sep 1998
17:43:28 -0400, Bill 'Sneex' Jones <sneaker@sneex.fccj.org> says...
...
> # Is there a built in way to round a number in PERL?
> # IE. 5.1 to derive to 5 or 4.6 to derive to 5....
...
> # Answer:
> # Not really is the short answer...
> #
> # Long answer - You'll have to do it yourself.
> # Sorry...
[s]printf '%.0f', $number;
> # PS - Who would have thought to use:
>
> #perldoc perlfaq4
Evidently not you, for this is in there.
"Does perl have a round function? What about ceil() and floor()? Trig
functions?
For rounding to a certain number of digits, sprintf or printf is usually
the easiest route..."
Maybe you didn't know about the '%.0f' format specifier. Or am I
completely missing the point, and your post was satire?
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 8 Sep 1998 22:52:48 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: Perl & Java - differences and uses
Message-Id: <905295043.652672@thrush.omix.com>
Randal Schwartz <merlyn@stonehenge.com> wrote:
: >>>>> "bjohnsto" == bjohnsto usa net <bjohnsto_usa_net@dejanews.com> writes:
>snip<
: bjohnsto> On the web browser Java has a full built-in graphical
: bjohnsto> environment in a secure sand box. Java's competition here
: bjohnsto> is JavaScript, an unrelated language which fits into the
: bjohnsto> HTML environment rather than having its own GUI. Perl is
: bjohnsto> not wide spread enough amongst clients to be useful.
If you've only taken Java to the point that JavaScript can go,
you are really, really missing out. As much as I love Perl/Tk
and Perl/Gtk+ (Gimp toolkit bindings from perl, very slick I
must say), Java still runs circles around both. Gtk+ has the
potential to blow it away, but not in a cross-platform mannor
anytime soon.
Sand boxes are only really useful for enterprise apps, as no
one else is (or should be) foolish enough to allow them for
general web sites.
: And Java is disabled enough on serious surfers to not be useful
: either. I'll never surf the wide-open net-seas with Java or
: Javascript enabled.
I run pretty wide-open, but I do it from an highly restricted
login.
: Tim Bunce and the thousands of users of DBI/DBD would probably
: disagree with you here. :)
Yep. Solid, high-performance database connectivity is exactly
why we've chosen Perl for a number of mission critical uses at
my current company.
The last thing anyone trying to write a scalable app in Java
would do is use JDBC directly from the client anyway, and Java
lacks the basic primitives (select(), non-blocking IO, file
descriptor passing, etc) to compete for use in writing servers
under Unix (thread all blocking IO my ass...). Even JDBC from
Servlets is worthless with 3k-10k simultaneous users, which is
common for enterprise level applications.
To be honest, Java is pretty darn good for client apps, but
for servers it bites, and without an extra tier or three it
can't scale database access well at all (but then, neither
can anything else, really, for the same reasons).
--
-Zenin (zenin@archive.rhps.org) From The Blue Camel we learn:
BSD: A psychoactive drug, popular in the 80s, probably developed at UC
Berkeley or thereabouts. Similar in many ways to the prescription-only
medication called "System V", but infinitely more useful. (Or, at least,
more fun.) The full chemical name is "Berkeley Standard Distribution".
------------------------------
Date: 8 Sep 1998 22:31:33 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: Perl gurus opinion needed.
Message-Id: <905293768.976825@thrush.omix.com>
thor wrote:
> why not just "perl" as in:
>snip<
Got Perl?
--
-Zenin (zenin@archive.rhps.org) From The Blue Camel we learn:
BSD: A psychoactive drug, popular in the 80s, probably developed at UC
Berkeley or thereabouts. Similar in many ways to the prescription-only
medication called "System V", but infinitely more useful. (Or, at least,
more fun.) The full chemical name is "Berkeley Standard Distribution".
------------------------------
Date: 8 Sep 1998 21:53:29 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: Perl Programmer Needed
Message-Id: <905291485.447680@thrush.omix.com>
[posted & mailed]
Roberto <roberto@toutatis.net> wrote:
>snip<
: > a few items for sale, or a job opening, in an appropriate newsgroup
: ^^^^^^^^^^^^
: > (such as misc.forsale.* or misc.jobs.*) is OK; posting an ad for
: ^^^^^^^
: > your business to a hundred groups is not.
:
: That does not even *sound* like a decrete that job postings go in job
: groups,
You stopped underlining too soon, thus taking the meaning out
of context. Note the EXPLICIT examples of misc.FORSALE.*
and misc.JOBS.* shortly after your underlined "such as".
Please show us what part of "comp.misc.lang.perl" contains the
words "forsale" or "jobs".
: regardless of the category. It merely illustrates my understanding
: of usenet that what is "off-topic" and what is not, is subject to
: continuous dialog, debate and interpretation by -> the usenet community ==
Quite true, for *gray* areas. This is in no way, shape, or form
a "gray" area. It is pure black and white, and very well defined
in previously sited documents.
--
-Zenin (zenin@archive.rhps.org) From The Blue Camel we learn:
BSD: A psychoactive drug, popular in the 80s, probably developed at UC
Berkeley or thereabouts. Similar in many ways to the prescription-only
medication called "System V", but infinitely more useful. (Or, at least,
more fun.) The full chemical name is "Berkeley Standard Distribution".
------------------------------
Date: 8 Sep 1998 22:30:00 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: Perl Programmer Needed
Message-Id: <905293676.862597@thrush.omix.com>
[posted & mailed]
Richard <Richard@WowMe.com> wrote:
: Not true Elaine. Actually, I am still receiving email from interested
: parties. That fact alone proves the point that some people did appreciate
: the post.
And some people actually appreciate and respond to SPAM, or else
the spamers wouldn't keep SPAMing. Does that make SPAM ok? No,
wait, don't answer that...
>snip<
: I do think we should all be involved in helping people realize what
: is appropriate and inappropriate on the Internet in general, but there is a
: way to do it.
Yes, there is. In an open forum.
: One person, making themselves the policeman of what IS right
: and IS wrong IS not the way.
I'm flaming you too now, so does that make us a posse? :-)
: Making a friendly note to that person privately is.
CCing the offender isn't a bad idea, but the message should be
public. This is for the good of the offender as well, as they
can't defend themself behind closed doors.
: Posting a message publicly saying it is a questionable post
: and asking for feedback from the other users of the newsgroup is.
See, the problem here is that this is not a debatable issue. It
has been debated to death and is now, and has been for some time,
burned in FAQ stone.
: But dropping the gavel on something like this is not.
Why? RTFFAQ or stay out of USENET. It's pretty simple.
--
-Zenin (zenin@archive.rhps.org) From The Blue Camel we learn:
BSD: A psychoactive drug, popular in the 80s, probably developed at UC
Berkeley or thereabouts. Similar in many ways to the prescription-only
medication called "System V", but infinitely more useful. (Or, at least,
more fun.) The full chemical name is "Berkeley Standard Distribution".
------------------------------
Date: Tue, 08 Sep 1998 22:35:13 GMT
From: "Richard" <Richard@WowMe.com>
Subject: Re: Perl Programmer Needed
Message-Id: <BiiJ1.2865$JW5.8523362@news.rdc1.md.home.com>
Rick,
I considered this factor before I replied. However, I felt strongly
about defending my position and what I did. Simply, because I don't see
myself as doing something disrespectful. The point of the rules is to is to
provide a set of guidelines of what would be disrespectful. It is the users
who ultimately decide and not all users will agree. (AS we have all seen
here) So far, only a few people have mentioned flatly NOT appreciating the
posts. A few have defended it and over 35 have sent contact information. I
don't think it was SPAM. This is a newsgroup of talented Perl programmers
and their technical. My technical problems were ones I wanted to offer
someone money to resolve for me. It's that simple. I think it was worth
defending and I don't think I have humiliated myself, nor do I think it was
Randall's goal to humiliate me. I think it was Randall's post had a tinge
of the "embarrassment as a means of negative feedback" factor involved and
it was that which I did not appreciate. I think Randal got my point, and I
think I got Randall's point, a long time ago. However, the debate
continues. What it comes down to is , not everyone is going to view it the
same way. To some it is black and white, right or wrong. To others it is a
gray area. Such is the way of any social interaction. Even in newsgroups.
I think we would all agree to some posts as being inappropriate. Therefore,
negative reactions to those should be expected by their posters. however,
when a thread runs this long with people on both sides of the fence on the
issue, I think it's clear, this is something that is a gray area. That is
the spice of life! The best thing to do is consider all sides and move on.
Cheers!
Rick Delaney wrote in message <35F59BE0.FDF41DE6@shaw.wave.ca>...
>Richard wrote:
>>
>> I think Rick has cleared this up:
>> > e-mail to both you and your machine administrators. Posting
>> > about a few items for sale, or a job opening, in an appropriate
>> > newsgroup (such as misc.forsale.* or misc.jobs.*) is OK; posting
>> > an ad for your business to a hundred groups is not.
>> This is a rule which I followed!
>Since you did get responses for your job posting, I would say it served
>its purpose. It really shouldn't matter to you what others think.
>
>Your big complaint seems to be that Randal somehow publicly humiliated
>you. I think you are doing a far better job of that yourself.
------------------------------
Date: Tue, 08 Sep 1998 22:48:33 GMT
From: malch@malch.com (Malcolm Hoar)
Subject: Re: Perl Programmer Needed
Message-Id: <6t4c81$n06$2@nntp1.ba.best.com>
In article <ylzpcatisi.fsf@windlord.stanford.edu>, Russ Allbery <rra@stanford.edu> wrote:
>Er... I'm not aware of any such global policy. I'd get annoyed, as a news
>administrator, if job postings started filling up groups that my users
>wanted to read for other purposes, and if there were too many of them it
>might be a good idea to create a separate group for that purpose, and I'm
>not sure that I'm that *happy* about them, but I odn't feel nearly as
>strongly about this as it seems like you do.
It hasn't been a huge problem here to date. However, I fear that
endorsement may cause certain agencies to feel they can start
blasting this group with dozens of job postings each day. Once
they get started, it won't be limited to Perl jobs - we'll get
everything from Algol to Z-80 assembler :-(
--
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Malcolm Hoar "The more I practice, the luckier I get". |
| malch@malch.com Gary Player. |
| http://www.malch.com/ Shpx gur PQN. |
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
------------------------------
Date: Tue, 08 Sep 1998 18:21:37 -0400
From: Bill 'Sneex' Jones <sneaker@sneex.fccj.org>
To: Daniel Stringfield <dstringf@fccjmail.fccj.cc.fl.us>
Subject: Re: perl question
Message-Id: <35F5ADF1.92B11CD7@sneex.fccj.org>
Daniel Stringfield wrote:
>
> Is there a built in way to round a number in PERL? IE. 5.1 to derive to 5
> or 4.6 to derive to 5....
Better Proof:
#!/usr/bin/perl -w
# Rounding issues... WCJ 9/8/98 @ 18:00.
use strict;
use diagnostics;
my $x = 0;
my $needsRnding = 4.3;
while(1) {
printf("Was: %f, ", $needsRnding);
# Maybe there's another way, so let's try this:
my $rndThis = $needsRnding;
$rndThis =~ /\./;
$rndThis = $';
my $wholeNumber = $`;
if ((length($rndThis) > 1 && $rndThis > 49) ||
(length($rndThis) == 1 && $rndThis > 4)) {
$wholeNumber += 1;
}
#Else do nothing, as it must be less than 4.50...
# Now what do we have? Yippy!
printf("is %f.\n", $wholeNumber);
last if ($x++ > 15);
$needsRnding += 0.09;
}
# Exit...
1;
--
__________________________________________________________________
Bill Jones | FCCJ Webmaster | http://webmaster.fccj.org/Webmaster
__________________________________________________________________
It is common sense to take a method and try it. If it fails,
admit it frankly and try another. But above all, try something.
-- Franklin D. Roosevelt
------------------------------
Date: Tue, 8 Sep 1998 15:35:15 -0700
From: theteam@pinkworks.com (Amy O'Neill Houck)
Subject: Script doesn't like text fields?
Message-Id: <MPG.105f50fb10ef6801989688@news.emeraldnet.net>
Hi, I'm using a pre-fab form processing script which keeps telling me I
haven't filled out fields that are indeed filled out.
Can anyone give me any ideas why?
The form is located at http://www.harrisonhospital.org
TIA,
Amy
--
Work for Pinkworks
http://www.pinkworks.com/jobs.html
------------------------------
Date: Tue, 08 Sep 1998 23:46:42 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: sendmail/cgi/sockets
Message-Id: <CljJ1.19$cm3.127607@nsw.nnrp.telstra.net>
In article <gNiJ1.198$1m2.502171@news-reader.bt.net>,
"J" <nospam@no-bloody-where.com> writes:
> Does anyone have any sample codes that I can play with that
> demonstrate how to connect a win32 perl script with a remote
The Net::SMTP module should tell you in the documentation.
# perldoc Net::SMTP
> SMTP server. I have the following code that someone sent me
> previously, but it doesn't seem to work.
[snip]
> begin 666 smtp.pl
> M(R!33510($UA:6QE<B H4$523"D*(R!">2!,964@5&AO;7!S;VX@*$,I(#$Y
This code doesn't work because it is encoded (UU I believe). Decode it
first, using your favourite decoding tool. Then run it.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | 75% of the people make up 3/4 of the
Commercial Dynamics Pty. Ltd. | population.
NSW, Australia |
------------------------------
Date: Tue, 08 Sep 1998 23:32:45 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Stripping out 'bad' HTML
Message-Id: <x8jJ1.14$cm3.127607@nsw.nnrp.telstra.net>
In article <Pine.GSO.3.96.980908132115.12464B-100000@expert.cc.purdue.edu>,
"Jonathan M. Hartman" <cajun@expert.cc.purdue.edu> writes:
> On 8 Sep 1998, Abigail wrote:
>
>> Jeremy Goldberg (jgoldberg@dial.pipex.com) wrote on MDCCCXXXIII September
>> MCMXCIII in <URL: news:6t06kf$q3p$1@plug.news.pipex.net>:
>> ++ Does anyone have a decent algorithm (or a module, hint, hint) to take text
>> ++ and strip out 'bad' HTML e.g. "3 < 5" (which should be written as "3 <
>>
>> What is bad about "3 < 5"?
>
> If you don't know, you won't be of any help to him...
Uhm.. I think Abigail might have forgotten more about HTML than you
have ever known. She probably meant that question retorically.
There is nothing in the SGML or HTML specification that forbids "3 < 5"
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | A Freudian slip is when you say one
Commercial Dynamics Pty. Ltd. | thing but mean your mother.
NSW, Australia |
------------------------------
Date: Tue, 8 Sep 1998 22:11:10 GMT
From: ced@bcstec.ca.boeing.com (Charles DeRykus)
Subject: Re: Which method am I on?
Message-Id: <EyzKAM.LLF@news.boeing.com>
In article <EyzHHv.FI7@news.boeing.com>,
Charles DeRykus <ced@bcstec.ca.boeing.com> wrote:
>
>caller(0))[3]
(caller(0))[3]
hth,
--
Charles DeRykus
------------------------------
Date: Tue, 08 Sep 1998 17:11:48 -0600
From: Alex Tatistcheff <alext@cri-boi.nospam.com>
Subject: Win32 Lib path problems
Message-Id: <35F5B9B4.3D0A3E35@cri-boi.nospam.com>
I've got a script that I'm trying to use with the AdminMisc library. It
works just fine on my workstation but when I try and move it to the
server it can't find the AdminMisc.pm file... I have another script
that uses Win32::Services and I have to point to the win32 directory
with a -I on the perl commandline but it does work. For some reason
it's not working for AdminMisc.
Here is the command and the error I get:
C:\teammpt\scripts>perl -I c:/teamnt/perl/lib/win32 atjobcheck.pl
Can't locate Win32/AdminMisc.pm in @INC at atjobcheck.pl line 7.
BEGIN failed--compilation aborted at atjobcheck.pl line 7.
I've put all the right files in the right places for it to work but it
still gives me the same error. What can I do to point it to the right
place?
--
Alex Tatistcheff
CRI/The Resource Group, Inc.
Boise, ID
Please remove "nospam" from my email when replying
------------------------------
Date: Tue, 08 Sep 1998 17:16:45 -0600
From: Alex Tatistcheff <alext@cri-boi.nospam.com>
Subject: Re: Win32 Lib path problems
Message-Id: <35F5BADD.F75842E4@cri-boi.nospam.com>
Here's a followup to my question with more information. If I change the
path on the commandline I get a different error. It seems to see the
AdminMisc.pm but it can't find the "loadable object module" :
C:\teammpt\scripts>perl -I c:/teamnt/perl/lib atjobcheck.pl
Can't find loadable object for module Win32::AdminMisc in @INC at
atjobcheck.pl
line 7
BEGIN failed--compilation aborted at atjobcheck.pl line 7.
Alex Tatistcheff wrote:
> I've got a script that I'm trying to use with the AdminMisc library. It
> works just fine on my workstation but when I try and move it to the
> server it can't find the AdminMisc.pm file... I have another script
> that uses Win32::Services and I have to point to the win32 directory
> with a -I on the perl commandline but it does work. For some reason
> it's not working for AdminMisc.
>
> Here is the command and the error I get:
>
> C:\teammpt\scripts>perl -I c:/teamnt/perl/lib/win32 atjobcheck.pl
> Can't locate Win32/AdminMisc.pm in @INC at atjobcheck.pl line 7.
> BEGIN failed--compilation aborted at atjobcheck.pl line 7.
>
> I've put all the right files in the right places for it to work but it
> still gives me the same error. What can I do to point it to the right
> place?
>
> --
>
> Alex Tatistcheff
> CRI/The Resource Group, Inc.
> Boise, ID
> Please remove "nospam" from my email when replying
--
Alex Tatistcheff
CRI/The Resource Group, Inc.
Boise, ID
Please remove "nospam" from my email when replying
------------------------------
Date: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 3663
**************************************
