[7209] in Perl-Users-Digest
Perl-Users Digest, Issue: 834 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Aug 9 01:07:20 1997
Date: Fri, 8 Aug 97 22:00:30 -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 Fri, 8 Aug 1997 Volume: 8 Number: 834
Today's topics:
ANNOUNCE: mod_perl-1.00 <dougm@opengroup.org>
bug passing alists as sub arguments <biestw01@popmail.med.nyu.edu>
Re: bug passing alists as sub arguments (Matthew Cravit)
C++ Documentation via Perl <brosz@ug.eds.com>
Re: Cannot execute this code - HELP (Tad McClellan)
Re: Counting Files (Tad McClellan)
Re: Criteria for file locking over other methods <rootbeer@teleport.com>
EASY PROBABLY: removing names from paths <lmisosa@eei.ericsson.se>
Re: GROVEL: script that capitalizes unix filenames <merlyn@stonehenge.com>
Have array, will (won't?) sort <parkhurs@indiana.edu>
Re: Help executing SCSI commands. <rootbeer@teleport.com>
Re: Help executing SCSI commands. (Mike Stok)
Re: Help! - Reformatting Date (Jim Michael)
Re: How to make Perl Regular expressions "Rightmost is (Tushar Samant)
html --> perl <tomh@u1.abs.net>
Re: html --> perl <kperrier@Starbase.NeoSoft.COM>
Re: Inserting within a string? (Jeff Stampes)
Interfacing to a database, but how? <whm@gleim.com>
Re: Is there a perl IDE? lvirden@cas.org
Re: known perl limitations <rootbeer@teleport.com>
Re: known perl limitations (Ilya Zakharevich)
Re: Mail::Send question <gbarr@ti.com>
Re: Making a variable from a variable? <rootbeer@teleport.com>
Re: New & Improved "Powered by Perl" logo. Steve_Kilbane@cegelecproj.co.uk
ObjStore 1.09 Release <pritikin@mindspring.com>
Perl 5.004_1 on AIX 4.1.4 <fields@databolts.ibm.com>
Re: Perl and Windows NT (Viper)
PERL for windows <pkkiran@imap1.asu.edu>
Perl, CGI/Perl Tutorials - Boulder, CO (John Donnelly)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 5 Aug 1997 23:07:47 GMT
From: Doug MacEachern <dougm@opengroup.org>
Subject: ANNOUNCE: mod_perl-1.00
Message-Id: <5s8bo3$bdv$1@nadine.teleport.com>
The release of mod_perl 1.00 is now available from a CPAN site near
you:
http://www.perl.com/CPAN/modules/by-module/Apache/mod_perl-1.00.tar.gz
You'll also find this release along with more information at the
mod_perl homepage:
http://perl.apache.org/
A brief overview of mod_perl and the Apache::* modules:
The Apache/Perl integration project brings together the full power of
the Perl programming language and the Apache HTTP server. This is
achieved by linking the Perl runtime library into the server and
providing an object oriented Perl interface to the server's C language
API.
These pieces are seamlessly glued together by the `mod_perl' server
plugin, making it is possible to write Apache modules entirely in
Perl. In addition, the persistent interpreter embedded in the server
avoids the overhead of starting an external interpreter and the
penalty of Perl start-up (compile) time.
Without question, the most popular Apache/Perl module is
Apache::Registry module. This module emulates the CGI environment,
allowing programmers to write scripts that run under CGI or
mod_perl without change. Existing CGI scripts may require some
changes, simply because a CGI script has a very short lifetime of one
HTTP request, allowing you to get away with "quick and dirty"
scripting. Using mod_perl and Apache::Registry requires you to be
more careful, but it also gives new meaning to the work "quick"!
Apache::Registry maintains a cache of compiled scripts, which happens
the first time a script is accessed by a child server or once again if
the file is updated on disk.
Although it may be all you need, a speedy CGI replacement is only a
small part of this project. Callback hooks are in place for each stage
of a request. Apache-Perl modules may step in during the handler,
header parser, uri translate, authentication, authorization, access,
type check, fixup, logger and cleanup stages of a request.
Apache/Perl modules include:
Apache::Registry - Run unaltered CGI scripts
Apache::Status - Embedded interpreter runtime status
Apache::Embperl - Embed Perl code in HTML documents
Apache::SSI - Implement server-side includes in Perl
Apache::DBI - Maintain persistent DBI connections
Apache::DCELogin - Obtain a DCE Login context
Apache::AuthenDBI - Authenticate via Perl DBI/DBD::*
Apache::AuthzAge - Authorize based on age
Apache::AccessLimitNum - Limit user access by number of requests
Apache::Constants - Constants defined in httpd.h
Apache::MsqlProxy - Translate URI's into mSQL database queries
There's plenty more Apache/Perl software you might be interested in.
The Apache/Perl module list keeps track of modules inside and outside
the distribution, along with idea placeholders.
It is also possible to use Perl to configure your server (in
*.conf files) with <Perl> sections. This eases often complicated and
cumbersome configuration of vitrual host and various resources. Since
any Perl code can be used in these sections, configuration info could
be pulled in from an RDBMS with DBI or your favorite database package.
While the output of mod_perl scripts can be included with Server Side
Includes just as CGI scripts can, mod_perl's integration with
mod_include gives an extra speed boost and allows Perl code to be
directly inside SSI files.
For more module information see:
http://www.perl.com/CPAN/modules/by-module/Apache/apache-modlist.html
For comments, questions, bug-reports, announcements, etc., join the
Apache/Perl mailing list by sending mail to
listserv@listproc.itribe.net with the string "subscribe modperl" in
the body.
There is a hypermail archive for this list available from:
http://outside.organic.com/mail-archives/modperl/
The mod_perl FAQ is available from:
http://www.ping.de/~fdc/mod_perl/
For more general information see the Apache/Perl homepage:
http://perl.apache.org/
Enjoy,
-Doug MacEachern
------------------------------
Date: Tue, 05 Aug 1997 11:18:59 -0400
From: William Biesty <biestw01@popmail.med.nyu.edu>
Subject: bug passing alists as sub arguments
Message-Id: <33E74461.64BF@popmail.med.nyu.edu>
I'm getting the following error message
Odd number of elements in hash list at iceflow.pl line nnn
in Perl 5.004 on a DEC Alpha UNIX (Digital UNIX V4.0B (Rev. 564);) when
I
pass an associative array as the middle argument to a subroutine.
sub bob {
local ($x, %y, $z) = @_;
# some code here
bob $x-1, %y, $z;
}
%aa=(...);
bob 3, %aa, 0;
When I move the list to the end of the arguments, I don't
get the error. This code worked fine in version 4.0.1.7
patch level 35 on ULTRIX V4.2A (Rev. 47).
Is there a patch for this?
Bill
--
Bill Biesty bill@popmail.med.nyu.edu
NYU Medical Center (212) 263-5744
550 First Avenue - Coles 202 FAX (212) 263-8542
New York, NY 10016
------------------------------
Date: 5 Aug 1997 17:25:25 -0700
From: mcravit@best.com (Matthew Cravit)
Subject: Re: bug passing alists as sub arguments
Message-Id: <5s8g9l$j7l$1@shell3.ba.best.com>
In article <33E74461.64BF@popmail.med.nyu.edu>,
William Biesty <biestw01@popmail.med.nyu.edu> wrote:
>I'm getting the following error message
>
> Odd number of elements in hash list at iceflow.pl line nnn
>
>in Perl 5.004 on a DEC Alpha UNIX (Digital UNIX V4.0B (Rev. 564);) when
>I
>pass an associative array as the middle argument to a subroutine.
>
> sub bob {
> local ($x, %y, $z) = @_;
> # some code here
> bob $x-1, %y, $z;
> }
This is not a bug. In Perl 5, you can initialize a hash by passing it a
list of key/value pairs. What's happening in your example is that the
first element of @_ is going into $x, and all the rest are getting sucked
up by %y. Since the scalar that would go into $z is also getting sucked
up by %y, you get the error about an odd number of elements in the list.
There are two ways to handle this. The first is to change your sub's
calling order so that it's invoked
bob $x, $z, %y
which will make it behave the way you expect. A better solution, IMHO, is
to pass a reference to the hash, and then dereference it in your subroutine.
This would look something like:
sub bob {
my ($x, $yref, $z) = @_;
my %y = %$yref;
# Some code here
bob $x-1, \%y, $z;
}
Consult the Blue Camel or the perl documentation (the perlref man page is
probably a good place to start) for the details of how to use references,
in case the above example isn't sufficiently clear to you.
Also, in Perl5, you generally want to use "my" rather than "local". In this
case, with a recursive function, you definitely want to do this to make
sure that there's no ambiguity about which $x, %y, and $z any particular
instance of the function is seeing. It's not strictly required since Perl
will often take care of it for you, but it's safer.
Hope this helps.
/MC
--
Matthew Cravit, N9VWG | Experience is what allows you to
E-mail: mcravit@best.com (home) | recognize a mistake the second
mcravit@taos.com (work) | time you make it.
------------------------------
Date: Tue, 05 Aug 1997 16:45:50 -0700
From: Chris Brosz <brosz@ug.eds.com>
Subject: C++ Documentation via Perl
Message-Id: <33E7BB2E.23CB@ug.eds.com>
Is anyone aware of some Perl scripts that will take C++
header files and produce HTML for documenting the class ?
Thanks in advance.
Please respond to brosz@ug.eds.com
------------------------------
Date: Thu, 7 Aug 1997 19:23:53 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Cannot execute this code - HELP
Message-Id: <puods5.ahc.ln@localhost>
Todd Vinson (tvinson@uswest.com) wrote:
: Below is the code that does not execute due to errors. I have commented
: before the effor occurs. I have tried to execute on various versions of
: perl. Unfortantely, I get the same error.
[ snip ]
: $outfile='/tmp/outfile.$$'
^ where's the semicolon?
--
Tad McClellan SGML Consulting
tadmc@flash.net Perl programming
Fort Worth, Texas
------------------------------
Date: Thu, 7 Aug 1997 18:55:31 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Counting Files
Message-Id: <j9nds5.icc.ln@localhost>
Paul Denman (pdenman@ims.ltd.uk) wrote:
: Hello,
: I have written a small program to count the number of files in a given
: directory
: which have the suffix of '.dat' :
: #!/usr/local/bin/perl5
Hey! Where is every Perl programmer's best friend?
#!/usr/local/bin/perl5 -w
# ^^ ask perl to help you find your mistakes...
: $dir_Name = 'C:\perl5\paul\dir_info\data';
^^^ ^ ^ ^ ~~~shudder~~~ ;-)
: opendir DIRNAME, $dir_Name or die "Directory Not Found.";
: @file_List = grep /.dat/, readdir DIRNAME;
^
If you have a file named dis_and_dat or dis.dat.deother, you want it counted?
Escape the dot and anchor to the end of string if you don't:
@file_List = grep /\.dat$/, readdir DIRNAME;
# ^ ^
: closedir DIRNAME;
: print "".@file_List . " files which match our criteria in the directory " .
: $dir_Name;
That's a novel way of getting a scalar context. I don't think I
would have thought of that...
: Does anyone know of a quicker way?
Quicker to type in?
Quicker to execute?
Quicker to understand when you come back to this code after not seeing
it for a couple of months?
I nearly always go for that last one:
print scalar(@file_List), # Want a scalar context? Ask for one ;-)
" files which match our criteria in the directory $dir_Name\n";
or, you could get the scalar context up there for the grep():
$filecnt = grep /.dat/, readdir DIRNAME;
...
print "$filecnt files which match our criteria in the directory $dir_Name\n";
: (IE one command which will return the
^^
: number of files in a given directory)
I don't know how to do it with an Internet Explorer command...
I suppose you could combine the above
1) asking for a scalar context
and
2) grep():
opendir DIRNAME, $dir_Name or die "Directory Not Found.";
print scalar(grep /\.dat$/, readdir DIRNAME),
" files which match our criteria in the directory $dir_Name\n";
closedir DIRNAME;
--
Tad McClellan SGML Consulting
tadmc@flash.net Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 5 Aug 1997 08:20:10 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Dianna Laakso <dianna@jove.acs.unt.edu>
Subject: Re: Criteria for file locking over other methods
Message-Id: <Pine.GSO.3.96.970805080944.10855M-100000@kelly.teleport.com>
On 5 Aug 1997, Dianna Laakso wrote:
> I'm rewriting an application in Perl; currently it takes requests
> and stores the requests in separate files. The requests are
> merged into a single file periodically.
>
> I rewrote it to write the requests to a single file, and I'm using
> flock() to lock the file while a request is being written.
>
> Is there a trade-off?
There's always a trade off. :-)
> Typically the number of requests per day are 300,
> but could be as many as 1000.
It's not the number of requests per day which matter. I'd try to figure
the maximum number of requests which are likely to be queued up waiting
for a lock to be released. If you only lock the file for a second or two
at a time (which should usually be sufficient) the requests shouldn't get
queued very deeply, I imagine. (Of course, if you get 200 of your requests
between 2:13:10 and 2:13:30, you're going to have troubles. :-)
> What criteria do you use to decide whether
> to use file locking, or go to separate files per request?
When one method stops working for you, try something else. :-) But if you
write your programs efficiently, flock should do the job.
> This is really more of a software engineering question, but it does
> have something to do with flock()'s performance.
Agreed. It's not really on-topic for comp.lang.perl.misc, since the answer
would be the same if your application were written in C or Modula-2. Hope
this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 05 Aug 1997 14:29:28 +0100
From: Shaun O'Shea <lmisosa@eei.ericsson.se>
Subject: EASY PROBABLY: removing names from paths
Message-Id: <33E72AB8.4C5@eei.ericsson.se>
I have an array of file paths and I want to remove everything except the
file name and extension.
EG
ARRAY:
The/location/of/the/file.extension
The/location/of/the/file2.extension
The/location/of/the/file23.extension
i.e how do I remove everything BEFORE the LAST "/" to leave me with
file.extension
file2.extension
file23.extension
I tried a few substitutions but I couldn't get the right regexp to do
the job.
Any help appreciated.
Shaun.............:-)
--
***********************************************************************
Shaun O'Shea,
lmisosa@eei.ericsson.se
OR
shaunos@orca.ucd.ie
***********************************************************************
------------------------------
Date: 05 Aug 1997 18:49:42 -0700
From: Randal Schwartz <merlyn@stonehenge.com>
To: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: GROVEL: script that capitalizes unix filenames
Message-Id: <8c2048t70p.fsf@gadget.cscaper.com>
>>>>> "Nathan" == Nathan V Patwardhan <nvp@shore.net> writes:
Nathan> perl -e 'for(@ARGV) { rename $_, uc($_); }' filename
Uhh, don't you want:
rename $_, uc($_) unless -e uc($_);
?
Otherwise, you can clobber existing files. Ouch.
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,495.69 collected, $182,159.85 spent; just 391 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@ora.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Tue, 05 Aug 1997 20:18:46 -0400
From: "D.F. Parkhurst" <parkhurs@indiana.edu>
Subject: Have array, will (won't?) sort
Message-Id: <33E7C2E6.3B82@indiana.edu>
I'm new at Perl, so this is probably an easy question.
I have a program that was translated from awk to perl. It
includes an array $r ($r{1}, etc.) of floating point numbers that
I want to sort.
The llama book shows a numeric sort in the form
@sortedlist = sort { $a <=> $b } @unsortedlist,
but that sorts a list and produces a list.
How do I sort an array of numbers to get an array?
Thanks for any help.
Dave Parkhurst
------------------------------
Date: Tue, 5 Aug 1997 12:04:33 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: mbayang@houston.geoquest.slb.com
Subject: Re: Help executing SCSI commands.
Message-Id: <Pine.GSO.3.96.970805120216.29887M-100000@kelly.teleport.com>
On Mon, 4 Aug 1997 mbayang@houston.geoquest.slb.com wrote:
> Is it possible to execute SCSI comands from Perl? I am trying to
> get information of off a scsi tape drive. Thanks.
You'd probably need to make a module which could do this, and your process
might have to run with special privileges. The first step in doing this
would probably be to find out what kind of operations would need to be
done from a C program to access the SCSI device. Once you can access it
from C, the Perl docs have a good explanation on how to make that code
into a loadable module. Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 6 Aug 1997 01:47:20 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: Help executing SCSI commands.
Message-Id: <5s8l38$jfj@news-central.tiac.net>
In article <33E5E7CF.5D61@houston.geoquest.slb.com>,
<mbayang@houston.geoquest.slb.com> wrote:
>Is it possible to execute SCSI comands from Perl? I am trying to
>get information of off a scsi tape drive. Thanks.
You may be able to use syscall and pack to do ioctls on the tape device
through a file handle (assuming you're on an unix system) , but I usually
resorted to
@lines = `mt -f /dev/nr$tapeDev status`;
on an old SunOS box, and the parsed the lines.
Hope this helps,
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@psa.pencom.com | Pencom Systems Administration (work)
------------------------------
Date: Tue, 5 Aug 1997 21:27:03 GMT
From: genepool@netcom.com (Jim Michael)
Subject: Re: Help! - Reformatting Date
Message-Id: <genepoolEEGM93.8uv@netcom.com>
Victor Tolbert (vtolbert@mindspring.com) wrote:
: The following expression
: * chop($today = `/usr/bin/date`);
: returns
: * Mon Aug 4 13:22:09 EDT 1997
: What I would rather have is a simple date format which can be easily
: imported into a database. Such as: 8/4/1997 or maybe even Aug 4, 1997.
Check out the localtime function.
Cheers,
Jim
------------------------------
Date: 8 Aug 1997 23:02:17 -0500
From: scribble@shoga.wwa.com (Tushar Samant)
Subject: Re: How to make Perl Regular expressions "Rightmost is greediest"?
Message-Id: <5sgq4a$7gk@shoga.wwa.com>
seay@absyss.fr writes:
>A lot of people have commented on this topic, mostly saying to use
>non-greedy REs. That seems to be a valid approach for this particular
>problem, but is it a general solution?
Yes, if you make "reasonable" assumptions about how RE matching is
done.
I think the perlre man page actually ends up being ambiguous about
this -- i.e. its definition of "non-greedy" is not precise enough.
It says, essentially, that *? will match the minimum number of times
while still allowing the pattern to match. It doesn't tell you minimum
under what restriction -- but the "reasonable" assumption is, not at
the expense of force-feeding *?s to the left.
The engine almost certainly doesn't backtrack right after matching
a *? to see if its "slurp size" can be bummed down further. That
doesn't make much sense in view of the *?s (and *s) to the left.
However, to be pedantic, this fact needs to be mentioned, in some
form or the other. Perhaps just by saying "the leftmost *? is the
least greedy".
------------------------------
Date: Tue, 5 Aug 1997 16:00:20 -0400
From: Tom Halligan <tomh@u1.abs.net>
Subject: html --> perl
Message-Id: <Pine.BSI.3.93.970805155843.14272A-100000@u1.abs.net>
Hi does anyone know a sharwware or freeware program for converting html
to perl
TIA
------------------------------
Date: 05 Aug 1997 15:38:18 -0500
From: Kent Perrier <kperrier@Starbase.NeoSoft.COM>
Subject: Re: html --> perl
Message-Id: <csd8nscqmd.fsf@Starbase.NeoSoft.COM>
Tom Halligan <tomh@u1.abs.net> writes:
Posted and mailed.
> Hi does anyone know a sharwware or freeware program for converting html
> to perl
>
Hummmm, html is a page layout language for web browsers and perl
is a programming/scripting language that happens to be very popular
for cgi scripting. Please explain the connection.
Kent
--
Kent Perrier kperrier@neosoft.com
Corporations don't have opinions, people do. These are mine.
------------------------------
Date: 5 Aug 1997 22:35:07 GMT
From: stampes@xilinx.com (Jeff Stampes)
Subject: Re: Inserting within a string?
Message-Id: <5s89qr$rr$1@neocad.com>
Burt Lewis (Burtlewis@ici.net) wrote:
: I think this is simple, but once again I can't seem to get it.
: I have a string: aaaaaaaaaaaaaa
: I want to insert the letter x after the 5th a
: new string: aaaaaxaaaaaaaaa
$_ = 'aaaaaaaaaaaaaa';
s/^(.{5})(.+)$/$1x$2/;
print $_;
--
Jeff Stampes -- Xilinx, Inc. -- Boulder, CO -- jeff.stampes@xilinx.com
------------------------------
Date: Tue, 05 Aug 1997 16:15:26 -0400
From: Heath Morrison <whm@gleim.com>
Subject: Interfacing to a database, but how?
Message-Id: <33E789DE.35065564@gleim.com>
Im writing a Java applet which needs to interface with a user database
on the server. My problem is, I don't know how to create this database.
I've had various suggestions, but the main decision is between using a
text database and interfacing to it with perl, using some sort of data
file and interfacing to it with a server-side java application, or
running some sort of database (third-party) on the server (Linux) and
interfacing to it with Java. My main concern is which one will be
faster, and therefor better. In addition, I know how I would do this in
perl, but I do not know if that is the fastest way...and I have
absolutely NO idea how to do the server-side stuff in Java. Any insight,
suggestions, or directions would be great.
Thanks in advance,
Heath Morrison
Gleim Publications Inc.
------------------------------
Date: 9 Aug 1997 04:16:51 GMT
From: lvirden@cas.org
Subject: Re: Is there a perl IDE?
Message-Id: <5sgqvj$cov$1@cas.org>
According to Kenneth Vogt <KenVogt@rkymtnhi.com>:
:I can't seem to find a perl IDE for Win95 anywhere. What do you folks
:use? Is perl not worthy of anything more robust that Notepad?
With Perl's heavy investment from the Unix/VMS environment, where
EMACS is the closest thing to a common IDE one is likely to encounter,
you will likely have to wait a bit before a quality IDE similar to what one
in the Windows or Mac environment has come to expect after work in the
C, C++, Smalltalk, etc. environment comes to pass.
--
Larry W. Virden INET: lvirden@cas.org
<URL:http://www.teraform.com/%7Elvirden/> <*> O- "We are all Kosh."
Unless explicitly stated to the contrary, nothing in this posting should
be construed as representing my employer's opinions.
------------------------------
Date: Tue, 5 Aug 1997 12:01:48 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Eric Finley <ez041407@bullwinkle.ucdavis.edu>
Subject: Re: known perl limitations
Message-Id: <Pine.GSO.3.96.970805115311.29887L-100000@kelly.teleport.com>
On 5 Aug 1997, Eric Finley wrote:
> Where can I find a list of known perl limitations. I know that there
> aren't many but there must be some.
Perl's limitations:
* Perl is not recommended for use by children under 3.
* Perl has never been able to write a good novel.
* Perl makes a poor dessert or floor wax.
* Perl is rarely able to leap tall buildings in a single bound.
:-)
What sort of limitations are you looking for? Things like "identifiers
can't be 800 characters long" or things like "Perl doesn't have safe
signal handling"? Or something else?
There are a number of limitations like these scattered through the docs
(and sometimes undocumented or under-documented) but I don't know of any
one place which has collected them. If you have a need for a list,
somebody else might benefit from having it as well. If you make one, maybe
you should see about submitting it to CPAN. Thanks!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 6 Aug 1997 02:09:20 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: known perl limitations
Message-Id: <5s8mcg$67b@agate.berkeley.edu>
In article <5s84ak$h3k$1@mark.ucdavis.edu>,
Eric Finley <ez041407@dilbert.ucdavis.edu> wrote:
> The problem is is that the first record is about 1/2 the file ot 120M.
> When I watch the memmory usage with top it goes up to ~1Gig then crashes
> with an out of memmory error.
1G is close to 4 times 120M. It may be x2 for malloc overhead (if it
is in fact 130M, 120M should go into 128M bucket), then x2 for
overhead for growing string. However, the <> code includes a lot of
sourcery which may be under-optimal on very big input (as it may be on
very small one, but I think the latter case is already fixed in
5.004_01).
On your place I would rebuild with jumbo malloc patch applied. It
should reduce memory usage twice.
Ilya
------------------------------
Date: Tue, 05 Aug 1997 16:16:56 -0500
From: Graham Barr <gbarr@ti.com>
To: Garry Optland <garry@pp.nsw.gov.au>
Subject: Re: Mail::Send question
Message-Id: <33E79848.7806314C@ti.com>
Garry Optland wrote:
>
> Does anyone have an example of how add headers like "Content-Type:"
> using Mail::Send?
>
> I have tried $msg->set and $msg->add but I don't seem to be able to get
> it to work.
It can be done, but your mailer MUST be sendmail and Mail::Send defaults
to using mail. Currently you would have to
$send->open('sendmail');
and then the $msg->add etc will be honoured.
--
Graham Barr <gbarr@ti.com>
It doesn't matter what you do, it only matters what you say you've done
and what you're going to do.
-- Dilbert's Laws
------------------------------
Date: Tue, 5 Aug 1997 10:33:46 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Nigel Reed <nigelr@convex.com>
Subject: Re: Making a variable from a variable?
Message-Id: <Pine.GSO.3.96.970805102958.29887D-100000@kelly.teleport.com>
On 5 Aug 1997, Nigel Reed wrote:
> In my table, I have 25 columns
>
> repdate char(12),
> hour0 int,
> hour1 int,
> hour2 int,
> etc..etc..
>
> How, I'm wanting to sum up some of these columns. for example
> I would select * from usage where repdate='Wed5Aug1997'
I don't know what you mean by that. Could you re-write your question in
the form of a question? :-) (Seriously, I really can't tell what you're
trying to do, how far you've gotten, or what you mean by a phrase such as
"select * from usage". If you could actually post some Perl code which
shows us where you got stuck and what you want to accomplish, that would
be helpful.)
> And I would want to find a total of hours from hour9 to
> hour17 without having to specify all the hours inbetween.
Maybe you want a foreach loop? Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 05 Aug 1997 08:48:25 GMT
From: Steve_Kilbane@cegelecproj.co.uk
Subject: Re: New & Improved "Powered by Perl" logo.
Message-Id: <857cd$83019.207@news.cegelecproj.co.uk>
In article <33e75378.254925297@news.accesscom.net>, lord_viper@mailrunner.net (Viper) writes:
> O'Reilly sent me a message stating I could not use Camel images and
> Perl on a webpage.
Just checking here: you/ORA mean "Camel images" as in "images from
the Camel", not "images of a camel", right?
--
<Steve_Kilbane@cegelecproj.co.uk> - All opinions are mine alone.
------------------------------
Date: 5 Aug 1997 23:06:50 GMT
From: Joshua Pritikin <pritikin@mindspring.com>
Subject: ObjStore 1.09 Release
Message-Id: <5s8bma$bd6$1@nadine.teleport.com>
Name DSLI Description Info
----------- ---- -------------------------------------------- -----
ObjStore Rm+O ObjectStore DBMS Interface JPRIT
Easy, flexible, lightning-fast persistent via ObjectStore DBMS. Stores
scalars, sets, hashes, (arrays soon), and references without
flattening. Perl
databases can be accessed from C++ and/or Java. Inversely, persistent
C++
objects can be added to Perl!
### RECENT CHANGES ###
- At our site we are now using osperl for about 2GB worth of data!
- Now built to a shared library!! Anyone up for
Apache/Perl/ObjectStore?
- New, Improved Documentation.
- Persistent blessings now fully tested and working.
- ObjectStore transactions and exceptions now fully integrated into
Perl. Cursors have been removed from persistent data; read_only
transactions now properly supported. Read_only transactions are
blazingly fast!
- Regularized allocators. Specify cardinality when creating containers.
new ObjStore::$type($near, $card); Customize representation selector.
- Regularized peristent typing in preparation for extensibility.
- Peek rewrite with ideas from Data::Dumper. Peek on circular data
structures. Peek reports percent utilization to the delight of the
accountants everywhere.
- Unions removed from the schema. This major fix makes it possible to
evolve databases in the event of future schema enhancements.
- Reference counts are now 32bits wide and check for overflow.
- Static functions (e.g. ObjStore::Segment::of) are now called with ::
instead of -> for greater efficiency.
- Plus hundreds of fixes...
### FUTURE PLANS ###
Preliminary design of Verity full text indexing interface below. Should
the index membership be kept in each member or not? Leaning towards
'no'.
$Txt->index($indexHandle, $userPointer)
$indexHandle - the specific Verity index object
$userPointer - returned together with the match score after a search
This can be called multiple times for different indexes. The OSSV
will
keep track of the indexes to which it has been added?
$Txt->reindex; # called if string is changed
$Txt->unindex([$indexHandle]); # called upon destruction
------------------------------
Date: Tue, 05 Aug 97 19:45:48
From: "Curtis Fields" <fields@databolts.ibm.com>
Subject: Perl 5.004_1 on AIX 4.1.4
Message-Id: <mopzcwmqgfccj.pminews@localhost.dev.infomkt.ibm.com>
I'm getting the following errors... Any ideas?
Making DynaLoader (static)
cc -L/usr/lib -bE:perl.exp -o perl perlmain.o
lib/auto/DynaLoader/DynaLoader.a libperl.a `cat ext.libs` -lC -lc -lsvld -lm
ld: 0711-319 WARNING: Exported symbol not defined: Perl_abs_amg
ld: 0711-319 WARNING: Exported symbol not defined: Perl_add_amg
ld: 0711-319 WARNING: Exported symbol not defined: Perl_add_ass_amg
ld: 0711-319 WARNING: Exported symbol not defined: Perl_additem
ld: 0711-319 WARNING: Exported symbol not defined: Perl_atan2_amg
ld: 0711-319 WARNING: Exported symbol not defined: Perl_band_amg
etc....
------------------------------
Date: Sat, 09 Aug 1997 03:09:29 GMT
From: lord_viper@mailrunner.net (Viper)
Subject: Re: Perl and Windows NT
Message-Id: <33ebdf4b.92700993@news.accesscom.net>
You need to see http://www.4images.com/ntperl
Your answer lies there.
On 8 Aug 1997 13:22:25 GMT, "Barry Andre" <bandre@xs4all.nl> scribbled
these simple words:
|Hello,
|
|I want to implement CGI-Scripts for receiving forms in webpages on my
|webserver.
|
|But I do not know how to do this.
|
|How must I install Perl on my Windows NT 4.0 Server ?
|Where can I get ready to use CGI-scripts for my server ?
|
|Can anyone help me ?
|
|Thanks,
|
|Barry Andre
|please mail back at: bandre@xs4all.nl
----------------------------------------------------------------------
Note: Remove underscores from email addresses when replying via email.
------------------------------
Date: Tue, 5 Aug 1997 17:37:51 -0700
From: Paruchuri Krishna Kiran <pkkiran@imap1.asu.edu>
Subject: PERL for windows
Message-Id: <Pine.SOL.3.91.970805173626.12140A-100000@general4.asu.edu>
I dont know anything about the PERL interpretor for windows, but I have
to do some programming in it. Can anybody suggest if there is any free
perl interpretor available for Win '95?
thanks
------------------------------
Date: 5 Aug 1997 12:30:13 -0600
From: johnd@xor.com (John Donnelly)
Subject: Perl, CGI/Perl Tutorials - Boulder, CO
Message-Id: <5s7rfl$m5h@xor.com>
**Upcoming Perl and CGI/Perl Tutorials**
All sessions are held at our training facility in Boulder, CO.
Contact me for further information, registration forms.
--John Donnelly, Training Coordinator
XOR Network Engineering, Inc.
http://www.xor.com/ johnd@xor.com 303-448-4816
*****
Advanced Perl Programming
(Three Day Hands-on Lecture/Lab)
Tom Christiansen, Consultant
Tuesday - Thursday, August 26-28, 1997
*****
CGI and WWW Programming in Perl
(Two Day Hands-on Lecture/Lab)
Tom Christiansen, Consultant
September 10-11, 1997
*****
Beginning Perl Programming
(Three Day Hands-on Lecture/Lab)
Tom Christiansen, Consultant
Tuesday - Thursday, September 16-18, 1997
------------------------------
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 834
*************************************
