[6927] in Perl-Users-Digest
Perl-Users Digest, Issue: 552 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Jun 1 04:08:11 1997
Date: Sun, 1 Jun 97 01:00:41 -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 Sun, 1 Jun 1997 Volume: 8 Number: 552
Today's topics:
Re: Arg. This isn't a CGI question, really it isn't. (Andrew M. Langmead)
Re: AWK vs Perl For Misc Data Processing Tasks (rod)
Re: binary conversions ?? (Andrew M. Langmead)
Re: Can you Modify a Record "in-Line?" (Tad McClellan)
does this work? Ignore please... <perlprogrammer@hotmaill.com>
Re: filter out uids below 100 (Michael Fuhr)
Re: getting started... <nathan@cyberservices.com>
Re: help! i need a banner rotator... <sbekman@iil.intel.com>
Re: Internal data structure of lists <chaimf@cris.com>
Perl error handling for s/ and associative arrays <joakim@korridor.se>
Re: Perl error handling for s/ and associative arrays (Tad McClellan)
Question about deleting active user file <perlprogrammer@hotmaill.com>
Re: Reading binary files: OK under DEC UNIX, error unde <petri.backstrom@icl.fi>
Re: Regex lookahead help (Abigail)
Where do I start?? <Radar@chanute-ks.com>
Re: while(<>) and perl -e: B.. or feature? (Nathan V. Patwardhan)
Re: while(<>) and perl -e: B.. or feature? <mschilli@blacksun.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 31 May 1997 13:59:19 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: Arg. This isn't a CGI question, really it isn't.
Message-Id: <EB1tIv.F5@world.std.com>
Andy Shaw <a.j.shaw@shef.ac.uk> writes:
>I would like to be able to test my cgi programs on my stand-alone pc at
>home, without having to set up the ENV{"QUERY_STRING"} and similar each
>time I do it. I would really like to have a program which would act like
>httpd, but I don't have the network services to use one. Any Ideas on
>programs/scripts/daemons I can use to make my PC pretend to be networked
>to itself?
Besides Mike Stok's suggestion of CGI.pm, (which would be a good idea
anyway.) here are some other ideas that you can either use either with
Mike's or separately.
Find out from one of the CGI and http server newsgroups if there are
any http servers available for the operating system you
use. Hopefully, your operating system doesn't require you to actually
have a network card, or have your networking link actively connected
before sending network packets to itself.
Install one of the freely distributable Unix clones for your machine,
and run an http server on it.
Write a "wrapper" program that sets things up the way your script
expects it, and then calls your script.
If your write the wrapper in perl, it probably makes both of our posts
on topic for comp.lang.perl.misc. If you write it in another language,
then neither of our articles have anything to do with the perl
language.
--
Andrew Langmead
------------------------------
Date: 1 Jun 1997 06:34:00 GMT
From: serling@davids.isource.net (rod)
Subject: Re: AWK vs Perl For Misc Data Processing Tasks
Message-Id: <slrn5p264g.iaf.serling@davids.psyberlink.net>
Nathan T. Wild, nwild@codville.mb.ca journeyed into
another dimension with:
>I have been happily working with AWK under UNIX and DOS for several years.
>We are porting some AWK-based systems over to NT, and I am wondering
>whether I should invest in the NT version of our AWK compiler, or just take
>this opportunity to switch to Perl?
>
After having to finally break down and learn perl for
real a short while ago and also having wished I could
stick with awk, I found that for anything other than
commandline use, perl is the way to go. For commandline
stuff I still find awk and sed easier to use. Actually,
the only problem with perl is, I need a perl 12 step
program to stop.
--
Spend a day with NT and Exchange.
Suddenly, the idea of uucp on VMS
will become attractive.
------------------------------
Date: Thu, 29 May 1997 21:14:51 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: binary conversions ??
Message-Id: <EAyoCr.5D0@world.std.com>
Sefi Kraemer <skraemer@iil.intel.com> writes:
>I need to convert a hex integer into a binary integer.
>The former is proccesed and printed.
>Does perl support such a feature? Do I have to right my own convertion
>function?
You can do it with a combination of pack(), unpack(), and hex()
$bitstring = unpack 'B*', pack 'I', hex('2f87');
hex takes a string and returns a numeric scalar based on string
interpreted as hexadecimal digits. pack() with the 'I' format take a
number returns a sequence of bytes that is the processors
repesentation of that number. (which is slightly different than a perl
scalar that contains that number.) The unpack with the 'B' format
takes a packed integer and returns a string that represents that
integer.
--
Andrew Langmead
------------------------------
Date: Sun, 1 Jun 1997 00:31:37 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Can you Modify a Record "in-Line?"
Message-Id: <pf1rm5.725.ln@localhost>
[ Please follow the usual Usenet convention of limiting your line
lengths to 70-72 characters ]
Jason Fish - SunEducation (jason@thereef.west.sun.com) wrote:
: I want to read a record in, and if it matches a specific check:
: 1. replace the entire record with a new one - does the replacement
: string need to be the same length?
Yes, if you stick to the "no temp files" restriction below.
: What about if the replacement
: string is longer or shorter, can I get perl to truncate/pad
: respectively?
Yes.
if longer:
$old_record = # something
$new_record = substr($new_record, 0, length($old_record)); # truncate
if shorter:
$new_record =~ s/^/' ' x (length($old_record)-length($new_record))/e; # pad
: 2. replace a portion of the string - the FIRST n chars/words/bytes,
: or the LAST n chars/words/bytes, or some number of bytes right
: from in the MIDDLE of the record.
: If a line doesn't match, it is not affected and simply output.
: I want to do this WITHOUT TEMP FILES, in-line, so to speak.
^^^^^^^^^
Yes, but do you *need* to?
You may find that it is more trouble to figure out how to do it
without temp files than to just use one.
Why do you want to do this in the manner shouted above?
Or, what do you see wrong with the temp file approach?
: So I assume I'd open the
: file for reading and writing. But once I've read in a record,
: how do I tell perl to
: write it back out to the exact same spot it came from, with or
: without changes intact?
seek()
--
Tad McClellan SGML Consulting
Tag And Document Consulting Perl programming
tadmc@flash.net
------------------------------
Date: Sat, 31 May 1997 23:41:18 -0700
From: perl guy <perlprogrammer@hotmaill.com>
Subject: does this work? Ignore please...
Message-Id: <3391198E.1A89@hotmaill.com>
My postings have vanished??. testing to see if it posts..
------------------------------
Date: 1 Jun 1997 00:16:34 -0600
From: mfuhr@dimensional.com (Michael Fuhr)
Subject: Re: filter out uids below 100
Message-Id: <5mr442$hok@flatland.dimensional.com>
Keys <keys@babylon5fan.com> writes:
> Michael Fuhr wrote:
>
> > Consider using getpwent instead of reading the password file. See
> > the perlfunc manual page for details.
>
> I am using getpwent... here's the critical section...
>
> while(($login,$passwd,$uid,$gid,$quota,$comment,$gcos,$dir,$shell)=getpwent)
> {
> ($name,$office,$phone)=split(/,/,$gcos);
> $username{$login}=$name;
> }
You just want to skip users whose uid is below 100, right? Take
a look at the perlsyn manual page and read about loop control and
decision-making.
--
Michael Fuhr
http://www.dimensional.com/~mfuhr/
------------------------------
Date: Sat, 31 May 1997 23:04:40 -0500
From: Nathan Stanford <nathan@cyberservices.com>
Subject: Re: getting started...
Message-Id: <3390F4D8.4F8A@cyberservices.com>
Alan Gutierrez wrote:
>
> Arathena Sprankle wrote:
> >
> > ok..
> >
> > i figured out that you are supposed to create the file in notepad and then
> > test it in the dos box brought up when I execute perl.exe. However when I
> > tesed a simple file..
> >
> > #! /perl/bin/perl
> > print "Hello, world!";
> >
> > The file is kept in c:\hello.pl
> > perl.exe is in c:\perl\bin\perl.exe
> >
> > when I type "perl c:\hello.pl"
> > I get an error "syntax error at - line 3, near "c:"
First Make sure you have typed it correctly line 3?
#! /perl/bin/perl
print "Hello, world!";
Are you sure the comma after Hello was not a semi-colon?
Anyway if you first tell me are you in NT 3.51, Windows 95 , Windows NT
4.0?
if Windows 95 or Windows NT 4.0 then you make sure the path is correct
even if you have to add it in the autoexec.bat...
path = %path%;c:\perl\bin\
Then go to the directory
c:\>
and type
c:\>perl hello.pl
It will work!!
> >
> > What exactly is happening here?
> >
> > marien@goodnet.com
>
> I have an installation on NT. It works fine. It works wonders.
>
> Did you try - c:\perl\bin\perl.exe hello.pl
>
> Make sure perl in in your path, it helps.
>
> Open the control panel for NT and go to system settings, chose the
> environment tab,
> edit your path or the systems path by adding the directory where perl is
> installed.
>
> I do hope you can figure it out from the environment tab.
>
> Then instead of perl c:\hello.pl try - perl hello.pl
>
> Hope this helps!
>
> --
> (A)lan (J)ames Gutierrez
> alan at cybernet.com
--
________________________________
Nathan Stanford, CNA
mailto:nathan@cyberservices.com
Lan/Wan Engineer
Win NT 3/4 & NetWare 3/4
Internet & Intranet
Perl & CGI & Java
Quailty Web Development
http://users.why.net/nathans
________________________________
"Quality Work is ...
worth the time invested"
------------------------------
Date: Sun, 01 Jun 1997 09:42:15 +0300
From: Bekman Stanislav <sbekman@iil.intel.com>
To: Astro <astro@vaxxine.com>
Subject: Re: help! i need a banner rotator...
Message-Id: <339119C7.41C6@iil.intel.com>
Astro wrote:
>
> anybody have or know of a good banner rotation cgi's???
>
> thanks
Try http://www.mardanit.co.il/Center/webmaster/cgi-scripts.html
For this and other scripts
-- Stas
------------------------------
Date: 01 Jun 1997 00:32:50 -0400
From: Chaim Frenkel <chaimf@cris.com>
To: robert c combs <xrcc0494@dcaca037.ca.boeing.com>
Subject: Re: Internal data structure of lists
Message-Id: <m3bu5r9c3x.fsf@nlk.nlk.com>
>>>>> "rcc" == robert c combs <xrcc0494@dcaca037.ca.boeing.com> writes:
rcc> I'd like to respond with perl-understandable lists. But, I'm not
rcc> sure of the raw-data structure that the c-program needs to
rcc> send through the socket in order for perl to understand:
rcc> @list = <SOCKET>;
rcc> So the basic question is...
rcc> if you did a raw dump of a list that looked like:
rcc> ['mine', 'yours', 'his'] what would/should it look like?
rcc> In general what is the internal data structure for lists and hashes?
rcc> I suppose I could clunk around in some header files, but
rcc> its not nearly as nifty as posting to a newsgroup...
Err, nothing.
print OTHERSOCKET join(@mylist,"\n"),"\n";
Well the other end would have to chomp() off the "\n" off the
end of each line.
If you don't want the new lines, you will have to play with sysread()
and syswrite() to get perl to honor the message boundaries.
My personal preference, is to work with sysread/syswrite, but that's
my perl4 background talking.
<chaim>
--
Chaim Frenkel Nonlinear Knowledge, Inc.
chaimf@cris.com +1-718-236-0183
------------------------------
Date: Mon, 26 May 1997 23:13:43 -0700
From: Joakim Larsson <joakim@korridor.se>
Subject: Perl error handling for s/ and associative arrays
Message-Id: <338A7B97.2373@korridor.se>
Hi,
This might be trivia but can someone bring light on how the
following expression can overcome som of it's limitations:
$err =~ s/<!MGFFORM (.*)>/$FORM{$1}/ge;
The idea is to replace all occurences of <!MGFFORM xxx> with the
contents of the associative array $FORM{'xxx'} It works well until
an undefined slot in the associative array is referenced. In that
case it skips that whole row continuing with the next one:
$FORM{'a'} = 'Hi ';$FORM{'B'} = 'there ';$FORM{'c'} = 'guru! ';
$err = '<!MGFFORM a><!MGFFORM b><!MGFFORM c>';
$err =~ s/<!MGFFORM (.*)>/$FORM{$1}/ge;
print $err;
If for instance 'b' isn't a valid key 'a' and 'c' will not get
replaced either or at least they will not get back to $err.
However, putting them on separate rows is a different story:
$FORM{'a'} = 'Hi ';$FORM{'B'} = 'there ';$FORM{'c'} = 'guru!';
$err = '<!MGFFORM a>\n<!MGFFORM b>\n<!MGFFORM c>';
$err =~ s/<!MGFFORM (.*)>/$FORM{$1}/ge;
print $err;
In this case only the 'b' case will be missing in the resulting $err.
How can I tune the expression to return an empty string for
non valid keys? Is it a bug or a feature?
Thanks
Joakim
--
-============================================================-
Joakim Larsson, sysadm joakim@korridor.se
Korridor Datakommunikation AB http://www.korridor.se
Tantogatan 5, 118 67 Stockholm tel +46 8 720 41 50
Sweden Fax +46 8 720 41 60
-============================================================-
"Make things as simple as possible, but not simplier"
-============================================================-
------------------------------
Date: Sun, 1 Jun 1997 00:13:47 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Perl error handling for s/ and associative arrays
Message-Id: <be0rm5.q05.ln@localhost>
Joakim Larsson (joakim@korridor.se) wrote:
: This might be trivia but can someone bring light on how the
: following expression can overcome som of it's limitations:
: $err =~ s/<!MGFFORM (.*)>/$FORM{$1}/ge;
Use non-greedy matching or you will have problems when there is
more than one <!MGFFORM on a line.
: The idea is to replace all occurences of <!MGFFORM xxx> with the
: contents of the associative array $FORM{'xxx'} It works well until
: an undefined slot in the associative array is referenced. In that
: case it skips that whole row continuing with the next one:
: $FORM{'a'} = 'Hi ';$FORM{'B'} = 'there ';$FORM{'c'} = 'guru! ';
: $err = '<!MGFFORM a><!MGFFORM b><!MGFFORM c>';
: $err =~ s/<!MGFFORM (.*)>/$FORM{$1}/ge;
: print $err;
: If for instance 'b' isn't a valid key 'a' and 'c' will not get
^^^^^^^^^^^^^^^^^^^^^
Or, even if 'b' _is_ a valid key...
: replaced either or at least they will not get back to $err.
<!MGFFORM a><!MGFFORM b><!MGFFORM c>
^^^^^^^^^^^^^^^^^^^^^^^^^ this is what matched...
[ You should print out $& when having trouble with a regex, so you
can see what it matched ]
So, there is only one match on the line, and only one substitution.
$FORM{a><!MGFFORM b><!MGFFORM c} is what is not defined...
: However, putting them on separate rows is a different story:
Because the dot does not match the newline, so you get three matches.
: $FORM{'a'} = 'Hi ';$FORM{'B'} = 'there ';$FORM{'c'} = 'guru!';
: $err = '<!MGFFORM a>\n<!MGFFORM b>\n<!MGFFORM c>';
: $err =~ s/<!MGFFORM (.*)>/$FORM{$1}/ge;
: print $err;
: In this case only the 'b' case will be missing in the resulting $err.
$err =~ s/<!MGFFORM (.*?)>/$FORM{$1}/g;
^
^
or, better yet:
$err =~ s/<!MGFFORM ([^>]*?)>/$FORM{$1}/g;
Because that is what you really want to match anyway.
You don't need s///e either. The replacement part is "double quotish"
(ie. it acts like it was in a double quoted string), which will
interpolate the variable for you...
: How can I tune the expression to return an empty string for
: non valid keys?
I dunno. ;-(
: Is it a bug or a feature?
It's a Programmer Introduced bug ;-)
--
Tad McClellan SGML Consulting
Tag And Document Consulting Perl programming
tadmc@flash.net
------------------------------
Date: Sat, 31 May 1997 21:31:15 -0700
From: perl guy <perlprogrammer@hotmaill.com>
Subject: Question about deleting active user file
Message-Id: <3390FB13.4267@hotmaill.com>
Hi...
I was wondering if anyone has any idea how to go about something. Don't
worry, it's just a question. I won't ask anyone to write a script for me
:) But I am new and I am hoping for some ideas of how to go about this.
They are simple questions. For the guru's :)
If you're still here, then here's what I need to do. I am attempting to
make a chat room, and I have most of it done, BUT, I need to do a few
minor things. I'm just not sure how to go about it.
First of all, I have a ban page. Where I type in the IP address or
domain addrs of the abuser. I have it in an HTML and submit form, where
I type in the address with my password, and it writes to another HTML
page that is written to and read by opening the ban file/html page and
seeing if someone's remote host matches it, if so, then it prints the
banned subroutine and dies. They can't access the script. ok. but what I
am wanting to do, is if they are actually in the room at the time of the
ban, I want it to remove their file from the user list. Maybe even have
a little message in the room saying "$name had been shown the door!
CYA!" once they are banned, they can't upadte or send any data anyway.
but I would like it to remove the file still.. It already does that when
someone exits. But I can't seem to have it delete their file untill
they time out of the room. the ban works something like this:
$where_from = $ENV{'REMOTE_HOST'};
$banish_file="/hidden/ban_list.html";
$ban_html="/hidden/ban.html";
open (BANFILE,"$banish_file") || &unable("$banish_file");
@servers = <BANFILE>;
close (BANFILE);
foreach $banished (@servers)
{
if($banished =~ /^*.*$where_from\s*.*/)
{
&PrintChatBan;
die;
}
}
And the exit page is already set up as I say to remove the chatter's
file in the chat room directory they are in..
such as:
if ($logoff ne "")
{
$whofile = "$chat_room_dir/$session.who";
unlink($whofile);
&PrintChatEnd;
exit 0;
}
Now, I've tried this a bunch of ways. and I am trying to either be able
to have it say a message in the chat room saying they've been "kicked"
or whatever, and then removing their file without having to delete it
manually. make sense?. Sorry, i know this is sounding completely stupid
and amature. But that's exactly what I am. *sigh*. Perl is fun though.
I'm learning.
Anyway, The other question I am wondering about, is that I have my input
box for the chat room at the bottom, and the messages are the newest at
the top. it's annoying, because people have to scroll down the screen
for the olest messages, scroll back up in the order from oldest to
newest to keep up, and then scroll back down to re-post a new message. I
don't want to have to have buttons at the top too, because it would be
too messy looking. I know this has GOT to be pittifully simple.. but
again. Mr. Know nothing..
So. ideas? Here is that part of the code...
if ($post ne "")
{
if ($message ne "")
{
$chat_message eq "Everyone";
$high_number = &GetHighMessageNumber;
$high_number++;
$high_number = sprintf("%6d",$high_number);
$high_number =~ tr/ /0/;
open(MSGFILE, ">$chat_room_dir/$high_number.msg");
print MSGFILE "$name\n";
print MSGFILE "$email\n";
print MSGFILE " -- $where_from --\n";
print MSGFILE "$date\n";
print MSGFILE "$the_message\n";
close(MSGFILE);
}
&PruneOldMessages($chat_room_dir);
$old_last_read = $user_last_read;
($name, $email, $where_from,
$refresh_rate, $how_many_old,
$user_last_read, $high_message) =
&GetSessionInfo($session, $fsubmit, $frames);
$user_last_read = $old_last_read;
}
I looked everywhere for any info on how to do either of these problems.
I can't find anything. I know that it takes time to learn and I'm not
looking for anyone to do this for me. But It's so close to being done
that I can taste it! I am reading all the info I can about perl, but I
just want this finished, so any ideas or input on this would be greatly
appreciated!! Thank you to anyone offering help. Sorry for the hotmail
address, but my server's email keeps going haywire. I'll be checking the
groups to see if anyone is kind enough to help. Thank you again,
Kevin.
------------------------------
Date: Tue, 27 May 1997 22:35:59 +0200
From: Petri Backstrom <petri.backstrom@icl.fi>
Subject: Re: Reading binary files: OK under DEC UNIX, error under Win32
Message-Id: <338B45AF.1567@icl.fi>
John Marelius wrote:
>
> Two of my PERL program that read data from binary files (FORTRAN
> unformatted files) work fine with PERL 5.002 under DEC UNIX (2.0 and up)
> but fails under PERL 5.003_07 for Win32 (NT 4.0/Alpha).
> The calls to the read function work normally the first 100-200 bytes but
> after that read fails to read any more.
>
> Has anyone else experience this kind of problem (and found a solution)?
Look up binmode in your Perl documentation.
regards,
...petri.backstrom@icl.fi
ICL Data Oy
Finland
------------------------------
Date: Sun, 1 Jun 1997 02:46:07 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Regex lookahead help
Message-Id: <EB2t0v.L2y@nonexistent.com>
On 30 May 1997 17:16:00 GMT, Jeff Stampes (stampes@xilinx.com) wrote in
comp.lang.perl.misc
<URL: news:5mn20g$mcq$1@neocad.com>:
++
++ so here's the problem. I have some strings that are in the form
++ 'data/foo/bar/not.this' I want to NOT match these strings.
++ However, the regex needs to be plugged into a positive assertion
++ match. There could be anywhere from 3-6 levels before the
++ 'not.this'.
++
++ I was hoping to use a negative lookahead, but can't seem to find
++ something that works. For example:
++
++ m{(.+/)+(?!not.this)}
++
++ this may work, but it also results in a non-match for
++ 'data/foo/bar/this'.
Odd:
$ perl -w
my $foo = 'data/foo/bar/this';
print "Match\n" if $foo =~ m{(.+/)+(?!not.this)};
__END__
Match
$
It matches for me....
Abigail
--
perl5.004 -wMMath::BigInt -e'$=new Math::BigInt+qq;$$783$[$%9889$47$|88768$596577669$%$5$3364$[$$$|838747$[8889739$%$|$673$%$98$76777$=56;;$=$]*(q.25..($=@))=>do{print+chr$%$;$/=$}while$!=$'
------------------------------
Date: Sun, 01 Jun 1997 00:54:38 -0500
From: Radar <Radar@chanute-ks.com>
Subject: Where do I start??
Message-Id: <33910E9E.52F4@chanute-ks.com>
I'm not a programmer, but want to start learning Perl. Where do I start?
Any books suggested? Any help appreciated.
Radar
------------------------------
Date: 1 Jun 1997 03:05:11 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: while(<>) and perl -e: B.. or feature?
Message-Id: <5mqot7$lne@fridge-nf0.shore.net>
Michael Schilli (mschilli@blacksun.com) wrote:
: perl -e 'while(<>) {...}'
: doesn't process file names from the command line just as
Are you sure about this? Try:
perl -e 'while(<>){ print $ARGV,"\n"; }' filename filename etc
--
Nathan V. Patwardhan
nvp@shore.net
------------------------------
Date: Sun, 01 Jun 1997 00:16:08 -0700
From: Michael Schilli <mschilli@blacksun.com>
Subject: Re: while(<>) and perl -e: B.. or feature?
Message-Id: <339121B8.1F60@blacksun.com>
> In article <3390C5A8.260A@blacksun.com> you write:
> >Hi,
> >
> >I wonder why
> >
> > perl -e 'while(<>) {...}'
> >
> Maybe because you didn't give it any filenames on that command line?
> >doesn't process file names from the command line just as
>
> > #!/usr/bin/perl
> >
> > while(<>) { ...
> > }
> >
> >does but instead insists on input from STDIN. Any ideas?
> (Maybe
> perl -e 'while(<>) {...}' filename
> ?-)
> >
> >--
> >Michael
Sorry, stupid question.
Michael.
------------------------------
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 552
*************************************
