[12163] in Perl-Users-Digest
Perl-Users Digest, Issue: 5763 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon May 24 11:17:55 1999
Date: Mon, 24 May 99 08:00:21 -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 Mon, 24 May 1999 Volume: 8 Number: 5763
Today's topics:
Re: Example of using table_info with DBI <fty@utk.edu>
Re: FAQ 8.10: How do I read and write the serial port? (Bbirthisel)
Re: Filename Demanger. <jdf@pobox.com>
Re: hey tom, slow the func down! <tchrist@mox.perl.com>
Re: hey tom, slow the func down! <uri@sysarch.com>
how to create dynamic arrays ii4@hotmail.com
Re: how to create dynamic arrays <gellyfish@gellyfish.com>
Large flatfile Database <webmaster@mybegin.com>
Re: Large flatfile Database <gellyfish@gellyfish.com>
List of files in a directory? <mthomas@arches.uga.edu>
Re: Mac-specific Perl help requested - The Answer (foll (Chris Nandor)
Re: Mac-specific Perl help requested - The Answer (yet (Chris Nandor)
Re: Need expert scrutiny :) (Tad McClellan)
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: REGULAR EXPRESSION Problem 2 <webmaster@lovergirl.com>
Re: REGULAR EXPRESSION Problem 2 <this.is@not.my.address.ok>
Retrieving web pages <kevin.porter@fast.no>
Re: s/// <andre.pletschette@ltam.lu>
Script for posting in Newsgroups <Euroshop@direct.a2000.nl>
Re: Script for posting in Newsgroups <gellyfish@gellyfish.com>
Sprite: Arrays in v3.2. <dd@volnet.freeserve.co.uk>
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Storing GD::Image <brad@wcubed.net>
Re: Storing non scalars in a tied hash <tchrist@mox.perl.com>
Re: Storing non scalars in a tied hash (Greg Andrews)
Re: system info <bill@fccj.org>
Re: write() not printing TOP format jkane@my-dejanews.com
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 24 May 1999 09:11:30 -0400
From: Jay Flaherty <fty@utk.edu>
Subject: Re: Example of using table_info with DBI
Message-Id: <37495002.17FBA3E4@utk.edu>
Lynn wrote:
>
> Could anyone share an example of perl code that prints the names of fields
> in a database table. I'm confused on how to use table_info if that is the
> correct way to approach this problem.
$sth = $dbh->prepare("LISTFIELDS $table);
$sth->execute;
my $fields = $sth->{'NAME'};
print "@$fields\n";
$sth->finish;
------------------------------
Date: 24 May 1999 14:49:05 GMT
From: bbirthisel@aol.com (Bbirthisel)
Subject: Re: FAQ 8.10: How do I read and write the serial port?
Message-Id: <19990524104905.28133.00004279@ng-fu1.aol.com>
Hi Tom:
As long as this is up for "suggesions", you might
want to add that none of it applies to $MS operating
systems (actually, you can make a little of it work on
NT, but the reliability is poor and, of course, no
alarm() function for recovery). But modules do
exist on CPAN to address this issue.
I have no idea whether any of this works on Macs.
-bill
Making computers work in Manufacturing for over 25 years (inquiries welcome)
------------------------------
Date: 24 May 1999 10:34:06 -0400
From: Jonathan Feinberg <jdf@pobox.com>
To: Foozle <pgeorge@ns.sympatico.ca>
Subject: Re: Filename Demanger.
Message-Id: <m3d7zqzgdd.fsf@joshua.panix.com>
Foozle <pgeorge@ns.sympatico.ca> writes:
> Heres my ultra-lame program which I came up with after reading 5
> mins of a beginners perl webpage:
I've seen worse from folks who've read more!
You should buy yourself a copy of _Learning Perl_. You've got
potential. :)
> #!/usr/bin/perl
You should use the -w switch, as documented in perlrun.
> $x = "";
> $d = "";
As perldata will tell you, you don't need to initialize those
variables. No harm done, other than inching you closer to carpal
tunnel syndrome.
> while($x = <*>) {
This is fine, but I'd go with opendir/readdir/closedir since the
behavior of that particular glob pattern is weird in certain broken
OSs that give special meaning to dots. This may also be related to
the behavior of globbing over a samba connection, but this is just
speculation on my part.
opendir(PWD, '.') || die "Can't opendir .: $!\n";
while(defined($x = readdir PWD)) {
}
closedir PWD;
See perlfunc for those functions.
> $d = $x;
I know it's a short program, but meaningful variable names would make
it easier to understand.
> $x =~ s/(\\|:|\\\\)/_/g;
Hmm. If it's substituting every backslash then you don't need to tell
it to substitute every sequence of two backslashes, right? Also,
since you're merely translating one character into another, it's
simpler and more efficient to use the tr// operator, as documented in
perlop.
$x =~ tr/\\:/__/;
> For some reason it isnt touching the "c:\nsmail..."
My unsubstantiated guess is that the glob operator is behaving
strangely. Try readdir as suggested above.
HTH.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: 24 May 1999 06:04:13 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: hey tom, slow the func down!
Message-Id: <3749403d@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc, Uri Guttman <uri@sysarch.com> writes:
:i think the func posts are coming too often. they should be
:posted maybe 3 times a day.
You're asking for a cycle of over two months. This seems a bit longish.
You get one perlfunc per two hours, or twelve times per day. There are
210 functions. That means it will take eighteen days to cycle through
the whole set. If they were posted only once per three and a half hours,
they would then stretch out to one month for one cycle.
You get one FAQ per two and a half hours, and there are about 300
of them. That leads to a period of about one month for the whole FAQ,
the current posting rate.
--tom
--
"Any computer scientist who praises orthogonality should be sentenced to
use an Etch-a-Sketch."
--Larry Wall
------------------------------
Date: 24 May 1999 10:52:04 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: hey tom, slow the func down!
Message-Id: <x77lpyh65n.fsf@home.sysarch.com>
>>>>> "TC" == Tom Christiansen <tchrist@mox.perl.com> writes:
TC> You're asking for a cycle of over two months. This seems a bit longish.
TC> You get one perlfunc per two hours, or twelve times per day.
TC> There are 210 functions. That means it will take eighteen days to
TC> cycle through the whole set. If they were posted only once per
TC> three and a half hours, they would then stretch out to one month
TC> for one cycle.
TC> You get one FAQ per two and a half hours, and there are about 300
TC> of them. That leads to a period of about one month for the whole FAQ,
TC> the current posting rate.
it just seems like they come too fast right now with both being
posted. i stopped looking at them for that reason. i used to read the
faq's looking for needed corrections/edits but i haven't read any of the
posted funcs at all. that is why i think slowing them down a little
might help. maybe not as slow as i asked for but say every 4-5 hours per
posting or say, alternate a faq post with a func post every 3 hours
might be good. i see them side by side too often.
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: Mon, 24 May 1999 14:17:24 GMT
From: ii4@hotmail.com
Subject: how to create dynamic arrays
Message-Id: <7ibn1h$qg$1@nnrp1.deja.com>
Hi,
Is there a way to create arrays dynamically
in perl?
Thanks
John
--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---
------------------------------
Date: 24 May 1999 15:38:19 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: how to create dynamic arrays
Message-Id: <3749645b@newsread3.dircon.co.uk>
ii4@hotmail.com wrote:
>
>
> Hi,
>
> Is there a way to create arrays dynamically
> in perl?
>
I'm not sure I know what you mean . All arrays are dynamic in Perl in
one sense that is you dont ever have to specify how many elements they
will have. Other than that you will need to be more specific.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
------------------------------
Date: Mon, 24 May 1999 14:35:06 +0200
From: Danny Verkade <webmaster@mybegin.com>
Subject: Large flatfile Database
Message-Id: <37494778.59479F32@mybegin.com>
Hi,
Does anyone know a script that can handle a very large flatfile
database? (About 100.000 and growing..) I definetelly do not want to use
SQL, although this seems much more logical. Hope some one can help me
with this
Danny
webmaster@mybegin.com
MyBegin - The Internet starts here.
http://www.mybegin.com/
------------------------------
Date: 24 May 1999 13:59:07 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Large flatfile Database
Message-Id: <37494d1b@newsread3.dircon.co.uk>
Danny Verkade <webmaster@mybegin.com> wrote:
> Hi,
>
> Does anyone know a script that can handle a very large flatfile
> database? (About 100.000 and growing..) I definetelly do not want to use
> SQL, although this seems much more logical. Hope some one can help me
> with this
I dont think we can help you much unless you tell us what it is you want
to do with this database. I mean we've all written programs that deal
with large textfiles but you can bet your arse that none of them are going
to do what you want.
In the meantime you might look at the DBD::CSV module from CPAN.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
------------------------------
Date: 24 May 1999 14:46:53 GMT
From: Mike Thomas <mthomas@arches.uga.edu>
Subject: List of files in a directory?
Message-Id: <7iboot$ou8$1@cronkite.cc.uga.edu>
OK, is it me or have I just missed something here. I want to go to a
directory then read in all the files names there. This will be used in a
zip command. When I read in the files using glob or <location/*> the first
file is always left out, code snipette follows;
@all_files = <$location/*>;
system(@zip,$TMP,@all_files);
or
@all_files = glob("$location*");
system(@zip,$TMP,@all_files);
The location variable contains the path with the trailing / left out of
the first example. @zip contains the zip command with extensions and $TMP
is just the name of the temp file used. Both of these always miss the
first file in the directory at $location. Any ideas? Thanks.
Mike Thomas
------------------------------
Date: Mon, 24 May 1999 13:46:34 GMT
From: pudge@pobox.com (Chris Nandor)
Subject: Re: Mac-specific Perl help requested - The Answer (followup)
Message-Id: <pudge-2405990946320001@192.168.0.77>
In article <3748867C.7A5B@bitwell.net>, josh@bitwell.net wrote:
# Chris Nandor wrote:
#
# > perlport.pod (not included with MacPerl, since it was written and included
# > with perl in a more recent release, but will be included next time around)
# > goes into some significant detail about newline issues. You can get it
# > from perl5.004_05 and later, or from CPAN, or from my web site.
#
# Any subsequent revisions of the documentation notwithstanding, it should
# be considered a developer's responsibility to properly document publicly
# released software, particularly ports (which is to say, new
# representations of someone else's primary work). I quoted above the
# MacPerl documentation's full treatment of this matter. It's insufficient
# at best, and it reflects poorly on the developer.
Three things to consider:
1. Matthias Neeracher has put so much of his free time into MacPerl,
there is no sense at all in blaming him for something that isn't perfect
to your liking. If something is not right, send a patch, and it will be
included. The last person in the land of perl you can blame of slacking
off is Matthias Neeracher.
2. To fully document MacPerl would take thousands upon thousands of pages.
3. Don't put down someone who is working for free.
# > # Did the book answer my question? Yes. Do I believe that it should be
# > # necessary to spend $40 and/or three hours of my life to discover why a
# > # port of a UNIX text processing language doesn't properly handle UNIX
# > # text? Absolutely not.
# >
# > It does properly handle Unix text. I'm not sure why you think it
# > doesn't. Nothing improper about it.
#
# Sure, as long as you translate the linebreaks in every document you read
# in and explicitly set $/. That's not my definition of "properly
# handling." MacPerl does not, by default, respect and properly handle \n
# in UNIX-derived files. It interprets \n as \015. That's not a standard
# line break in UNIX. That's not Perl's default behavior.
I don't understand what you are saying. Perl does not have a default
behavior for "\n". C compilers determine it, and C compilers do not have
a default behavior for "\n". You are making the mistake of thinking of
"\n" as having a specific value. It doesn't. Everything about the text
handling by MacPerl is proper.
# "Properly
# handling" means respecting compatibility issues
If it were to transparently guess what the newline character is,
innumerable things would break. "\n" must have a value. MacPerl's value
of "\n" is reasonable and proper. To transparently have it change values
depending on what kind of text file is being read is improper behavior.
# properly documenting one's lack of respect for the same. I would seem to
# me that common sense dictates either \n should mean the same thing in
# all versions of Perl, or the differences should be clearly and
# meaningfully documented (in documentation accompanying the
# distribution). MacPerl fails on either count.
Submit a patch if you don't like it. I personally found the documentation
to be mostly sufficient. I thought it needed more explanation, so I wrote
the documentation for it in perlport. Or are you saying that all software
should have perfect documentation from Day One? Or maybe just perfect by
the time you get around to reading it?
I understand your frustration, but MacPerl is certainly a well-documented
system, and documentation is constantly being worked on. While this
specific item could have been documented better, this is certainly not
anything that warrants looking down on any person or group, and such
attacks benefit no one.
# > # BTW, I didn't buy the book. I sat there in the store and read it, taking
# > # notes, and then put it right back where I found it. On the other hand,
# > # despite UNIX Perl's extensive, useful documentation, I've bought 4 Perl
# > # books from O'Reilly. There's a lesson in that.
# >
# > I don't understand what the lesson is.
#
# Skimping on software (particularly Open Source) documentation in the
# hopes of selling add ons is a losing proposition.
Surely you don't contend that this is the case with Matthias Neeracher or
MacPerl. Matthias doesn't make a dime off MacPerl or "add-ons". Your
"lesson" is misplaced. Matthias codes, and other people help him
document. If you want to pay him full time to document for free, he might
oblige. Otherwise, you can pitch in and help yourself.
# Do right by your users
# and they'll do right by you. Document your software (again, particularly
# when your software is a port of someone else's and you change its
# standard behavior.).
To reiterate, you are mistaken, no standard behavior was changed.
--
Chris Nandor mailto:pudge@pobox.com http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6'])
------------------------------
Date: Mon, 24 May 1999 13:48:23 GMT
From: pudge@pobox.com (Chris Nandor)
Subject: Re: Mac-specific Perl help requested - The Answer (yet another followup)
Message-Id: <pudge-2405990948240001@192.168.0.77>
In article <3748E22A.60BF@bitwell.net>, josh@bitwell.net wrote:
# Henry Penninkilampi wrote:
# >
# > First, you seem to be forgetting that it is the *operating system* which
# > defines what ASCII code represents a given key (code), not the
# > application. When you're on a *Mac*, it's ASCII 13, on a *Unix* box it's
# > ASCII 10. It's an operating system issue, pure-and-simple. If you want
# > to point a 'you started it all' finger at someone, then blame Apple for
# > thinking different back in 1984.
Close. It is a compiler issue. Some Mac compilers treat \n as \015, some
as \012.
# Henry, \n is not an operating system definition; it's a Perl definition.
# On UNIX, it corresponds to ASCII 10 (\f?). On Mac, ASCII 13 (\r). The
# mapping of \n is not immutable.
You're wrong. Perl depends on the C compiler's definition of \n, it does
not supply its own.
# Insulting me serves no useful purpose.
Yet insulting Matthias serves a purpose?
# Where one finds offense in this, I don't quite know.
It was where you attacked Matthias. It was also where you asserted that
MacPerl does things improperly, which is incorrect.
--
Chris Nandor mailto:pudge@pobox.com http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6'])
------------------------------
Date: Mon, 24 May 1999 05:28:14 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Need expert scrutiny :)
Message-Id: <e36bi7.jhi.ln@magna.metronet.com>
smnayeem@my-dejanews.com wrote:
: i am using the following program to replace all occurances of
: ? with uuu
: = with vvv
: % with xxx
: condition being that it has to match the following :
: m/[hH][rR][eE][fF]=\"[hH][tT][tT][pP].*?\"/g
m/href="http.*?"/gi; # don't need to escape double quotes
: ie it has to be a HREF link.
: now i have been thinking whether there is a better or faster way then
: the
: one i have used to do this. if anyone knows pls let me know. thanks!
------------------
#!/usr/bin/perl -w
use strict;
my %subst = (
'?' => 'uuu',
'=' => 'vvv',
'%' => 'xxx'
);
my $re = join '|', map $_=quotemeta($_), keys %subst;
$_ = "hehehehe%=?<HREF=\"http:agni.com?idunno=nothing%and=none\">";
1 while s/(.*?href.*?)($re)/$1$subst{$2}/i;
print "$_\n";
------------------
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 24 May 1999 14:42:29 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <7ibogl$8ma$2@info2.uah.edu>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 17 May 1999 14:43:21 GMT and ending at
24 May 1999 07:00:02 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) 1999 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Totals
======
Posters: 228 (45.3% of all posters)
Articles: 319 (21.1% of all articles)
Volume generated: 560.2 kb (20.4% of total volume)
- headers: 230.5 kb (4,761 lines)
- bodies: 325.5 kb (10,863 lines)
- original: 240.3 kb (8,288 lines)
- signatures: 3.9 kb (97 lines)
Original Content Rating: 0.738
Averages
========
Posts per poster: 1.4
median: 1.0 post
mode: 1 post - 175 posters
s: 1.1 posts
Message size: 1798.3 bytes
- header: 739.9 bytes (14.9 lines)
- body: 1045.0 bytes (34.1 lines)
- original: 771.3 bytes (26.0 lines)
- signature: 12.4 bytes (0.3 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
7 11.6 ( 4.4/ 7.2/ 6.9) "Jeremy Malcolm" <Jeremy@Malcolm.wattle.id.au>
7 10.6 ( 4.5/ 6.1/ 2.3) "Jim The Perl Guy" <news@thebeaches.to>
6 11.8 ( 4.6/ 7.0/ 2.7) Brad Waite <brad@wcubed.net>
6 17.3 ( 5.8/ 11.5/ 1.6) Andre Giroux <giroux@dms.umontreal.ca>
5 7.2 ( 3.8/ 2.9/ 1.8) Jared Hecker <jhecker@iago.nac.net>
5 18.0 ( 5.3/ 12.7/ 8.7) josh@bitwell.net
5 7.7 ( 3.8/ 3.8/ 2.1) Ravi Kumar <ravik@cyrix.com>
4 7.4 ( 3.2/ 4.2/ 3.3) tcpeter@my-dejanews.com
4 7.9 ( 3.1/ 4.7/ 4.2) "Kira S. Anastasia" <kirasa@oz.net>
4 7.3 ( 3.2/ 4.1/ 2.9) Brad Waite <bwaite@uswest.com>
These posters accounted for 3.5% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
19.3 ( 0.8/ 18.4/ 18.4) 1 Brian Findley <brian.findley@brightware.com>
18.0 ( 5.3/ 12.7/ 8.7) 5 josh@bitwell.net
17.3 ( 5.8/ 11.5/ 1.6) 6 Andre Giroux <giroux@dms.umontreal.ca>
11.8 ( 4.6/ 7.0/ 2.7) 6 Brad Waite <brad@wcubed.net>
11.6 ( 4.4/ 7.2/ 6.9) 7 "Jeremy Malcolm" <Jeremy@Malcolm.wattle.id.au>
10.6 ( 4.5/ 6.1/ 2.3) 7 "Jim The Perl Guy" <news@thebeaches.to>
9.3 ( 0.7/ 8.6/ 8.1) 1 Christine Gaunt <cgaunt@umich.edu>
8.8 ( 1.6/ 7.2/ 3.4) 2 a_sovakar@yahoo.com
7.9 ( 3.1/ 4.7/ 4.2) 4 "Kira S. Anastasia" <kirasa@oz.net>
7.7 ( 1.2/ 6.4/ 5.1) 2 "rbbdsb" <rbbdsb@erols.com>
These posters accounted for 4.5% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 1.0 / 1.0) 3 quikscor@ix.netcom.com (anonymous)
0.959 ( 6.9 / 7.2) 7 "Jeremy Malcolm" <Jeremy@Malcolm.wattle.id.au>
0.918 ( 3.9 / 4.2) 3 emilio_tunon@nl.compuware.com
0.879 ( 4.2 / 4.7) 4 "Kira S. Anastasia" <kirasa@oz.net>
0.777 ( 3.3 / 4.2) 4 tcpeter@my-dejanews.com
0.714 ( 2.9 / 4.1) 4 Brad Waite <bwaite@uswest.com>
0.714 ( 2.2 / 3.0) 3 Al Sharka <asharka@my-dejanews.com>
0.687 ( 8.7 / 12.7) 5 josh@bitwell.net
0.662 ( 0.7 / 1.0) 3 Mark Conlin <Mark.Conlin@bridge.bellsouth.com>
0.596 ( 1.8 / 2.9) 5 Jared Hecker <jhecker@iago.nac.net>
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.714 ( 2.9 / 4.1) 4 Brad Waite <bwaite@uswest.com>
0.714 ( 2.2 / 3.0) 3 Al Sharka <asharka@my-dejanews.com>
0.687 ( 8.7 / 12.7) 5 josh@bitwell.net
0.662 ( 0.7 / 1.0) 3 Mark Conlin <Mark.Conlin@bridge.bellsouth.com>
0.596 ( 1.8 / 2.9) 5 Jared Hecker <jhecker@iago.nac.net>
0.544 ( 2.1 / 3.8) 5 Ravi Kumar <ravik@cyrix.com>
0.513 ( 1.3 / 2.6) 3 Eric Miller <dukat@flash.net>
0.382 ( 2.7 / 7.0) 6 Brad Waite <brad@wcubed.net>
0.376 ( 2.3 / 6.1) 7 "Jim The Perl Guy" <news@thebeaches.to>
0.141 ( 1.6 / 11.5) 6 Andre Giroux <giroux@dms.umontreal.ca>
15 posters (6%) had at least three posts.
Top 10 Crossposters
===================
Articles Address
-------- -------
6 ciechowski@cis-computer.com (Ingo Ciechowski)
5 peter traub <ptraub@coos.dartmouth.edu>
4 Brad Waite <brad@wcubed.net>
4 Matt <mattzag@compuserve.com>
3 "Joseph A. Ardolino" <jardolin@zoo.uvm.edu>
3 carlos@geometrictech.com
3 Ron Klatchko <ron@library.ucsf.edu>
3 "Denley, Jake (EXCHANGE:FITZ3:9D14)" <denley@americasm01.nt.com>
2 Medi Montaseri <medim@beyond.com>
2 Jared Hecker <jhecker@iago.nac.net>
------------------------------
Date: Mon, 24 May 1999 21:22:04 +0800
From: Yule Show <webmaster@lovergirl.com>
To: Ryan Ngi <ryanngi@hotmail.com>
Subject: Re: REGULAR EXPRESSION Problem 2
Message-Id: <3749527C.46D1C865@lovergirl.com>
plus a comma.
$Var='a bat is on the rat, the rat is on the pig';
$Var=~/(b.*rat,)/;
print $1;
yours Yule Show
Ryan Ngi wrote:
> Hi
>
> i have another REGULAR EXPRESSION problem that i cant solve for a long
> time..... it is
>
> 2. give $Var='a bat is on the rat, the rat is on the pig';
> i want $1 to store 'bat is on the rat'......
> i use this to do the work
> -------------------------------------------
> $Var='a bat is on the rat, the rat is on the pig';
> $Var=~/(b.*rat)/;
> print $1;
> ------------------------------------------
> the screen print out "bat is on the rat, the rat"
>
> oh yeah, you see, it's wrong,
>
> This is only my stupid example, but if the sentense is not easy....
> good regular expression will be needed.
>
> what is the regular expression to use in this case??? please help as
> fast as possibleeeeeeee.....
------------------------------
Date: Mon, 24 May 1999 15:19:24 +0100
From: Bob MacCallum <this.is@not.my.address.ok>
Subject: Re: REGULAR EXPRESSION Problem 2
Message-Id: <37495FEC.9107F06F@not.my.address.ok>
Yule Show wrote:
>
> plus a comma.
>
> $Var='a bat is on the rat, the rat is on the pig';
> $Var=~/(b.*rat,)/;
> print $1;
i think you want to try (minus the comma):
$Var=~/(b.*?rat)/;
------------------------------
Date: Mon, 24 May 1999 15:37:24 +0100
From: "TwoSheds" <kevin.porter@fast.no>
Subject: Retrieving web pages
Message-Id: <7ibo9b$29q7$1@quince.news.easynet.net>
Hi,
could someone tell me how to use Perl to connect to interact with a web
server.
I have tried the following code (taken from the Camel book), but when I run
it with the command
perl test1.cgi www.somedomainname.com 80
the program just seems to hang. The print commands don't even seem to
produce any output, even though the prints that appear before anything
hang-able.
Comments for this quitenewbie?
Here's the code I've been trying:
#!/usr/bin/perl
use strict;
use Socket;
print "this doesn't get printed";
my ( $remote, $port, $iaddr, $paddr, $proto, $line );
$remote = shift || 'localhost';
$port = shift || 2345;
print "this text does not appear";
print "$remote, $port, $iaddr, $paddr, $proto, $line";
if ( $port =~ /\D/ )
{
$port = getservbyname( $port, 'tcp' );
}
die "No port" unless $port;
$iaddr = inet_aton( $remote ) or die "No host: $remote";
$paddr = sockaddr_in( $port, $iaddr );
$proto = getprotobyname( 'tcp' );
print $remote, $port, $iaddr, $paddr, $proto, $line;
socket( SOCK, PF_INET, SOCK_STREAM, $proto ) or die "socket: $!";
connect( SOCK, $paddr ) or die "connect: $!";
while ( defined($line = <SOCK>) )
{
print $line;
}
close (SOCK );
exit;
------------------------------
Date: Tue, 25 May 1999 16:12:26 +0200
From: "Pletschette Andri" <andre.pletschette@ltam.lu>
Subject: Re: s///
Message-Id: <7ibmpi$d48$1@calais.pt.lu>
Jody Fedor wrote in message <7i6sau$7mu$1@plonk.apk.net>...
>Is there better information on s/// than perldoc or "Pearl Programming"?
Please spell Perl correctly, it's Perl, not Pearl.
A good book is probably Mastering Regular Expressions from O'Reilly.
Or look at Amazon.com and search for Perl, and you'll get a list of some
interesting Perl-Books.
>
>Is there a place that has lots of examples and then explains what each one
>is and how it works?
>
>
------------------------------
Date: Mon, 24 May 1999 14:27:46 +0200
From: Roy Duffels <Euroshop@direct.a2000.nl>
Subject: Script for posting in Newsgroups
Message-Id: <374945C2.BB4C2A32@direct.a2000.nl>
I have written a cgi-script to post to an emailadress. The following
lines works fine.
print MAIL
"To: Arthur\@direct.a2000.nl\n",
"From: $CpFrom\n",
etc...
Now I want to post also in a newsgroup, I wrote the following lines:
print MAIL
"To: alt.test\n",
"From: $CpFrom\n",
This is not working. Do I forget something?
What do I type after To:??
Who can help me?
Thank you
Roy
------------------------------
Date: 24 May 1999 14:49:35 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Script for posting in Newsgroups
Message-Id: <374958ef@newsread3.dircon.co.uk>
Roy Duffels <Euroshop@direct.a2000.nl> wrote:
> I have written a cgi-script to post to an emailadress. The following
> lines works fine.
>
> print MAIL
> "To: Arthur\@direct.a2000.nl\n",
> "From: $CpFrom\n",
> etc...
>
> Now I want to post also in a newsgroup, I wrote the following lines:
>
> print MAIL
> "To: alt.test\n",
> "From: $CpFrom\n",
>
> This is not working. Do I forget something?
> What do I type after To:??
>
You dont type anything after the To: because a usenet message doesnt
have to have a To: header. It does however have a 'Newsgroups: ' header.
but of course this isnt going to do you any good because apparently
you are trying to send this using some Mail program which wont work.
You will need to look at either Net::NNTP or News::NNTPClient from
CPAN if you want to post news.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
------------------------------
Date: Sun, 23 May 1999 01:13:51 +0100
From: Daniel Dammann <dd@volnet.freeserve.co.uk>
Subject: Sprite: Arrays in v3.2.
Message-Id: <3747483F.45902739@volnet.freeserve.co.uk>
Dear Group,
Using the module sprite.pm version 3.1. I have once created an
online database, which I now have to adopt to the new release
version sprite 3.2. The problem is: Wherever I expect to get a
record from the database file back, the only element which really comes
back always looks as strange as ARRAY(0x14013dfb8).
Looking for online reference, I came across the revision notes
of the new sprite version (but no documentation which could help
me with this problem).
> Columns are no longer returned as a null-delimited string,
> but as an array reference. However, you have the option of
> asking Sprite to return the _records_ either as an array or
> a reference.
Is there anybody out there who could give me advice about how
to vary the sprite SQL request
@data = $rdb->sql ("select * from $datafile where $query");
to make use of the option mentioned above (null-delimited string
instead of array reference)!? I would be very grateful.
Best regards,
Daniel.
------------------------------
Date: 24 May 1999 14:42:28 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <7ibogk$8ma$1@info2.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 17 May 1999 14:43:21 GMT and ending at
24 May 1999 07:00:02 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) 1999 Greg Bacon.
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\@(?:.*\.)?perl\.com
Totals
======
Posters: 503
Articles: 1515 (540 with cutlined signatures)
Threads: 493
Volume generated: 2741.4 kb
- headers: 1121.5 kb (22,479 lines)
- bodies: 1537.7 kb (49,671 lines)
- original: 1007.1 kb (34,939 lines)
- signatures: 80.8 kb (1,870 lines)
Original Content Rating: 0.655
Averages
========
Posts per poster: 3.0
median: 1 post
mode: 1 post - 309 posters
s: 7.7 posts
Posts per thread: 3.1
median: 2 posts
mode: 1 post - 167 threads
s: 4.8 posts
Message size: 1852.9 bytes
- header: 758.0 bytes (14.8 lines)
- body: 1039.3 bytes (32.8 lines)
- original: 680.7 bytes (23.1 lines)
- signature: 54.6 bytes (1.2 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
86 157.9 ( 66.6/ 80.0/ 42.5) Jonathan Stowe <gellyfish@gellyfish.com>
83 140.2 ( 50.7/ 80.5/ 49.5) lr@hpl.hp.com (Larry Rosler)
75 158.3 ( 59.9/ 89.9/ 51.6) "David L. Cassell" <cassell@mail.cor.epa.gov>
41 56.2 ( 33.8/ 22.3/ 13.5) bart.lateur@skynet.be (Bart Lateur)
38 115.6 ( 35.8/ 79.8/ 37.8) armchair@my-dejanews.com
36 61.9 ( 20.6/ 41.3/ 25.6) tadmc@metronet.com (Tad McClellan)
33 73.2 ( 28.7/ 44.5/ 26.5) John Porter <jdporter@min.net>
30 40.6 ( 16.9/ 23.7/ 13.2) Eric Bohlman <ebohlman@netcom.com>
22 103.2 ( 17.5/ 83.0/ 77.5) tchrist@mox.perl.com (Tom Christiansen)
22 34.2 ( 15.9/ 13.3/ 7.3) rjk@linguist.dartmouth.edu (Ronald J Kimball)
These posters accounted for 30.8% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
158.3 ( 59.9/ 89.9/ 51.6) 75 "David L. Cassell" <cassell@mail.cor.epa.gov>
157.9 ( 66.6/ 80.0/ 42.5) 86 Jonathan Stowe <gellyfish@gellyfish.com>
140.2 ( 50.7/ 80.5/ 49.5) 83 lr@hpl.hp.com (Larry Rosler)
115.6 ( 35.8/ 79.8/ 37.8) 38 armchair@my-dejanews.com
103.2 ( 17.5/ 83.0/ 77.5) 22 tchrist@mox.perl.com (Tom Christiansen)
73.2 ( 28.7/ 44.5/ 26.5) 33 John Porter <jdporter@min.net>
61.9 ( 20.6/ 41.3/ 25.6) 36 tadmc@metronet.com (Tad McClellan)
56.2 ( 33.8/ 22.3/ 13.5) 41 bart.lateur@skynet.be (Bart Lateur)
41.6 ( 19.5/ 19.3/ 19.1) 20 pudge@pobox.com (Chris Nandor)
40.6 ( 16.9/ 23.7/ 13.2) 30 Eric Bohlman <ebohlman@netcom.com>
These posters accounted for 34.6% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 2.1 / 2.1) 7 Ying Hu <yhu@mail.nih.gov>
0.990 ( 19.1 / 19.3) 20 pudge@pobox.com (Chris Nandor)
0.980 ( 1.8 / 1.8) 5 "Jody Fedor" <JFedor@datacom-css.com>
0.959 ( 6.9 / 7.2) 7 "Jeremy Malcolm" <Jeremy@Malcolm.wattle.id.au>
0.942 ( 3.8 / 4.1) 5 Dale Henderson <dhenders@cpsgroup.com>
0.934 ( 77.5 / 83.0) 22 tchrist@mox.perl.com (Tom Christiansen)
0.893 ( 5.6 / 6.3) 13 fl_aggie@thepentagon.com
0.890 ( 5.0 / 5.6) 8 tvn007@my-dejanews.com
0.824 ( 2.8 / 3.4) 6 cederstrom@kolumbus.REMOVE_THIS.fi
0.789 ( 2.1 / 2.7) 5 Folkert Meeuw <fmee@lfi.uni-hannover.de>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.440 ( 4.0 / 9.0) 12 sowmaster@juicepigs.com (Bob Trieger)
0.392 ( 2.1 / 5.5) 7 tgy@chocobo.org
0.384 ( 2.1 / 5.4) 9 sholden@cs.usyd.edu.au
0.382 ( 2.7 / 7.0) 6 Brad Waite <brad@wcubed.net>
0.376 ( 2.3 / 6.1) 7 "Jim The Perl Guy" <news@thebeaches.to>
0.370 ( 4.9 / 13.2) 15 ada@fc.hp.com (Andrew Allen)
0.294 ( 2.4 / 8.2) 6 "Thomas Klinger" <t.klinger@mobilkom.at>
0.267 ( 2.1 / 7.9) 8 "Lone Wolf" <lone.wolf@net.ntl.com>
0.212 ( 1.6 / 7.4) 9 baliga@synopsys.com
0.141 ( 1.6 / 11.5) 6 Andre Giroux <giroux@dms.umontreal.ca>
56 posters (11%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
89 Perl "constructors"
19 A Perl Script
17 Tie Fighter
16 FAQ 4.16: Does Perl have a year 2000 problem? Is Perl Y2K compliant?
16 conditional regexp matching. Please advise.
15 FAQ 4.15: How do I find yesterday's date?
13 best way to database stuff using Perl?
12 _Please_ improve localtime!
12 Y2K. localtime(time)
12 Error message when reading a file
These threads accounted for 14.6% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
242.2 ( 82.8/152.6/ 79.0) 89 Perl "constructors"
62.7 ( 5.5/ 56.6/ 54.4) 7 Monadic classes, eponymous metaobjects, and translucent data members
41.7 ( 13.1/ 27.1/ 17.4) 16 FAQ 4.16: Does Perl have a year 2000 problem? Is Perl Y2K compliant?
32.1 ( 16.1/ 14.5/ 10.8) 17 Tie Fighter
28.6 ( 13.0/ 13.5/ 5.5) 19 A Perl Script
26.1 ( 9.9/ 15.0/ 8.3) 12 Sorting problem
26.0 ( 11.4/ 13.4/ 7.6) 15 FAQ 4.15: How do I find yesterday's date?
25.4 ( 11.3/ 13.2/ 4.3) 13 best way to database stuff using Perl?
25.3 ( 12.7/ 12.1/ 7.0) 16 conditional regexp matching. Please advise.
25.2 ( 9.2/ 15.8/ 3.3) 10 Occasional user
These threads accounted for 19.5% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.963 ( 54.4/ 56.6) 7 Monadic classes, eponymous metaobjects, and translucent data members
0.869 ( 5.4/ 6.2) 5 MacPerl and QuarkXPress???
0.865 ( 1.8/ 2.1) 6 search and fetch from newsgroup
0.813 ( 7.6/ 9.4) 6 Protecting perl source code
0.779 ( 10.9/ 14.0) 7 Perl compiler...If or when
0.778 ( 2.1/ 2.7) 6 Creating FIle with a predeterminated Size
0.771 ( 4.6/ 6.0) 5 help needed
0.754 ( 2.9/ 3.9) 5 fetching specific info from a text file
0.753 ( 3.6/ 4.8) 5 Parsing email headers..
0.750 ( 10.8/ 14.5) 17 Tie Fighter
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.450 ( 1.6 / 3.6) 7 How to move a directory?
0.434 ( 2.9 / 6.6) 8 Accents Sensitivity
0.421 ( 2.9 / 7.0) 9 Simple Time Manipulation
0.406 ( 5.5 / 13.5) 19 A Perl Script
0.404 ( 2.6 / 6.5) 5 FAQ 4.68: How do I handle binary data correctly?
0.399 ( 2.8 / 7.1) 6 How to catch the return value in Perl?
0.325 ( 4.3 / 13.2) 13 best way to database stuff using Perl?
0.316 ( 1.6 / 4.9) 5 Linux is just another Unix (yawn)
0.259 ( 2.5 / 9.6) 5 How to pass params by ref/addr into subroutines
0.209 ( 3.3 / 15.8) 10 Occasional user
79 threads (16%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
25 comp.lang.perl.modules
22 comp.lang.perl
14 alt.perl
9 comp.software.year-2000
6 comp.unix.solaris
5 alt.perl.sockets
5 comp.os.linux.advocacy
3 comp.sys.mac.programmer.help
3 comp.unix.aix
3 microsoft.public.vb.ole.automation
Top 10 Crossposters
===================
Articles Address
-------- -------
9 fellowsd@cs.man.ac.uk (Donal K. Fellows)
6 Jonathan Stowe <gellyfish@gellyfish.com>
6 ciechowski@cis-computer.com (Ingo Ciechowski)
6 "TOOLS Conferences" <tools@tools.com>
5 peter traub <ptraub@coos.dartmouth.edu>
4 Brad Waite <brad@wcubed.net>
4 Matt <mattzag@compuserve.com>
3 aray@interactrx.com
3 carlos@geometrictech.com
3 Ron Klatchko <ron@library.ucsf.edu>
------------------------------
Date: Mon, 24 May 1999 08:07:29 -0600
From: Brad Waite <brad@wcubed.net>
Subject: Re: Storing GD::Image
Message-Id: <37495D21.41EFFB45@wcubed.net>
Oliver,
Thanks for the reply, but I can call the gif method on $gif just fine.
I'm trying, however, to get the Storable::store to work to save the
object data itself, not the gif (or gd for that matter) version.
-Brad
Olivier Bouteille wrote:
>
> Brad Waite <brad@wcubed.net> writes:
>
> > I'm trying to obtain object persistence between processes and am having
> > a lot of problems. Here's a code snippet:
> >
> > use GD;
> > use Storable;
> >
> > open(FILE, "image.gif");
> > $gif = newFromGif GD::Image('FILE');
> > close FILE;
> >
> > store( \$gif, 'newimage.gif' );
> >
> >
> > Why is newimage.gif only 30 bytes long? Any suggestions on how to store
> > it?
>
> open NEW,">newimage.gif" or die "$!\n";
> print NEW $gif->gif;
> close NEW;
>
> --
> Olivier Bouteille
> bouteille@dial.oleane.com
------------------------------
Date: 24 May 1999 06:10:37 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Storing non scalars in a tied hash
Message-Id: <374941bd@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc,
"Julian Rhind" <julian@asiapacific.co.nz> writes:
:How can I get a tied non scalar hash to work (either hash of hashes or hash
:of lists)?
$ man perlfaq4
...
How can I store a multidimensional array in a DBM file?
Either stringify the structure yourself (no fun), or else get the
MLDBM (which uses Data::Dumper) module from CPAN and layer it on top
of either DB_File or GDBM_File.
--tom
--
"In any organisation, there will always be one person who knows what is going
on. This person must be fired."
- Colin J. Wynne
------------------------------
Date: 24 May 1999 07:14:19 -0700
From: gerg@shell1.ncal.verio.com (Greg Andrews)
Subject: Re: Storing non scalars in a tied hash
Message-Id: <7ibmrr$720$1@shell1.ncal.verio.com>
tchrist@mox.perl.com (Tom Christiansen) writes:
>
>--tom
>--
>"In any organisation, there will always be one person who knows what is going
> on. This person must be fired."
> - Colin J. Wynne
The ca. 1991 SunOS fortune program gave that saying the title
"Conway's Law". Just FYI...
-Greg
------------------------------
Date: Mon, 24 May 1999 09:32:20 -0400
From: "Bill Jones" <bill@fccj.org>
Subject: Re: system info
Message-Id: <374954bd.0@usenet.fccj.cc.fl.us>
Not exactly, but do research this at reference.perl.com,
via DejaNews, and get the OverCR script 9writtin in perl)
at
ftp://jaxlug.jaxcan.org/pub/overcr/overcr-1.49.02.tar.gz
HTH,
-Sneex- :]
______________________________________________________________________
Bill Jones Data Security Specialist http://www.fccj.org/cgi/mail?dss
______________________________________________________________________
We are the CLPM... Lower your standards and surrender your code...
We will add your biological and technological distinctiveness to
our own... Your thoughts will adapt to service us...
...Resistance is futile...
Jacksonville Perl Mongers
http://jacksonville.pm.org
jax@jacksonville.pm.org
----------
In article <7ibb20$og5$1@nnrp1.deja.com>, cnsxxx9@my-dejanews.com wrote:
> is there a module to get system info?
>
> e.g. free hard disk space, total memory, current shell,
> and also current running processes?
>
> TIA
>
> C.
> --
>
> Christopher.Shaw (AT) PanCredit.com (wk)
> chris (AT) mdrive.freeserve.co.uk (home)
>
>
> --== Sent via Deja.com http://www.deja.com/ ==--
> ---Share what you know. Learn what you don't.---
------------------------------
Date: Mon, 24 May 1999 13:33:42 GMT
From: jkane@my-dejanews.com
Subject: Re: write() not printing TOP format
Message-Id: <7ibkfn$uni$1@nnrp1.deja.com>
I will reply to myself in case someone else reads this, and wants the
answer.
I kept reading it in the book, but also kept ignoring it! As I said
operator error. :{ )
To get $~ to work with write(), you must use select()! Not you can use
it as I was reading it, but you MUST use it! It works great now.
I just start with a in the if PRINTER statement.
$OldFH = select(PRINTER);
and finish the sub with
if ("@_" eq "PRINTER") { select($OldFH); }
I guess I could use select(@_), but then I would have to define a
format for every possible @_. And, the format is usually STDOUT. So
why waste the time.
-Jeff
--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---
------------------------------
Date: 12 Dec 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 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 5763
**************************************
