[10098] in Perl-Users-Digest
Perl-Users Digest, Issue: 3691 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Sep 11 12:09:01 1998
Date: Fri, 11 Sep 98 09:00:27 -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, 11 Sep 1998 Volume: 8 Number: 3691
Today's topics:
(q) how to set "From:" (Carl David)
Re: accesing MSAccess Database.... (Andrew M. Langmead)
Re: Automate change of remote user's password <johng@unix1.sncc.lsu.edu>
csv <mhgopal@prenhall.com>
Re: Displaying record count (Tad McClellan)
Re: getc function from STDIN (Andrew M. Langmead)
Re: Have problem with import of global variables (Andrew M. Langmead)
Re: Have problem with import of global variables (Aahz Maruch)
Re: Have problem with import of global variables <alitvak@shrike.depaul.edu>
Re: How to do metatcharacter interpretation? (Larry Rosler)
Re: How to do metatcharacter interpretation? <john.drummond@guest.com>
Re: Localizing $_ (Abigail)
Re: Looking for example code that does modem communicat (Andrew M. Langmead)
Re: man pages for win32 perl <psmith01@mindspring.com>
Re: max function in perl (Larry Rosler)
mkdir() on NT?? <psmith01@mindspring.com>
Re: oraperl ==> perl5 + DBI + DBD <dan@ukonline.net>
Re: Perl & Java - differences and uses <jdw@dev.tivoli.com>
Re: Perl & Java - differences and uses <borg@imaginary.com>
PERL and SPSS <danny@spiff.bibl.ulaval.ca>
PERL and SPSS <danny@spiff.bibl.ulaval.ca>
PERL and SPSS <danny@spiff.bibl.ulaval.ca>
Re: Perl gurus opinion needed. <eashton@bbnplanet.com>
Re: Perl gurus opinion needed. (Mark-Jason Dominus)
Re: printf,sprintf padding character <uri@sysarch.com>
Re: Redirect output to perl variable <r28629@email.sps.mot.com>
Re: Regular expression question (Michael Christie)
Re: Regular expression question (Jim Allenspach)
Re: Regular expression question <uri@sysarch.com>
Re: replacing text in a string (Alan Barclay)
script to compose html pages based on ip/user <johng@unix1.sncc.lsu.edu>
Re: Search/Replace but Not under certain conditions. HO (Larry Rosler)
Re: Search/Replace but Not under certain conditions. HO (Larry Rosler)
Re: Search/Replace but Not under certain conditions. HO (Tad McClellan)
SPSS and PERL <danny@spiff.bibl.ulaval.ca>
SPSS Gateways in PERL <danny@spiff.bibl.ulaval.ca>
SPSS Gateways in PERL <danny@spiff.bibl.ulaval.ca>
SPSS Gateways in PERL <danny@spiff.bibl.ulaval.ca>
Strange Error message <dadman@brainsys.cz>
Re: Strange Error message <Tony.Curtis+usenet@vcpc.univie.ac.at>
Re: SYBPERL install hassles - help!!!! dave@mag-sol.com
Re: uniq (Tad McClellan)
Re: While loop with regex as condition? (Abigail)
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 11 Sep 98 11:08:48 EDT
From: CHADM1@UConnVM.UConn.Edu (Carl David)
Subject: (q) how to set "From:"
Message-Id: <17FCE9CC0S86.CHADM1@UConnVM.UConn.Edu>
Keywords: mail from
I need some help and I've lent my Perl materials to a learning friend.
Specifically, I can not find out how to create the From field in a mail
message.
I am using
$mailprog = '/usr/lib/sendmail -F $student_id ';
$recipient = 'my ipl';
open (MAIL, "|$mailprog $recipient")|| die and such...
$savefile = select(STDOUT);
$saveformat = $~;#this may not work in the ebcdic to ascii conversion
select(MAIL);
$string = "lots of text here";
$~ = "MULTILINE";
write MAIL;
close (MAIL);
select ($savefile0);
$~ = $saveformat;
and elsewhere:
format MULTILINE =
~~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$string
.
which all seems to work, but I can't get the From: line written.
Can someone help?
And could you write directly, since I have trouble following this
list on the IBM mainframe? Thanks again in advance.
P.S. Tildes sometimes don't transmit, so if the code looks poor,
I apologize ahead of time.
thanks again
Carl David
------------------------------
Date: Fri, 11 Sep 1998 14:24:23 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: accesing MSAccess Database....
Message-Id: <Ez4Ion.Gq7@world.std.com>
"Cesar" <cabustos@ibague.cetcol.net.co> writes:
>Subject: Re: accesing MSAccess Database....
>How can I accesing a MBD Databse... with Perl...
Do you mean MDB database? (The kind Microsoft Access uses?) You
probably want the Win32::ODBC module <URL:http://www.roth.net/odbc/>
With ODBC, you can talk to any database that you have an ODBC driver.
--
Andrew Langmead
------------------------------
Date: Fri, 11 Sep 1998 10:06:38 -0500
From: John Guillory <johng@unix1.sncc.lsu.edu>
To: Rich Sy <Richmont.Sy@exchange.sms.siemens.com>
Subject: Re: Automate change of remote user's password
Message-Id: <Pine.A32.3.95.980911095216.82702A-100000@unix1.sncc.lsu.edu>
On Thu, 10 Sep 1998, Rich Sy wrote:
> I need to periodically change the password of a remote user. I wanted to
> automated the change, ie. every week with password randomly generated or
> cycled, etc.
>
> Any idea is very much appreciated.
>
This isn't a Perl script but it might help.
It uses awk, reads in a file of users (I have to do this for many users so
this script automates it) and calls "htadm," a simple httpd user account
admin tool that came with our IBM server. You might substitute "change
password".
awk '{sytem ("htadm -adduser <passwordfile> "$1", "$2", "$3)}' users.list
File users.list has format: logon password password nameofperson
I saw on CPAN a Perl script that gens random numbers. Concat this with
something like the above, then place the whole lot in cron. Awkward?
John Guillory
johng@unix1.sncc.lsu.edu
Louisiana State University
------------------------------
Date: Fri, 11 Sep 1998 10:22:30 -0400
From: Gopal <mhgopal@prenhall.com>
Subject: csv
Message-Id: <35F93226.FC9A5807@prenhall.com>
I want to write a cgi program that will put the .csv extension on the
downloaded file
for example when you write a cgi program as:-
###########
print "Contenet-type:text/ascii\n\n";
it will allow you to save the file but if the
cgi program is called say tmp.cgi then the file extension will be
tmp.cgi but
here i want to save it as .csv how do I do it.
###########
q.)What should be the content-type for
a .csv file?
------------------------------
Date: Fri, 11 Sep 1998 08:49:24 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Displaying record count
Message-Id: <4p9bt6.nej.ln@metronet.com>
Terry L. Barlet (tlbarlet@le-ana-enterprises.com) wrote:
: Can someone point me in the right direction on how to display the number of
: records in a data file.
We could if we had a sample of your "records".
But we don't, so we can't. ;-)
: I have scripts that return a table listing states
What is the format for the "table".
Sample data please.
: that contain ads. when clicking on the state the script then returns a table
: listing the cities in that state that contain ads(Each state has its own
: data file)
: What I want to accomplish is having the script insert the number of records
: in the data file for the state like Florida (10). Then when Florida is
: clicked have the script show how many records are in each city like Miami
: (5) Tampa (2) Orlando (3)
That's easy, but we don't have enough information to help you.
: I'm new to perl and cannot locate the info in the books I have. If anyone
: can point me in the right direction or even tell me the names of the
: functions or operators I am interested in.
Since you don't say, I get to guess what comprises a "record".
I'll guess one record per line.
while (<STATE>) { $cnt++ }
print "there are $cnt records in there\n";
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 11 Sep 1998 14:35:25 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: getc function from STDIN
Message-Id: <Ez4J71.2Jr@world.std.com>
Abbas Imani <"abbas "@ikorn.ee.unsw.edu.au> writes:
>1. I would like the program to continue when one key is hit. In other
>words, I do not want the user to have to hit enter key after s/he
>hits a key.
The FAQ used to have an entry titled something like "How Do I Wait For
a Single Key", it seems to have been replaced by "How do I do fancy
stuff with the keyboard/screen/mouse?" <URL:http://www.perl.com/CPAN
/doc/manual/html/pod/perlfaq8.html#How_do_I_do_fancy_stuff_with_the>
The general problem is that asking for a single character from the
input stream does not change the input tty drivers from their default
line buffered state. That has to be handles separately.
--
Andrew Langmead
------------------------------
Date: Fri, 11 Sep 1998 14:13:37 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: Have problem with import of global variables
Message-Id: <Ez4I6p.7vq@world.std.com>
"Alex Litvak" <alitvak@shrike.depaul.edu> writes:
>I created a module that exports huge list of variables that are used in the
>many our scripts.
>This variables are exported through @EXPORT and @EXPORT_OK. They are also
>assign values in the module in the manner
>my $MYVAR="Foo";
Exporting involves tricks with the symbol table. Lexically scoped
variables ("my" variables) aren't in the symbol table. If you make
your variable "package" variables (no "my" and perhaps "use vars" to
keep the script "use strict" compliant) you can export the from your
module's package.
--
Andrew Langmead
------------------------------
Date: Fri, 11 Sep 1998 14:43:01 GMT
From: aahz@netcom.com (Aahz Maruch)
Subject: Re: Have problem with import of global variables
Message-Id: <aahzEz4JJp.GoI@netcom.com>
In article <35f8ae18.0@news.depaul.edu>,
Alex Litvak <alitvak@shrike.depaul.edu> wrote:
>
>I created a module that exports huge list of variables that are used in
>the many our scripts.
I'd like to suggest that if you have a "huge" set of variables that need
to be exported, you probably chose a poor design for the module.
Consider at the very least packaging all the variables into a hash.
--
--- Aahz (@netcom.com)
Hugs and backrubs -- I break Rule 6 <*> -=> http://www.rahul.net/aahz
Androgynous poly kinky vanilla queer het
"Isn't it interesting that the same people who laugh at science fiction
listen to weather forecasts and economists?" -- Kelvin Throop III
------------------------------
Date: Fri, 11 Sep 1998 10:47:46 -0500
From: "Alex Litvak" <alitvak@shrike.depaul.edu>
Subject: Re: Have problem with import of global variables
Message-Id: <35f945bc.0@news.depaul.edu>
I use this template. Actually I think my problem is that I use my when I
initialize exported variables (they are global to begin with).
Second thing is when I put
use strict on the top of my package perl complains if don't use my.
Here is the little example of what I try to do
package Foo;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
require Exporter;
require AutoLoader;
@ISA = qw(Exporter AutoLoader);
@EXPORT = qw($HELLO);
@EXPORT_OK = qw($HELLO @test %testhash);
$VERSION = '0.01';
$HELLO="Foo";
@test = qw(one two three);
$MUSIC1 = 1;
$testhash{$MUSIC1} = "Jaz";
$MUSIC2 = 2;
$testhash{$MUSIC2} = "RockNRoll";
use strict;
1;
and if use strict will go right after package Foo whole thing will fail.
Any suggestions greatly appreciated.
Alex Litvak
alexl@vailsys.com
alitvak@shrike.depaul.edu
Jonathan Feinberg wrote in message ...
>"Alex Litvak" <alitvak@shrike.depaul.edu> writes:
>
>> The problem is that when I use this module in other scripts I import
>> the variables with no value.
>> print $MYVAR; gets me nothing at the output.
>> What am I doing wrong?
>
>It would be very helpful if you could provide a brief but complete
>example of this problem. Since we don't *see* what you're doing
>wrong, it's impossible to help you.
>
>Have you followed the template given in perlmod?
>
>--
>Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
>http://pobox.com/~jdf
------------------------------
Date: Fri, 11 Sep 1998 07:38:30 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: How to do metatcharacter interpretation?
Message-Id: <MPG.1062d5c0b6cb5c5f989849@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and copy mailed.]
In article <m367eupzkm.fsf@joshua.panix.com> on 11 Sep 1998 15:07:53
+0200, Jonathan Feinberg <jdf@pobox.com> says...
> "John Drummond" <john.drummond@guest.com> writes:
> > $delimiter = '\t';
> > print $delimiter ; #it prints the character \ and the character t which is
> > fair enough
> >
> > what do I need to do to print an actual tab?
>
> Here's one approach.
>
> $delimiter =~ s/(\\[tnbr])/ qq("$1") /ee;
That is very nice. Of course, for the simple case of '\t', this would
do:
$delimiter =~ s/\\t/\t/;
But I wonder if he didn't have in mind simply:
$delimiter = "\t";
where he used single-quotes instead.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 11 Sep 1998 18:17:02 +0300
From: "John Drummond" <john.drummond@guest.com>
Subject: Re: How to do metatcharacter interpretation?
Message-Id: <6tbeul$14q$1@maple.cgin.us-md.citicorp.com>
>> > what do I need to do to print an actual tab?
>> Here's one approach.
>> $delimiter =~ s/(\\[tnbr])/ qq("$1") /ee;
>That is very nice. Of course, for the simple case of '\t', this would
>do:
> $delimiter =~ s/\\t/\t/;
>But I wonder if he didn't have in mind simply:
> $delimiter = "\t";
>where he used single-quotes instead.
>
He didn't; I'm trying not to waste peoples' time -honest. Many thanks
Jonathan.
Thanks for copying the response over though. I've spent hours trying to work
this one out.
Regards, John.
------------------------------
Date: 11 Sep 1998 14:20:16 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Localizing $_
Message-Id: <6tbbj0$ajo$1@client3.news.psi.net>
Tom Christiansen (tchrist@mox.perl.com) wrote on MDCCCXXXVII September
MCMXCIII in <URL: news:6t9pvm$mb4$1@csnews.cs.colorado.edu>:
++ [courtesy cc of this posting sent to cited author via email]
++
++ In comp.lang.perl.misc,
++ macintsh@cs.bu.edu (John Siracusa) writes:
++ :I'm not sure when to localize $_. For instance, if I have
++ :a method call in an object-oriented module in which $_ is
++ :used in a map { ... } block, do I need to have "local $_;"
++ :up top in that method to avoid squashing the caller's $_?
++
++ foreach (even when spelled out as for), map, and grep all
++ implicitly localize. while does not.
Rule of thumb: "In case of doubt: localize."
Abigail
--
sub _'_{$_'_=~s/$a/$_/}map{$$_=$Z++}Y,a..z,A..X;*{($_::_=sprintf+q=%X==>"$A$Y".
"$b$r$T$u")=~s~0~O~g;map+_::_,U=>T=>L=>$Z;$_::_}=*_;sub _{print+/.*::(.*)/s}
*_'_=*{chr($b*$e)};*__=*{chr(1<<$e)};
_::_(r(e(k(c(a(H(__(l(r(e(P(__(r(e(h(t(o(n(a(__(t(us(J())))))))))))))))))))))))
------------------------------
Date: Fri, 11 Sep 1998 14:20:38 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: Looking for example code that does modem communication.
Message-Id: <Ez4IIE.DM3@world.std.com>
Zailong Bian <atdt@nycap.rr.com> writes:
>I got a numeric pager and I want to be able to page from a www interface.
>But I have not got the modem working yet...
You need to set up the serial port before you use it. The "hackish"
way is to call the "stty" program from your script. The "purer"
approach is to use POSIX::Termios.
If you need to find out about terminal control under Unix, you might
want to take a look at the book "Advanced Programming in the Unix
Environment" by W R Stevens.
<URL:http://cseng.aw.com/bookdetail.qry?ISBN=0-201-56317-7&ptype=1090>
--
Andrew Langmead
------------------------------
Date: Fri, 11 Sep 1998 11:22:41 -0400
From: Peter Smith <psmith01@mindspring.com>
Subject: Re: man pages for win32 perl
Message-Id: <35F94041.A02092E9@mindspring.com>
I have the problem of 'perldoc -f <whatever>' returning this:
'No documentation found for "perlfunc".'
Seems like I may have a path problem or something.
I'm on Win95 4.00.950 B and my 'perl -v' is:
'This is perl, version 5.005_02 built for MSWin32-x86-object
Copyright 1987-1998, Larry Wall
Binary build 502 provided by ActiveState Tool Corp.
http://www.ActiveState.com
Built 10:59:41 Aug 11 1998...'
Anyone have an idea what that error message means and how to go about
fixing??
Thanks.
Cameron Dorey wrote:
> Dan Nguyen wrote:
> >
> > [snip]
> > I'm not sure if Windows people have perldoc. But 'perldoc
> > -f print' is the correct way of looking it up.
>
> GS port (5.004) has perldoc, AS port (5.003) does not. I don't know
> about the new AS port (5.005).
>
> Perldoc can be a *lot* easier than running through the HTML pages when
> you just want to look up something quick.
>
> Cameron
--
--Peter--
psmith01@mindspring.com
------------------------------
Date: Fri, 11 Sep 1998 06:53:26 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: max function in perl
Message-Id: <MPG.1062cb31eb321aa9989846@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and copy mailed.]
In article <35F8D018.74C3D104@peritas.com> on Fri, 11 Sep 1998 08:24:08
+0100, Simon Matthews <sam@peritas.com> says...
> jasjeet14@my-dejanews.com wrote:
...
> > Iam reading records from a text file, so how do we go about displaying the max
> > or min value, from the data that we get after reading a text file.
> >
> my $max = 0;
>
> while (<>) {
> #sort out your data here
> $max = $data if $data > $max;
> }
This makes the unwarranted assumption that at least one datum is >= 0.
What would you initialize $min to? (For example, if all the data were
arbitrarily huge floating-point numbers.)
In general, you must either initialize both $max and $min to the first
datum or do something slightly less efficient:
my ($max, $min);
while (<>) {
#sort out your data here
$max = $data unless defined $max && $max >= $data;
$min = $data unless defined $min && $min <= $data;
}
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 11 Sep 1998 11:44:25 -0400
From: Peter Smith <psmith01@mindspring.com>
Subject: mkdir() on NT??
Message-Id: <35F94559.3BF8ADC2@mindspring.com>
What does the 'MODE' argument look like on NT? Same as UNIX?
--
--Peter--
psmith01@mindspring.com
------------------------------
Date: Fri, 11 Sep 1998 15:22:32 +0100
From: "Dan Hopkins" <dan@ukonline.net>
Subject: Re: oraperl ==> perl5 + DBI + DBD
Message-Id: <6tbbnd$4v9$1@morse.news.easynet.net>
Jacqui Caren (Jacqui Caren) wrote in message ...
>In article <6qnbpf$gl8$1@morse.news.easynet.net>,
>Dan Hopkins <dan@ukonline.net> wrote:
>>We've recently been moving a bunch of oraperl scripts over to a AIX 4.1.3
>>box blessed with Perl 5.004. Most of the scripts have been happily
converted
>>to Perl 5 using the DBI (v0.93) and DBD::Oracle v0.46 module to emulate
>>oraperl.
>>
>>Unfortunately, most (if not all) of the calls to ora_bind() seem to fall
>>over for no apparent reason. Replacing ora_open() and ora_bind() pairs
with
>>ora_do() 's seems to work quite happily.
>>
>>Just wondered if anyone else had come across this problem (with a solution
>>:-)
>
>DBD::Oracle 0.46 is quite old now?
We've got 0.53 on there now, with the same problems.
>
>Also have you read the readme files - they have hints for various
platforms.
There are a few notes on compiling and on error messages to expect/ignore.
But I found nothing on this sort of problem.
>We have AIX 4.1.3 in house (but no oracle for it:-( ) so I am afraid
>I cannot replicate your problem...
>
>Anyway here is some basic advice to get you started...
[snip ... lots of advice :-)]
Thanks for the advice .... I'll do some experimentation with debugging
enabled (just as soon as I get chance - it's been one of those weeks this
week !)
>Jacqui
Regards,
Dan Hopkins
UK Online ltd.
------------------------------
Date: 10 Sep 1998 22:57:56 -0500
From: "Jim Woodgate" <jdw@dev.tivoli.com>
Subject: Re: Perl & Java - differences and uses
Message-Id: <obu32fpagr.fsf@alder.dev.tivoli.com>
George Reese <borg@imaginary.com> writes:
> In comp.lang.java.programmer David Cantrell <NukeEmUp@ThePentagon.com> wrote:
> :>:>: George Reese wrote:
> :>:>:> Anything that can be done in Perl can by done in Python more easily.
> :>
> :>:>My claim is so sweeping, all you need to do is come up with a single
> :>:>situation in which Perl accomplishes a task easier.
Since I don't know python, how would you code the following, a simple
cgi script that does both the front and back end. I left out comments
and didn't even format it like I normally like to, and I still think
it is easily readable by most people that have even the slightest
programming/http/cgi knowledge. (The form is troll-ugly, but I wanted
to be brief... :)
Please show me how using python would make this easier...
thanks...
#!/usr/bin/perl -w
#
use CGI qw/:standard/;
print header, start_html("Simple CGI");
if (param) {
print h1("Hi there ",param('user')),
p("The current date/time for this server is",
em(scalar localtime));
}
else {
print start_form, h3("What's your name"), textfield('user'), p,
submit("Press Me"), end_form;
}
print end_html;
--
Jim Woodgate
Tivoli Systems
E-Mail: jdw@dev.tivoli.com
------------------------------
Date: Fri, 11 Sep 1998 15:30:12 GMT
From: George Reese <borg@imaginary.com>
Subject: Re: Perl & Java - differences and uses
Message-Id: <8mbK1.896$E9.3084663@ptah.visi.com>
In comp.lang.java.programmer David Cantrell <NukeEmUp@ThePentagon.com> wrote:
: On Thu, 10 Sep 1998 17:10:26 GMT,
: George Reese <borg@imaginary.com> enlightened us thusly:
:>In comp.lang.java.programmer David Cantrell <NukeEmUp@ThePentagon.com> wrote:
:>
:>: On Thu, 10 Sep 1998 16:35:21 GMT,
:>: George Reese <borg@imaginary.com> enlightened us thusly:
:>
:>:>Perl can do things in fewer keystrokes than probably any other
:>:>language on Earth. That is exactly its problem. People actually use
:>:>that feature! Now, while both of the above are about as readable as
:>:>doign the task in question can get, in most cases Perl shortcuts are
:>:>just an inch away from line noise.
:>
:>: However, your assertion has been proven wrong. And _why_ is being
:>: concise a problem? If you actually look at production perl code, it
:>: doesn't appear anything like Obfuscated Perl Contest winners.
:>
:>Your thesis resist on the premise that fewer keystrokes is better.
: I merely asked a question. I advanced no theory or hypothesis. And I
: did not mention keystrokes. And even if I had, your assertion has
: STILL been proven incorrect.
:>That is false.
: Correct. Fewer keystrokes does not necessarily mean better.
: Conciseness, however, IS better.
:>And you are right. Production perl code does not look anything like
:>obfuscated perl. And a beautiful troll looks nothing like an ugly
:>troll--but they are still both trolls.
: ROFL! Of course, perl is perl is perl. Your point?
Comparing professional perl to obfuscated perl, as was done above, is
nonsensical when evaluating the relative readability of perl to other
languages.
: If you're still
: banging on about perl being difficult to read and unmaintainable then
: you've be shown to be wrong already.
I am sorry, but I do not see the logical form of me having been shown
wrong here. All that has been presented is a one line example where the two
were functionally equivalent, mostly equally readable, and relatively
concise. The difference was that the perl version was more concise.
In a one line example, all that demonstrates is that perl may require
fewer keystrokes to accomplish this one task (in fact, I will grant
that for most tasks it requires fewer keystrokes). The degree of its
conciseness is exactly responsible for its terseness and lack of
readability.
--
George Reese (borg@imaginary.com) http://www.imaginary.com/~borg
PGP Key: http://www.imaginary.com/servlet/Finger?user=borg&verbose=yes
"Keep Ted Turner and his goddamned Crayolas away from my movie."
-Orson Welles
------------------------------
Date: Fri, 11 Sep 1998 15:41:37 GMT
From: "Danny J. Sohier" <danny@spiff.bibl.ulaval.ca>
Subject: PERL and SPSS
Message-Id: <35F946C5.A130CC7@spiff.bibl.ulaval.ca>
Hello everyone,
Does anyone know where I could find some
perl gateways to SPSS ressources ?
Thanks a million,
Danny
dsohier@bibl.ulaval.ca
------------------------------
Date: Fri, 11 Sep 1998 15:42:08 GMT
From: "Danny J. Sohier" <danny@spiff.bibl.ulaval.ca>
Subject: PERL and SPSS
Message-Id: <35F946E5.E05E8E66@spiff.bibl.ulaval.ca>
Hello everyone,
Does anyone know where I could find some
perl gateways to SPSS ressources ?
Thanks a million,
Danny
dsohier@bibl.ulaval.ca
------------------------------
Date: Fri, 11 Sep 1998 15:40:46 GMT
From: "Danny J. Sohier" <danny@spiff.bibl.ulaval.ca>
Subject: PERL and SPSS
Message-Id: <35F94692.A6CE3FA5@spiff.bibl.ulaval.ca>
Hello everyone,
Does anyone know where I could find some
perl gateways to SPSS ressources ?
Thanks a million,
Danny
dsohier@bibl.ulaval.ca
------------------------------
Date: Fri, 11 Sep 1998 15:36:56 GMT
From: Elaine -HappyFunBall- Ashton <eashton@bbnplanet.com>
Subject: Re: Perl gurus opinion needed.
Message-Id: <35F94139.4F5FD14@bbnplanet.com>
Lack Mr G M wrote:
> |> i have always found the word 'hacker' to be interesting. its root comes
> |> from the word 'hackney'...
>
> No it doesn't.
>
> It comes from the verb "to hack", as it "to cut with rough blows" or
> "to chop or mangle". Ie. to set about something in a rough-and-ready
> fashion.
Hmmm. I will have to get out my OED, etc. and check the etymology then.
The original word was hackney and eventually evolved into hack. It does
have quite a few different uses and connotations. I still think it is an
interesting application of the noun and the verb.
e.
------------------------------
Date: 11 Sep 1998 11:53:20 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: Perl gurus opinion needed.
Message-Id: <6tbh1g$45j$1@monet.op.net>
In article <35F94139.4F5FD14@bbnplanet.com>,
Elaine -HappyFunBall- Ashton <eashton@bbnplanet.com> wrote:
>Lack Mr G M wrote:
>> |> i have always found the word 'hacker' to be interesting. its root comes
>> |> from the word 'hackney'...
>>
>> No it doesn't.
>>
>> It comes from the verb "to hack", as it "to cut with rough blows" or
>> "to chop or mangle". Ie. to set about something in a rough-and-ready
>> fashion.
>
>The original word was hackney and eventually evolved into hack.
There two words here, with different histories, and it is only
coincidence that they happen to be spelled the same way.
Word 1: Hack up with knives. Hacking coughs.
Word 2: Hackney cabs. Hackneyed prose. Hack writers.
Which one is the `hack' in `computer hack'? To me it seems clear that
it's #1, not #2, and the OED concurs.
(I'm sure they would like to get an antecitation here, since their
earliest is 1983, and `computer hacker' must predate that by at least
fifteen years.)
------------------------------
Date: 11 Sep 1998 10:41:46 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: printf,sprintf padding character
Message-Id: <x7lnnqzp79.fsf@sysarch.com>
>>>>> "CB" == Craig Berry <cberry@cinenet.net> writes:
CB> Or, for that matter:
CB> ($puppy = sprintf '%10d', 1234) =~ tr/ /+/;
there was a thread a while back which listed well over ways to do
this. some were much more interesting than others. check up on dejanews
for the old posts.
this is sounding more like an FAQ. should it be made one and added to
the file?
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
Perl Hacker for Hire ---------------------- Perl, Internet, UNIX Consulting
uri@sysarch.com ------------------------------------ http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: Fri, 11 Sep 1998 10:23:32 -0500
From: Tk Soh <r28629@email.sps.mot.com>
Subject: Re: Redirect output to perl variable
Message-Id: <35F94074.DA62A723@email.sps.mot.com>
dave@mag-sol.com wrote:
> > I want to redirect an output from a system command to a perl variable.
> >
> > system ( "echo Hello" );
> >
> > How do I get the output "Hello" into a perl variable ?
>
> $var = qx/echo hello/;
Note that $var will only capture the STDOUT of you process, so
$var = qx/ls do_not_exist/;
will cause $var to capture nothing, as error message
"do_not_exist: No such file or directory"
gets sent to STDERR, which this may be useful feature in some cases. For
the case of 'ls' on Unix as example above, use this to capture also the
error message:
$var = qx/ls do_not_exist 2>&1/;
Hope this helps.
TK:-)
------------------------------
Date: 11 Sep 1998 09:15:01 -0500
From: mikec@jump.net (Michael Christie)
Subject: Re: Regular expression question
Message-Id: <6tbb95$6uf@serv1.jump.net>
The method described below is fast, but when I tested it (and thanks,
Jonathan, for the help) I discovered that it is incomplete. The problem
is that the code returns "widow" for "aloha", which is correct, but it
also returns (for example) "yummy", which is incorrect. "aloha" cannot
encrypt "yummy", since the "o" and the "h" have to represent two different
letters. This was the problem I ran into originally--I can match some
patterns, but I can't see how to avoid matching on failures like this.
In article <m33e9ypxou.fsf@joshua.panix.com>,
Jonathan Feinberg <jdf@pobox.com> wrote:
>Sherry Coldsmith or Mike Christie <mikec@jump.net> writes:
>
>> My question is: given an array of all five letter words, and a given
>> crypt word like "mlkqk", what is the best way to filter the array down
>> to only those words that might match?
>
>The "best" way I'll leave to mjd, Abigail, and tchrist. Here's a
>reasonable way. It's fast enough on my box.
>
> #!/usr/bin/perl -w
> use strict;
>
> use vars '@dict';
> open(DICT, '</usr/dict/words') || die "/usr/dict/words: $!\n";
> chomp(@dict = <DICT>);
> close DICT;
>
> sub match_crypto {
> my @pattern = split //, $_[0];
> my (@letters,%slots,@matches);
> WORDS:
> foreach my $word (@dict) {
> next unless length $word == @pattern;
> @letters = split //, $word;
> %slots = ();
> for (my $i = 0; $i < @letters; ++$i) {
> next WORDS if $letters[$i] eq $pattern[$i];
> if (exists $slots{$pattern[$i]}) {
> next WORDS unless $slots{$pattern[$i]} eq $letters[$i];
> }
> else {
> $slots{$pattern[$i]} = $letters[$i];
> }
> }
> push @matches, $word;
> }
> @matches;
> }
>
> my @aloha = match_crypto('zabcz');
> print join("\n",@aloha),"\n";
>
> my @babbage = match_crypto('abqqcdy');
> print join("\n",@babbage),"\n";
> __END__
>
>--
>Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
>http://pobox.com/~jdf
------------------------------
Date: 11 Sep 1998 09:38:18 -0500
From: jima@MCS.COM (Jim Allenspach)
Subject: Re: Regular expression question
Message-Id: <6tbckq$1l7@Venus.mcs.net>
Or, if you initially store your words properly, you don't need to
re-do any calculations. Just store your words in anonymous arrays, in a
hash whose keys are some unique pattern that brings alike words together.
######
sub pattern {
my(%magic,$result,$iter);
for (split //, lc $_[0]) {
$result .= chr(ord('A') +
($magic{$_} eq '' ? ($magic{$_} = $iter++) : $magic{$_}));
}
return $result;
}
# read in dict
open(DICT, "/usr/share/dict/words") or die $!;
while (!eof DICT) {
chomp($_ = <DICT>);
push @{$DICT{pattern $_}}, $_ ;
}
close DICT;
# the payoff
print "words that match 'there': " .
join(',', @{$DICT{pattern 'there'}})
. "\n";
######
All the work is done in the initialization part of the code, and
you can get answers easily.
for a variation on this technique that gives anagrams of words,
interested parties should check out the "Aha! Algorithms" chapter in
Bentley's _Programming_Pearls_ (not the Camel Book, but the Oyster Book).
jma
------------------------------
Date: 11 Sep 1998 10:54:34 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Regular expression question
Message-Id: <x7k93azolx.fsf@sysarch.com>
>>>>> "MC" == Michael Christie <mikec@jump.net> writes:
MC> The method described below is fast, but when I tested it (and
MC> thanks, Jonathan, for the help) I discovered that it is
MC> incomplete. The problem is that the code returns "widow" for
MC> "aloha", which is correct, but it also returns (for example)
MC> "yummy", which is incorrect. "aloha" cannot encrypt "yummy",
MC> since the "o" and the "h" have to represent two different letters.
MC> This was the problem I ran into originally--I can match some
MC> patterns, but I can't see how to avoid matching on failures like
MC> this.
i won't write the code but this algorithm should work.
split each word in the list to its letters and sort them. then count the
number of each unique letter and build an array with those counts.
then index into a multidimensional array (or convert the array of
numbers to a unique string with join and use a hash) and you can push a
onto an anon list of the words with that counting pattern.
then to find a list of possible words, just do the same thing on the
crypto word and find the list of possible words. don't push this new
word onto the list.
hth,
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
Perl Hacker for Hire ---------------------- Perl, Internet, UNIX Consulting
uri@sysarch.com ------------------------------------ http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: 11 Sep 1998 15:06:14 GMT
From: gorilla@elaine.drink.com (Alan Barclay)
Subject: Re: replacing text in a string
Message-Id: <905526359.431387@elaine.drink.com>
In article <m367ewi067.fsf@satch.markl.com>,
Mark Lehrer <mark@satch.markl.com> wrote:
>
>What is the best way to substitute a few characters in the middle of
>a string? I am using the slowest possible method:
>
>$foo="123abc789";
>
>$newstr=substr($foo,0,3) . "456" . substr($foo,6);
>
>This will be used quite heavily in a new project I'm working on, so
>I would like to find a better way to replace text.
If you find that construct easy to read and understand what it's doing,
then there is nothing wrong with it.
All of the variations in this thread all run very fast, with differences
of only a few thousandths of a second. In almost all programs, this
means there will be no practical difference in the execution of the
program. Choosing the right algorythm, and avoiding constructs which
unneccessarily take up large amounts of time is much more important than
trying to shave off microseconds off execution time.
------------------------------
Date: Fri, 11 Sep 1998 09:38:57 -0500
From: John Guillory <johng@unix1.sncc.lsu.edu>
Subject: script to compose html pages based on ip/user
Message-Id: <Pine.A32.3.95.980911091905.91906B-100000@unix1.sncc.lsu.edu>
I'm a librarian new to Perl and interested in any sites that might
contain a script or portions of a script to perform the following
function:
Based on the web browser's ip or user account on the httpd server, the cgi
will serve out a web page that contains a list of links (the links are
addresses to databases that reside on site and off site) to which the
incoming ip as access.
How I think this might work (pseudocode?):
1. I have already configured the httpd server's authentication part to
check a user's ip address; if that address is not "known" then prompt the
user to logon (standard stuff).
2. By virtue of entering the cgi-bin directory based on step one, the
following happens: an array is checked whose values are the database web
addresses to which the incoming ip address has access; those valid
addresses are served back to the user's browser in a page of simple links
to the databases.
Some of the databases reside on-site, some off-site:
a. User clinks on link to on-site database and, since
authentication has been already preformed at httpd level, user gets in.
b. User clicks on link to off-site (vendor) database, and a cookie
is passed to remote vendor's database server/user to remove this server
from the loop.
That's it.
I have already checked CPAN. Being new to Perl I would appreciate knowing
of any other archives that might useful.
I also need to check more closely the CGI.pm module--I just learned about
this yesterday. That's how new I am to this.
Thanks so much.
John Guillory
Systems Librarian
LSU Computing Services
johng@unix1.sncc.lsu.edu
Louisiana State University
------------------------------
Date: Fri, 11 Sep 1998 07:01:12 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Search/Replace but Not under certain conditions. HOW?
Message-Id: <MPG.1062cd0375439489989847@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and copy mailed.]
In article <6taj4o$6gd$1@rand.dimensional.com> on Fri, 11 Sep 1998
07:34:53 GMT, Daniel Grisinger <dgris@rand.dimensional.com> says...
;> In article <6tafq8$ktu$1@news1.epix.net>
;> rb1000@ix.netcom.com (Ron Bennett) wrote:
;>
;> >$body =~ s|(http://\S+)|<a href="$1">$1</a>|g;
;>
;> >BUT how do I code it so it does NOT match if the http://whatever
;> >address contains any '@' characters in it??
;>
;> s|(http://[^\s@]+)|<a href="$1">$1</a>|g;
No, because this matches, for example, 'http://foo@bar' producing
'http://foo'.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 11 Sep 1998 07:22:06 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Search/Replace but Not under certain conditions. HOW?
Message-Id: <MPG.1062d1eab5ee1c4989848@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and copy mailed.]
In article <35F91F56.3279A0E2@qmw.ac.uk> on Fri, 11 Sep 1998 14:02:14
+0100, Julian Gilbey <J.D.Gilbey@qmw.ac.uk> says...
> Ron Bennett wrote:
...
> > $body =~ s|(http://\S+)|<a href="$1">$1</a>|g;
...
> > BUT how do I code it so it does NOT match if the http://whatever address
> > contains any '@' characters in it??
>
> How about:
>
> $body =~ s|(http://[^\s@]+)\s|<a href="$1">$1</a>|g;
>
> Does that work?
$body =~ s!(http://[^\s@]+)(?=\s|$)!<a href="$1">$1</a>!g;
or
$body =~ s!(http://[^@]+?)(?=\s|$)!<a href="$1">$1</a>!g;
should work better (specifically, on strings that do not end in white-
space). Note that I had to change the regex delimiter.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 11 Sep 1998 09:09:10 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Search/Replace but Not under certain conditions. HOW?
Message-Id: <6uabt6.rij.ln@metronet.com>
Ron Bennett (rb1000@ix.netcom.com) wrote:
: I've read the groups, faqs, etc and am still mystified as to how to do this:
: $body =~ s|(http://\S+)|<a href="$1">$1</a>|g;
: Converts all strings begining with 'http://' to actual hypertext links and
: works fine.
: BUT how do I code it so it does NOT match if the http://whatever address
: contains any '@' characters in it??
It would be much easier to allow the _match_ but perform no
substitution if it contains the at sign:
$body =~ s|(http://\S+)| my $s=$1; # copy the matched string
$s=~/@/ ? # if it contains an 'at sign'
$s : # then replace with itself
qq(<a href="$s">$s</a>) # else HTMLify it
|ge; # 'e' modifier for eval
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 11 Sep 1998 15:43:19 GMT
From: "Danny J. Sohier" <danny@spiff.bibl.ulaval.ca>
Subject: SPSS and PERL
Message-Id: <35F9472B.955F3952@spiff.bibl.ulaval.ca>
Hello everyone,
Does anyone know where we could find
perl scripted gateways to SPSS ressources ?
Thanks a miilion,
Danny J. Sohier
dsohier@bibl.ulaval.ca
------------------------------
Date: Fri, 11 Sep 1998 15:36:48 GMT
From: "Danny J. Sohier" <danny@spiff.bibl.ulaval.ca>
Subject: SPSS Gateways in PERL
Message-Id: <35F945A4.43081718@spiff.bibl.ulaval.ca>
Hi folks,
Does anyone know where I could find
gateways to SPSS scripted in PERL ?
Thanks for any advice
Danny J. Sohier
dsohier@bibl.ulaval.ca
------------------------------
Date: Fri, 11 Sep 1998 15:36:02 GMT
From: "Danny J. Sohier" <danny@spiff.bibl.ulaval.ca>
Subject: SPSS Gateways in PERL
Message-Id: <35F94575.180CDB2E@spiff.bibl.ulaval.ca>
Hi folks,
Does anyone know where I could find
gateways to SPSS scripted in PERL ?
Thanks for any advice
Danny J. Sohier
dsohier@bibl.ulaval.ca
------------------------------
Date: Fri, 11 Sep 1998 15:37:20 GMT
From: "Danny J. Sohier" <danny@spiff.bibl.ulaval.ca>
Subject: SPSS Gateways in PERL
Message-Id: <35F945C4.6B692C36@spiff.bibl.ulaval.ca>
Hi folks,
Does anyone know where I could find
gateways to SPSS scripted in PERL ?
Thanks for any advice
Danny J. Sohier
dsohier@bibl.ulaval.ca
------------------------------
Date: Fri, 11 Sep 1998 17:00:00 +0200
From: "Jakub Dadak" <dadman@brainsys.cz>
Subject: Strange Error message
Message-Id: <6tbedi$lj0$1@adis.cesnet.cz>
Hi,
i've received %subj% from this script.
Where is a problem ?
Thanks JD
Value of <HANDLE> construct can be "0"; test with defined() at
./voicefilt.pl line 65535.
#!/usr/bin/perl -w
use strict;
open (XXX, "log") or die("Log is not open\n");
my $line;
while ($line = <XXX>) { };
close XXX;
------------------------------
Date: 11 Sep 1998 17:21:36 +0200
From: Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
Subject: Re: Strange Error message
Message-Id: <83g1dy65fj.fsf@vcpc.univie.ac.at>
Re: Strange Error message, Jakub <dadman@brainsys.cz> said:
Jakub> Value of <HANDLE> construct can be "0"; test with
Jakub> defined() at ./voicefilt.pl line 65535.
Jakub> #!/usr/bin/perl -w
Jakub> use strict;
If you "use diagnostics;" as well, enlightenment should
follow...
hth
tony
--
Tony Curtis, Systems Manager, VCPC, | Tel +43 1 310 93 96 - 12; Fax - 13
Liechtensteinstrasse 22, A-1090 Wien, | <URI:http://www.vcpc.univie.ac.at/>
"You see? You see? Your stupid minds! | private email:
Stupid! Stupid!" ~ Eros, Plan9 fOS.| <URI:mailto:tony_curtis32@hotmail.com>
------------------------------
Date: Fri, 11 Sep 1998 15:22:56 GMT
From: dave@mag-sol.com
Subject: Re: SYBPERL install hassles - help!!!!
Message-Id: <6tbf8f$njj$1@nnrp1.dejanews.com>
Malcolm,
After 'make' and 'make test', did you run 'make install'? Thats the bit that
copies all the relevant files into the correct places. You'll probably need to
be root in order for this to work. If you're not, you can set up a personal
library of modules, but I can't find the reference to how you'd do that :-(
In article <6tb4tg$1uk$1@hermes.is.co.za>,
"Mal" <malcolm.stevens@fnbinvest.co.za.remove_nospam> wrote:
> Hi
>
> I am trying to install perl and sybperl on a solaris box.
> I have compiled perl 5.004_04 and vanilla perl works well.
> I then untarred sybperl into it's own directory and followed the
> instructions in the README file.
> "make" runs fine.
> "make test" ran fine one I added ".././blib/arch/auto/Sybase/CTlib" and
> ".././blib/arch/auto/Sybase/DBlib" to my LD_LIBRARY_PATH.
>
> In a sample app I have:
>
> #!/usr/local/bin/perl
> use Sybase::DBlib;
>
> This falls over with:
> Can't locate Sybase/DBlib.pm in @INC (@INC contains: /usr/local/lib/perl5
> /usr/local/lib/perl5 /usr/local/lib/perl5 .) at ...
>
> I have created a softlink to some of the sybperl pm modules etc in
> /usr/local/lib/perl5 where my perl modules are but this is not mentioned in
> the sybperl installation guide and really doesn't seem right to me. Should I
> be doing this?
>
> My questions are thus:
> 1. Do I have to recompile the perl binary after installing sybperl?
> 2. What environment variables must be set for sybperl?
> 3. Does the sybperl installation try to link itself to perl when installing
> sybperl?
> 4. What exactly is happening with the sybperl installation?
>
> thanx
> Malcolm
>
>
--
dave@mag-sol.com
London Perl M[ou]ngers: <http://www.mag-sol.com/London.pm/>
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Fri, 11 Sep 1998 08:59:21 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: uniq
Message-Id: <pbabt6.hgj.ln@metronet.com>
Jerrad Pierce (belg4mit@mit.edu) wrote:
: is there a (good) way to do uniq entirely within perl (no exec of the
: utillity)?
: I really even need the uniq'd list, just a count of the uniq lines in a list.
Perl FAQ, part 4:
"How can I extract just the unique elements of an array?"
(a word search for 'uniq' in the docs that come with perl found
only 27 matches, including the one above
)
: E-mail replies preferred.
Preferred by you.
Newsgroup postings are preferred by the thousands of other folks
here so that they can see what the answer is too.
And so that the next person who has this question will find their
answer in a Usenet archive such as Dejanews. (of course they
wouldn't really have to if they were Good Usenet Citizens, because
they would look around in the FAQ before posting like they are
supposed to).
The greater good for the greater number. Most of us here hope to
serve the entire community rather than provide individualized help.
Ask it here, get the answer here.
But please refrain from contributing to the accuracy of the "F"
in FAQ in the future. Thousands have already beaten you to it ;-)
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 11 Sep 1998 14:27:00 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: While loop with regex as condition?
Message-Id: <6tbbvk$ajo$2@client3.news.psi.net>
Matt Hughes (mhughe@acs.ucalgary.ca) wrote on MDCCCXXXVII September
MCMXCIII in <URL: news:6tab3s$sp2@ds2.acs.ucalgary.ca>:
++ Can you use a regular expression as the condition for a while loop?
Yes.
Abigail
--
perl -wleprint -eqq-@{[ -eqw\\- -eJust -eanother -ePerl -eHacker -e\\-]}-
------------------------------
Date: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 3691
**************************************
