[9853] in Perl-Users-Digest
Perl-Users Digest, Issue: 3447 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Aug 14 12:08:22 1998
Date: Fri, 14 Aug 98 09:01: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 Fri, 14 Aug 1998 Volume: 8 Number: 3447
Today's topics:
Re: Parsing Word to ASCII (Alastair)
Re: Parsing Word to ASCII <rootbeer@teleport.com>
Perl 5_002 and Dynix/ptx 4.4.x <work@cadaway.cix.co.uk>
Re: Perl Style <tchrist@mox.perl.com>
Re: Perl Style <cee123@ibm.net>
Re: Perl Style (Matt Knecht)
perl4.036 rook_ki@hotmail.com
Re: Q: How to read all the file name in a directory <tchrist@mox.perl.com>
Re: Q: Problems with <system> command <gcoulomb@gpu.srv.ualberta.ca>
Socket errno of ETIMEDOUT (how do I get the symbol ETIM <anibal@nortel.ca>
Re: Substitution <jdw@alder.dev.tivoli.com>
Re: Substitution (Ollie Cook)
Re: SW Eng Mgr - Cutting Edge Pre IPO (-)
timeout or time limiting function <jimh@corp.sgi.com>
Re: timeout or time limiting function <tchrist@mox.perl.com>
Re: timeout or time limiting function <jdf@pobox.com>
Re: verify password <admin@kewl.com.au>
Re: verify password <rootbeer@teleport.com>
Re: Win NT Formmail and opening temporary files (Bill Mezian)
year 2000 delete question (Steve .)
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 14 Aug 1998 15:07:33 GMT
From: alastair@psoft.co.uk (Alastair)
Subject: Re: Parsing Word to ASCII
Message-Id: <6r1jrl$7q7@handupme.avid.com>
Finn Calabro <fcalabro@aisvt.bfg.com> wrote:
>I'm looking for a script that will convert ms Word 97 documents to
>ascii. They eventually need to be in HTML, but I can get them from
>ascii to html. Thanks
>
strings <word doc>
might work for you. You might also want to check LAOLA at ;
http://wwwwbs.cs.tu-berlin.de/~schwartz/pmh/
I've never used it myself however.
--
Alastair
Avid Effects
alastair@psoft.co.uk
------------------------------
Date: Fri, 14 Aug 1998 15:46:33 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Parsing Word to ASCII
Message-Id: <Pine.GSO.4.02.9808140846200.10161-100000@user2.teleport.com>
On Fri, 14 Aug 1998, Finn Calabro wrote:
> I'm looking for a script that will convert ms Word 97 documents to
> ascii.
If you're wishing merely to _find_ (as opposed to write) programs,
this newsgroup may not be the best resource for you. There are many
freeware and shareware archives which you can find by searching Yahoo
or a similar service. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Fri, 14 Aug 1998 16:28:30 +0100
From: "Colin Adaway" <work@cadaway.cix.co.uk>
Subject: Perl 5_002 and Dynix/ptx 4.4.x
Message-Id: <6r1kun$53l$1@plutonium.compulink.co.uk>
Has anyone managed to successfully compile Perl (any version) under Dynix
4.4.x
I am not very knowledgeable about these things, but it would appear that I
am having problems with sockets. I get 'Symbol referencing errors' when
trying to compile miniperl. The undefined symbols are all sockets related.
I have followed the hints for dynix and dynixptx, but still get the above
error.
Can anyone help?
Colin
------------------------------
Date: 14 Aug 1998 13:38:54 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Perl Style
Message-Id: <6r1ele$ccq$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
Scott.L.Erickson@HealthPartners.com (Scott Erickson) writes:
:'||'. If I remember correctly, somewhere in the Camel book it says
:that Perl provides 'or', 'and', and 'not' as more readable
:alternatives to '||', '&&', and '!'. Plus, by using those I usually do
:not need to use parentheses.
You obviously haven't been where I have. When I see non-experts
claiming that they should use "or" instead of "||", it bothers
me, because they often write broken code like:
$a = f() or g();
You read what you read in the Camel because Larry believes strongly in
"or" for
syscall() or die;
I don't. That's because I can't get non-experts to understand the
difference between that and the assignment code above. perlop now
contains direct warnings about this issue.
And "more readable" is dubious at best. I don't expect non Perl
programmers to be able to read *OR MAINTAIN* Perl code until they bother
themselves to learn the langauge.
Anyone who thinks "or" is more legible than "||", or "BEGIN" is more
legible than "{", should go try playing the calculus without recourse
to any symbolic notation.
Man is, above all, the creature that abstracts -- the creature that
symbolizes. Enough with dinosaur programming already. If you want Cobol,
you know where to find it.
--tom
--
- Real programmers don't write specs - users should consider themselves lucky
to get any programs at all, and take what they get.
------------------------------
Date: Fri, 14 Aug 1998 11:10:44 -0400
From: Charles Engelke <cee123@ibm.net>
To: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Perl Style
Message-Id: <35D45374.2953@ibm.net>
Tom Christiansen wrote:
>[text snipped]
> You obviously haven't been where I have. When I see non-experts
> claiming that they should use "or" instead of "||", it bothers
> me, because they often write broken code like:
>
> $a = f() or g();
I have run into a similar problem with code like
return f() or g();
It seems that the "return" binds more tightly than the "or", so this is
equivalent to
return f();
I looked through the documentation and several books, and couldn't find
a clear statement on the syntax of "return". In this case, it seems to
behave more like a function call than a complete statement.
Charlie
------------------------------
Date: Fri, 14 Aug 1998 15:24:52 GMT
From: hex@voicenet.com (Matt Knecht)
Subject: Re: Perl Style
Message-Id: <8FYA1.223$801.1108151@news2.voicenet.com>
Tom Christiansen <tchrist@mox.perl.com> wrote:
>You obviously haven't been where I have. When I see non-experts
>claiming that they should use "or" instead of "||", it bothers
>me, because they often write broken code like:
>
> $a = f() or g();
Just to lend an actual real world example here, when I first started
with Perl, I'd often write something like:
sub foo {
my $arg = shift or 0;
...
}
Which is obviously wrong. Tom is the one who set me straight. It's all
too easy to make this mistake when you haven't *really* learned
precedence.
Using either either 'or' or '||' exclusivly is a mistake. Either one
will bloat your code with unnecessary parenthesis.
Better to save extra parenthesis for conditional statements so some
schmuck like me can bounce on the % key in vi. :)
--
Matt Knecht - <hex@voicenet.com>
------------------------------
Date: Fri, 14 Aug 1998 15:39:35 GMT
From: rook_ki@hotmail.com
Subject: perl4.036
Message-Id: <6r1lnn$kda$1@nnrp1.dejanews.com>
Hi,
I've been trying to compile perl4.036 on Solaris 2.5.1 for the last 2 days
with no luck. I kept getting the following errors:
ld: fatal: library -ldbm: not found
ld: fatal: library -lucb: not found
ld: fatal: File processing errors. No output written to perl
make: *** [perl] Error 1
I've tried leaving out those 2 flags but 'make test' will fail. Can anyone
help me please? Thanx. PLease reply to rook_ki@hotmail.com.
Dang.
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 14 Aug 1998 13:48:05 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Q: How to read all the file name in a directory
Message-Id: <6r1f6l$ccq$2@csnews.cs.colorado.edu>
[courtesy cc and a concrete answer denied to author as
a penalty for address munging, being replaced instead
with the flame he deserves for being a known lazy bastard
trying to get other people to read for him.]
:So I suppose
:what I need to do is to read in the names of all the files in that
:directory into an array, but I have no idea how to do this. you help
:would be greatly appreciated!
Let's see. You need a function that reads files from directories. Does
Perl not ship with complete documentation describing its functionality and
including examples? Is there not a manpage that describes Perl functions?
Can you not search that document for the relevant keywords you mentioned?
Does that manpage not contain at least two functions that will help you?
Do these documents not reside on your own system? Do you know have an
HTML version? Do you not realize that help is waiting there locally
for you?
Let me guess: you're a Windows ``programmer'', aren't you? Do you
know why Unix programmers make more money than Windows ``programmers''?
Because we Unix people know how to read the manual -- and you don't.
--tom
--
Procedure names should reflect what they do; function names should reflect
what they return. --Rob Pike
------------------------------
Date: Fri, 14 Aug 1998 08:07:09 -0600
From: Greg Coulombe <gcoulomb@gpu.srv.ualberta.ca>
Subject: Re: Q: Problems with <system> command
Message-Id: <35D4448D.AB4D1C81@gpu.srv.ualberta.ca>
Ken McNamara wrote:
>
> The only reliable method I've found for doing this is to redirect the output
> of pgp to a file - then when back in Perl, open the file and manipulate as
> required.
>
> There's probably other ways - but this one works well for me.'
>
> KenMc
You could also try using backticks to capture the output and then
examining $? for the return code.
--
Greg Coulombe
Programmer, Orlando Project
Faculty of Arts
University of Alberta
coulombe@cs.ualberta.ca
Don Diego de la Vega (Hopkins): Do you know how to use that thing?
Alejandro (Banderas): Of course, the pointy end goes into the other man.
-Mask Of Zorro
(They were talking about a sword, you pervert)
"It is easier to port a shell than a shell script."
-- Larry Wall
------------------------------
Date: 14 Aug 1998 09:40:18 -0400
From: Anibal Jodorcovsky <anibal@nortel.ca>
Subject: Socket errno of ETIMEDOUT (how do I get the symbol ETIMEDOUT)
Message-Id: <g5q3eaz65rx.fsf@nortel.ca>
Hi,
I'm using the Socket.pm module to talk to a POP3 server. At night it seems that
they reboot their NT server (that's new!).
Anyway, I am getting a "Connection timed out" in $ERRNO in a string
context. This is 238 in my platform (HP-UX 9). I tried to use the :errno.h from
POSIX but it seems that ETIMEDOUT (errno 238) is not part of POSIX. So,
without having to hardcode 238, hoe can I know when the socket connection timed
out?
thanks,
--
Anibal Jodorcovsky (o) (514) 765-8231
Nortel Technology (f) (514) 761-8505
Montreal, Canada <anibal@SPAM-nortel-remove.me.ca>
------------------------------
Date: 14 Aug 1998 07:46:06 -0500
From: Jim Woodgate <jdw@alder.dev.tivoli.com>
Subject: Re: Substitution
Message-Id: <obbtpnn33l.fsf@alder.dev.tivoli.com>
oliver.REMOVE.cook@bigfoot.DELETE.com (Ollie Cook) writes:
> I'm trying to map all forward-slashes in a scalar to underscores.
> Looking at my Perl book, Learning Perl, published by O'Reilly I
> thought the code
>
> $file =~ s/\//_/;
>
> would do the trick, but this only does the first forwardslash and
> leaves the rest. I'm obviously doing something very stupid. A typical
> value for $file is "/ollie/pf/index.shtml"
try man perlop, and search for s/PATTERN, there is an option's section
that tells you the option you need to "Replace 'g'lobally, i.e., all
occurrences."
in there you'll also find that instead of escaping the '/', you can
also use alternate characters as delimters which might make your code
a bit more readable...
$file =~ s(/)(_)g;
you might also look at the tr/// command which would also work for you
here:
$file =~ tr|/|_|;
--
Jim Woodgate
Tivoli Systems
E-Mail: jdw@dev.tivoli.com
------------------------------
Date: Fri, 14 Aug 1998 15:06:50 GMT
From: oliver.REMOVE.cook@bigfoot.DELETE.com (Ollie Cook)
Subject: Re: Substitution
Message-Id: <35d4526b.7340190@news.ukonline.co.uk>
On Fri, 14 Aug 1998 11:37:38 GMT, Brent Michalski <perlguy@inlink.com>
wrote:
>Ollie, you had it SOOOOO close. You missed a "modifier" that goes on
>the end. Change it to:
>
>$file =~ s/\//_/g;
Hey! Thanks for the quick reply! I'm glad to see that I'm learning..
Best regards,
Ollie
----
Oliver COOK, Web Site Designer for
Premiere Web Designs - Http://Www.Premiere.Uk.Com/
+
Webmaster of The Audio-Visual Archive
* over 900 images and 700 sounds, free
* Http://Www.Premiere.Uk.Com/ava/
------------------------------
Date: Fri, 14 Aug 1998 14:26:55 GMT
From: root.noharvest.\@not_even\here.com (-)
Subject: Re: SW Eng Mgr - Cutting Edge Pre IPO
Message-Id: <35d446d5.252122945@news2.cais.com>
Brent Michalski <perlguy@inlink.com> Said this:
>careers_zland_com@my-dejanews.com wrote:
>>
>> ZLand is the #1 provider of web-based ERP solutions for small and mid-sized
>... Sure, I believe you ...
I don't. Everyone is "number one" when you ask THEM. You never hear
"We are the #7 provider of blah-blah-keyword-of-the-day" :)
>
>> ZLand is currently recruiting for two exceptional SOFTWARE ENGINEERING
>> MANAGERS.
>> Both will be faced with an infinite number of challenges as they
> ^^^^^^^^
>I'd rather have a finite number of challenges, infinite challenges tend
>to overwhelm mortals...
Hey... there are idiots out there aren't there? I'm sure someone is
bound to be looking for a job where they potentially will lose all of
their hair, develop heart problems, never see the light of day and
generally work themselves to death ;)
>
>> Excellent GROWTH opportunity as we double the size of our Engineering
>> department in the immediate future.
>Between the lines: They currently have 2, and are hiring 2 more...
Hehehe... good one.
>
>>Significant STOCK OPTIONS upon hire.
>Between the lines: The pay sucks, but we'll give you worthless stock to
>make up for it.
Hence the dangling of the prospect of an IPO. I've negotiated two
acquisitions on some of my startups, and every time, the companies
were very cautious about making sure they NEVER said outright that
they planned an IPO. Now, these companies wanted to buy my startups
with mostly stock, so you would think they'd want to pile on the IPO
prospect to drive up the value of their stock in my mind, but they
were very adamant about NEVER saying outright "We plan our IPO for 18
months". I don't know SEC regulations at all, but I get the
impression there is some amount of impropriety in talking about IPO
plans to outsiders. Every company I've dealt with would "agree" with
my assumptions, at best, but they would never ever say it directly. I
doubt it was just being "coy".
>
>> KEY WORDS: Lotus Notes / Domino / CORBA / Java / C++ / VB / Delphi / IIOS /
>> OOA / OOD / Oracle
>
>NO PERL!!! Obviously they are going nowhere with this company :-)
OOOPS. This looks like a microsoft shop. Stay away from them!!!
They'll fall flat on their faces when their NT servers all come
crashing down on them, or worse, they'll slowly bleed themselves to
death financially trying to keep up with processing demands.
------------------------------
Date: Fri, 14 Aug 1998 07:02:05 -0700
From: Jim Hubbard <jimh@corp.sgi.com>
Subject: timeout or time limiting function
Message-Id: <35D4435D.167E@corp.sgi.com>
Hi!
Does anyone have a method of limiting the time a call
has to return results?
ie. timeout 20 `rsh guest@foo date`
Where the statement would timeout in 20 seconds if it
failed to return results (in this case the system date)?
Thanks in advance!
Jim.
aaanalyst@sgi.com
midwatch@sgi.com
zedwatch@sgi.com
------------------------------
Date: 14 Aug 1998 14:25:54 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: timeout or time limiting function
Message-Id: <6r1hdi$e5v$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
Jim Hubbard <jimh@corp.sgi.com> writes:
:Does anyone have a method of limiting the time a call
:has to return results?
:
:ie. timeout 20 `rsh guest@foo date`
:
:Where the statement would timeout in 20 seconds if it
:failed to return results (in this case the system date)?
Sure, I do. That's why it's explained in the standard faqpages and
manpages. Grepping in them for what you're looking for yeilds about
a dozen hits.
*WHY* do people come here before grepping in their own documentation?
Surely they can't *ALL* be brain-demolished Prisoners of the Evil Empire,
can they? :-(
--tom
--
I'm a programmer: I don't buy software, I write it.
--Tom Christiansen
------------------------------
Date: 14 Aug 1998 10:52:18 -0500
From: Jonathan Feinberg <jdf@pobox.com>
To: Jim Hubbard <jimh@corp.sgi.com>
Subject: Re: timeout or time limiting function
Message-Id: <iujvef2l.fsf@mailhost.panix.com>
Jim Hubbard <jimh@corp.sgi.com> writes:
> Does anyone have a method of limiting the time a call
> has to return results?
The documentation for the alarm() builtin includes sample code to do
just that.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf/
------------------------------
Date: Sat, 15 Aug 1998 00:39:14 +1000
From: "Craig Nuttall" <admin@kewl.com.au>
Subject: Re: verify password
Message-Id: <6r1i6g$dkq$1@nswpull.telstra.net>
My problem is that I can't seem to get the script to run as root,
chown root.root filename
chmod 7666 filename
have even tried camel's suggestion $> = 0
all I get back is "can't do setuid"
OS is Debian, anyone got a work around for this ?????
Thanks for all your e-mail help Andrew, have subscribed to "The
Perl Journal" and ordered back copies.
Andrew Perrin <aperrin@mcmahon.qal.berkeley.edu> wrote in message
35D1C2CB.869193D3@mcmahon.qal.berkeley.edu...
>My understanding of this is that this is expected behavior --
only root is
>allowed to read the shadow file. If I'm wrong, I'd love to be
corrected....
>
>I think the most secure way of dealing with this is to write
another little
>script that runs as root and can take the password your user is
sending as
>input, check it against shadow, and return a true or false
value. The reason
>for doing it in a separate script is to minimize code running as
root.
>
>There's an additional problem that if you just send the password
as an argument
>to the script, it will show up (albeit for a very short time) in
the output of
>ps, thus creating a security risk. If you want to deal with
this, I think you
>need to use IPC (something like open2) to open a bidirectional
pipe between the
>two scripts; then you can send the password to be tested over
the pipe.
>
>Of course, if you're less concerned with security you can just
cross your
>fingers and run the whole script as root -- easier but
potentially more
>problematic.
>
>Andy Perrin
------------------------------
Date: Fri, 14 Aug 1998 15:52:46 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: verify password
Message-Id: <Pine.GSO.4.02.9808140850100.10161-100000@user2.teleport.com>
On Sat, 15 Aug 1998, Craig Nuttall wrote:
> My problem is that I can't seem to get the script to run as root,
On some systems, the kernel doesn't allow set-id scripts. In that case,
Perl should (almost certainly) be compiled to make that possible. Hope
this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Fri, 14 Aug 1998 14:22:01 GMT
From: bill@sky-comm.net (Bill Mezian)
Subject: Re: Win NT Formmail and opening temporary files
Message-Id: <35d445c7.7727857@sky2.sky-comm.net>
On Thu, 13 Aug 1998 13:30:45 -0700, CRC <comeng@erols.com> wrote:
Response follows below. E-mail sent to author.
>peaceml here
>
>Bill Mezian wrote:
>
>> Why would you want the tempfile hanging around anyway? One problem in
>> doing it this way is if you have multiple users using the script at
>> one time there can be a problem with the tempfile. I use the
>> following rand routine to generate a unique tempfile, and then unlink
>> it after the mail is sent.
>
>In reality the file is not a temporary file but a SENDMAIL.INI required
>by softmail.exe, which will contain information extracted from the
>form. The SENDMAIL.INI needs to go into the Windows System Directory
>(i.e. WinNT). The problem I have is that I run softmail.exe with the
>the system command (much like Matt's starting of Windmail) from the perl
>script, I can't unlink the SENDMAIL.INI file (my guess is that since
>softmail is using the file, the unlink command fails and the file is
>left hanging around).
>>
>> # Create Tempfile name
>>
>> srand;
>>
>> $tempfile='temp'.int(rand(9)).int(rand(9)).int(rand(9)).int(rand(9)).'.txt';
>>
>> # Output a temporary file
>>
>> open(MAIL,">$tempfile") || die("Cannot open tempfile -- Check
>> Directory Permissions : $!");
>>
>I don't have the luxury of using the random file name because
>softmail.exe requires a SENDMAIL.INI file. Maybe I'll try another
>mailer program (suggestions are welcomed).
Why don't you install BLAT? Iw works great as a command line mail
interface, and Matt even has a script to use it. Another solution
would be to use a script with a sockets routine. Below is a library
routine to work with Selena Sol's form_processor.pl. Just rename it
mail-lib.pl and put it in the Library subdir. This can be used as a
send_mail subroutine for many e-mail scripts.
Good Luck
Bill
######## BEGIN CODE##########
sub send_mail ###sockets_mail
{
local $smtp_addr = 'ADDRESS OF YOUR SMTP SERVER HERE';
local $from = 'YOUR E-MAIL ADDRESS HERE';
# no need to escape the @ sign
my ($email_of_sender, $email_to, $email_subject, $email_body) =
@_;
my ($replyaddr) = $email_of_sender;
if (!$email_to) { return -8; }
my ($proto, $port, $smptaddr);
my ($AF_INET) = 2;
my ($SOCK_STREAM) = 1;
$proto = (getprotobyname('tcp'))[2];
$port = 25;
$smtpaddr = ($smtp_addr =~
/^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/)
? pack('C4',$1,$2,$3,$4)
: (gethostbyname($smtp_addr))[4];
if (!defined($smtpaddr)) { return -1; }
if (!socket(S, $AF_INET, $SOCK_STREAM, $proto)) {
return -2; }
if (!connect(S, pack('Sna4x8', $AF_INET, $port, $smtpaddr))) {
return -3; }
my($oldfh) = select(S); $| = 1; select($oldfh);
$_ = <S>; if (/^[45]/) { close S; return -4; }
print S "helo localhost\r\n";
$_ = <S>; if (/^[45]/) { close S; return -5; }
print S "mail from: $from\r\n";
$_ = <S>; if (/^[45]/) { close S; return -5; }
print S "rcpt to: $email_to\r\n";
$_ = <S>; if (/^[45]/) { close S; return -6; }
print S "data\r\n";
$_ = <S>; if (/^[45]/) { close S; return -5; }
print S "X-Mailer: SMTP Sendmail \r\n";
print S "Mime-Version: 1.0\r\n";
print S "Content-Type: text/plain; charset=us-ascii\r\n";
print S "To: $email_to\r\n";
print S "From: $email_of_sender\r\n";
print S "Reply-to: $replyaddr\r\n" if $replyaddr;
print S "Subject: $email_subject\r\n\r\n";
print S "$email_body";
print S "\r\n.\r\n";
$_ = <S>; if (/^[45]/) { close S; return -7; }
print S "quit\r\n";
$_ = <S>;
close S;
return 1;
}
1;
############ END CODE ###############
>
>>
>> I hope this helps.
>> Bill
>
>Thanks for trying.
>John
------------------------------
Date: Fri, 14 Aug 1998 15:50:23 GMT
From: syarbrou@ais.net (Steve .)
Subject: year 2000 delete question
Message-Id: <35d45c5f.2157702@news.ais.net>
I have a script in which finishes up by deleting all files older than
90 days on a Solaris box. The line is:
find /home/cpws/cpws/archive -name "*.gz" -mtime +90 -exec rm {} \;
Anything I should worry about when the year 2000 hits? Thanks.
Steve
------------------------------
Date: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 3447
**************************************
