[10011] in Perl-Users-Digest
Perl-Users Digest, Issue: 3604 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Sep 1 08:04:41 1998
Date: Tue, 1 Sep 98 05:00:27 -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 Tue, 1 Sep 1998 Volume: 8 Number: 3604
Today's topics:
[Perl] How to find the Perl FAQ <rootbeer&pfaq*finding*@redcat.com>
ANN: Amsterdam.pm zeroth meeting (Thursday!) <l.brocard@elsevier.nl>
Re: Another RexX Question. huntersean@hotmail.com
Re: DESTROY problems <ets@egnetz.uebemc.siemens.de>
Re: even or odd <a.g.macinnes@rl.ac.uk>
Re: FMTEYEWTK on Switch Statements in Perl (was: No swi <rra@stanford.edu>
Re: Help on running perl scripts on MS-DOS (Win NT4 act (Bob Trieger)
install perl on mingw32 with gcc massimobalestra@my-dejanews.com
Need a search-script that can be run from a link! <trygve.lie@avisa-st.no>
Perl Database library? (Neil McIver)
Re: perl regex bug? (or feature?) (Peter J. Kernan)
Re: unlinking file if <= 1 hour huntersean@hotmail.com
Re: what's wrong with this statement? (Chris Williams)
Re: what's wrong with this statement? <r.i.h.powell@rl.ac.uk>
Re: Y2K Date Support <sneaker@sneex.fccj.org>
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 01 Sep 1998 10:24:02 GMT
From: Tom Phoenix <rootbeer&pfaq*finding*@redcat.com>
Subject: [Perl] How to find the Perl FAQ
Message-Id: <pfaqmessage904645441.21196@news.teleport.com>
Archive-name: perl-faq/finding-perl-faq
Posting-Frequency: weekly
Last-modified: 05 Aug 1998
[ That "Last-modified:" date above refers to this document, not to the
Perl FAQ itself! The last major update of the Perl FAQ was in Summer of
1998; of course, ongoing updates are made as needed. ]
For most people, this URL should be all you need in order to find Perl's
Frequently Asked Questions (and answers).
http://cpan.perl.org/doc/FAQs/
Please look over (but never overlook!) the FAQ and related docs before
posting anything to the comp.lang.perl.* family of newsgroups.
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
Beginning with Perl version 5.004, the Perl distribution itself includes
the Perl FAQ. If everything is pro-Perl-y installed on your system, the
FAQ will be stored alongside the rest of Perl's documentation, and one
of these commands (or your local equivalents) should let you read the FAQ.
perldoc perlfaq
man perlfaq
If a recent version of Perl is not properly installed on your system,
you should ask your system administrator or local expert to help. If you
find that a recent Perl distribution is lacking the FAQ or other important
documentation, be sure to complain to that distribution's author.
If you have a web connection, the first and foremost source for all things
Perl, including the FAQ, is the Comprehensive Perl Archive Network (CPAN).
CPAN also includes the Perl source code, pre-compiled binaries for many
platforms, and a large collection of freely usable modules, among its
560_986_526 bytes (give or take a little) of super-cool (give or take
a little) Perl resources.
http://cpan.perl.org/
http://www.perl.com/CPAN/
http://cpan.perl.org/doc/FAQs/FAQ/html/perlfaq.html
http://www.perl.com/CPAN/doc/FAQs/FAQ/html/perlfaq.html
You may wish or need to access CPAN via anonymous FTP. (Within CPAN,
you will find the FAQ in the /doc/FAQs/FAQ directory. If none of these
selected FTP sites is especially good for you, a full list of CPAN sites
is in the SITES file within CPAN.)
California ftp://ftp.cdrom.com/pub/perl/CPAN/
Texas ftp://ftp.metronet.com/pub/perl/
South Africa ftp://ftp.is.co.za/programming/perl/CPAN/
Japan ftp://ftp.dti.ad.jp/pub/lang/CPAN/
Australia ftp://cpan.topend.com.au/pub/CPAN/
Netherlands ftp://ftp.cs.ruu.nl/pub/PERL/CPAN/
Switzerland ftp://sunsite.cnlab-switch.ch/mirror/CPAN/
Chile ftp://ftp.ing.puc.cl/pub/unix/perl/CPAN/
If you have no connection to the Internet at all (so sad!) you may wish
to purchase one of the commercial Perl distributions on CD-Rom or other
media. Your local bookstore should be able to help you to find one.
Another possibility is to use one of the FTP-via-email services; for
more information on doing that, send mail to <mail-server@rtfm.mit.edu>
(not to me!) with these lines in the body of the message, flush left:
setdir usenet-by-group/news.announce.newusers
send Anonymous_FTP:_Frequently_Asked_Questions_(FAQ)_List
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
Comments and suggestions on the contents of this document
are always welcome. Please send them to the author at
<pfaq&finding*comments*@redcat.com>. Of course, comments on
the docs and FAQs mentioned here should go to their respective
maintainers.
Have fun with Perl!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 01 Sep 1998 12:14:13 +0100
From: Leon Brocard <l.brocard@elsevier.nl>
Subject: ANN: Amsterdam.pm zeroth meeting (Thursday!)
Message-Id: <35EBD705.B4CF2EC7@elsevier.nl>
This is the two-day warning for the Amsterdam.pm zeroth meeting.
Ignore if you're not in Amsterdam and don't know about perl.
Also ignore if you're a dancing chihuahua...[1]
Who are we?
Perl Mongers is akin to a Perl Users' Group.
Amsterdam.pm is just starting up.
What will we do?
Provide a meeting place for Perl users in and around Amsterdam.
When is the meeting?
We're meeting at around 6.30pm on Thursday 3rd Sept.
at a bar called De Wildemans on Nieuwezijds Kolk.
Topic?
Bots and Perl. Or beer...
Info?
http://www.pm.org/ or leon@astray.com
Leon
[1] Those crazy NY.pm people...
--
Leon Brocard...............................................Perl Hacker
l.brocard@elsevier.nl...........................http://www.astray.com/
... Suicide is the most sincere form of self criticism.
------------------------------
Date: Tue, 01 Sep 1998 09:41:53 GMT
From: huntersean@hotmail.com
Subject: Re: Another RexX Question.
Message-Id: <6sgfh0$vp9$1@nnrp1.dejanews.com>
If you can't be bothered to write "regex" correctly in your header, I don't
see why anyone should help you, however...
You'd be much better off with something like:
($url, $title, $description) = $content =~
m|<li><a href="http://(.*?)">(.*?)</a>(.*?)<|i
Two imporvements:
1) You're matching into three named variables, not a IMHO meaningless array
2) You're using an explicit "m" to allow you to change your regex delimiter,
thus avoiding having to escape all your slashes (so-called "leaning toothpick
syndrome")
Now you add a newline to $description by doing this:
$description .= "\n";
If you absolutely have to have them in the array, you can then easily go...
@links = ($url, $title, $description);
I suspect that you don't know very much about perl, and have got a cgi script
and are just trying to get it to work. Get "Learning perl".
Sean H
In article <6sc6c4$u29$1@nnrp1.dejanews.com>,
chad@gurucom.net wrote:
>
>
> Hi,
>
> ok this works fine:
>
> @links = $content =~ /<li><a href="http:\/\/(.*?)">(.*?)<\/a>(.*?)</i
>
> and saves the URL, TITLE and DESCRIPTION in the @links array, but I want a
> new line '\n' after the description. How do I do that? So it come out like
> this:
>
> URL TITLE DESCRIPTION
> URL TITLE DESCRIPTION
> URL TITLE DESCRIPTION
>
> etc ...
>
> thanks,
>
> -chad
>
> -----== Posted via Deja News, The Leader in Internet Discussion ==-----
> http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
>
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Tue, 01 Sep 1998 12:10:04 +0200
From: "Hr. Jochen Stenzel" <ets@egnetz.uebemc.siemens.de>
To: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: DESTROY problems
Message-Id: <35EBC7FC.9B1B3D6B@egnetz.uebemc.siemens.de>
Hello,
> > By the way, I never knew that exit() sets $?. I found no hint in
> > "Programming Perl" neither in the overview of special variables nor in
> > the description of exit() nor in the notes about DESTROY(). Where else
> > should I have made the search?
>
> This one is mentioned in perlvar, at least. But it is a somewhat
> underdocumented feature, albeit one that few ever need. Cheers!
Well! I found it in perlvar now, improved from 5.003 to 5.005. (However, I
saw no explicit exit()-hint for $? ... ;-)
This is seldomly used, I agree. But, just an idea - looking back to my
original problem - perhaps a hint in DESTROY() notes could be helpful for
module authors: a hint to localize $? in DESTROY() methods if $? is
possibly modified there - because a module user may have an instanciated
object if he calls exit().
OK, I've learned something more about Perl. Thanks!
Jochen
------------------------------
Date: Tue, 01 Sep 1998 09:30:02 +0100
From: Andrew MacInnes <a.g.macinnes@rl.ac.uk>
Subject: Re: even or odd
Message-Id: <35EBB089.8AB827B0@rl.ac.uk>
> > $temp = $your_number % 2; # MOD
> > if ($temp == 0)
> > {
> > print $temp;
> > }
>
> This looks to me like it prints a load of zeros! Maybe you meant
>
> if ($temp == 0)
> {
> print $your_number;
> }
Damn. Shoulda checked...
Cheers Dave, I'll just go and bury my head in the sand.
--
Andrew MacInnes
- RAL, DCI, E-mail:A.G.MacInnes@rl.ac.uk -
- R27 - F31 Telephone (direct): (01235)44610 -
- Chilton, Didcot Telephone (Mobile): 07775 943273 -
- Oxon, OX11 0QX http://www.dci.rl.ac.uk -
------------------------------
Date: 01 Sep 1998 04:49:40 -0700
From: Russ Allbery <rra@stanford.edu>
Subject: Re: FMTEYEWTK on Switch Statements in Perl (was: No switch statement in Perl??)
Message-Id: <m3btp0njcb.fsf@windlord.Stanford.EDU>
Tom Christiansen <tchrist@mox.perl.com> writes:
> That means that seeing repeated instances of a nearly identical thing,
> like this:
> if ($who eq "Fred") { ... }
> if ($who eq "Barney") { ... }
> if ($who eq "Wilma") { ... }
> makes any programmer worth his salt say, ``That's too much similarity in
> code. It should be in data!'' And indeed, it probably should be, and
> like most interesting data structures in Perl, this should likely be
> based on a hash. Here's what you could do instead:
> CASE 17:
> %action = (
> "Fred" => \&greet,
> "Barney" => \&shuffle,
> "Wilma" => \&chat,
> # add as you will
> );
> if ($verb = $action{$who}) {
> &$verb();
> } else {
> die "unknown character: $who";
> }
Speaking of this general technique, I had an opportunity to use something
like this recently. The idea is that I have a program that takes a
subcommand on the command line, sort of like CVS, so I can say things
like:
wrap prep <module>
or:
wrap build
and "prep" and "build" are subcommands. One of the design goals of this
system was for any user to be able to transparently define their own
subcommands just by writing code and sticking it in ~/.wrap.pl. So what I
ended up doing was something very similar to what Tom's doing above, but
for my hash table I used Perl's symbol table and ended up with:
# Execute the wrap command, passing it a reference to the options and a
# reference to the wrap file section.
no strict 'refs';
eval { &{'do_' . $command} ($module) };
use strict 'refs';
if ($@) {
if ($@ =~ /^Undefined subroutine &main::do_(\w+)/) {
die "$0: unknown command $1\n";
} else {
die $@;
}
}
Semi-scary bit of code, but it means that all you have to do is define a
do_foo() sub in your .wrap.pl and suddenly you can type "wrap foo" on the
command line and it does the right thing. No further program state to
update, no complicated data structure to maintain.
--
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
------------------------------
Date: Tue, 01 Sep 1998 08:39:42 GMT
From: sowmaster@juicepigs.com (Bob Trieger)
Subject: Re: Help on running perl scripts on MS-DOS (Win NT4 actually)
Message-Id: <6sgc2q$m3d$1@ligarius.ultra.net>
[ posted to usenet and courtesy e-mail sent to edew@netcom.com]
edew@netcom.com (Eric Dew) wrote:
-> In article <6sfr2f$cso$1@ligarius.ultra.net> sowmaster@juicepigs.com (Bob
-> Trieger) writes:
-> >[ posted to usenet and courtesy e-mail sent to edew@netcom.com ]
-> >edew@netcom.com (Eric Dew) wrote:
-> >Well, what happened when you tried it?
->
-> If I did C:\per5>perl perlscript ... it said:
->
-> Bare word found where operator expected at perlscript.pl line 1, near "echo
-> off"
-> (Missing operator before off?)
-> syntax error at perlscript.pl line 2, next token ???
-> Array found where operator expected at perlscript.pl line 3, near "@rem"
-> (Missing semicolon on previous line?)
Are you trying to execute a perl script or a DOS bat?
Post the first couple of lines from your script. you obviously have an
error on line 2.
-> >-> So, how to do I tell it to change drives to F:\ ? I'm putting in the
-> >-> line,
-> >-> `F:\`;
-> >-> wherever I need to change to drive F.
-> >
-> >Why are you doing that. Have you tried: chdir "f:/";
->
-> Because to change to another drive on DOS, one types:
-> C:\>D:
-> to get to
-> D:\>
Once again, are you writing a perl script or a DOS bat?
I know how to change disks in DOS and as an added bonus, I also know how
to do it in perl.
-> Thus, using chdir (which I would assume will equal to cd on DOS) will not
-> work, because
-> C:\>cd D:
-> does not change the drive to D:\>.
What do you mean `will not work'? Have you tried it or are you going to
argue about what you think it will do?
-> >You must escape the backwhacks if you insist on using them but it is
-> >much easier to just use a single slash.
-> >
-> >IE:
-> > chdir "f:/";
-> > chdir "/$dir1/$dir2/$dir3";
-> >
-> Again, on DOS,
-> cd dir1/dir2
-> does not make sense. DOS prompt returns:
-> The syntax of the command is incorrect
-> (Meaning the forward slash is wrong.)
For the last time, are you writing a perl script or a DOS bat?
-> So, your suggestion, chdir "f:/"; will result in NOT changing to the F:
-> drive (at least that's what I'm guessing...as I said before and below, if
-> I can get it running, even with bugs, I can guess how to fix the paths)
-> and chdir "/$dir1/$dir2/"; will not result in cd-ing to the proper directory.
Guessing? What is stopping you from trying it?
Good luck
Bob Trieger
sowmaster@juicepigs.com
------------------------------
Date: Tue, 01 Sep 1998 09:01:48 GMT
From: massimobalestra@my-dejanews.com
Subject: install perl on mingw32 with gcc
Message-Id: <6sgd5r$t5p$1@nnrp1.dejanews.com>
I am trying to install perl 5.005_51 on mingw32 with gcc.
I did not find a makefile for this installation and the documentation is poor
for mingw32 (is a little better for visual C++ and Borland C++).
Dose someone has clues (and maybe a makefile) for this installation?
Thank you in advance.
Ciao
Massimo
__________________________
/ | ____ \ _____ \ The opinions expressed are those of
| | | \ |/ ___| | the writer and not of PPG
| ____ | | | / | Industries, Inc. nor of any
|| _ \| | | | __ | PPG-associated companies.
|| |_| |____/ |\ | | ||
|| ___/| || \_| ||
|| | | |\_____/ \_____|| Massimo Balestra
|| | | | | PPG Industries Italia
||_| | | | via Serra, 1
| | | | I-15028 Quattordio (AL)
| | | | Italy
| |__| | phone +39-0131-770.507
\__________________________| EMail: balestra@ppg.com
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Tue, 01 Sep 1998 10:18:08 +0200
From: Trygve Lie <trygve.lie@avisa-st.no>
Subject: Need a search-script that can be run from a link!
Message-Id: <35EBADBF.ACF45132@avisa-st.no>
Hi
This is my first post so I suppose I'm a newbie. Have done a lot of html
work, and worked with som free premade scripts. So, I'm a lamer to
writing perl.
Hope to learn to write my own scripts one day, but now I need a script
fast:
I have a directory on my web that contains a lot of *.html files and it
changes all the time. It's a hell to administrate. All the *.html files
contains KeyWords.
I need a smal and free search-script that I can call from a link. Ex:
http:\\www.mysite.net\cgibin\search.pl?fish or something. Something
where I can put the search word behind the .pl in the url and get a list
over the pages where the list uses the information in the Title tag of
the pages.
It must also be able to search with it through submission from a fillin
form on a webpage.
Would also be nice if it ran on both UNIX and NT (Perl for win32).
Pleas mail me at trygve.lie@avisa-st.no or post a url.
Thanks for a great newsgroup :-)
Trygve Lie
------------------------------
Date: Tue, 01 Sep 1998 08:56:43 GMT
From: neil@cjmciver.com (Neil McIver)
Subject: Perl Database library?
Message-Id: <fFOG1.735$K41.1242865@newsread.com>
I've been doing Perl for about 3 years now and have decided
that it would be really neat if perl had a stronger database
ability beyond the quick & dirty DBM data system. Something
that could handle large numbers of multiple records without
swelling into a 500k file (which I've noticed DBM's can do
with a few large fields).
I looked briefly a few months ago but didn't find anything
like that so I started writing my own, modeling it after the
"dbase" database format. I'm off to a good start, but just
to make sure I'm not re-inventing the wheel, does anyone know
if there's already something in existance like this? Basically
I'm thinking of a library of perl functions for creating &
maintaining moderate amounts of data (thousands of records
& hundreds of fields) in a reasonably efficient file, with
indexing. I'll feel a little stupid if there is, but please
don't spare me.
If there isn't and anyone's interested I'll be happy to
shareware what I've got so far.
Cheers,
Neil
------------------------------
Date: 1 Sep 1998 08:10:32 GMT
From: pete@cwru.edu (Peter J. Kernan)
To: Uri Guttman <uri@sysarch.com>
Subject: Re: perl regex bug? (or feature?)
Message-Id: <6sga5o$mn8$1@pale-rider.INS.CWRU.Edu>
[Posted and mailed to cited author]
In article <x7lno62hu3.fsf@sysarch.com>,
>>>>>> "URI"== Uri Guttman <uri@sysarch.com> writes:
URI> maybe it's a bug in 5.005!!
i took the implied advice and went out and got 5.005_02.
which seems to be consistent at least.
print STDOUT ("\n" =~ /^$/) ? "consistent\n" : "inconsistent\n";
print STDOUT ("\n\n" =~ /^\n$/) ? "consistent\n" : "inconsistent\n";
print STDOUT ("be\n\n" =~ /^..\n$/) ? "consistent\n" : "inconsistent\n";
print STDOUT ("be\n\n" =~ /^be\n$/) ? "consistent\n" : "inconsistent\n";
consistent
consistent
inconsistent
consistent
This is perl, version 5.004_04 built for i586-linux
consistent
consistent
consistent
consistent
somehow the .. fouls things up
This is perl, version 5.005_02 built for aix
--
Pete Kernan CWRU Physics and Statistics Depts
http://theory2.phys.cwru.edu/~pete
------------------------------
Date: Tue, 01 Sep 1998 10:17:27 GMT
From: huntersean@hotmail.com
Subject: Re: unlinking file if <= 1 hour
Message-Id: <6sghjm$29g$1@nnrp1.dejanews.com>
In article <6sek89$mcr$1@nnrp1.dejanews.com>,
dwiesel@my-dejanews.com wrote:
> Hi,
>
> How do I unlink all files that is more than 1 hour old (creation or updated
> does not matter) from a directory?
>
> // Daniel
>
> -----== Posted via Deja News, The Leader in Internet Discussion ==-----
> http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
>
stat
stat stat
stat stat stat
Sean Hunter
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Tue, 01 Sep 1998 09:18:30 GMT
From: chrisw@dynamite.com.au (Chris Williams)
Subject: Re: what's wrong with this statement?
Message-Id: <35ebb950.5362168@news.dynamite.com.au>
On Fri, 28 Aug 1998 14:02:02 +0100, <@thefree.net> wrote:
>print "<HTML>\n<HEAD>\n<META NAME=\"description\" CONTENT=\"Own your own
>English vineyard.\"> \n<META NAME=\"keywords\" CONTENT=\"vineyards, wine,
>vines, england, hobbies, pool valley, vesma, gift, present, birthday, West
Many lines of hieroglyphic gibberish removed
>Ltd.\"></A></TD></TR><TR><TD><A HREF=\"index.html\"><IMG SRC=\"home.gif\"
>BORDER=\"0\"></A></TD></TR></TABLE><TABLE BORDER=\"0\" CELLPADDING=\"5\"
>WIDTH=\"490\"><TR><TD><TABLE BORDER=\"0\" WIDTH=\"100%\" CELLPADDING=\"0\"
>CELLSPACING=\"0\"><TR VALIGN=\"top\"><TD><p><br><br><BR>";
>
>
The answer to the question you asked is: nothing. Perl prints
exactly what you asked for :-(
This is NOT a Perl question.
The HTML is probably invalid, and in the current state it's also
impossible to debug.
Suggestions:
1. Use a 'here' document in the Perl to allow simplification of
the HTML (removes the \" and \n stuff)
2. Format the HTML so that a human can read it! The browser
will ignore whitespace, but your brain needs it to have any chance of
reading the HTML.
3. Run the output of the script through an HTML editor and save
it - it'll probably correct the HTML which you can then just cut and
paste into your Perl script.
Something like this results from about five minutes work with
Communicator's editor:
print <<'__END_OF_HTML';
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;
charset=iso-8859-1">
<META NAME="description" CONTENT="Own your own English
vineyard.">
<META NAME="keywords" CONTENT="vineyards, wine,vines, england,
hobbies, pool valley, vesma, gift, present, birthday, Westof England,
UK">
<META NAME="GENERATOR" CONTENT="Mozilla/4.04 [en] (Win95; I)
[Netscape]">
<TITLE>West of England Vineyards - Article</TITLE>
<STYLE TYPE="text/css">
<!--
A:link
{font-size:12px;color:#000000;text-decoration:
none;font-family:Arial;}
A:visited
{font-size:12px;color:#000000;text-decoration:
none;font-family:Arial;}
A:hover { font-weight:bold; }
TextA
font-size:14px;color:#000000;font-family:Arial; }
P
font-size:14px;color:#000000;font-family:Arial; }
#LinkHeading
{
font-size:17px;color:#000000;text-decoration:
none;font-family:Arial;
}
#BlockLink
{
font-size:14px;color:#000000;text-decoration:
none;font-family:Arial;
}
#Foot
{
font-size:9px;color:#AEAEAE;text-decoration:
none;font-family:Arial;
}
-->
</STYLE>
</HEAD>
<BODY TEXT="#000000" BGCOLOR="#FFFFFF" TOPMARGIN="0" LEFTMARGIN="0"
MARGINWIDTH="0" MARGINHEIGHT="0">
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH="100%" >
<TR VALIGN=TOP>
<TD WIDTH="140" BGCOLOR="#9FD4B0">
<TABLE BORDER=0 CELLPADDING=10 >
<TR VALIGN=TOP>
<TD><B><A HREF="ov.html" ID="LinkHeading">Your
Own </A></B>
<BR><B><A HREF="ov.html"
ID="LinkHeading">Vineyard</A></B>
<BR><A HREF="ov_gift.html">A perfect
present</A>
<BR><A HREF="ov_yq.html">Your questions</A>
<BR><A HREF="ov_cost.html">What it costs</A>
<BR><A HREF="ov_print.html">The small
print</A>
<P><B><A HREF="pv.html" ID="LinkHeading">Pool
Valley</A></B>
<BR><A HREF="pv_people.html">The people</A>
<BR><A HREF="pv_place.html">The place</A>
<BR><A HREF="pv_diary.html">Vineyard diary</A>
<BR><A HREF="pv_rabbit.html">Rabbit update</A>
<BR><A HREF="pv_waefre.html">Waefre</A>
<P><B><A HREF="fu.html" ID="LinkHeading">Find
Us</A></B>
<BR><A HREF="fu.html">Where are we?</A>
<P><B><A HREF="jff.html" ID="LinkHeading">Just
for </A></B>
<BR><B><A HREF="jff.html"
ID="LinkHeading">Fun</A></B>
<BR><A HREF="jff_bore.html">Wine bore quiz</A>
<BR><A HREF="jff_capcomp.html">Caption
comp</A>
<BR><A HREF="jff_trays.html">Plastic trays</A>
<P><B><A HREF="ar.html"
ID="LinkHeading">Articles</A></B>
<BR><A HREF="ar_tractor.html">Half a
tractor</A>
<BR><A HREF="ar_smith.html">Ken Smith</A>
<BR><A HREF="ar_kettle.html">Singing
kettle</A>
<BR><A HREF="ar_brown.html">Tony Brown</A>
<BR><A HREF="ar_taste.html">Triffic
tastings</A>
<P><B><A HREF="gv.html"
ID="LinkHeading">On-Line</A></B>
<BR><B><A HREF="gv.html"
ID="LinkHeading">Grapevine</A></B>
<BR><A HREF="gv.html">Run our magazine</A>
<P><B><A HREF="int.html"
ID="LinkHeading">Interactive</A></B>
<BR><A HREF="int_see.html">Send a postcard</A>
<BR><A HREF="int_get.html">Pick up a
postcard</A>
<BR><A HREF="int_friend.html">Tell a
friend!</A>
<P><B><A HREF="sun.html"
ID="LinkHeading">Sunlight into </A></B>
<BR><B><A HREF="sun.html"
ID="LinkHeading">Wine</A></B>
<BR><A HREF="sun_prod.html">Perfect
Production</A>
<BR><A HREF="sun_sci.html">Science of
Winemaking</A>
<BR><A HREF="sun_spray.html">Spraying</A>
<BR><A HREF="sun_young.html">Young Vines</A>
<P><B><A HREF="em.html" ID="LinkHeading">Your
Letters & E-mails</A></B>
<BR><A HREF="em.html">Read all about it</A>
<P><B><A HREF="aa.html"
ID="LinkHeading">Around & About</A></B>
<BR><A HREF="aa_daf.html">Daffodils</A>
<BR><A HREF="aa_bob.html">Local walks</A>
<BR><A HREF="aa_pubs.html">Pubs</A>
<BR><A HREF="aa_guide.html">Ruff guide to
Gloucester</A></TD>
</TR>
</TABLE>
</TD>
<TD BGCOLOR="#FFFFFF">
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0
WIDTH="100%" BGCOLOR="#FFFFFF" >
<TR>
<TD>
<A HREF="index.html">
<IMG SRC="top.jpg" ALT="West of England
VineyardsLtd." BORDER=0 HEIGHT=46 WIDTH=479>
</A>
</TD>
</TR>
<TR>
<TD><A HREF="index.html"><IMG SRC="home.gif"
BORDER=0 ></A></TD>
</TR>
</TABLE>
<TABLE BORDER=0 CELLPADDING=5 WIDTH="490" >
<TR>
<TD>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0
WIDTH="100%" >
<TR VALIGN=TOP>
<TD>
<BR>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
__END_OF_HTML
------------------------------
Date: Tue, 01 Sep 1998 10:47:41 +0100
From: Rosemary I H Powell <r.i.h.powell@rl.ac.uk>
Subject: Re: what's wrong with this statement?
Message-Id: <35EBC2BD.74DC7FD1@rl.ac.uk>
Vincent Lowe wrote:
> Vincent Lowe wrote:
> >
> > Patrick Timmins wrote:
> >
> > > In article <6s6bif$dtk$2@ligarius.ultra.net>,
> > > sowmaster@juicepigs.com (Bob Trieger) wrote:
> > > [snip]
> > > > If you don't stop backwhacking, you'll go blind.
> > >
> > > That's just a myth.
> > >
> >
> > ...but the part about hair on your palms is not. Ask an old sed
> > programmer.
> >
> > ---v
> >
> ...lo, and he struck the stone three times. Water gushed forth, but
> he was forbidden forever to enter the promised land.
>
> ---v
> If you say it three times, it IS true.
>
> Rosemary
------------------------------
Date: Tue, 01 Sep 1998 07:02:46 -0400
From: Bill 'Sneex' Jones <sneaker@sneex.fccj.org>
Subject: Re: Y2K Date Support
Message-Id: <35EBD456.FE754883@sneex.fccj.org>
Jonathan Tapp wrote:
>
> Perl is semi-Y2K safe. It's date readout reads out the years past 1900.
> Therefore, October 10, 2002 (random date) would be 10/10/102 in Perl. Okay,
> It's a little weird. See if you can't snip off the '1' in '102'.
>
> Jonathan Tapp
>
> jonathan-removethisfirst-_tapp@hotmail.com
Actually, see if you can't add 1900 :/ :| :]
-Sneex-
__________________________________________________________________
Bill Jones | FCCJ Webmaster | Murphy's Law of Research:
Enough research will tend to support your theory.
------------------------------
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 3604
**************************************
