[9382] in Perl-Users-Digest
Perl-Users Digest, Issue: 2977 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jun 25 11:07:09 1998
Date: Thu, 25 Jun 98 08:00:35 -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 Thu, 25 Jun 1998 Volume: 8 Number: 2977
Today's topics:
Re: a bit confused about seek? Not anymore! <quednauf@nortel.co.uk>
Re: help! : Arrays in Perl <quednauf@nortel.co.uk>
Re: help! : Arrays in Perl <nguyend7@egr.msu.edu>
Re: help! : Arrays in Perl <dlaser@ermine.ox.ac.uk>
Re: How make a variable name from a datafile? <msazonov@usa.net>
List of Known Memory Leaks? (Anthony Bucci III)
Newbie sort print question <smallenberger_jason_l@cat.com>
Re: regex error (Larry Rosler)
Re: s/\s//g - causing strange result - fish story <hck@formalsys.ca>
Re: s/\s//g - causing strange result <jdf@pobox.com>
Re: SOLVED: more help required tho.. RE To do variable <shawnf@exabyte.com>
Re: TIP: How to post good questions (I R A Aggie)
Trying to append text to a file properly. <alcazar@netcomp.net>
Re: What a Crappy World (oh, yes!) <katzman@students.uiuc.edu>
Re: What a Crappy World (oh, yes!) <katzman@students.uiuc.edu>
Re: What a Crappy World (oh, yes!) <katzman@students.uiuc.edu>
Re: What a Crappy World (oh, yes!) <katzman@students.uiuc.edu>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 25 Jun 1998 15:19:55 +0100
From: "F.Quednau" <quednauf@nortel.co.uk>
Subject: Re: a bit confused about seek? Not anymore!
Message-Id: <35925C8B.68164EE0@nortel.co.uk>
Abigail wrote:
> Note that if you need to seek to beginning of lines a lot, it pays
> to scan the file once and build an index. There should be modules out
> there that do this for you.
>
> Abigail
there probably are, but I felt like a little exercise today. So here is my
incredibly crude lineseeker module (!) Check it out!!:
package Lineseeker;
# use strict;
sub new {
my $proto = shift;
my $class = ref($proto) || $proto;
my $self = {@_};
bless $self, $class;
return $self;
}
=Required Parameters in new
file: The file for which an index is to be created
index: The name of the file to be used as index-file.
=cut
sub create_index {
my $self = shift;
my $trailer = undef;
open FILE, "< $self->{file}" or die "Couldn't open file: $!";
open INDEX, "> $self->{index}" or die "Couldn't create index-file: $!";
while (<FILE>) {
if (/\n/) {
$trailer = 6 - length(tell(FILE));
print INDEX tell(FILE).(" " x $trailer);
}
}
close FILE;
truncate(INDEX, tell(INDEX));
close(INDEX);
}
sub seekline {
my $self = shift;
my $line = shift;
my $true_seek = undef;
open INDEX, "< $self->{index}" or die "Couldn't open index-file: $!";
seek INDEX, (6*($line-2)), 0;
read INDEX, $true_seek, 6;
close INDEX;
return $true_seek;
}
=Required parameters in seekline
line: Specify the line number to which you want to jump
=cut
1;
And then you can use it like that:
use Lineseeker;
$doit = Lineseeker->new(file => "/u/quednauf/temp/perlwin.txt",
index => "/u/quednauf/temp/index.flq");
$doit->create_index;
open FILE, "< /u/quednauf/temp/perlwin.txt" or die "Couldn't open file: $!";
seek FILE, $doit->seekline(5), 0;
read FILE, $thingy, 20;
print $thingy;
close FILE;
Thingy now prints the first 20 bytes of line 20 in the file
/u/quednauf/temp/perlwin.txt. WHoaHEy! If you wonder about that 6 appearing here
and there: Every index gets a fixed number of bytes allocated. In that way I can
jump directly to the index I want to access and use it. Line 1 doesn't get an
index, 'cos it's not too difficult to suss out how you've got to seek it.
--
____________________________________________________________
Frank Quednau
http://www.surrey.ac.uk/~me51fq
________________________________________________
------------------------------
Date: Thu, 25 Jun 1998 15:13:25 +0100
From: "F.Quednau" <quednauf@nortel.co.uk>
Subject: Re: help! : Arrays in Perl
Message-Id: <35925B05.DB250EE7@nortel.co.uk>
Justin Voshell wrote:
>
> Hi all,
>
> I am pretty new with Perl an can't seem to find a function that will
> tell me the length of an array. Is there such a thing [there must be]?
>
It is one of the many wonders in Perl that things often act within a list or a
scalar context. So if you call an array in a scalar context, like
$look_how_long_i_am = @my_adventures_in_Hamburg; then $look_how_long_i_am will
contain the length of the array, because that array was called within a scalar
context. Cool! Get used to it quickly! The Perl manual always states how
constructs react within different contextua (plural of context..?), and an
answer to your problem often lies within that feature. SO read, read, read!
--
____________________________________________________________
Frank Quednau
http://www.surrey.ac.uk/~me51fq
________________________________________________
------------------------------
Date: 25 Jun 1998 14:42:31 GMT
From: Dan Nguyen <nguyend7@egr.msu.edu>
Subject: Re: help! : Arrays in Perl
Message-Id: <6mtnkn$an7$1@msunews.cl.msu.edu>
Justin Voshell <vosheljh@jmu.edu> wrote:
: Hi all,
: I am pretty new with Perl an can't seem to find a function that will
: tell me the length of an array. Is there such a thing [there must be]?
Simple. lets say you have array @array. You'll get the size if
@array is being used in a scalar context. eg
$size_of_array = @array;
You can also force scalar context with the 'scalar' operator.
$size_of_array = scalar @array;
--
Dan Nguyen |
nguyend7@cps.msu.edu | Remember Byron.
http://www.cps.msu.edu/~nguyend7 |
------------------------------
Date: 25 Jun 1998 15:32:11 +0100
From: Rob Hutchings <dlaser@ermine.ox.ac.uk>
Subject: Re: help! : Arrays in Perl
Message-Id: <yk31zsd1ris.fsf@ermine.ox.ac.uk>
Justin Voshell <vosheljh@jmu.edu> writes:
>
> Hi all,
>
> I am pretty new with Perl an can't seem to find a function that will
> tell me the length of an array. Is there such a thing [there must be]?
>
> Thanks,
>
Camel p. 49, or equivalently in man perldata:
"You may find the number of elements in the array @days by evaluating
@days in a scalar context, such as:
@days + 0
scalar (@days)
...
Closely related ... is $#days, This will return the subscript of the
last element in the array ..."
HTH - Rob
------------------------------
Date: Thu, 25 Jun 1998 18:39:01 +0400
From: "Michael Sazonov" <msazonov@usa.net>
Subject: Re: How make a variable name from a datafile?
Message-Id: <6mtnel$l9h@xpress.inforis.nnov.su>
Thomas Munn wrote:
>
> First name is User ID, and the one that I want to Key
off of. The
> rest of the data should be stored in the variable name
(automatically
> parsed) from the first name.
> E.G. without having to manually create new
> variables for each user encountered, using a "dynamic"
naming of
> variables that comes from the first entry of the data
file itself.
> E.G. In the first record, the program would read in
the value for the
> user name, make that a variable name, and then store
the next four
> components in that variable as an or a hash...). Is
there a simpler
> way to do this??
>
This works:
$UserId = 'user';
$$UserId = 'user string';
@$UserId = ('ken l. kolassa', 16, 132, 708533);
%$UserId = ('addr' => 'some address', 'age' => 25);
print "scalar: $user\n";
print "array: ",join(',',@user),"\n";
print "hash:\n";
for(keys %user) { print "$_ => $user{$_}\n"; }
and prints:
scalar: user string
array: ken l. kolassa,16,132,708533
hash:
addr => some address
age => 25
And more common. You may use double quoted string as
variable name, e.g.
${"$UserId_age"} = 30; #will produce the variable
$UserId_age with value set to 30.
Hope this helps.
===
Mike, sysadmin
------------------------------
Date: 25 Jun 1998 14:12:16 GMT
From: axb21@po.CWRU.Edu (Anthony Bucci III)
Subject: List of Known Memory Leaks?
Message-Id: <6mtls0$emo$1@alexander.INS.CWRU.Edu>
I was wondering if anyone could point me to a list of known memory leaks in
perl. I encountered a leak in the wait() function (in perl5.002, I
believe), for example. I am currently running into an error situation
which looks hauntingly similar in nature. However, I am using only the
most basic of perl keywords, like my, along with the Math::MatrixReal
package. My code, which will be expected to run for 20-odd hours
straight, currently crashes with an "out of memory" error after about 12
hours. I have been debugging for two weeks and have leaned up the code as
much as possible. Nothing in my algorithms could be causing the problem, as
far as I am able to tell. All I can think of is a memory leak in one of
perl's built-in commands.
The keywords I'm using are (in order of frequency, incidentally):
my, sub, return, for, print, unless, use, die, if, else, or, open,
close, package, push, foreach, rand, srand, while, next, exp
I'm also using the Math::MatrixReal methods:
new, assign, element, dim, zero, one, ~, +, -, *
(Sorry, the code's too long to include here. You wouldn't want to see it
anyway. Trust me).
I'm using perl5.004_01 under SGI IRIX 5.3.
Any suggestions?
Thanks in advance,
Anthony
--
------------------------------
Date: 25 Jun 1998 14:29:52 GMT
From: "Caterpillar, Inc." <smallenberger_jason_l@cat.com>
Subject: Newbie sort print question
Message-Id: <01bda045$b75cecf0$770de689@adsmalljl>
I'm a newbie to perl (3weeks of bad programming). I know that this group
is not a debugging area but I have a question that I hope that someone can
help me with.
History:
I have a program that reads in a set of files. Each file is of a different
size. After this it is put into an array to order that data and put into
yet another array to be sorted. After the file is sorted it is printed out
into a file. For a lack of a better way of doing it I have 5 different
areas that do the same thing (bad programming but it works).
Question:
When the loop hits the 17 input file it starts to give duplicated data.
Everything happens on line 10. From there on out everything is duplicated.
This first value is the bad one and the second is good. This happens
until it hits the end of the loop (file 26). I think that the problem is
within the loop. However, the first 16 files work fine. If there is a
better way of doing this GREAT. I have looked at most of the perldoc,
perlfaq's, perl web pages, and several books. I did not see much that
would help. Thanks.
#!/usr/perl/perl5.004_04/perl -w
#!/usr/bin
use Getopt::Long;
$k = 1;
$util = "Utilization of Port";
while ($k <= 26)
{
$i = 0;
$j = 0;
$count = 0;
$flag1 = 0;
$port = "port$k";
open (UTIL, "/usr/OV/tmp/smalljl/utilport$k") || die "Can't open Util\n";
open (OUTPUT, ">>/home/smalljl/temp/port$k") || die "Can't open
output\n";
while (<UTIL>)
{
@F = split(' ');
$date = ($F[0]);
$time = ($F[1]);
$dns = ($F[2]);
$data = ($F[3]);
$ip = ($F[4]);
$util[$i] = "$dns,$date,$time,$data,$ip";
$i++;
$count++;
}
@sorted = sort @util;
while ($j != $count)
{
print OUTPUT "$port,$util,$flag1,$sorted[$j]\n";
$j++;
}
@sorted = ();
close (OUTPUT);
close (UTIL);
$k++;
}
print "End of program\n";
------------------------------
Date: Thu, 25 Jun 1998 07:43:12 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: regex error
Message-Id: <MPG.ffc01d814ee65989896f4@nntp.hpl.hp.com>
In article <35925750.10233803@arrissys.com>, David D Winfield
<dwinfield@arrissys.com> says...
> Hi:
>
> I am having a bit of a problem with this regular expression and it looks
> ok to me. Surely clearer eyes will prevail.
>
> $Msg =~ /^(+\/.\;.)/;
> where
> $Msg = 123;MINUS pso.xxxxxxx/stuff/1221/;Another part of the string
> Any sugestions?
It might help if you gave a hint of what the regex is supposed to match.
The most obvious error is the failure either to escape the + (if you want
to match a literal +, write \+) or to indicate what you want to match one
or more of.
To avoid "leaning-toothpick syndrome" you might change the
regex delimiters from / ... / to m# ... # where # is a punctuation
character that is not used inside the regex. Then you don't have to
escape the / you are trying to match against.
It is unnecessary to escape the ; (unless you choose ; for the regex
delimiter -- don't do that!).
Please post again with more information about your goal.
--
Larry Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Thu, 25 Jun 1998 10:57:09 -0300
From: Colin Kilburn <hck@formalsys.ca>
Subject: Re: s/\s//g - causing strange result - fish story
Message-Id: <35925735.C6E8CA4F@formalsys.ca>
I now see that match vars are reset,
even when no capturing parentheses are used.
This is correct, right?
I thought I ran into an example once where
the match vars persist and cloak themselves
as a successful match in the future.
Is it ever necessary to undef the match vars
after using, to insure that no cloaking happens?
Anyway, I was tired and screwed up the example
debug output in the original post.
See my comments in the mix below.
Tom Phoenix wrote:
>
> On Wed, 24 Jun 1998, Colin Kilburn wrote:
>
> > 308: $library_dest =~ s/\s//g; <<<<<< do this
> > DB<19> n
> > Customer::Decode::SYSTRANS(/scratch/hck-dev-setup/lib/Customer/Decode.pm:309):
> >
> > 309: $module_name =~ s/\s//g;
> > DB<19> p $1 <<<<<< killed it
>
> The match variables ($1, $2, and so on) are set by any successful pattern
> match. In this case, it looks as if your pattern matched, so those
> variables are set (or cleared, depending on how you look at things).
>
> If you'll be needing the contents of a match variable more than a couple
> of lines after the pattern match, you should almost always copy it into
> another variable. Otherwise, there's the risk that a line of code added in
> between will change it, as this case showed.
I did copy the match vars and then did a s/\s//;
the assigned value got cleared. I meant to put that in the example.
Now its a fish story. ( can't reproduce it at all )
I wasn't so concerned about the $1 as it appeared in the original post.
simplified example of the phenomena:
$x = $1;
print $x; # gave foo
$x =~ s/\s//;
print $x; # gave nothing
This was a mystery to me so I posted, badly.
Anyhow, It's morning, and it works fine. Whatever.
>
> Of course, instead of s/\s//g you could use the somewhat faster s/\s+//g.
> Or even a form of tr///, which wouldn't affect the match variables. Hope
> this helps!
tr/// will do nicely. Thanks
>
> --
> Tom Phoenix Perl Training and Hacking Esperanto
> Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Thanks,
--
=================================================================
= Colin Kilburn - FSI Software Developer - hck@formalsys.ca =
= Fredericton NB - phone 506 433 0300 - fax 506 433 0300 =
=================================================================
------------------------------
Date: 25 Jun 1998 10:02:50 -0500
From: Jonathan Feinberg <jdf@pobox.com>
To: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: s/\s//g - causing strange result
Message-Id: <4sx9y15x.fsf@mailhost.panix.com>
Tom Phoenix <rootbeer@teleport.com> writes:
> On Wed, 24 Jun 1998, Colin Kilburn wrote:
>
> > 308: $library_dest =~ s/\s//g; <<<<<< do this
> > DB<19> n
> >Customer::Decode::SYSTRANS(/scratch/hck-dev-setup/lib/Customer/Decode.pm:309):
> >
> > 309: $module_name =~ s/\s//g;
> > DB<19> p $1 <<<<<< killed it
>
> The match variables ($1, $2, and so on) are set by any successful
> pattern match. In this case, it looks as if your pattern matched, so
> those variables are set (or cleared, depending on how you look at
> things).
Of course, that's iff you've used capturing parens, which Mr. Kilburn
didn't, which is why $1 is undef.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf/
------------------------------
Date: Thu, 25 Jun 1998 08:50:55 -0600
From: "Shawn M Ferris" <shawnf@exabyte.com>
Subject: Re: SOLVED: more help required tho.. RE To do variable type expansion in a string.
Message-Id: <6mto3t$ff1$1@news.exabyte.com>
Believe it or not, I did finally find it in a faq, it just took a while,
lots o-docs out there to look through, I just didn't look in the right one
first.. 8)
However, I do have another question regarding this. The final solution
was...
$val=~s/%{(\w+)}/$self->val($sect,$1)/eg;
I was definately looking at the solution to be quite a bit more complicated
than it really was. But... I'd like to build an escape char into it. \%{var}
doesn't translate, but \\%{var} would escape the escape and still translate
var, etc, etc.
Any help?
Shawn M Ferris
Oracle DBA
PS: I am using the IniConf module.. 8) Thanks lars
------------------------------
Date: Thu, 25 Jun 1998 10:31:28 -0500
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: TIP: How to post good questions
Message-Id: <fl_aggie-2506981031280001@aggie.coaps.fsu.edu>
In article <359217E8.5E2B004F@nortel.co.uk>, "F.Quednau"
<quednauf@nortel.co.uk> wrote:
+ birgitt@my-dejanews.com wrote:
+ >
+
+ > Don't you think that this article - may be cut down a bit - is
+ > worth to be auto-posted "very often" with a more "aggressive"
+ > subject line ?
+ I agree. This article should appear more often. It makes a lot of sense.
I'm open to suggestions. Remember, I didn't write the article, merely
reposted it. I already have a perl script that can automagically repost
an article, so that's already done.
Perhaps it would be better to post it occasionally, and slap it up on
www.perl.com somewhere, with pointers to the website in the other
informational autoposts that show up here.
James
------------------------------
Date: Thu, 25 Jun 1998 09:29:44 -0500
From: "Ric Alcazar" <alcazar@netcomp.net>
Subject: Trying to append text to a file properly.
Message-Id: <ud3ejWEo9GA.280@upnetnews05>
Hello all,
I thank you for you wisdom in past post, however, it seems that another
dilemma has escaped me.
I'm a novice at perl and have been having some problems trying to write text
to a file. My intention is to add a word to a specified file retaining that
files original format. The content of the file looks something like this:
one-day: cool hot none even
Now, what I'm trying to do is write a script that simply adds another
word to the end of the line retaining the same format, such as this:
one-day: cool hot none even 'new_word'
However, my attempts have left me weary... my script adds the new word
with a new line the first time I run it. When I run the script again, it
places the word directly after the last one and my file ends up looking like
this:
one-day: cool hot none even
first-wordsecond-word
I've tried this in WIN32 and it seems to work fine, however, in UNIX, it
doesn't. Please help, I've don't understand what I'm doing wrong.
Thanks,
Ric
------------------------------
Date: Thu, 25 Jun 1998 09:03:25 -0500
From: Olga <katzman@students.uiuc.edu>
Subject: Re: What a Crappy World (oh, yes!)
Message-Id: <Pine.SOL.3.96.980625090218.20991E-100000@ux9.cso.uiuc.edu>
Most of these people do know what they need. They are experianced
programmers in C++ and VB and such, but they are just picking up Perl.
It's not like they were born yesterday and decided to learn Perl today.
They've had plenty other programming experiance.
Olga
On Wed, 24 Jun 1998, Matt Knecht wrote:
> Olga <katzman@students.uiuc.edu> wrote:
> >So why not let these newbie people decide what they need.
>
> Because they don't know what they need. This is exactly the type of
> post that gets what you would call a flame. What they need is to look
> at the docs and the FAQ, not a simple answer. A clueless post reveals
> much more than the author has intended, and since there are _excellent_
> teachers here, they see it, and get those people out of this newsgroup,
> and back to the documentation where they belong (Sometimes, they get
> sent back to look at programming ideas, not just Perl).
>
> >If they feel they need a straight answer, they should be able to post
> >ontheng in hopes of getting one.
>
> Should they? The straightest answers out there is in the docs and FAQ.
> Not in this newsgroup.
>
> >If no body responds, then these people will take a hint. Pretty simple
>
> You'd like to think so, but they don't. They post the same message over
> and over, or they return to berate everyone for not answering them.
>
> Again, this relates to how excellent the teachers here are. Not
> answering is the wrong answer. Telling them in no uncertain terms that
> they need to look at the documentation and FAQ is the best thing for
> these people!
>
> --
> Matt Knecht - <hex@voicenet.com>
> "496620796F752063616E207265616420746869732C20796F7520686176652066
> 617220746F6F206D7563682074696D65206F6E20796F75722068616E6473210F"
>
>
------------------------------
Date: Thu, 25 Jun 1998 09:04:31 -0500
From: Olga <katzman@students.uiuc.edu>
Subject: Re: What a Crappy World (oh, yes!)
Message-Id: <Pine.SOL.3.96.980625090355.20991F-100000@ux9.cso.uiuc.edu>
Actually, they won'.
Most of these people are embarrassed enough that they have to ask a
question and if it's not answered after they post, they seek help
elsewhere.
Olga
On Wed, 24 Jun 1998, I R A Aggie wrote:
> In article <Pine.SOL.3.96.980624133247.14133C-100000@ux7.cso.uiuc.edu>,
> Olga <katzman@students.uiuc.edu> wrote:
>
> + If no body responds, then these people will take a hint.
>
> Ummm...no. They'll just repost their question. Again. And Again. And Again.
> Eventually, they'll run off in a snit, muttering about how unhelpful those
> perl people are...
>
> James
>
>
------------------------------
Date: Thu, 25 Jun 1998 09:13:57 -0500
From: Olga <katzman@students.uiuc.edu>
Subject: Re: What a Crappy World (oh, yes!)
Message-Id: <Pine.SOL.3.96.980625091345.20991J-100000@ux9.cso.uiuc.edu>
See my previous post
Olga
On Wed, 24 Jun 1998, Matt Knecht wrote:
> Scratchie <upsetter@ziplink.net> wrote:
> >Big deal. If you politely show him an easier way to get an answer (than
> >Usenet) he probably won't post inappropriately again, either (see Tom
> >Phoenix's posts for an example).
>
> I don't want to have to break this to you, but, the world is not a
> polite place. People generally aren't polite. And, usenet is generally
> not polite. I don't think this is a bad thing. If you're trying to
> change the attitude of the world so everybody is always smiling, no
> matter their level of frustration with the inane, you're going to drive
> people to insanity.
>
> I don't want to live in a Stepford world where everything is saccarine
> and polished with the insides rotting out. People get angry and
> frustrated. While they should temper it, they should not mask it.
>
> >But of course some people don't find that as satisfying as a well-penned
> >put-down.
>
> I still don't find this to be true. Most of the posts, even if they
> include flames, are meant to instruct and redirect, not to _just_
> belittle.
>
> --
> Matt Knecht - <hex@voicenet.com>
> "496620796F752063616E207265616420746869732C20796F7520686176652066
> 617220746F6F206D7563682074696D65206F6E20796F75722068616E6473210F"
>
>
------------------------------
Date: Thu, 25 Jun 1998 09:35:16 -0500
From: Olga <katzman@students.uiuc.edu>
Subject: Re: What a Crappy World (oh, yes!)
Message-Id: <Pine.SOL.3.96.980625093320.20991N-100000@ux9.cso.uiuc.edu>
I am not telling mr. Christiansen how to post. I am merely stating that
the rudeness exhibited on this ng is very discouraging to those trying to
learn.
I am not telling anyone what to do. Just pointing out the obvious
Olga
P.S. Since I posted yesterday I've had several other people e-mail me and
say that they wholeheartedly agree with me, but they are too afraid of
geting "torn apart" by the people here. Just letting you all know this so
that you don't think I am talking about 1 or 2 isolated incidents
On 25 Jun 1998, Abigail wrote:
> Olga (katzman@students.uiuc.edu) wrote on MDCCLVIII September MCMXCIII in
> <URL: news:Pine.SOL.3.96.980624123542.697F-100000@ux7.cso.uiuc.edu>:
> ++ Oh, ok
> ++ and who should get to set the minimum standards, Craig?
> ++ You?
> ++ People who don't meet the "miminum standard" criteria should still be able
> ++ to post. People who exceed this criteria are welcome to ignore the posts
> ++ of the "idiots" but no one should have to be insulted just because their
> ++ questions seems dumb. When a six year old is screaming "what is this
> ++ word, what is this word", the teacher or parent, or the more
> ++ intelligent authority figure usually does not respond by saying,
> ++ "stupid" or "that doesn't deserve an answer". Sometimes not responding
> ++ works very well.
>
>
> Could you then please take your own advice, let Tom post in the way
> he wants and you just don't respond?
>
> Else you're very hypocritical.
>
>
>
> Abigail
> --
> perl -wleprint -eqq-@{[ -eqw+ -eJust -eanother -ePerl -eHacker -e+]}-
>
>
------------------------------
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 2977
**************************************
