[8499] in Perl-Users-Digest
Perl-Users Digest, Issue: 2116 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Mar 17 11:17:16 1998
Date: Tue, 17 Mar 98 08:00:48 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 17 Mar 1998 Volume: 8 Number: 2116
Today's topics:
Re: A matter of timing <quentin@jihad.amd.com>
Re: A matter of timing <jdf@pobox.com>
argh!! how do I overwrite part of a preexisting file? <andy.lindeman@digital.com>
Re: Buffered output <jdporter@min.net>
Re: calculating distance between strings (fortune cooki (Sitaram Chamarty)
Re: contexts: is there such a thing as array? <jdf@pobox.com>
Re: contexts: is there such a thing as array? <merlyn@stonehenge.com>
Re: DAVID READ - Help with regx extracting URLS from HT chad
Re: exact match <barnett@houston.Geco-Prakla.slb.com>
Re: find.pl ?? <quentin@jihad.amd.com>
Re: find.pl ?? <merlyn@stonehenge.com>
Re: Finding a key thanks to a value in a hash <quentin@jihad.amd.com>
Re: Finding a key thanks to a value in a hash <quentin@jihad.amd.com>
Re: Help! Where can i download Perl Software packet? <jdporter@min.net>
Re: Help! Where can i download Perl Software packet? <ludlow@us.ibm.com>
Re: Is there a "Newsgroup" for Newbies to Perl? (Robert F. Harrison)
Re: LDAP interface <bbense+comp.lang.perl.misc.Mar.17.98@telemark.stanford.edu>
More on how to slice an anonymous hash? <smalunjk@cisco.com>
Re: Multiple substitues (Craig Berry)
Re: need perl script to read utmp files [Not Perl] <jdporter@min.net>
Newbie question: Allowing mismatches in expression <mmgosink@facstaff.wisc.edu>
Re: NT option pack 4 (Andrew M. Langmead)
Re: Open2 <melling@panix2.panix.com>
Re: opendir and UNC's in NT (Jason Gloudon)
Re: parsing perl [Pointer to www.perl.com et al] (Robert F. Harrison)
Re: parsing perl <quentin@jihad.amd.com>
Perl and Forms <Simon@stopspam.openworld.co.uk>
Perl system() calls on NT w/IIS <hatton@dfdis.com>
Perl Tk rulez! - but how Cut/Paste.... (Oliver Harvey)
Re: searching a file in Perl (Jason Gloudon)
Sendmail and Mime. <xixo@jet.com>
Re: suid woes..... (Jason Gloudon)
ts: using "my" inside a loop? tsatan@hotmail.com
Re: ts: using "my" inside a loop? <dboorstein@shopcfn.com>
Re: What does it mean?? <min.shin@rw.sni.de>
Re: What does it mean?? <min.shin@rw.sni.de>
Re: Why this one doesn't work ? (Robert F. Harrison)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 17 Mar 1998 08:11:34 -0600
From: Quentin Fennessy <quentin@jihad.amd.com>
Subject: Re: A matter of timing
Message-Id: <xim1zw1csq1.fsf@jihad.amd.com>
>>>>> "D" == Daniel <rkdious@ix.netcom.com> writes:
D> Hello I'm trying to find a way to delay my program for less
D> than a second. The sleep() routine will only sleep for whole
I suggest you try
perldoc -q sleep.*second
or
perldoc perlfaq8
And look for this section:
=head2 How can I sleep() or alarm() for under a second?
PS I love power tools. I just hacked in the Cawley -q patch to perldoc.
Yow. Smoking. Small improvements can make me so happy.
Dave Barnett just pointed this out in
<350D5324.3EAE87C1@houston.Geco-Prakla.slb.com>.
Here is what he said:
> Have a look on Dejanews, searching for perldoc AND patch in
> comp.lang.perl.misc searching through current files in entire archive
> will turn up a patch to perldoc, thoughtfully provided by Piers Cawley,
> and with a change by me (cause it wasn't working quite right for me).
--
Quentin Fennessy AMD, Austin Texas
------------------------------
Date: 17 Mar 1998 09:29:24 -0500
From: Jonathan Feinberg <jdf@pobox.com>
Subject: Re: A matter of timing
Message-Id: <sooh5r23.fsf@news.concentric.net>
> I'm trying to find a way to delay my program for less than a second.
For tchrist's sake, this is a FAQ! perlfaq8:
How can I sleep() or alarm() for under a second?
How can I measure time under a second?
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
------------------------------
Date: Tue, 17 Mar 1998 09:05:40 -0500
From: "Andy Lindeman" <andy.lindeman@digital.com>
Subject: argh!! how do I overwrite part of a preexisting file?
Message-Id: <6em02j$bf6@usenet.pa.dec.com>
Hi-
I need to overwrite the first few characters in a preexisting file, but
can't figure out what mode I should open the file in.
It seems that when I:
open(FILE, ">$file");
seek(FILE,1,0);
syswrite(FILE,$var,10,0);
it appends to the end.
When I
open(FILE,">>$file);
seek(FILE,1,0);
syswrite(FILE,$var,10,0);
it destroys the entire file and then writes.
What do I need to do to overwrite the first 10 chars of the 1st line in my
file?!?!
Thanks mucho. Andy
------------------------------
Date: Tue, 17 Mar 1998 10:44:02 -0500
From: John Porter <jdporter@min.net>
Subject: Re: Buffered output
Message-Id: <350E9A42.33AB@min.net>
John Hankey wrote:
>
> Is there a way in Perl to buffer output using select() and print()?
That's not what you want to do.
> What I'm trying to do is build a dynamic webpage in a buffer and when the
> process is done, flush the buffer to STDOUT.
> If there is an error, I'd like to clear this buffer and print an error
> instead.
> Is there a preferred way to do this?
> Is it possible to select a buffer instead of a file handle?
Piece of cake. You want to tie a handle. [jargon alert.]
As long as you have a recent enough version of perl (5.004, I
think), you can do the following nifty thing. Read
perldoc perltie
for the full scoop.
package OutBuffer; # my class to implement what you wanted.
sub TIEHANDLE {
bless [], shift; # this object will be an arrayref.
}
sub PRINT {
my $self = shift; # the rest are print args
push @{$self}, join( $, , @_ ).$\;
}
sub DESTROY {
my $self = shift;
print @{$self}; # to stdout
}
package main;
# here' how you would use it:
tie *OUT, 'OutBuffer';
print OUT "howdy.\n"; # goes into the buffer.
untie *OUT; # now everything in the buffer goes to stdout.
hth,
John Porter
------------------------------
Date: 17 Mar 1998 14:50:06 GMT
From: sitaram@diac.com (Sitaram Chamarty)
Subject: Re: calculating distance between strings (fortune cookies)
Message-Id: <slrn6gr7ij.20v.sitaram@ltusitaram.unidata.com>
On 16 Mar 1998 12:41:57 +0100, Frank@but_dont_use_this.address
<Frank@but_dont_use_this.address> wrote:
>Ronald J Kimball <rjk@coos.dartmouth.edu> writes:
>>
>>Simon Oosthoek wrote:
>>>
>>> I'm looking for a program/script/whatever that can calculate the
>>> distance between two text-strings. By distance I mean that I want
>>> to find strings that human beings can identify as "the same", but a
>>> computer would not directly consider equal in the sense: ($StrX eq
>>> $StrY)
[snip]
>Sorry for the very vague pointers to reference articels. Dejanews
>popped Text::Metaphone for this kind of tranform up.
One more hint: look for the description or definition of "Soundex"
- this is an algorithm that (I think) is used in some database
searches where you're looking for names that have more than one
commonly used spelling (Johansen, Johanson, etc).
A long time ago I did some work on phonetic "nearness" and
"syllable matching" using a DP algorithm of some sort - if you're
interested I can try and dig it up from somewhere (this was part
of my master's thesis, and I've all but forgotten all about it,
tho' I'm pretty sure I've saved something from those good old days
:-)
------------------------------
Date: 17 Mar 1998 09:25:54 -0500
From: Jonathan Feinberg <jdf@pobox.com>
Subject: Re: contexts: is there such a thing as array?
Message-Id: <u38x5r7x.fsf@news.concentric.net>
Andy Tompkins <aet@aryth.webplanets.com> writes:
> To me
> $next_index = @array + 1;
> uses a list in a scalar context.
That's using an *array variable* in scalar context. Not a list.
> I guess it's silly to argue semantics though.
As you can tell, I disagree. I feel that it's important to remember
that the words "list," "context," "scalar," and other Perl meta-terms
are not the same words we use in everyday life, but are technical
terms with narrowly prescribed meanings. Not that I use the word
"scalar" in everyday life...
> Since @array and $array ARE different, you're right, you CANNOT convert a
> list into a scalar, but in the context that phrase was used, it was merely
> trying to imply that one shouldnt depend on lists evaluated in a scalar
> context returning length values.
> $bucket_usage = %hash; <- somwhere around page 50 in the camel
That's a *hash variable* in scalar context. Not a list.
There is no such thing as "a list in scalar context." If you see the
line
$scalar = ('bunch', 'of', 'separated', 'things');
it's not a "list in scalar context," it's several scalar comma
operators. That RHS is a list only if it is provided with *list
context* either by a list assignment or by the application of a list
operator (such as unlink, print, etc.).
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
------------------------------
Date: 17 Mar 1998 08:52:46 -0700
From: Randal Schwartz <merlyn@stonehenge.com>
To: Andy Tompkins <aet@aryth.webplanets.com>
Subject: Re: contexts: is there such a thing as array?
Message-Id: <8cd8fl9uwh.fsf@gadget.cscaper.com>
>>>>> "Andy" == Andy Tompkins <aet@aryth.webplanets.com> writes:
Andy> Of course, this all hinges on the context of 'context'.
Andy> To me
Andy> $next_index = @array + 1;
Andy> uses a list in a scalar context.
No. There is no list in a scalar context there. You are just wrong.
It doesn't matter what it means to you. It matters what it means to
Perl.
What I see there is an array name in a scalar context, which by
definition yields the number of elements currently in that array.
Never, at any time, are the *contents* of @array used in any part of
that calculation. So, once again, there CANNOT BE A LIST IN A SCALAR
CONTEXT. EVER. WAKE UP AND SMELL THE COFFEE! :-)
Andy> I guess it's silly to argue semantics though.
"Language design and debugging consist ENTIRELY of SEMANATICS. There
ARE no other issues." -- said to me by Chip Salzenberg a moment ago,
with an anguished scream.
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 168 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: 17 Mar 1998 05:59:54 -0800
From: chad
Subject: Re: DAVID READ - Help with regx extracting URLS from HTML pages, plese.
Message-Id: <6elvkq$h47@drn.newsguy.com>
Thanks very much,
I actually started on regex last night, I am determined to learn them. I know
Perl pretty well, but avoided regex's, stupid eh?
Thanks again.
-chad
In article <dwaring-1703980130190001@blv-lx102-ip43.nwnexus.net>,
dwaring@nwsr.com says...
>
>I really recommend that you try to understand regex, they are incredibly
>powerful and if you want to do any real web work you should understand
>them. yes they are ugly but once you start to understand them you will
>love them and understand that there is a reason they are ugly (you just
>can't have that much power in a simple format). Below I give an example
>of a way to pull the link and title from an <a href>tag. I have not used
>LWP much but I think that it should be able to handle this for you. But
>that does not mean you should not learn to love regex:
>
>
>$test='<a href="/link/to/page.html">the title</a>';
>for ($test){
> ($link,$title)=/href[\s="]*(.*?)\s*"\s*>(.*?)<\/a/;
> print "link=$link title=$title\n";
>}
>
>a few things to note. All the \s's are there to take care of potential
>white space. you could even throw in some more to be really safe.You are
>doing the match on $_ and the things that are matched in the () are the
>things that are asigned to $link and $test. You could also refer to them
>as $1 abd $2 as below.
>
>
>$test='<a href="/link/to/page.html">the title</a>';
>$test=~/href[\s="]*(.*?)\s*"\s*>(.*?)<\/a/g;
>$link=$1;
>$title=$2;
>print "link=$link title=$title\n";
>
>
>or combined using
>
>($link,$title)=($1,$2);
>
>the examples above do not take into account the fact that there could be
>more than one link in your $test. You have to take care of this
>possiblility. There are several ways to do this. You could split your
>line on < so that there is only one tag to look at
>
>@lines=split(/</,$test);
>for (@lines){
> ...
>}
>
>or you could use a while statement and a substitution instead of a match
>like
>
>while ($test=~s/href[\s="]*(.*?)\s*"\s*>(.*?)<\/a//){
> ($link,$title)=($1,$2);
> print "link=$link title=$title\n";
>}
>
>this finds a link grabs the info and deletes it (substitues it with
>nothing) and continues to look for more matches.
>
>I hope this is helpful. I suggest you study regex from either the camel
>or the llama. If you want to learn Perl you really must have both.
>
>David
>
>
>In article <6ekifj$dod@drn.newsguy.com>, Chad wrote:
>
>> Hi,
>>
>> I'll make this sort and sweet. I need help extracting links from HTML
>>documents, link by link ( line by line, etc ) so I can replace them with a tag
>> infront of the HREF.
>>
>> I tried to use LWP and HTML::LinkExtor, i could get it to extract all
>the links
>> once it read the whole file, but what I need is this, i guess:
>>
>>($link,$title) = regx; I'm not real good with regx so if someone could help I
>> would really appriciate it.
>>
>> ($link,$title) = *<*href*=*"*LINK*"*>*TITLE*</a>
>> ^ ^
>> | --- might be here, might not
>> * for white spce.
>>
>> could someone help, I know I'm retarded.
>>
>> -chad
------------------------------
Date: Tue, 17 Mar 1998 07:51:23 -0600
From: Dave Barnett <barnett@houston.Geco-Prakla.slb.com>
Subject: Re: exact match
Message-Id: <350E7FDB.A31EE41A@houston.Geco-Prakla.slb.com>
Farid Hamjavar wrote:
>
> Greetings,
>
> I use the following to know if ARGV[1]
> is all digit characters. I tried several
> other variations but they did not work.
> How can I compare $item against
> something like /^[0-9].*[0-9]$/ and
Well, that won't do it. It that RE, you have the beginning of the line,
followed by a single digit number, followed by any number of characters,
followed by a single digit number, followed by the end of line.j
I don't think that is really what you had in mind, is it?
I'm assuming you want a decimal number, from your comments. The
following does not account for hex digits:
#!/usr/local/bin/perl -w
#
print "Enter a number: ";
$::number = <STDIN>;
chomp ($::number);
if ($::number =~ /^[0-9].*[0-9]$/) {
print "\nIt's a number\n";
} else {
print "\nIt's NOT a number!\n";
}
if ($::number =~ /^\d*\.?\d*$/) {
print "\nIt's a number\n";
} else {
print "\nNo number found!!!\n";
}
__END__
Results:
dapd7:barnett [13] junk58
Enter a number: 34F580
It's a number
<Your RE>
No number found!!!
<Mine>
dapd7:barnett [14] !!
junk58
Enter a number: 1030Dave was here 384
It's a number
<Your RE>
No number found!!!
<Mine>
dapd7:barnett [15] !!
junk58
Enter a number: dave
It's NOT a number!
<Your RE>
No number found!!!
<Mine>
Now for some explanation:
$::number =~ /^\d*\.?\d*$/
$::number The variable
=~ search or match (match in this case)
/^ Anchor at beginning of the line
\d* Zero or more digits
\.? Followed by zero or one periods
\d* Followed by zero or more digits
$/ Anchor at end of the line
I think I have all of the above correct. :-)
> know that it's all digits?
> Saying it in other words, I don't
> want to accomplish this by "negative comparison",
> meaning that here (below) I know it's not all
> digits because it's not all alpha characters.
>
> Thanks,
> Farid
<snip>
HTH.
Dave
--
"Security through obscurity is no security at all."
-comp.lang.perl.misc newsgroup posting
------------------------------------------------------------------------
* Dave Barnett U.S.: barnett@houston.Geco-Prakla.slb.com *
* DAPD Software Support Eng U.K.: barnett@gatwick.Geco-Prakla.slb.com *
* Schlumberger Geco-Prakla (281) 596-1434 (Office Number) *
* 1325 S. Dairy Ashford (281) 596-1807 (Fax) *
* Houston, TX 77077 *
------------------------------------------------------------------------
------------------------------
Date: 17 Mar 1998 08:06:33 -0600
From: Quentin Fennessy <quentin@jihad.amd.com>
Subject: Re: find.pl ??
Message-Id: <xim3eghcsye.fsf@jihad.amd.com>
>>>>> "HY" == Hong Yuan <hongy@panther.cs.ucla.edu> writes:
HY> How do I tell &find(.) to follow symbolic links as in shell:
HY> find . -follow ... ?
Hmmm. Bad news. From 'perldoc File::Find'
BUGS
There is no way to make find or finddepth follow symlinks.
Note - that does not mean you cannot fix it.
I looked at the src and you can see line *** 1 *** below where each
directory is lstat'ed (unless you are on VMS). lstat means that
symlinks will not pass the (-d _) test on line *** 2 ***.
Check out `perldoc -f stat' and `perldoc -f lstat' for more info.
You may need to check out stat(2) or link(2) on your system.
Perhaps you can hack you own sub find() that does this differently.
I do not know why find() insists on lstat.
>From File/Find.pm:
sub find {
my $wanted = shift;
my $cwd = Cwd::cwd();
# Localize these rather than lexicalizing them for backwards
# compatibility.
local($topdir,$topdev,$topino,$topmode,$topnlink);
foreach $topdir (@_) {
(($topdev,$topino,$topmode,$topnlink) = *** 1 ***
($Is_VMS ? stat($topdir) : lstat($topdir)))
|| (warn("Can't stat $topdir: $!\n"), next);
if (-d _) { *** 2 ***
if (chdir($topdir)) {
($dir,$_) = ($topdir,'.');
$name = $topdir;
$prune = 0;
&$wanted;
if (!$prune) {
my $fixtopdir = $topdir;
$fixtopdir =~ s,/$,, ;
$fixtopdir =~ s/\.dir$// if $Is_VMS;
$fixtopdir =~ s/\\dir$// if $Is_NT;
&finddir($wanted,$fixtopdir,$topnlink);
}
}
else {
warn "Can't cd to $topdir: $!\n";
}
}
else {
unless (($_,$dir) = File::Basename::fileparse($topdir)) {
($dir,$_) = ('.', $topdir);
}
$name = $topdir;
chdir $dir && &$wanted;
}
chdir $cwd;
}
}
--
Quentin Fennessy AMD, Austin Texas
------------------------------
Date: 17 Mar 1998 08:45:01 -0700
From: Randal Schwartz <merlyn@stonehenge.com>
To: Quentin Fennessy <quentin@jihad.amd.com>
Subject: Re: find.pl ??
Message-Id: <8chg4x9v9e.fsf@gadget.cscaper.com>
>>>>> "Quentin" == Quentin Fennessy <quentin@jihad.amd.com> writes:
Quentin> Perhaps you can hack you own sub find() that does this differently.
Quentin> I do not know why find() insists on lstat.
So that it doesn't get stuck in loops!
imagine the following:
mkdir tmp
cd tmp
mkdir fred
ln -s .. fred/barney
find2perl fred -ls | perl
If symlinks were followed in a naive routine, you'd be printing
fred
fred/barney
fred/barney/fred
fred/barney/fred/barney
fred/barney/fred/barney/fred
...
and so on. Forever.
If you wanna follow symlinks, you *must* maintain a dev/ino tracking
hash that tells when you've already visited the directory previously.
You can actually build that with the current File::Find and a little
thinking. Use find() to track each non-symlinked area, and note any
symlinks that point to a dir that you haven't seen yet. Use those as
a new launching point again and again, until you have no more symlink
points. And hope that no-one has added "ln -s / here" somewhere in
the tree.
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 168 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: 17 Mar 1998 08:16:15 -0600
From: Quentin Fennessy <quentin@jihad.amd.com>
Subject: Re: Finding a key thanks to a value in a hash
Message-Id: <ximzpipbdxs.fsf@jihad.amd.com>
>>>>> "A" == ATOS <cfockeu@atos-group.com> writes:
A> Hello, I'm wondering how I can find a key by its value in a
A> hash ???
>From perldfaq4:
=head2 How do I sort a hash (optionally by value instead of key)?
This suggestion does involve a separate list. But unless
the data is too big for your VM system you should be OK.
The code is simple.
--
Quentin Fennessy AMD, Austin Texas
------------------------------
Date: 17 Mar 1998 08:17:24 -0600
From: Quentin Fennessy <quentin@jihad.amd.com>
Subject: Re: Finding a key thanks to a value in a hash
Message-Id: <ximyay9bdvv.fsf@jihad.amd.com>
>>>>> "A" == ATOS <cfockeu@atos-group.com> writes:
A> Hello, I'm wondering how I can find a key by its value in a
A> hash ???
>From perldfaq4:
=head2 How do I sort a hash (optionally by value instead of key)?
This suggestion does involve a separate list. But unless
the data is too big for your VM system you should be OK.
The code is simple.
--
Quentin Fennessy AMD, Austin Texas
------------------------------
Date: Tue, 17 Mar 1998 10:50:49 -0500
From: John Porter <jdporter@min.net>
Subject: Re: Help! Where can i download Perl Software packet?
Message-Id: <350E9BD9.6653@min.net>
lihong@public1.guangzhou.gd.cn wrote:
>
> I am a new fans of Perl. I find it very powerful in CGI programming.
> I have a perl programing environment in my office on the workstation.
> However, I still want to continue the exploration on Perl in the evening
> when I sit in front my PC (Pentium 166 MMX,32MRAM). It there anybody
> here know where to download Perl for PC? Any help would be appreciated.
Here's what you do:
Go to AltaVista (www.altavista.digital.com) -- or your prefered
web search engine -- and search for
"The Perl Language"
This is always the first thing I do when looking for something
on the internet.
hope this helps,
John Porter
------------------------------
Date: Tue, 17 Mar 1998 09:24:54 -0600
From: James Ludlow <ludlow@us.ibm.com>
Subject: Re: Help! Where can i download Perl Software packet?
Message-Id: <350E95C6.B370C4B4@us.ibm.com>
lihong@public1.guangzhou.gd.cn wrote:
>
> I am a new fans of Perl. I find it very powerful in CGI programming.
> I have a perl programing environment in my office on the workstation.
> However, I still want to continue the exploration on Perl in the evening
> when I sit in front my PC (Pentium 166 MMX,32MRAM). It there anybody
> here know where to download Perl for PC? Any help would be appreciated.
>
Well, if you can figure out how to use Deja News, you must know how to
use a web search engine. Go to any web search engine, enter "windows
perl". Done.
BTW: Deja News is a great resource for finding the answer to these types
of questions also.
The perl homepage at http://www.perl.com/ isn't a bad place to start
either.
--
James Ludlow (ludlow@us.ibm.com)
This isn't tech support and all opinions are my own.
------------------------------
Date: 17 Mar 98 15:44:41 GMT
From: harrison@pixi.com (Robert F. Harrison)
Subject: Re: Is there a "Newsgroup" for Newbies to Perl?
Message-Id: <slrn6gt6il.jc0.harrison@localhost.localdomain>
On 17 Mar 98 10:47:14 GMT, Robert F. Harrison <harrison@pixi.com> wrote:
>
> How dare he give something away free, with instructions, not to
> mention coercing many people into aiding and abetting without
> rendering it harmless first.
I apologize to all for this message. It was meant in jest but sadly
failed on all counts.
To those who might have taken this not seriously, it was not, should
not and cannot be interpreted as such. I did neglect to include a
smiley to indicate jest and have paid the price for my ommission.
Again, please ignore my sad attempt at humor. I sincerely apologize
to all who have been offended and promise it will not happen again.
Robert F. Harrison [as bad a perl hacker as he is a comedian.]
--
rfh harrison@pixi.com
------------------------------
Date: 17 Mar 1998 14:56:14 GMT
From: <bbense+comp.lang.perl.misc.Mar.17.98@telemark.stanford.edu> ;
Subject: Re: LDAP interface
Message-Id: <6em2ue$28o$1@nntp.Stanford.EDU>
In article <isen017esf.fsf@godzilla.kiere.ericsson.se>,
Calle Dybedahl <qdtcall@esb.ericsson.se> wrote:
>"Norman Bunn" <norman.bunn@mci.com> writes:
>
>> Has anyone used LDAP with PERL? If so, how?
>
>Yes. The Netscape LDAP stuff and Net::LDAPapi from CPAN. I think the
>README for the module contains a pointer to where to get the Netscape libs.
>--
- - There are two modules for ldap. Net::LDAP and Net::LDAPapi. The first
is an attempt to do ldap V3 from scratch in perl. I'd say it's currently
experimental. The second is an interface to either the netscape LDAP SDK,
or the umich ldapv3.3 libraries. I use it in production every day and
have been extremely satisfied with the results.
- - Booker C. Bense
Version: 2.6.2
iQCVAwUBNQ6PBAD83u1ILnWNAQHq1QQAu6Nbkf/BnFTePUS8ZkQ2vYAzc4OazbBH
AzmNT4hCKfisB5P+cf9iRbW0VXt0tPeFV3ndOAz/irPoO4r2LAmp5QE0tJYW6klm
EWftfKKgv6xxbNiw5QwXjU+mr6G4woe4F1mBGw5dJFiVSSyL4QZKtBWKv0427OSc
JQJ02jGM1n4=
=vZUE
-----END PGP SIGNATURE-----
------------------------------
Date: Tue, 17 Mar 1998 07:29:21 -0800
From: Sanjay Malunjkar <smalunjk@cisco.com>
To: Sanjay Malunjkar <smalunjk@cisco.com>
Subject: More on how to slice an anonymous hash?
Message-Id: <350E96D1.6D44@cisco.com>
Greetings,
I got the solution on how to slice an anonymous hash a few hours after I
posted it (also thanks to Dan Boorstein for sending me the solution).
but while solving it I had more doubts. I thought I will share the
solution and more questions with the group. Please enlighten me on the
questions that are embedded as comments in the following code:
#!/usr/local/bin/perl5
#print newlines after every print
$\="\n";
#'::' separated record of field name,value
$a='F::Scot::L::Tiger::C::Company name';
@x= (split(/::/, $a))[2..5];
print "slice of an anonymous array in x =@x"; #L Tiger C Company name
$_='F::Scot::L::Tiger::C::Company name';
@h= @{split(/::/, $a)}{'F','L'};
print "slice of anonymous hash in h=@h"; #expect Scot Tiger, instead get
blank
#Tiger
print "Last name=",{split(/::/, $a)}->{'L'};
#Question 1: why dont I have to prefix the above expression by $
#to indicate a scalar value ?
#Question 2: why dont this work? I tried lots of variants of this
#like putting a prefix of @, grouping to enforce precedence etc.
print "Last,First name=", {split(/::/, $a)}->{'L','F'};
#Question 3:Following works, but does it mean ?
#create a reference to a hash {split(/::/)}
#dereference it {{split(/::/)}}
#slice it {{split(/::/)}}{'L','C'}
#return it as an array
#Question 4: I had to create a reference and then deref it etc. because
#there is no direct way of representing a hash like (split(/::/, $a))
#there is one for an array. Is this correct?
#Finally the solution to the original question
print @{{split(/::/)}}{'L','C'};
Thanks in advance,
Sanjay Malunjkar
------------------------------
Date: 17 Mar 1998 05:53:46 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Multiple substitues
Message-Id: <6el35a$lk1$1@marina.cinenet.net>
dfrench@aig.vialink.com wrote:
: I would like to perform multiple substitues on a single line. For instance
: using "sed" the I can do the following:
:
: sed -e "s/A/a/g;s/B/b/g;s/C/c/g" filename
:
: The content of the substitutes above were just an example, but I would like to
: do the same kind of thing in perl. I would like to do multiple substitues in
: a single command, somthing like:
:
: $result = s/A/a/ && s/B/b/ && s/C/c/;
If the patterns and substitutions really are single characters,
tr/ABC/abc/ is a good solution.
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: Tue, 17 Mar 1998 10:56:05 -0500
From: John Porter <jdporter@min.net>
Subject: Re: need perl script to read utmp files [Not Perl]
Message-Id: <350E9D15.3F92@min.net>
Robert F. Harrison wrote:
>
> On 17 Mar 1998 06:37:54 GMT, Ma Xin <maxin@iscs.nus.edu.sg> wrote:
> > I'm looking for a perl script to read the utmp files(including
> > /etc/utmp, /etc/wtmp, etc) in unix. I think it can be read using
> > pack, unpack function in perl but I'm not sure what format the
> > utmp files use. anyone?
>
> I'm sorry to anyone I offended by suggesting anything whatsoever.
Instead, be sorry you didn't make the right suggestion:
User::utent -- Interface to utmp/utmpx/wtmp/wtmpx database
Always check the CPAN.
John Porter
------------------------------
Date: Tue, 17 Mar 1998 09:27:35 -0600
From: Mark Gosink <mmgosink@facstaff.wisc.edu>
Subject: Newbie question: Allowing mismatches in expression
Message-Id: <350E9665.6B01@facstaff.wisc.edu>
Hello Netters:
I'm a relative new comer to PERL and I was wondering if there is
a way to allow mismatches in a search expression.
For example:
$string = "abcqef";
if ($string=~/abcdef/) mismatches equal one
{ print "This is what I want!"}
the expresion should also match
"qbcdef"
"aqcdef"
"abqdef"
etc....
Thanks in advance,
Mark Gosink
------------------------------
Date: Tue, 17 Mar 1998 15:07:58 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: NT option pack 4
Message-Id: <Epyy1B.AB3@world.std.com>
tyde@medtrodnet.cdom (Tye McQueen) writes:
>but "cmd.exe" does extremely little interpretation
>of the command line and _DOES_ let you use / as a directory
>separator:
> C:\Work>c:/perl/bin/perl -v
That's neat. I didn't know that. (Yet another example how lots of
improvements were made in CMD.EXE over COMMAND.COM
>I think there used to be an environment variable that you could
>set to say that you wanted to use "-" to specify command-line
>options and that some commands would then let you use "/" as a
>directory separator. But I find no evidence that this idea has
>survived.
In MS-DOS 2 and 3, there was an undocumented CONFIG.SYS setting
"SWITCHAR" which allowed you to set the character used for command
options. It called a corresponding "set switchar" call in
MS-DOS. COMMAND.COM and many other MS-DOS utilities use the
corresponding "get switchar" call to determine the option
separator. (But I agree with you, for third parties, it was rarely
used and each developer rolled their own.) (I have conflicting
evidence on whether the switchar calls worked in MS-DOS 4. Some say
that the CONFIG.SYS command was removed but the underlying interrupt
still existed. Others say that support was removed completely then.)
<URL:http://www.delorie.com/djgpp/doc/rbinter/id/16/25.html>
<URL:http://www.delorie.com/djgpp/doc/rbinter/id/17/25.html>
--
Andrew Langmead
------------------------------
Date: 17 Mar 1998 10:18:28 -0500
From: Michael Mellinger <melling@panix2.panix.com>
Subject: Re: Open2
Message-Id: <v5clnu9s5vf.fsf@panix2.panix.com>
Michael Mellinger <melling@panix2.panix.com> writes:
>
>
> I want to open a pipe to a command using IPC::open2 where I can send
> each line of my array to a Unix command then read the result. For example,
> I want something like this:
>
> open2($RDR,$WTR,'uniq -c');
>
> # Must send everything first.
> for ($i=0;$i<$n;$i++){
> print $WTR $foo[$i];
> }
> while(<$RDR>) {
> print $_;
> }
>
> There is something like this on pg 456 of the Camel book.
Never mind. The answer is on the same page. I forgot to close($WTR)
before reading the input. This was causing the program to hang.
--
melling@archonmedia.com
melling@panix.com
http://www.archonmedia.com/antique_forum
------------------------------
Date: Tue, 17 Mar 1998 14:42:24 GMT
From: jgloudon@manitoba.bbn.com (Jason Gloudon)
Subject: Re: opendir and UNC's in NT
Message-Id: <slrn6gt2s0.2lc.jgloudon@manitoba.bbn.com>
In article <350E1B13.CB29B1AC@bit.bucket.org>, David Boyce wrote:
>Jaime Metcher wrote:
>> opendir DH, "//server/share" || die "$!";
>>
You'd be better off writing:
opendir (DH, "//server/share/") || die "$!";
or even
opendir (DH, "//server/share/") or die "$!";
Jason Gloudon
------------------------------
Date: 17 Mar 98 14:28:01 GMT
From: harrison@pixi.com (Robert F. Harrison)
Subject: Re: parsing perl [Pointer to www.perl.com et al]
Message-Id: <slrn6gt22r.jc0.harrison@localhost.localdomain>
Subject: Re: parsing perl.
No, parse Perl with perl.
On Tue, 17 Mar 1998 07:12:24 -0500, Rob Collins <rob@NOSPAMintr.net> wrote:
> I was wondering if anyone could direct me to a really good resource on
> Perl's syntax? I am looking for some rules by which I can evaluate a
> file and break it down into blocks, and break each block into
> statements.
The best resource on Perl's syntax instantly available (if installed)
is:
perldoc perlsyn
..distributed with every distribution of perl.
The very best resource requiring a trip to the bookstore is:
_Programming Perl_
By Larry Wall, Tom Christiansen, & Randal Schwartz;
1-56592-149-6, 646 pages. 2nd Edition, September 1996
The very best resource requiring a phone call or fax or such is:
The same as above.
You can order Perl books from O'Reilly & Associates,
1-800-998-9938. Local/overseas is +1 707 829 0515. If
you can locate an O'Reilly order form, you can also fax to
+1 707 829 0104. If you're web-connected, you can even
mosey on over to http://www.ora.com/ for an online order
form.
There is also a wealth of free information at:
http://www.perl.com/
--
rfh harrison@pixi.com
------------------------------
Date: 17 Mar 1998 08:35:37 -0600
From: Quentin Fennessy <quentin@jihad.amd.com>
Subject: Re: parsing perl
Message-Id: <ximwwdtbd1i.fsf@jihad.amd.com>
>>>>> "RC" == Rob Collins <rob@NOSPAMintr.net> writes:
RC> I was wondering if anyone could direct me to a really good
RC> resource on Perl's syntax? I am looking for some rules by
RC> which I can evaluate a file and break it down into blocks, and
RC> break each block into statements.
Perl is the only program that reliably parses perl.
There are tools for module writers that can partition perl modules.
Check out
perldoc AutoSplit
And from the FAQs:
perldoc -q yacc
=head1 Found in /tool/pandora/.package/perl-5.004/lib/perl/pod/perlfaq7.pod
=head2 Can I get a BNF/yacc/RE for the Perl language?
No, in the words of Chaim Frenkel: "Perl's grammar can not be reduced
to BNF. The work of parsing perl is distributed between yacc, the
lexer, smoke and mirrors."
Perhaps there is more to your question -- why do you want to parse
perl code, and once we know this we can help you further.
--
Quentin Fennessy AMD, Austin Texas
------------------------------
Date: Tue, 17 Mar 1998 14:00:47 -0000
From: "Simon Ward" <Simon@stopspam.openworld.co.uk>
Subject: Perl and Forms
Message-Id: <6elvmm$cd3$1@news.uk0.vbc.net>
Hi,
I'm new to Perl and I'd like someone to tell me if I can take the results of
a form and output the information to a html file (rather than email as most
of the scripts I've seen do). If possible could you send me a link to the
source so I can see how it works.
Cheers,
Simon Ward
Simon@openworld.co.uk
------------------------------
Date: Tue, 17 Mar 1998 15:38:10 GMT
From: Charlie Hatton <hatton@dfdis.com>
Subject: Perl system() calls on NT w/IIS
Message-Id: <350E9A65.D7BF4890@dfdis.com>
I'm having a problem getting Perl system() calls to return output on NT
4.0 using IIS. I can run my scripts from the command line and get
appropriate output, but nothing using a WWW browser. Other Perl
functions appear to be fine, including some DBI/DBD add-on modules.
Below are details; any help posted here or sent to me @ hatton@dfdis.com
would be *greatly* appreciated. Thanks in advance!
Charlie
System: NT4.0 Server w/SP 3 installed; IIS 4 WWW Server
Perl: Native port (Non-ActiveWare) v5_004_04
IIS Application Mapping: .pl C:\perl\bin\perl.exe %s %s
App called from Perl: SWISH ('homegrown' NT port; works from MS-DOS
prompt)
IIS Setting for Dir containing Perl script(subdir of /cgi-bin): Execute
(including script)
IIS Setting for Dir containing SWISH (/cgi-bin): Execute (including
script)
Registry Setting for
HKEY_LOCAL_MACHINE:SYSTEM:CurrentControlSet:Services:W3SVC:
CreateProcessWithNewConsole : REG_DWORD : 0x1 (1 displayed in
hex)
NT Perms for IUSR user for Dir containing Perl script: Special Access
(RWXD)
NT Perms for SYSTEM for Dir containing Perl script: Full Control
NT Perms for IUSR user for Dir containing SWISH: Full Control
NT Perms for SYSTEM for Dir containing SWISH: Full Control
Perl constructs attempted:
# Given:
$swishpath = "C:\\InetPub\\wwwroot\\<path to SWISH executable>";
$indexpath = "C:\\InetPub\\wwwroot\\<path to SWISH index file>";
# Above paths also tried in UNIX format (i.e.,
C:/InetPub/wwwroot/...)
$term = "Medicine"; # Appears on every indexed page
# Three versions below tried separately -- all return SWISH output
in @output
# in MS-DOS, none return SWISH output using WWW
@output = system("$swishpath\\swish.exe -f $indexpath\\index.swish
-w $term");
@output = `$swishpath\\swish.exe -f $indexpath\\index.swish -w
$term`;
open(OUTPUT,"$swishpath\\swish.exe -f $indexpath\\index.swish -w
$term |");
while(<OUTPUT>) {
push(@output,$_);
}
I also tried constructs using open2() and open3() -- both use the
open3 module, however, which apparently uses the unsupported NT function
fork(), so those didn't work under MS-DOS either.
Thanks again in advance for any help! Charlie
------------------------------
Date: Tue, 17 Mar 1998 15:37:11 GMT
From: o.harvey@andtech.co.uk (Oliver Harvey)
Subject: Perl Tk rulez! - but how Cut/Paste....
Message-Id: <350e979d.16858416@oak>
Hello all,
I've been playing with Perl32/Tk on Windoze95 (yuk.....), and
am generally rocking happily......but can't sort/find docs about
using Cut/Copy/Paste facilities..........
is this possible with Perl32/Tk.....?
....could anyone point me at some docs, or give me some
hints tips etc.. ??
umm....
Oliver.
------------------------------
Date: Tue, 17 Mar 1998 14:45:49 GMT
From: jgloudon@manitoba.bbn.com (Jason Gloudon)
Subject: Re: searching a file in Perl
Message-Id: <slrn6gt32e.2lc.jgloudon@manitoba.bbn.com>
In article <350EEB35.5528@cs.cf.ac.uk>, Gerald wrote:
>Im currently working on an online catalogue and i am having trouble
>getting to grips with searching a fle is it possible.
>
>i would be gratefull of some help
I can't see your question. Could you please try to write one ?
You may need to read some of the man pages man perlop, man perlre.
Jason Gloudon
------------------------------
Date: Tue, 17 Mar 1998 16:40:35 +0100
From: pepe <xixo@jet.com>
Subject: Sendmail and Mime.
Message-Id: <350E9973.B032BCEC@jet.com>
passme
I have this script written in Perl (under Solaris):
$mail_prog = "/usr/lib/sendmail" ;
$send_to = 'user1@mail.compuserve.com' ;
open (MAIL, "|$mail_prog $send_to");
print MAIL "That is your message....." ;
print MAIL "\n" ;
close (MAIL);
this cgi works fine, but i have problem with international characters
(`hmog ...), because i don't know how say to the e-mail client, than i
am working with character set iso8859-1 or with others in the future.
It's posible do it with a mime type definition, how i can do this?
Remember than i am working with standard Solaris sendmail.
Any pointers or experiences would be welcomed.
Regards
Jaume
------------------------------
Date: Tue, 17 Mar 1998 15:43:07 GMT
From: jgloudon@manitoba.bbn.com (Jason Gloudon)
Subject: Re: suid woes.....
Message-Id: <slrn6gt6dr.2lc.jgloudon@manitoba.bbn.com>
In article <EpyG80.A9p.0.staffin.dcs.ed.ac.uk@dcs.ed.ac.uk>,
Mario Antonioletti wrote:
>I am running a perl (5.004) CGI script on a solaris (5.5.1). I am also using
>taint perl (perl -T). Suppose the script is called myscript.pl. I set the
>suid and sgid bits as follows: 'chmod 06755 myscript.pl'. In the script I
>have:
>
> $mydir="/some/directory/to/be/created";
> ($<,$>) = ($>,$<);
^^^^^^^^^^^^^^^^
Doing this here temporarily gives up the setuid rights. You've
undone the effects of the suid and sgid bits, as you've set the effective
userid to the id of the person running the script.
Also, the setuid/setgid bits won't work if you do perl -T scriptname on a
setuid script. It must have the #!/path/to/perl line, and be run directly
using path/to/scriptname.
Jason Gloudon
------------------------------
Date: 17 Mar 1998 15:40:35 GMT
From: tsatan@hotmail.com
Subject: ts: using "my" inside a loop?
Message-Id: <6em5hj$dtn$1@orthanc.reference.com>
Here is a fragment of perl code. "a" is a large array:
my($i, $j, $k);
for (@a) { ($i, $j, $k) = split /:/; }
Is it any less efficient to code this as:
for (@a) { my($i, $j, $k)= split /:/; }
?
Seems like the second way would cause a lot of overhead
since my is a run-time statement. But in the faq I saw
this:
while (defined(my $line = <>))
which made me wonder.
--------------------------------------------------------------------
Posted using Reference.COM http://WWW.Reference.COM
FREE Usenet and Mailing list archive, directory and clipping service
--------------------------------------------------------------------
------------------------------
Date: Tue, 17 Mar 1998 10:41:10 -0500
From: Dan Boorstein <dboorstein@shopcfn.com>
To: tsatan@hotmail.com
Subject: Re: ts: using "my" inside a loop?
Message-Id: <350E9996.214305A0@shopcfn.com>
tsatan@hotmail.com wrote:
>
> Here is a fragment of perl code. "a" is a large array:
> my($i, $j, $k);
> for (@a) { ($i, $j, $k) = split /:/; }
>
> Is it any less efficient to code this as:
> for (@a) { my($i, $j, $k)= split /:/; }
well let's 'use Benchmark' and find out:
use Benchmark;
@a = map { "$_:$_:$_" } (0 .. 100);
timethese('5000', {
'inside', 'for (@a) { my($i, $j, $k) = split /:/; }',
'outside', 'my($i, $j, $k); for (@a) { ($i, $j, $k) = split /:/; }',
});
Benchmark: timing 5000 iterations of inside, outside...
inside: 14 secs (14.07 usr 0.00 sys = 14.07 cpu)
outside: 14 secs (14.43 usr 0.00 sys = 14.43 cpu)
not enough difference to be worried about in my opinion. and i think
that the more intensive the procedures in the loop the less of a
difference you will see. i would consider the scoping issues to be more
important.
--
# dan boorstien <dboorstein@shopcfn.com>
seek DATA,0,0;print scalar<DATA>,__END__
Just another Perl hacker,
------------------------------
Date: Tue, 17 Mar 1998 16:27:24 +0100
From: Hyeon-Min Shin <min.shin@rw.sni.de>
To: Matt Folkard <mfolkard@uk.superscape.com>
Subject: Re: What does it mean??
Message-Id: <350E965B.83C86C76@rw.sni.de>
This code is filtering the Query-String you get from a html-formular.
The complete code to do this is:
read(STDIN,$daten, $ENV{'CONTENT_LENGTH'});
@eingabe = split(/&/, $daten);
foreach $feld (@eingabe)
{
($name, $value) = split(/=/, $feld);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
Min
Matt Folkard schrieb:
> I've got a simple question (I think), I just need someone to tell me *what*
> this code does!! It's supposed to be filtering files, but I think whoever
> sent it to me is having a laugh...
>
> $_ =~ /s(^_\w\-\.]+)&/
>
> It's got me stumped, but I suppose it's cos I'm a comparative newbie.
>
> I'd appreciate any help!
------------------------------
Date: Tue, 17 Mar 1998 16:28:31 +0100
From: Hyeon-Min Shin <min.shin@rw.sni.de>
To: Hyeon-Min Shin <min.shin@rw.sni.de>
Subject: Re: What does it mean??
Message-Id: <350E969F.3D32F57F@rw.sni.de>
In this case you filter only the actual list ($_)
Hyeon-Min Shin schrieb:
> This code is filtering the Query-String you get from a html-formular.
> The complete code to do this is:
>
> read(STDIN,$daten, $ENV{'CONTENT_LENGTH'});
> @eingabe = split(/&/, $daten);
> foreach $feld (@eingabe)
> {
> ($name, $value) = split(/=/, $feld);
> $value =~ tr/+/ /;
> $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
> $name =~ tr/+/ /;
> $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
> Min
>
> Matt Folkard schrieb:
>
> > I've got a simple question (I think), I just need someone to tell me *what*
> > this code does!! It's supposed to be filtering files, but I think whoever
> > sent it to me is having a laugh...
> >
> > $_ =~ /s(^_\w\-\.]+)&/
> >
> > It's got me stumped, but I suppose it's cos I'm a comparative newbie.
> >
> > I'd appreciate any help!
------------------------------
Date: 17 Mar 98 13:33:16 GMT
From: harrison@pixi.com (Robert F. Harrison)
Subject: Re: Why this one doesn't work ?
Message-Id: <slrn6gsus4.jc0.harrison@localhost.localdomain>
On 16 Mar 1998 22:56:11 -0600, Peter Samuelson
<psamuels@sampo.REMOVETHIS.creighton.edu> wrote:
>
> Yeah. `Perl' is not in all caps. Sure, it was once just an
> acronym, but then so was `snafu'. Both have graduated to
> regular nouns (though Perl is a proper noun).
Pratical Extraction (and) Report Language or
Preternaturally economic (at) revising lexically.
No, that's not it.
Perl is not proper here, but rather the start of a long sentence I'm
sure to serve for my faux pas.
Say g'night harrison. G'night harrison.
--
rfh harrison@pixi.com
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 2116
**************************************
