[6308] in Perl-Users-Digest
Perl-Users Digest, Issue: 930 Volume: 7
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Feb 11 23:17:25 1997
Date: Tue, 11 Feb 97 20:00:24 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 11 Feb 1997 Volume: 7 Number: 930
Today's topics:
Avoiding *massive number of pattern matches (Douglas Burbury)
Re: call/embed/guts with socket as stdout? <dougm@osf.org>
Can't die from failed open <ljr@ictv.com>
Crypt Funtion (Jack)
Re: Help Variable Interpretation .. (Dave Thomas)
Re: How do you write to seperate frames? <mgjv@comdyn.com.au>
Re: how to change of a given string? (Mike Stok)
How to Determine operating system type? <kin@sampras.isi.com>
Re: How to Determine operating system type? (Dave Thomas)
Re: How to run shell program in perl with --date 'one (Dave Thomas)
Re: How to tell if Perl is run in debug mode (Mike Stok)
Re: log10 (Mike Stok)
Re: Multi-line Comments??? (Mike Stok)
Normal Distribution Function in Perl jimmy_wong@trimble.com
Re: on the fly graphs <mgjv@comdyn.com.au>
order of FREETMPS and LEAVE <sriram@sirius.com>
Parsing several texts to generate a single index text? (Raul Almquist)
PERL / ODBC <brian@shepmark.com>
Re: Perl regexes are *not* greedy (was Pattern Matching (Bill)
Digest Administrivia (Last modified: 8 Jan 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 12 Feb 1997 04:24:37 GMT
From: dburbury@vision.net.au (Douglas Burbury)
Subject: Avoiding *massive number of pattern matches
Message-Id: <5drd2j$drp@pandora.vision.net.au>
I'm looking for a solution to the following problem that is more
elegant than anything I've come up with so far:
I'm working with text files that have been dumped somehow from a DTP
package called Interleaf. The text is littered with Interleaf tag
codes which I want to get rid of to make the text readable. Trouble
is, it's impossible to tell directly what each tag code defines,
although the meanings can be indirectly inferred in most cases.
"[@_nnnnnn_@]" is the basic tag structure, where n = 0..9
e.g.O"[@_000123_@]"ring
-> This tag represents a wrapping hyphen. The reconstituted text
would be O-ring.
Other easily inferrable tags include attribute settings (bold, etc),
bullets, CR/LF, dashes, tabs, high ASCII characters, etc.
So I need to replace each tag code with the equivalent text or
attribute code. The initial way I thought of to do it is to run
*every* single pattern match on *every* single paragraph.
I later refined it (slightly) to run all pattern matches only on the
lines that actually contained tag codes, and then took it further by
dividing the pattern matches into broad classes, such as [CODE][A..Z],
[A..Z][CODE], [CODE][0..9], etc.
But this process still seems grossly inefficient. I wondered if there
is some functionality in Perl which would make such pattern matching
operations much faster and accurate than simply bombarding a given
string with a few hundred matching possibilities.
Could anyone suggest anything that might help?
Douglas Burbury
E-mail: dburbury@vision.net.au
http://www.vision.net.au/~dburbury/burbury.htm (Burbury family page)
http://www.vision.net.au/~dburbury/server.htm (Fax server system)
------------------------------
Date: Tue, 11 Feb 1997 19:42:24 -0500
From: Doug MacEachern <dougm@osf.org>
To: Michael Blakeley <mike@blakeley.com>
Subject: Re: call/embed/guts with socket as stdout?
Message-Id: <330111F0.511D@osf.org>
Michael Blakeley wrote:
>
> I've been trying to write some code to execute Perl scripts from a C
> program, with STDOUT for the Perl script set to be a socket rather than
> the default stdout. I've read perlcall, perlembed, and perlguts, and found
> out about setdefout() from munging through the Perl source, but I'm still
> stumped. So, as a last resort, I'm throwing myself on the mercy of the
> Perl gods :-)
>
> Here's what I'm doing (roughly - don't shoot me if it doesn't compile):
>
> #include <stdio.h>
> #include <EXTERN.h>
> #include <perl.h>
> #include <embed.h> /* for setdefout() */
>
> int
> mysub (int csd, char *scriptpath)
> {
> char *argv[] = { "", scriptpath }; /* arg0 should really be perl */
> char **env;
> int argc = 2;
>
> static PerlInterpreter *my_perl;
>
> my_perl = perl_alloc();
> perl_construct(my_perl);
> perl_parse(my_perl, NULL, argc, argv, env);
>
> /* here's where we try to set up STDOUT to be the socket descriptor csd */
> setdefout(csd);
>
> perl_run(my_perl);
> perl_destruct(my_perl);
> perl_free(my_perl);
>
> } /* end mysub */
>
> The script runs ok if I leave out the setdefout(), but outputs to STDOUT
> of the calling program, not to csd. I know that setdefout wants a *GV,
> which I assume is a glob reference. Can I turn a socket descriptor into a
> *GV somehow? I've looked at perl.c, pp_sys.c, and io.c, to no avail...
>
> Basically, my question is: How can I use setdefout with a socket descriptor?
as always with Perl, there's more than one way.
I took your approach a while back with apache+mod_perl to hook up STDOUT
to
the client socket. apache once had an fsocket() function to open a
stream
on top of a socket, you'll have to dig around
http://www.apache.org/dist/old/
for that. Then, some bits straight out of perl.c:
GV *tmpgv = gv_fetchpv("STDOUT", FALSE, SVt_PVIO);
IoOFP(GvIOp(tmpgv)) = IoIFP(GvIOp(tmpgv)) = r->connection->client;
setdefout(tmpgv);
but, this was back when apache's i/o was stream oriented and before Perl
had it's i/o abstraction interface and TIEHANDLE. I suggest you look at
perlio + sfio and/or perltie + perlguts/sv_magic too.
mod_perl's Apache.xs uses both if you want examples.
-Doug
>
> thanks in advance for any help - if I receive e-mail answers, I'll
> summarize and post.
>
> --
> Michael Blakeley
> mike@blakeley.com
> PGP & more: <http://www.blakeley.com/>
------------------------------
Date: Tue, 11 Feb 1997 16:57:51 -0800
From: Larry Rosenberg <ljr@ictv.com>
Subject: Can't die from failed open
Message-Id: <3301158F.79C9@ictv.com>
I don't understand the behavior of the following program. I don't
see why I cannot test for open failing to create a pipe to the output
of a command.
=======================================================================
#! /usr/local/gnu/bin/perl -w
# Last Edited: Tue Feb 11 16:42:45 1997
BEGIN {
use strict;
use diagnostics;
}
sub Cmd {
my ($cmd, $num) = @_;
print "Cmd: $num; \$cmd = $cmd.\n";
local $^W = 0 if ($num == 2);
open (CMD, "$cmd |" ) || die "UNABLE TO EXECUTE $cmd: $!";
while ( <CMD> ) {
print;
}
close (CMD);
}
&Cmd('echo "this is a test"', 1);
&Cmd("foo", 2);
&Cmd("foo", 3);
=======================================================================
The output from the above program is:
=======================================================================
Cmd: 1; $cmd = echo "this is a test".
this is a test
Cmd: 2; $cmd = foo.
Cmd: 3; $cmd = foo.
Can't exec "foo": No such file or directory at /users/ljr/tmp/test.pl
line 13 (#1)
Can't exec "foo": No such file or directory at /users/ljr/tmp/test.pl
line 13.
=======================================================================
Why does call #2 generate no warnings and call #3 generate two warnings?
Since "foo" does not exist, why doesn't the program die in call #2?
The warning from call #3 indicates the correct line, but the program
still
doesn't die (or print the warning I want).
What is going on here? How do I manage error handling when creating a
pip
to a command?
Thanks,
Larry
--
_________________________________________________________________________
Larry Rosenberg (408) 364-9209 http://www.ictv.com/~ljr
ljr@ictv.com
_________________________________________________________________________
------------------------------
Date: Wed, 12 Feb 1997 02:47:55 GMT
From: jss@mailzone.com (Jack)
Subject: Crypt Funtion
Message-Id: <330d2f0d.6561908@news.digex.net>
I'm pretty new to Perl and have a very frustrating problem. I have
successfully taken the passwd.pl script from Matt's Archive and added
code to make it run from a web page. It works fine with Perl for
dos/win (perl5) on my PC with Win95 (using OmniHTTPd server). But,
when I run it on my provider's server (an NT server, btw), it chokes
on the crypt command! Here is the line as it is written in the
script:
$passwd = crypt($FORM{'pass1'}, substr($passwd, 0, 2));
Like I said, it works fine, both when creating the password and
re-creating it from within another script (for user validation) on my
PC. But it won't work at all on the script I use to create the
password once on the server. I changed the file parameters to match
the right path, etc., on the server. I even tried commenting out just
that one line, and then, even though the password didn't get created
properly, the rest of the script ran fine.
HELP!!!
TIA,
Jack
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Jack - jss@mailzone.com
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
------------------------------
Date: 12 Feb 1997 02:28:23 GMT
From: dave@fast.thomases.com (Dave Thomas)
Subject: Re: Help Variable Interpretation ..
Message-Id: <slrn5g2ah0.8r8.dave@fast.thomases.com>
On Tue, 11 Feb 1997 11:24:22 -0800, Charles Peri - EUCD ~ <cperi@pcocd2.intel.com> wrote:
> I have a file which has the similar contents:
>
> name $NAME
>
> In my perl program,
> $NAME is initialized to "My Name"
>
> now when I Parse the datafile and split the lines
> to $keyword and $value
> $keyword = "name"
> $value = "$NAME"
>
> But I want $value to be "My Name" and I don't know
> why it is not set that way.
> Thanks,
> Charles Peri
^^^^ - close!
Its because your split is working on un-interpolated text - no one told it
to look for $signs in your input - its no too much different to having an
input file with '1+2' in it - you wouldn't really expect to see '3' being
read!
You can convert the value using something like
$value ~= s/(.*)/$1/ee;
or
$value ~= s/\$(.*)/${$1}/e;
Dave
--
_________________________________________________________________________
| Dave Thomas - Dave@Thomases.com - Unix and systems consultancy - Dallas |
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
------------------------------
Date: Wed, 12 Feb 1997 13:12:16 +1100
From: Martien Verbruggen <mgjv@comdyn.com.au>
Subject: Re: How do you write to seperate frames?
Message-Id: <33012700.3B8D@comdyn.com.au>
Joel D. Martinsen wrote:
>
> I have a program that outputs some formated data from a database. I
> want to know how I can send the output to a seperate frame in the
> netscape window that the frame the cgi script was called from. If any
> one can help I'd greatly appreciate it
comp.infosystems.www.authoring.html
comp.infosystems.www.authoring.cgi
--
Martien Verbruggen
Webmaster www.tradingpost.com.au
Commercial Dynamics Pty Ltd, N.S.W., Australia
------------------------------
Date: 12 Feb 1997 02:08:32 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: how to change of a given string?
Message-Id: <5dr8n0$j0d@news-central.tiac.net>
In article <855597832.14972@dejanews.com>, <luis@ged.com> wrote:
>Hi:
> I need to change the Case of a string that a client inputs for
>instance ibm would be IBM, apple would be Apple. The string is obtained
>from the login that permits the user to enter the page. (Its a cgi perl
>page)
You might want to have a general rule and a table of exceptions e.g.
%special = (ibm => 'IBM',
ncr => 'NCR',
'at&t' => 'AT&T',
);
$word = lc $input;
$word =~ s/^\s+//;
$word =~ s/\s+$//;
$word = $special{$word} || ucfirst $word;
which assumes that none of the values in %special are logically false.
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: 11 Feb 1997 17:08:28 -0800
From: Kin Cho <kin@sampras.isi.com>
Subject: How to Determine operating system type?
Message-Id: <nwybcuj0fn.fsf@sampras.isi.com>
Is there a builtin subroutine or a package call for this?
--
Kin Cho, Staff Engineer (408)542-1644 Fax (408)542-1958
Integrated Systems Inc., 201 Moffett Park Drive, Sunnyvale, CA 94089
http://www.isi.com
I'll procrastinate tomorrow
-- Garfield.
------------------------------
Date: 12 Feb 1997 02:32:02 GMT
From: dave@fast.thomases.com (Dave Thomas)
Subject: Re: How to Determine operating system type?
Message-Id: <slrn5g2anr.8r8.dave@fast.thomases.com>
On 11 Feb 1997 17:08:28 -0800, Kin Cho <kin@sampras.isi.com> wrote:
> Is there a builtin subroutine or a package call for this?
>
use Config;
print $Config{osname}, "\n";
--
_________________________________________________________________________
| Dave Thomas - Dave@Thomases.com - Unix and systems consultancy - Dallas |
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
------------------------------
Date: 12 Feb 1997 02:14:21 GMT
From: dave@fast.thomases.com (Dave Thomas)
Subject: Re: How to run shell program in perl with --date 'one month ago' +%b options
Message-Id: <slrn5g29mm.8r8.dave@fast.thomases.com>
On 11 Feb 1997 23:55:03 GMT, Dave Thomas <dave@fast.thomases.com> wrote:
> On 11 Feb 1997 19:13:53 GMT, Brooks Davis <brdavis@orion.ac.hmc.edu> wrote:
> > Brian Freeze (freezeb@deltastar.nb.ca) wrote:
> > $lastmonth =
> > (Jan,Feb,Mar,Apr,May,Jun,Juil,Aug,Sep,Oct,Nov,Dec)[(localtime)[4]-1];
> >
>
> Shouldn't that be
>
> $lastmonth =
> (Dec,Jan,Feb,Mar,Apr,May,Jun,Juil,Aug,Sep,Oct,Nov)[(localtime)[4]];
>
> Otherwise it won't work in January.
Wrong Dave - It will work with the original, as accessing (Jan..Dec)[0-1] will
give you December, which is what you want.
Sigh..
--
_________________________________________________________________________
| Dave Thomas - Dave@Thomases.com - Unix and systems consultancy - Dallas |
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
------------------------------
Date: 12 Feb 1997 02:32:55 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: How to tell if Perl is run in debug mode
Message-Id: <5dra4n$ls6@news-central.tiac.net>
In article <3300A3EF.167E@lmco.lmtas.com>,
Brett Denner <dennerbw@lmco.lmtas.com> wrote:
>I would like to add some code to my perl script that is executed only
>when perl is started with the -d flag (either via the command line or
>the #!/usr/bin/perl line). I envision something like this:
>Does such a variable exist? Is there another way to tell if my script
>is being run in debug mode?
The debugger uses $^P to avoid debugging itself, so you might want to
start with something like:
print $^P ? "debugging\n" : "normal\n";
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: 12 Feb 1997 02:24:20 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: log10
Message-Id: <5dr9kk$ksd@news-central.tiac.net>
In article <3300E7F7.41C6@fccc.edu>, Ying Hu <Y_Hu@fccc.edu> wrote:
>Hello,
>
>Is there is log10 function in PERL?
Not directly, there's a simple relationship between natural logs and base
10 logs so it's relatively easy to write your own log10 function in terms
of log. If you have perl 5 and the POSIX module then that should contain
a log10 function:
[mike@localhost mike]$ perl -de 1
Stack dump during die enabled outside of evals.
Loading DB routines from perl5db.pl patch level 0.9904
Emacs support available.
Enter h or `h h' for help.
main::(-e:1): 1
DB<1> use POSIX 'log10'
DB<2> print log10 100
2
DB<3> print log (100) / log10 (100)
2.30258509299405
DB<4> print log (1000) / log10 (1000)
2.30258509299405
DB<5> print log 10
2.30258509299405
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: 12 Feb 1997 02:28:51 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: Multi-line Comments???
Message-Id: <5dr9t3$lcv@news-central.tiac.net>
In article <3301ebb8.88015401@newsserver.mccc.edu>,
Pete Holsberg <pjh@mccc.edu> wrote:
>Is there any easy way to "comment out" a section of a perl script?
If the code is a logically balanced chunk (if you see what I mean) then
you might put something like:
if (0) {
}
around it, otherwise I do something like s/^/# / for the appropriate range
of lines in my editor.
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, 11 Feb 1997 20:01:10 -0600
From: jimmy_wong@trimble.com
Subject: Normal Distribution Function in Perl
Message-Id: <855712320.29300@dejanews.com>
Can anyone tell me if they know where to find a Perl module or
package to calculate normal distribution function for statistical
analysis? I checked CPAN and the statistics packages listed didn't
have this capability.
If there isn't a Perl module readily available, then can someone
point me to any online resources which might explain the algorithm
for calculating the normal gaussian distribution function?
Thanks in advance.
-Jimmy Wong
P.S. I need "partial expectations L(z)" as well.
----
Jimmy_Wong@trimble.com Tel: (408) 481-7042
Trimble Navigation, Ltd. http://www.trimble.com
------------------ Global Positioning Systems -----------------
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: Wed, 12 Feb 1997 12:53:44 +1100
From: Martien Verbruggen <mgjv@comdyn.com.au>
To: Matt Kruse <mkruse@shamu.netexpress.net>
Subject: Re: on the fly graphs
Message-Id: <330122A8.790C@comdyn.com.au>
>
> These tools will allow you to generate gif images from within perl.
>
> In a few days, I should be ready to release Graph.pm, a module to make
> chart-generation *really really* simple. It'll only do bar charts in the
> beginning, but it'll grow. Watch here and c.l.p.modules if you're
> interested, or write your own - it's not too tough with the excellent
> work done by the guys above.
>
> Hope that helps!
Matt, and others,
I actually already have a more or less working module that does this,
tentatively called GIFgraph.pm, based on GD. I was planning on releasing
it to the perl community, in exchange for all the help I got there, as
soon as it was in a bit more representable form.
Since I see that there obviously is a need, I can release it in the next
week, as an alpha release, preventing you to do the work I did again.
Currently it supports charts of bar, line, scatter and scatter-line
type, as well as pie charts.
It is sort of documented, has some short example files, etc.
Since it will be an alpha release, I cannot guarantee that it'll be
backward compatible on subsequent releases.
I plan on adding support for X-Y graphs (currently only labeled X-axes)
3 D printing of graphs,
bunches of options
Let me know what you think.
--
Martien Verbruggen
Webmaster www.tradingpost.com.au
Commercial Dynamics Pty Ltd, N.S.W., Australia
------------------------------
Date: 12 Feb 1997 03:52:19 GMT
From: "Sriram Srinivasan." <sriram@sirius.com>
Subject: order of FREETMPS and LEAVE
Message-Id: <01bc1897$cd4f8400$89f586cd@sriramppp.sirius.com>
There are some places in the Perl code (perl.c) where LEAVE is
called after FREETMPS. This doesn't seem right, because LEAVE
would mess up tmps_floor, and FREETMPS would then deallocate
all temporaries in the last scope and the current scope. Seems
to me that it is likely to cause a crash.
In other words, LEAVE should always be called last.
Can someone confirm or deny this ?
Sriram
(sriram@sirius.com)
------------------------------
Date: 12 Feb 1997 01:13:53 GMT
From: strider@shadowmac.org (Raul Almquist)
Subject: Parsing several texts to generate a single index text?
Message-Id: <5dr5gh$34f$2@blackice.winternet.com>
Looking for a perl parsing example that will show me how to compile
several texts, each text containing the descriptives relating to the text
the descriptives are inside of, the descriptives are contained in a set
of fields, one field equals one line of text, with each field/line ending
in a LF.
There are 24 field/lines in each text, and I need to parse all the
texts with the extension of ".hqx" contained inside a specific directory
(not the dir where the script will be located) and generate a 00index.tab
(fields
delimited by tabs and records delimited by a LF) from those texts.
Each line provides a different type of textual data (date, version,
terse one line stand-alone description, verbose description, author's
info, support site, etc...), so I need to take that data from all of
those texts and generate a single tab delimited text.
Any ideas on where an example can be located that will point me to
accomplishing this?
Thanks!
------------------------------
Date: 12 Feb 1997 03:12:51 GMT
From: "Brian Shepard" <brian@shepmark.com>
Subject: PERL / ODBC
Message-Id: <01bc189b$7e5f3ee0$da51b5cf@default>
I'm using Windows NT with Perl ODBC extensions as well as cgi-lib.pl.
I'm having a problem with the following script, it will print the field
names, however it does not show any of the field values. I'm using Access
as a database.
I'm not getting any errors, just not getting the output that I'm expecting.
Any hints/tips would be appreciated.
P.S. if you are aware of any examples of this on the web please direct me
in the right direction.
Thanks again!!
#################################
use Win32::ODBC;
print "Content-type: text/html\n\n";
print "<html><body><pre>";
$DSN="promoteont";
if (!($o = new Win32::ODBC($DSN))){
print "Error opening a connection.\n";
}
$o->sql("select * from customers");
foreach $f ($o->fieldnames)
{ print $f . "\t"; }
print "\n\n";
while ($o->fetchrow)
{
foreach $f ($o->fieldnames)
{ print $o->data($f), "\t"; }
print "\n";
}
print "</pre></body></html>\n";
------------------------------
Date: 12 Feb 1997 01:40:16 GMT
From: bill@sover.net.no.junkmail (Bill)
Subject: Re: Perl regexes are *not* greedy (was Pattern Matching Question)
Message-Id: <slrn5g27s0.1ut.bill@granite.sover.net>
Tom Christiansen <tchrist@mox.perl.com> wrote:
|> :|> Perl does greedy expression matching by default, which means it tries to
|> :|> match as much as possible with your pattern.
|> :
|> :This is a common misconception, but it's not really true.
|>
|> Jeffrey, now be nice to the poor poster.
As the "poor poster," I'd just like to say how great it is to be able
to interact with guys like Tom, Randall and Jeffrey directly, even if it
is to have them explain how I'm wrong. :) I was really trying to address
the default greedy property of most quantifiers, and ended up generalizing
about patterns in general. Oops. Anyway, thanks for being here, guys...
Bill
--
Sending me unsolicited email through mass emailing about a product or
service your company sells ensures that I will never buy or recommend your
product or service.
------------------------------
Date: 8 Jan 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Jan 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.
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 V7 Issue 930
*************************************
