[10638] in Perl-Users-Digest
Perl-Users Digest, Issue: 4230 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Nov 16 14:07:25 1998
Date: Mon, 16 Nov 98 11:00:21 -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 Mon, 16 Nov 1998 Volume: 8 Number: 4230
Today's topics:
$/ ?!?!? <cgormley@netcomuk.co.uk>
Adv Perl Programming Tutorial - Boulder, CO <johnd@xor.com>
Re: cgi question (brian d foy)
Re: cgi question <matt@pcr7.pcr.com>
fork/exit/open on SunOS/Solaris (Shinji Kono)
Re: Form value security & sendmail (brian d foy)
Re: FRESHMAN:preview of form data, adding files etc. (brian d foy)
Re: htaccess and perl (brian d foy)
Multipliers x{m,n} (Gary Hodges)
Re: Multipliers x{m,n} <ludlow@us.ibm.com>
Re: Multipliers x{m,n} (Gary Hodges)
Need to find binary data <nkanth@cnd.hp.com>
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Perl Usage Survey - interpretations, anyone? (Rich Morin)
Re: Perl Usage Survey - interpretations, anyone? <uri@sysarch.com>
Re: Problem with Object method calling (Joe Schwab)
Re: Q: are symbolic refs really needed (was Re: Modific <uri@sysarch.com>
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
syntax/doc question <marty@catnmoose.com>
Re: syntax/doc question <uri@sysarch.com>
Re: upper to lowercase (Andrew M. Langmead)
Re: upper to lowercase (Tad McClellan)
Re: upper to lowercase (John Moreno)
Re: Use of Shell commands - Help!!! dave@mag-sol.com
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 16 Nov 1998 18:01:24 -0000
From: "Clinton Gormley" <cgormley@netcomuk.co.uk>
Subject: $/ ?!?!?
Message-Id: <72pp9k$mf1$1@taliesin.netcom.net.uk>
I am trying to make a copy of a file, check that the new file is the same
size as the original, and then truncate the original to length 0.
The original file has the format "field;field;field;field\r\n"
I have tried reading the file in line by line, with $/ ="\n" and as a whole
(undef ($/). However, the new file seems to lose one by record (and lose a
blank line per record) regardless of the method I use.
I'm assuming it is removing the "\r"s, but why? especially why when the
"\r\n"s are in the middle of a long string?
please help.
Clint
Code :
use Fcntl qw(:flock);
@files= ('rsa.lst','deposit.lst','counter.lst', 'data.lst');
open (LOG,'>../logs/collect.log')||die ("Couldn't open log file : $!");
flock (LOG,LOCK_EX);
sub add0
{my $a="0".$_[0];
$a=~s/.*(\d\d$)/$1/;
return ($a);
}
local @time=localtime;
print LOG (1900+$time[5]).add0(1+$time[4]).add0($time[3])."
".add0($time[2]).":".add0($time[1])."\r\n";
foreach $fh (@files)
{undef ($/);
if (open (FHIN,'+<../logs/'.$fh))
{print LOG "Opened : $fh\n";
if (flock (FHIN,LOCK_EX))
{print LOG "Locked : $fh\n";
($fhout)=($fh=~/(\w+\.)/);
$fhout.='ftp';
if (open(FHOUT,'>../logs/'.$fhout))
{print LOG "Opened : $fhout\n";
select (FHOUT);
$|='1';
select (STDOUT);
if (flock(FHOUT, LOCK_EX))
{print LOG "Locked : $fhout\n";
$temp=<FHIN>;
print (length ($temp),"\n");
print FHOUT $temp;
print (-s FHIN," : ",-s FHOUT,"\n");
if ((-s FHIN)==(-s FHOUT))
{print LOG "File sizes match : ", -s FHOUT,"\n";
if (close (FHOUT))
{print LOG "Closed : $fhout\n";
if (seek (FHIN,0,0))
{print LOG "Beginning found : $fh\n";
if (truncate (FHIN,0))
{print LOG "Truncated : $fh\n";
if (close (FHIN))
{print LOG "Closed : $fh\n\n";}
else
{print LOG "Couldn't close : $fh : $!\n\n";}
}
else
{print LOG "Couldn't truncate : $fh : $!\n\n";}
}
else
{print LOG "Beginning not found : $fh : $!\n\n";}
}
else
{print LOG "Couldn't close : $fh : $!\n\n";}
}
else
{print LOG "File sizes don't match\n\n";}
}
else
{print LOG "Couldn't lock : $fhout : $!\n\n";}
}
else
{print LOG "Couldn't open : $fhout : $!\n\n";}
}
else
{print LOG "Couldn't lock : $fh : $!\n\n";}
}
else
{print LOG "Couldn't open : $fh : $!\n\n";}
}
@time=localtime;
print LOG "DONE : ",(1900+$time[5]).add0(1+$time[4]).add0($time[3])."
".add0($time[2]).":".add0($time[1])."\r\n";
close (LOG);
------------------------------
Date: Mon, 16 Nov 1998 10:43:51 -0700
From: John Donnelly <johnd@xor.com>
Subject: Adv Perl Programming Tutorial - Boulder, CO
Message-Id: <36506457.22CC@xor.com>
**Upcoming (December 1-3, 1998) Adv Perl Programming Tutorial**
Session is held at our training facility in Boulder, CO.
Class size is limited to 10 people. Limited reservations remaining.
Contact me for further information, registration forms.
--John Donnelly, Training Coordinator
XOR Network Engineering, Inc.
http://www.xor.com/training johnd@xor.com 303-448-4816
*****
Advanced Perl Programming
(Three Day Hands-on Lecture/Lab)
Tom Christiansen, Perl Consultancy
Tuesday-Thursday, December 1-3, 1998
Boulder, CO
Tuition: $995
This course presents everything you'll need to completely
master advanced Perl programming using features and facili-
ties from the latest release of Perl (5.004).
Who should attend:
Anyone interested in honing their existing Perl programming
skills for quick prototyping, system utilities, software
tools, system management tasks, database access, and world
wide web programming.
Prerequisites:
Besides having already taken a course in beginning Perl pro-
gramming or having read the Learning Perl book from
O'Reilly, students should also have already used Perl for
basic scripting for several months previous to taking this
course. Basic screen editing and manipulating of files on a
Unix system are also assumed.
Topics Include:
- exceptions and eval
- Unix database files
- binary I/O and file locking
- advanced regular expressions
- libraries and mondules
- object-oriented programming
- references and complex data structures
- client and server programming using TCP sockets
- overview of issues involved with linking C
into Perl and vice versa
------------------------------
Date: Mon, 16 Nov 1998 12:51:01 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: cgi question
Message-Id: <comdog-ya02408000R1611981251010001@news.panix.com>
In article <36500266.97C3404A@rtin.nu>, m@rtin.nu posted:
> I need to define what domains that is allowed to run my perl script. I
> have the unix cgi folder on a difirent computer/domain. It's an
> accesscounter script that is called with SSI on a NT machine. But the
> error message
> Cannot #EXEC 'http...' due to lack of EXECUTE permission
this is neither a perl or CGI question. you can't execute remote
programs through SSI. see your server documentation.
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
------------------------------
Date: Mon, 16 Nov 1998 13:10:53 -0500
From: "Matt Heusser" <matt@pcr7.pcr.com>
Subject: Re: cgi question
Message-Id: <zRZ32.1082$I3.6037@news6.ispnews.com>
Martin -
Put your script in the CGI/BIN directory of your
NT machine, and execute that via SSI.
good luck!
Matt H.
------------------------------
Date: 16 Nov 1998 16:23:56 GMT
From: kono@ie.u-ryukyu.ac.jp (Shinji Kono)
Subject: fork/exit/open on SunOS/Solaris
Message-Id: <19357.911233634@rananim.ie.u-ryukyu.ac.jp>
Hi. I have a question about _exit() on Solaris.
In Solaris / SunOS,
=== test.pl ====
#!/usr/local/bin/perl5
while(<>) {
print; # parent task
if(fork) {
;;
} else {
exit(0); # a child task per input line
}
}
% perl5 test.pl test.pl
generate infinite output on Solaris/SunOS. This is because,
NOTES | |
|Be careful to call _exit() rather than exit(3C) if you can-
|not execve(), |since exit(3C) will flush and|close standard
|I/O channels, and thereby corrupt the parent processes stan-
|dard I/O data| structures. Using exit(3C) will flush buf-
|fered data twice. See exit(2). |
(from Solaris man fork )
So, the question is, how can I use _exit() in Perl 5?
syscall.h contains no _exit(). Since Perl5 interpreter itself
use _exit(), it looks like reasonable to support _exit() in
Perl. Or any other hack on it?
---
Shinji KONO @ Information Engineering, University of the Ryukyus
$B2OLn??<#(B @ $BN05eBg3X9)3XIt>pJs9)3X2J(B
------------------------------
Date: Mon, 16 Nov 1998 12:54:02 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Form value security & sendmail
Message-Id: <comdog-ya02408000R1611981254020001@news.panix.com>
In article <364F8F4E.A21C5278@cir.nus.edu.sg>, Aaron <aaron_deleteme@cir.nus.edu.sg> posted:
> Hi! I'm trying to use some values obtained from a form and to mail them
> using sendmail. I'm worried about the metacharacters and would like to
> filter the values first before sending them out. Is mail::sendmail the
> proper Perl module to address this problem?
i would recommend Net::SMTP, but that's just me.
and does it cover the
> security portion?
use something like PGP to encrypt the data. once you have the ASCII
output, it is safe to send through email.
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
------------------------------
Date: Mon, 16 Nov 1998 12:52:35 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: FRESHMAN:preview of form data, adding files etc.
Message-Id: <comdog-ya02408000R1611981252350001@news.panix.com>
In article <364FAB42.228EFCB@roogna.eng.wayne.edu>, shienh gurpreet <gss2@roogna.eng.wayne.edu> posted:
> I have written a script ( not very sophisticated one, it being my
> second script). It reads in the data from a form (which includes the
> user giving a file name). If that file (web page) exists, it gives the
> user an error message otherwise it goes on to create that file using
> form data.
this isn't a good thing to do. letting anyone create arbitrary
files on your system is a bad idea.
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
------------------------------
Date: Mon, 16 Nov 1998 12:49:51 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: htaccess and perl
Message-Id: <comdog-ya02408000R1611981249510001@news.panix.com>
In article <72pere$opn$1@xmission.xmission.com>, fozz@xmission.xmission.com (Doran L. Barton) posted:
> I have written a Perl library to provide the same functionality as the
> 'htpasswd' program:
>
> <URL: ftp://ftp.iodynamics.com/pub/htpasswd/HTPasswd.pm >
does this duplicate the work of HTTPD::UserAdmin?
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
------------------------------
Date: 16 Nov 1998 17:13:28 GMT
From: hodges@space.srrb.noaa.gov (Gary Hodges)
Subject: Multipliers x{m,n}
Message-Id: <72pmfo$bbj$1@mwrns.noaa.gov>
Perl novice here. Who cares? Anyway, I have some large data files with 34
fields of comma deliminated real numbers with no spaces in between.
xx.xxxx,xxx.xxx,xxx.xxxx etc
Instead of repeating (\S+)\,(\S+)\, 34 times, can I use x{m,n} to just
repeat (\S+)\, 34 times? I've tried using x{m,n} a few different ways, but
haven't had much success.
Regards,
Gary
------------------------------
Date: Mon, 16 Nov 1998 11:32:53 -0600
From: James Ludlow <ludlow@us.ibm.com>
Subject: Re: Multipliers x{m,n}
Message-Id: <365061C5.DC8A3F2C@us.ibm.com>
Gary Hodges wrote:
>
> Perl novice here. Who cares? Anyway, I have some large data files with 34
> fields of comma deliminated real numbers with no spaces in between.
>
> xx.xxxx,xxx.xxx,xxx.xxxx etc
>
> Instead of repeating (\S+)\,(\S+)\, 34 times, can I use x{m,n} to just
> repeat (\S+)\, 34 times? I've tried using x{m,n} a few different ways, but
> haven't had much success.
You didn't say what you were trying to do with your regex, but it's
possible that the 'split' function might be better suited to your task.
--
James Ludlow (ludlow@us.ibm.com)
(Any opinions expressed are my own, not necessarily those of IBM)
------------------------------
Date: 16 Nov 1998 18:00:36 GMT
From: hodges@space.srrb.noaa.gov (Gary Hodges)
Subject: Re: Multipliers x{m,n}
Message-Id: <72pp84$d5r$1@mwrns.noaa.gov>
James Ludlow (ludlow@us.ibm.com) wrote:
: Gary Hodges wrote:
: >
: > Perl novice here. Who cares? Anyway, I have some large data files with 34
: > fields of comma deliminated real numbers with no spaces in between.
: >
: > xx.xxxx,xxx.xxx,xxx.xxxx etc
: >
: > Instead of repeating (\S+)\,(\S+)\, 34 times, can I use x{m,n} to just
: > repeat (\S+)\, 34 times? I've tried using x{m,n} a few different ways, but
: > haven't had much success.
: You didn't say what you were trying to do with your regex, but it's
: possible that the 'split' function might be better suited to your task.
Thanks for the reply James. I'll do my best at being more specific. I have
a data file of the format (where x=number and a=alpha):
xxxxx,aaxx,xxxxxx xx:xx:xx,xxx.xxx (repeat last 33 more times). I have the
code
while ($line = <IN>){
$line =~ m/^(\d+)\,(\S+)\,(\d+)\s+(\d+)\:(\d+)\:(\d+)\,(\S+)\, repeated
I want to store each field into a variable <$head = $1;> and so on. Instead
of just repeating (\S+)\, a bunch of times, I was looking for a tool that
would do the repeating for me. split looks like a pretty good choice to
solve this problem. I have spaces, colons, and commas though. I have
Learning Perl in front of me, so I'll continue looking into split.
Regards,
Gary
------------------------------
Date: Mon, 16 Nov 1998 10:28:51 -0700
From: Srikanth Natarajan <nkanth@cnd.hp.com>
Subject: Need to find binary data
Message-Id: <365060D3.F1E7D5CD@cnd.hp.com>
I need to read a file and throw an error if it contains non ascii
data (i.e. code > 127)
The bitmask check $char & 0x80 works fine if I use it with some
arbitrary variable which contains code > 127
but when I read a file
and then pass the character I read to the function that checks the
bit mask the check fails.
Is there any special way to read one byte at a time?
I am using read(filehandle,$input,1) function call in a while loop
where input is the scalar variable and filehandle is the handle returned
by the open call.
Srikanth
------------------------------
Date: 16 Nov 1998 16:05:18 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <72pifv$q71$2@info.uah.edu>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 09 Nov 1998 16:13:37 GMT and ending at
16 Nov 1998 09:00:50 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 1998 Greg Bacon. All Rights Reserved.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Totals
======
Posters: 240 (46.5% of all posters)
Articles: 327 (26.3% of all articles)
Volume generated: 637.3 kb (29.5% of total volume)
- headers: 222.6 kb (4,655 lines)
- bodies: 409.0 kb (14,573 lines)
- original: 357.7 kb (13,106 lines)
- signatures: 5.4 kb (103 lines)
Original Content Rating: 0.875
Averages
========
Posts per poster: 1.4
median: 1.0 post
mode: 1 post - 182 posters
s: 0.9 posts
Message size: 1995.7 bytes
- header: 697.2 bytes (14.2 lines)
- body: 1280.7 bytes (44.6 lines)
- original: 1120.1 bytes (40.1 lines)
- signature: 16.8 bytes (0.3 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
5 4.9 ( 3.6/ 1.3/ 1.0) bradley@iinet.net.au
5 8.3 ( 4.2/ 3.0/ 1.9) Daniel Grisinger <dgris@moiraine.dimensional.com>
4 2.7 ( 2.6/ 0.0/ 0.0) "Jim Mosier" <jim.mosier@mci.com>
4 8.9 ( 3.5/ 5.4/ 4.7) "Patrice M.I. Parmentier" <ppa@itmasters.com>
4 5.2 ( 2.5/ 2.6/ 2.2) "News" <dixonmat@pouch.com>
4 80.9 ( 2.5/ 78.3/ 78.3) Zhengdong Zhang <zzhang@Bayou.UH.EDU>
4 4.0 ( 2.7/ 1.3/ 0.8) root <sasho@staff.mgu.bg>
4 4.2 ( 2.6/ 1.6/ 1.3) "Paul Wood" <john.wood@diamond.co.uk>
3 6.2 ( 2.7/ 3.5/ 2.1) Jan Bessels <j.bessels@wolverine.demon.nl>
3 6.4 ( 1.9/ 4.5/ 4.0) kathleen@msfc.nasa.gov (Kathleen Applegate)
These posters accounted for 3.2% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
80.9 ( 2.5/ 78.3/ 78.3) 4 Zhengdong Zhang <zzhang@Bayou.UH.EDU>
62.3 ( 2.2/ 60.1/ 60.1) 3 just_the_man@hotmail.com
10.2 ( 1.4/ 8.9/ 7.2) 2 zarmzarm@hotmail.com
9.4 ( 1.9/ 7.5/ 7.5) 3 "MoJi" <moji@mo.net>
8.9 ( 3.5/ 5.4/ 4.7) 4 "Patrice M.I. Parmentier" <ppa@itmasters.com>
8.3 ( 4.2/ 3.0/ 1.9) 5 Daniel Grisinger <dgris@moiraine.dimensional.com>
6.7 ( 1.3/ 5.4/ 5.4) 2 jhill22@csc.com
6.4 ( 0.6/ 5.8/ 5.8) 1 mbowron@atlis.com
6.4 ( 1.9/ 4.5/ 4.0) 3 kathleen@msfc.nasa.gov (Kathleen Applegate)
6.3 ( 2.1/ 4.3/ 2.8) 3 RoyStephan@yahoo.com
These posters accounted for 9.5% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 78.3 / 78.3) 4 Zhengdong Zhang <zzhang@Bayou.UH.EDU>
1.000 ( 7.5 / 7.5) 3 "MoJi" <moji@mo.net>
1.000 ( 0.6 / 0.6) 3 Godfrey McLean <gomc0000@stud.uni-sb.de>
1.000 ( 0.6 / 0.6) 3 Justin Park <jjpark@home.com>
1.000 ( 60.1 / 60.1) 3 just_the_man@hotmail.com
1.000 ( 0.0 / 0.0) 4 "Jim Mosier" <jim.mosier@mci.com>
0.893 ( 4.0 / 4.5) 3 kathleen@msfc.nasa.gov (Kathleen Applegate)
0.871 ( 4.7 / 5.4) 4 "Patrice M.I. Parmentier" <ppa@itmasters.com>
0.834 ( 2.2 / 2.6) 4 "News" <dixonmat@pouch.com>
0.781 ( 1.3 / 1.6) 4 "Paul Wood" <john.wood@diamond.co.uk>
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.781 ( 1.3 / 1.6) 4 "Paul Wood" <john.wood@diamond.co.uk>
0.759 ( 1.0 / 1.3) 5 bradley@iinet.net.au
0.743 ( 1.3 / 1.7) 3 Blaise Camp <campb@think.ucdavis.edu>
0.714 ( 1.5 / 2.2) 3 sara starre <nospam.gear4u@hotmail.com>
0.658 ( 2.8 / 4.3) 3 RoyStephan@yahoo.com
0.630 ( 1.9 / 3.0) 5 Daniel Grisinger <dgris@moiraine.dimensional.com>
0.625 ( 0.8 / 1.3) 4 root <sasho@staff.mgu.bg>
0.619 ( 2.1 / 3.4) 3 ashish_nina@my-dejanews.com
0.612 ( 2.1 / 3.5) 3 Jan Bessels <j.bessels@wolverine.demon.nl>
0.428 ( 1.0 / 2.3) 3 kkolberg@att.com (Kal Kolberg)
19 posters (7%) had at least three posts.
Top 10 Crossposters
===================
Articles Address
-------- -------
5 "Paul Flavin" <nobody@frontiernet.net>
4 michalk2395@my-dejanews.com
3 Brad Rogers <rogersb@home.com>
2 "Steve Harris" <steve@tsnxt.co.uk>
2 Joey Chen <joeyychen@geocities.com>
2 tfsmiles@ecst.csuchico.edu (Mike Kelly)
2 juan@physics.mcgill.ca (Juan Gallego)
2 "George Statis" <REMOVETHIS.statis@nettaxi.org>
2 UseNet@Hywel.Demon.CO.UK.CutThis (Hywel Jenkins)
2 lordvorp@my-dejanews.com
------------------------------
Date: Mon, 16 Nov 1998 10:09:36 -0800
From: rdm@cfcl.com (Rich Morin)
Subject: Perl Usage Survey - interpretations, anyone?
Message-Id: <rdm-1611981009510001@140.174.42.30>
The Perl Usage Survey is admittedly informal and probably unscientific,
but I still find the results to be intriguing. As a MacPerl fan, I'm
pleased to see that MacPerl is still on the charts (a solid 5th place).
Maybe we'll be able to get a paper into the Conference this year. (;-)
Anyway, here are the standings (as of 981116.0943, California time):
Respondents so far: 3967
Top 10 most used platforms
Linux 2697
Solaris 1872
Win 95, 98, NT 1754
SunOS 1006
-> MacOS 900
HP-UX 628
Free-, Net-, OpenBSD 577
IRIX 529
AIX 455
DEC Unix, OSF/1 390
I'm not sure how much, let alone what, these numbers mean. Higher
scores would seem to indicate either that:
* the OS has lots of activists
* the OS has lots of ballot-stuffers
* the OS is being used a lot for Perl
We _know_ that Linux and Mac OS have lots of devoted users, so these
numbers may be a bit distorted. I don't really think there is much
ballot-stuffing going on; why would anyone bother?
To the extent that the survey reflects reality, however, many conven-
tional Unix vendors should be worried. I am particularly struck by
the absence of any SCO entrants in the top 10. SCO used to be the
dominant player, in terms of boxes, then they bought the UNIX code
base (from AT&T, by way of Novell). So, where are they?
Another argument might be that the same lunatic fringe that uses Perl
is also likely to try Linux. That doesn't explain Solaris, however.
Okay, my turn's up; anyone else want to try reading the tea leaves?
-r
--
Canta Forda Computer Laboratory | Prime Time Freeware - quality
UNIX consulting, training, & writing | freeware at affordable prices
+1 650-873-7841 | +1 408-433-9662 -0727 (Fax)
Rich Morin, rdm@cfcl.com | www.ptf.com, info@ptf.com
------------------------------
Date: 16 Nov 1998 13:29:45 -0500
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Perl Usage Survey - interpretations, anyone?
Message-Id: <x7r9v34hk6.fsf@sysarch.com>
>>>>> "RM" == Rich Morin <rdm@cfcl.com> writes:
RM> Top 10 most used platforms
RM> Linux 2697
RM> Solaris 1872
RM> Win 95, 98, NT 1754
RM> SunOS 1006
-> MacOS 900
RM> HP-UX 628
RM> Free-, Net-, OpenBSD 577
RM> IRIX 529
RM> AIX 455
RM> DEC Unix, OSF/1 390
RM> To the extent that the survey reflects reality, however, many conven-
RM> tional Unix vendors should be worried. I am particularly struck by
RM> the absence of any SCO entrants in the top 10. SCO used to be the
RM> dominant player, in terms of boxes, then they bought the UNIX code
RM> base (from AT&T, by way of Novell). So, where are they?
my impression of sco is that most boxes were sold for dedicated usage
(embedded systems from var's, etc.) not desktop. i know of several
projects like that. a few developers would generate many sales of boxes
with only end users. so the number of boxes sold doesn't correlate to
the number of users who might use perl on them.
RM> Another argument might be that the same lunatic fringe that uses Perl
RM> is also likely to try Linux. That doesn't explain Solaris, however.
RM> Okay, my turn's up; anyone else want to try reading the tea leaves?
i don't get that argument. any power unix user would probably know and
use perl. so the numbers of the unix platforms reflects the number of
platforms out there. and the solaris and sunos numbers add up to more
than the linux ones since sun has sold lots of boxes and their users
tend to be power user types who would know perl. in some ways i think
fewer linux users would know perl since IMO many linux types are
youngsters who haven't broadened their computing background enough yet
to know things like perl. while many linux users are experienced i
read about all these kids loading it because it's kewl, etc. sun and
other commercial unix user's tend to be professionals with more
computing background and are more likely to use perl. this may change
over time.
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: 16 Nov 1998 16:43:04 GMT
From: jschwab@trey.tss.nwu.edu (Joe Schwab)
Subject: Re: Problem with Object method calling
Message-Id: <72pkmo$9ga@news.acns.nwu.edu>
: Joe> Using PERL version 5.005_02 built for PA-RISC1.1 I am having
: Joe> trouble with some objects I've created. There is an object called Service
: Joe> that has a method new($$). I can create new objects in some parts of my
: Joe> script by saying:
: Joe> my $service = new Service($foo, $bar)
: The "indirect object" syntax works under nicely controlled
: circumstances: namely, you must have seen some reference to the
: package "Service" somewhere ahead of this (like when you say "use
: Service").
that has been done. sorry for not being more explicit. :-)
: Joe> But in other parts of the script, that gives me an error that says:
: Joe> "bareword found where operator expected at service.cgi line 933, near "new
: Joe> service""
: This is probably one of those places where it hasn't yet been seen.
: Are you sure that's lowercase? If it is, there's your error. :)
The logs on the machine that I am viewing report all errors in lowercase. It
was confusing to me at first, but I'm 99.9% sure that's not the problem.
: Joe> That error message goes away, however, if I change the call to
: Joe> my $service = Service::new($foo, $bar);
: No, this is entirely not the same thing. You can get the equivalent
: of the method call above by using arrow form instead of indirect form
: like so:
: my $service = Service->new($foo,$bar);
: or you could emulate that somewhat by using a direct function call:
: my $service = Service::new('Service', $foo, $bar); # caution
: but only *if* Service::new exists. If it has to do inheritance, you
: lose. Only the indirect and arrow forms do inheritance... the direct
: function call DOES NOT.
Alright, that explains a lot. I was under the impression that Service::new()
and Service->new() are the same thing, but this explanation seems to make
more sense. Fortunately it has nothing to do with inheritance in my case.
: print "Just another object-oriented Perl hacker,"
print "Just another novice object-oriented Perl hacker."
Thanks Randal.
--
------------------------------------------------------------------
| Joseph Schwab Internet Access Project Developer |
| http://www.nwu.edu/people/jschwab mailto:jschwab@nwu.edu |
------------------------------------------------------------------
------------------------------
Date: 16 Nov 1998 12:44:25 -0500
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Q: are symbolic refs really needed (was Re: Modification of a read-only??)
Message-Id: <x7ww4v4jnq.fsf@sysarch.com>
>>>>> "Z" == Zenin <zenin@bawdycaste.org> writes:
Z> Uri Guttman <uri@sysarch.com> wrote:
Z> : if so, why not make the default strict refs, like i proposed. if you
Z> : know how to hack symbol table black magic you know enough to enable
Z> : them. the newbies who think that softrefs are the way to build data
Z> : structures by name instead of hashes (and HoH) are the problem.
Z> "Reverse compatibility"
Z> You'll learn to loath those words...
i agree, but like the transition from 4 to 5, there were some broken
things that were easily worked around. in this case if you used
softrefs, you would just have to do no strict 'refs'. this is a simple
way to support old (and broken) programs.
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: 16 Nov 1998 16:06:48 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <72piio$q71$3@info.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 09 Nov 1998 16:13:37 GMT and ending at
16 Nov 1998 09:00:50 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 1998 Greg Bacon. All Rights Reserved.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Excluded Posters
================
perlfaq-suggestions\@mox\.perl\.com
Totals
======
Posters: 516
Articles: 1245 (475 with cutlined signatures)
Threads: 449
Volume generated: 2160.1 kb
- headers: 880.7 kb (18,005 lines)
- bodies: 1188.6 kb (39,684 lines)
- original: 845.5 kb (30,653 lines)
- signatures: 89.6 kb (1,896 lines)
Original Content Rating: 0.711
Averages
========
Posts per poster: 2.4
median: 1.0 post
mode: 1 post - 337 posters
s: 4.8 posts
Posts per thread: 2.8
median: 2 posts
mode: 1 post - 152 threads
s: 4.8 posts
Message size: 1776.7 bytes
- header: 724.3 bytes (14.5 lines)
- body: 977.6 bytes (31.9 lines)
- original: 695.4 bytes (24.6 lines)
- signature: 73.7 bytes (1.5 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
68 97.0 ( 51.7/ 37.2/ 23.6) Tom Phoenix <rootbeer@teleport.com>
34 51.7 ( 20.2/ 31.5/ 20.8) tadmc@flash.net (Tad McClellan)
28 50.1 ( 22.8/ 27.3/ 6.7) Tk Soh <r28629@email.sps.mot.com>
26 52.6 ( 21.5/ 23.2/ 12.9) Uri Guttman <uri@sysarch.com>
25 44.4 ( 20.0/ 18.8/ 12.7) mgjv@comdyn.com.au (Martien Verbruggen)
23 40.5 ( 14.7/ 23.1/ 13.8) lr@hpl.hp.com (Larry Rosler)
21 33.7 ( 18.3/ 15.4/ 7.6) ilya@math.ohio-state.edu (Ilya Zakharevich)
21 34.3 ( 16.0/ 11.5/ 6.7) perlguy@technologist.com
20 25.9 ( 14.2/ 9.1/ 4.8) comdog@computerdog.com (brian d foy)
19 38.7 ( 14.7/ 17.3/ 8.9) Zenin <zenin@bawdycaste.org>
These posters accounted for 22.9% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
97.0 ( 51.7/ 37.2/ 23.6) 68 Tom Phoenix <rootbeer@teleport.com>
80.9 ( 2.5/ 78.3/ 78.3) 4 Zhengdong Zhang <zzhang@Bayou.UH.EDU>
62.3 ( 2.2/ 60.1/ 60.1) 3 just_the_man@hotmail.com
52.6 ( 21.5/ 23.2/ 12.9) 26 Uri Guttman <uri@sysarch.com>
51.7 ( 20.2/ 31.5/ 20.8) 34 tadmc@flash.net (Tad McClellan)
50.1 ( 22.8/ 27.3/ 6.7) 28 Tk Soh <r28629@email.sps.mot.com>
44.4 ( 20.0/ 18.8/ 12.7) 25 mgjv@comdyn.com.au (Martien Verbruggen)
40.5 ( 14.7/ 23.1/ 13.8) 23 lr@hpl.hp.com (Larry Rosler)
38.7 ( 14.7/ 17.3/ 8.9) 19 Zenin <zenin@bawdycaste.org>
34.3 ( 16.0/ 11.5/ 6.7) 21 perlguy@technologist.com
These posters accounted for 25.6% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 6.2 / 6.2) 5 tye@fohnix.metronet.com (Tye McQueen)
1.000 ( 1.6 / 1.6) 5 "Matt" <splinter@monmouth.com>
0.838 ( 5.1 / 6.0) 6 christian.aranda@iiginc.com (Christian M. Aranda)
0.779 ( 4.6 / 5.9) 5 Daniel Grisinger <dgris@rand.dimensional.com>
0.759 ( 1.0 / 1.3) 5 bradley@iinet.net.au
0.742 ( 7.5 / 10.1) 7 ronald_f@my-dejanews.com
0.714 ( 4.2 / 5.9) 7 "Rusty Williamson" <rwilliamson@uno.gers.com>
0.709 ( 2.6 / 3.7) 6 tchrist@mox.perl.com (Tom Christiansen)
0.701 ( 7.8 / 11.1) 12 bart.mediamind@ping.be (Bart Lateur)
0.682 ( 3.4 / 5.0) 5 ptimmins@netserv.unmc.edu (Patrick Timmins)
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.487 ( 3.4 / 7.1) 8 dragons@scescape.net (Matthew Bafford)
0.481 ( 5.3 / 10.9) 10 jbharvey@corp.home.net
0.428 ( 2.7 / 6.4) 14 alastair@calliope.demon.co.uk
0.404 ( 3.8 / 9.4) 7 keithmur@mindspring.com
0.400 ( 1.8 / 4.5) 5 ehpoole@ingress.com (Ethan H. Poole)
0.394 ( 0.9 / 2.2) 5 alecler@cam.org (Andre L.)
0.378 ( 2.8 / 7.4) 7 keydet89@yahoo.com
0.358 ( 1.0 / 2.9) 6 Matt Sergeant <msergeant@ndirect.co.uk_NOSPAM>
0.291 ( 1.3 / 4.6) 5 baliga@synopsys.com
0.246 ( 6.7 / 27.3) 28 Tk Soh <r28629@email.sps.mot.com>
47 posters (9%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
16 pwd without backticks?
16 Q: are symbolic refs really needed (was Re: Modification of a read-only??)
11 How do I sort this list by "port" number?
11 64-bit Perl?
11 A Newbie That Needs Some Quick Help
10 Looking for a web site with good script examples
10 Perl/Win'95
10 percentages
9 concurrently writing to a file without doing flock
9 Is there a compiler for Perl?
These threads accounted for 9.1% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
77.4 ( 8.5/ 68.2/ 64.1) 11 A Newbie That Needs Some Quick Help
74.6 ( 1.5/ 73.0/ 72.9) 2 What's wrong with this perl program? -from a beginner
32.0 ( 13.8/ 14.8/ 7.5) 16 Q: are symbolic refs really needed (was Re: Modification of a read-only??)
27.9 ( 12.3/ 14.3/ 8.9) 16 pwd without backticks?
25.3 ( 4.0/ 20.9/ 12.8) 6 OOP or not? (for a Perl module)
25.2 ( 8.0/ 15.9/ 9.9) 11 How do I sort this list by "port" number?
19.9 ( 6.6/ 11.9/ 8.2) 9 Definition of "odd characters" in -T/-B documentation.
19.7 ( 6.3/ 12.9/ 5.9) 8 HELP , I just can figure this out
19.4 ( 6.8/ 12.3/ 6.9) 9 concurrently writing to a file without doing flock
18.6 ( 7.5/ 10.2/ 5.9) 10 Perl/Win'95
These threads accounted for 15.7% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.939 ( 64.1/ 68.2) 11 A Newbie That Needs Some Quick Help
0.869 ( 8.7/ 10.0) 5 What's wrong with this perl program?
0.847 ( 2.3/ 2.8) 10 Looking for a web site with good script examples
0.837 ( 4.8/ 5.7) 5 HELP: perl5.00502 does not support <STDIN> with bash on NT
0.826 ( 1.0/ 1.2) 5 how to add on to an array??
0.823 ( 6.3/ 7.6) 9 Running perl scripts inside perl scripts (TIA)
0.774 ( 3.5/ 4.5) 5 Just a quick debugging problem.....
0.770 ( 3.9/ 5.1) 10 percentages
0.759 ( 5.1/ 6.8) 7 Learning Perl by video
0.751 ( 7.4/ 9.8) 5 pod2html and <BR> and L<text> tags
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.466 ( 3.3 / 7.0) 9 Is there a compiler for Perl?
0.461 ( 2.1 / 4.6) 7 Installing a Perl module to Active Perl
0.456 ( 5.9 / 12.9) 8 HELP , I just can figure this out
0.440 ( 2.8 / 6.5) 5 Raw Sockets
0.435 ( 3.5 / 8.2) 6 Comparing Arrays -- infinite loop?
0.432 ( 1.4 / 3.3) 5 another pod Q (was Re: Q: pod inside data structures)
0.428 ( 4.2 / 9.8) 6 PERL is TOO flexible
0.417 ( 2.7 / 6.4) 5 iis 4 problem with perl ....
0.402 ( 1.2 / 2.9) 7 More efficient coding?
0.358 ( 1.7 / 4.8) 5 Security - How to circumvent it.
74 threads (16%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
25 comp.lang.perl.modules
20 comp.lang.perl.moderated
14 alt.perl
7 comp.lang.python
7 comp.lang.java.programmer
7 comp.lang.perl
5 comp.security.unix
5 microsoft.public.inetserver.iis
4 comp.lang.java.databases
4 comp.mail.sendmail
Top 10 Crossposters
===================
Articles Address
-------- -------
10 Richard J Kucera <kucerar@hhmi.org>
7 keydet89@yahoo.com
7 Tom Phoenix <rootbeer@teleport.com>
6 ilya@math.ohio-state.edu (Ilya Zakharevich)
6 Zenin <zenin@bawdycaste.org>
5 "Paul Flavin" <nobody@frontiernet.net>
4 Uri Guttman <uri@sysarch.com>
4 michalk2395@my-dejanews.com
4 dave@mag-sol.com
3 Brad Rogers <rogersb@home.com>
------------------------------
Date: Mon, 16 Nov 1998 13:04:46 -0500
From: Marty Landman <marty@catnmoose.com>
Subject: syntax/doc question
Message-Id: <3650693E.60409F28@catnmoose.com>
On pg. 462 of the Camel book, 2nd edition the following is shown:
print "elvis is alive\n" if pingecho($hostname, timeout);
I would like to know
1) if an else block may be specified with this form of an if stmt,
and how?
2) where the syntax for this particular form is shown in the Camel
book or online
tia
--
_____ Marty Landman _______ http://www.catnmoose.com/ ______
Living Glass http://www.catnmoose.com/livinglass
Mountain Man http://www.catnmoose.com/mountainman
__________Cat 'n Moose Web Site Design & Development_________
------------------------------
Date: 16 Nov 1998 13:14:12 -0500
From: Uri Guttman <uri@sysarch.com>
Subject: Re: syntax/doc question
Message-Id: <x7u2zz4ia3.fsf@sysarch.com>
>>>>> "ML" == Marty Landman <marty@catnmoose.com> writes:
ML> On pg. 462 of the Camel book, 2nd edition the following is shown:
ML> print "elvis is alive\n" if pingecho($hostname, timeout);
ML> 1) if an else block may be specified with this form of an if stmt,
ML> and how?
that is not an if statement but a simple statement with an if modifier.
ML> 2) where the syntax for this particular form is shown in the Camel
ML> book or online
p. 96
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: Mon, 16 Nov 1998 17:46:07 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: upper to lowercase
Message-Id: <F2J00v.DwF@world.std.com>
cim@online.ee (_cim_) writes:
>I use this:
>$text =~ tr/A-Z/a-z/;
>to make the text lowercase, but it doesn't work with v d u | (and some
>other strange ones) - leaves them as they are.
Take a look at the perllocale man page for an overview of Perl's
internationalization support. Then look at the lc() function in the
perlfunc man page, and the \L escape sequence in the perlop man page.
--
Andrew Langmead
------------------------------
Date: Mon, 16 Nov 1998 12:03:40 -0600
From: tadmc@flash.net (Tad McClellan)
Subject: Re: upper to lowercase
Message-Id: <sdpp27.l3g.ln@flash.net>
_cim_ (cim@online.ee) wrote:
: I use this:
: $text =~ tr/A-Z/a-z/;
: to make the text lowercase, but it doesn't work with v d u | (and some
: other strange ones) - leaves them as they are.
perldoc -f lc
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 16 Nov 1998 13:30:33 -0500
From: phenix@interpath.com (John Moreno)
Subject: Re: upper to lowercase
Message-Id: <1dil8sd.16xsll31njysemN@roxboro0-026.dyn.interpath.net>
_cim_ <cim@online.ee> wrote:
> I use this:
>
> $text =~ tr/A-Z/a-z/;
>
> to make the text lowercase, but it doesn't work with v d u | (and some
> other strange ones) - leaves them as they are.
Do you have a question other than where in the manual you should be
looking for answers? I'd suggest that searching for "lowercase" in
perlfunc.
--
John Moreno
------------------------------
Date: Mon, 16 Nov 1998 17:26:47 GMT
From: dave@mag-sol.com
Subject: Re: Use of Shell commands - Help!!!
Message-Id: <72pn8n$oia$1@nnrp1.dejanews.com>
In article <36502DED.CD84A2DC@bt.com>,
hamlinm@boat.bt.com, mark@dimitrinet.demon.co.uk wrote:
>
> --------------A545EE5BF1C32C4FDFEE6476
> Content-Type: text/plain; charset=us-ascii
> Content-Transfer-Encoding: 7bit
Please try to stop your news client from doing this. Usenet is a text medium.
Oh... and your text wrapping is really messed up too.
> Hi,
>
> I'm using perl for some 'simple' CGIs. The tasks involves kicking off
> scripts on other
> boxes (HP-UX / Sun) copying files to the web server for local
> processing.
>
> I'm having problems with the shell side of things. I am familiar with
> the ksh 'r'
> commands rcp, rsh, rlogin etc. What is the easiest way getting this
> functionality. I
> need various other simple o/s functions e.g ls etc, which I am currently
> doing by using a korn shell (cgi called from
> www) to prepare all the data, ie copy over the files from remote
> location, save list to file - late perl lists file - very
> silly !!!!!!!!!
>
> This is what I got from Perl in a Nutshell
>
> use Shell qw(date cp ps); # list shell commands you want to use
> $date = date(); # put the output of the date(1) command into $date
> cp("-p" "/etc/passwd", "/tmp/passwd"); # copy password file to a tmp
> file
> print ps("-ww"); # print the results of a "ps -ww" command
>
> All looks nice and simple but a tad more difficult in reality.
>
> Couldn't get it to work in CGI script, started trying to test the syntax
> in a little script. When I run the following or
> any variation I get a message from the interpreter 'Segmentation Fault
> (Coredump)' ...not very friendly.
>
> #!/usr/local/bin/perl
> use qw(rcp ls cat)
> ls; # also tried cat("filename"); & others
There are a number of ways to run external system commands. The most often
used are the system function and the backtick operator.
For commands that you just want to run use system, e.g.
system("run_big_batch_job.sh");
For commands where you want to capture the output use backticks, e.g.
my $list = `ls`;
Many Unix file operations (copy, move, delete, chdir. mkdir, etc.) are
available as Perl internal functions or modules.
For remote command execution, you might like to look at Net::Telnet module
available from CPAN <http://www.perl.com/CPAN/>.
hth,
Dave...
--
Magnum Solutions Ltd: <http://www.mag-sol.com/>
London Perl M[ou]ngers: <http://london.pm.org/>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
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 4230
**************************************
