[23167] in Perl-Users-Digest
Perl-Users Digest, Issue: 5388 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Aug 19 00:06:18 2003
Date: Mon, 18 Aug 2003 21:05:06 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 18 Aug 2003 Volume: 10 Number: 5388
Today's topics:
Re: 'make' implemented in Perl (Ken Williams)
Re: CGI is not so hard <REMOVEsdnCAPS@comcast.net>
Re: excel to csv <matthew.garrish@sympatico.ca>
Re: excel to csv ctcgag@hotmail.com
Re: Help! Regular expression on html... (Randal L. Schwartz)
Re: Hudson River <scripts_you_know_the_drill_@hudsonscripting.com>
Re: mod_perl Perl Reference & refs to anonymous subs <ben.goldberg@hotpop.com>
Re: Order of evaluation of expressions <REMOVEsdnCAPS@comcast.net>
Re: Order of evaluation of expressions <krahnj@acm.org>
plouk zombie plouk zombie <serge.john.swilting@wanadoo.fr>
Re: Quick removal of the begging of a file? <ben.goldberg@hotpop.com>
Re: Regular Expression Help <minceme@start.no>
Regular Expression Question (Awrigh01)
Re: Testing whether a subroutine exists (symbolic ref) <REMOVEsdnCAPS@comcast.net>
Re: XML to CSV Conversion (James Willmore)
Re: <bwalton@rochester.rr.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 18 Aug 2003 18:10:41 -0700
From: ken@mathforum.org (Ken Williams)
Subject: Re: 'make' implemented in Perl
Message-Id: <710171a3.0308181710.17db27b7@posting.google.com>
Ted Zlatanov <tzz@lifelogs.com> wrote in message news:<4nwudgxzfs.fsf@lockgroove.bwh.harvard.edu>...
> On 14 Aug 2003, tassilo.parseval@rwth-aachen.de wrote:
>
> > However, there is Module::Build which will sooner or later replace
> > ExtUtils::MakeMaker. It no longer relies on make but instead
> > produces a framework that will obey to
> >
> > perl Build.PL
> > ./Build
> > ./Build test
> > ./Build install
> >
> > The first line will produce a Perl script 'Build' that contains all
> > the functionality that was previously specified in Makefile.
>
> That's the fourth alternative to make and second make-replacement CPAN
> module mentioned so far (Make being the other one). I hope a clear
> winner emerges. My opinion is that the existing Makefile.PL has to be
> migrated or interpreted seamlessly for CPAN installs, so replacing
> ExtUtils::MakeMaker is harder than extending it given the number of
> modules and authors.
Nah, it's not too bad. =) It's actually *much* harder to extend
MakeMaker than to replace it - MakeMaker just isn't very extensible.
And writing Module::Build has been easier than expected. A lot of the
hard work has already been done, in modules like File::Spec,
File::Copy, Test::Harness, ExtUtils::Install, etc.
I also should correct a misunderstanding - Module::Build isn't in the
same category as the 'make' replacements. All it does is build &
install perl modules, and there's nothing analogous to 'make' anywhere
in that process when Module::Build is running the show.
> There's also the documentation written, volumes and volumes of it in
> soft- and hardcopy, that would have to be modified. I'd rather see
> the existing Makefile.PL parsed than a new system replacing it.
Unfortunately, MakeMaker's documentation is pretty spotty (in
fairness, it's quite tough to document it, for various reasons), and
the 'make' documentation is mostly irrelevant because the user doesn't
get involved at that level of the process, beyond simple invocations
of targets with occasional variable replacement.
-Ken
------------------------------
Date: Mon, 18 Aug 2003 20:31:27 -0500
From: "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
Subject: Re: CGI is not so hard
Message-Id: <Xns93DBDB03A57Esdn.comcast@206.127.4.25>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
hudson <scripts_you_know_the_drill_@hudsonscripting.com> wrote in
news:gv43kvsnkrkfb5qmq0rgsibamahho5bi7s@4ax.com:
> Thanks Juha for that post and you definitely made some great points
> about the dangers of cuting and pasting code in a production
> environment.
>
> I'm still not 100% with you on CGI.pm. People around here seem very
> loyal to it, but I have read in a lot of different places that it is
> too large and slow, etc.
Yeah, I've read that too. I'm not sure I believe it. CGI.pm has 6700
lines in it, but fewer than 700 of them are compiled at startup. 3200
lines are POD documentation, located after the __END__ marker, so they are
ignored by the parser. The remaining 2700ish lines are subroutines which
are compiled only the first time they are invoked by user code.
So I don't see the problem, and in the real world, I haven't particularly
noticed a problem with CGI.pm's speed. (Especially if you use mod_perl or
FastCGI).
- --
Eric
$_ = reverse sort $ /. r , qw p ekca lre uJ reh
ts p , map $ _. $ " , qw e p h tona e and print
-----BEGIN xxx SIGNATURE-----
Version: PGPfreeware 7.0.3 for non-commercial use <http://www.pgp.com>
iQA/AwUBP0F+AWPeouIeTNHoEQLhPACfc1GMpAjk22IorKnKKB88EjMHmJkAn3e+
Up4kKPR0wjWbuWf+GaEVHnzi
=b653
-----END PGP SIGNATURE-----
------------------------------
Date: Mon, 18 Aug 2003 20:54:52 -0400
From: "Matt Garrish" <matthew.garrish@sympatico.ca>
Subject: Re: excel to csv
Message-Id: <Sze0b.478$HB4.84432@news20.bellglobal.com>
"James Willmore" <jwillmore@cyberia.com> wrote in message
news:20030818155210.749a5661.jwillmore@cyberia.com...
>
> My suggestion is pick one and stick with it's functionality. I
> believe this has been done successfully in both languages - pick one.
>
> If you still have a burning desire or some company restriction that
> requires you to write in Perl for this task, have a look at the
> Spreadsheet::WriteExcel module. This should do what you're asking to
> do.
>
You're going in the wrong direction. The OP wants excel -> csv not csv ->
excel. The Spreadsheet::WriteExcel module won't help for the latter.
Assuming you're on a Windows machine and you have Excel installed, you might
be able to use the Win32::OLE module to open the file in Excel and then use
Excel itself to save the file to csv (from a simple macro:
ActiveWorkbook.SaveAs FileName:="C:\test.csv", FileFormat:=xlCSV).
Matt
Matt
------------------------------
Date: 19 Aug 2003 02:04:30 GMT
From: ctcgag@hotmail.com
Subject: Re: excel to csv
Message-Id: <20030818220430.333$2N@newsreader.com>
"Josh" <josh@nospam.pixael.com> wrote:
> hi all
>
> anybody knows a script to save an excel in csv?
perldoc Spreadsheet::ParseExcel
gives a script on the first page that should be readily adaptable
to your need.
>
> i need it for a php script
What difference does it make what script you need it for?
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service New Rate! $9.95/Month 50GB
------------------------------
Date: Tue, 19 Aug 2003 03:33:50 GMT
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Help! Regular expression on html...
Message-Id: <30dc2519274934d01fa53b91b8ee807c@news.teranews.com>
>>>>> "Peter" == Peter Scott <peter@PSDT.com> writes:
>> $parser->recovering(1); # or else <a href="/cgi/foo?a=b&c=d"> fails
Peter> ITYM $parser->recover(1); ?
Yeah, sorry.
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Mon, 18 Aug 2003 21:13:14 -0700
From: hudson <scripts_you_know_the_drill_@hudsonscripting.com>
Subject: Re: Hudson River
Message-Id: <ni83kvsm0sgqi4ils13g0ft6d219g57n3o@4ax.com>
>Btw, hope you don't mind my choice of subject line. After all, it was
>all your posts that inspired me to start the thread. :)
No, not at all. It is kind of funny, actually ;-)
>> by the way, the hudson river is right outside my door. I'm thinking
>> of putting my computer on a little raft and set it out to sea...
>
>Don't. You do need to hold back you posts a bit, but there should be
>less drastic methods.
Yes...I agree. I've been reading usenet for years, but just started
posting and this is my first real introduction to the gloves off
nature of it. I think I responded a bit too aggressive to flames, etc.
But, to put it all into perspective...all it really is is bits and
bytes on thousands of news servers and there is a beautiful river
outside and it is still summertime ;-)
------------------------------
Date: Mon, 18 Aug 2003 21:58:15 -0400
From: Benjamin Goldberg <ben.goldberg@hotpop.com>
Subject: Re: mod_perl Perl Reference & refs to anonymous subs
Message-Id: <3F418437.1246D906@hotpop.com>
RA Jones wrote:
>
> The source for this question is 'Perl Reference' at
> <http://perl.apache.org/docs/general/perl_reference/perl_reference.html>.
>
> Under the section 'my() Scoped Variable in Nested Subroutines - The
> Poison', the following is quoted:
>
> nested.pl
> #!/usr/bin/perl
>
> use strict;
>
> sub print_power_of_2 {
> my $x = shift;
>
> sub power_of_2 {
> return $x ** 2;
> }
>
> my $result = power_of_2();
> print "$x^2 = $result\n";
> }
>
> print_power_of_2(5); # produces 25
> print_power_of_2(6); # also produces 25!
>
> The solution is to use a reference to an anonymous subroutine in place
> of power_of_2, which deals with the problem of variables not staying
> shared.
>
> But isn't this 'problem' caused in the first place by print_power_of_2
> not handing on to power_of_2 the value originally handed to it, and
> letting power_of_2 take $x into its own local variable?
Because of power_of_2 captures the $x from it's parent's lexical
scope, it becomes a closure. Because it's a regular named sub, this
capturing only happens once.
Both of those are needed for the problem to occur.
Making it be an anonymous instead of named sub is the easiest way of
solving the problem.
> For example the following seems much simpler, and doesn't need to use a
> reference to an anonymous subroutine:
>
> sub print_power_of_2 {
> my $x = shift;
>
> sub power_of_2 {
> my $x =shift;
> return $x ** 2;
> }
>
> my $result = power_of_2($x);
> print "$x^2 = $result\n";
> }
>
> print_power_of_2(5); # produces 25
> print_power_of_2(6); # now correctly produces 36
>
> Is there a penalty incurred by doing it this apparently simpler way?
No; there is no significant penalty. Both are valid solutions.
However, the way that you're suggesting would generally require changing
more code.
--
$a=24;split//,240513;s/\B/ => /for@@=qw(ac ab bc ba cb ca
);{push(@b,$a),($a-=6)^=1 for 2..$a/6x--$|;print "$@[$a%6
]\n";((6<=($a-=6))?$a+=$_[$a%6]-$a%6:($a=pop @b))&&redo;}
------------------------------
Date: Mon, 18 Aug 2003 20:21:54 -0500
From: "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
Subject: Re: Order of evaluation of expressions
Message-Id: <Xns93DBD96543052sdn.comcast@206.127.4.25>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
"Michael P. Broida" <michael.p.broida@boeing.com> wrote in
news:3F414C63.7362EDCB@boeing.com:
> "Eric J. Roode" wrote:
>>
>> If Perl does not currently guarantee OOE, I would vote that it
>> should. The potential gain in local platform-dependent optimization
>> is not worth the non-portability and confusion. My two cents.
>
> I always found that just breaking complex expressions down into
> simpler expressions will guarantee the order you desire. Yes,
> it makes for longer, more wordy, programs, but it will do EXACTLY
> what you told it to do, without worrying about the language. :)
>
> That's NOT to say that the language shouldn't specify and
> guarantee some specific order. It's just that you can avoid
> any potential ordering problems by making it explicit in the
> extreme:
> $a = $b + $c;
> $a = $a * $z;
> $a = $a - $x;
- From Harbison & Steele, 4ed, p 227:
<blockquote>
To control the order of evaluation, the programmer can
use assignments to temporary variables. However, a good
optimizing compiler might even rearrange computations
such as this:
int temp1, temp2;
...
/* Compute q=(a+b)+(c+d), exactly that way. */
temp1 = a+b;
temp2 = c+d;
q = temp1 + temp2;
</blockquote>
> (For something THAT simple, I would keep it one line and use
> parens to force the order I want, even if it matches the
> language. The difference in the compile step is negligible.)
Once again, in a language such as C in which order of evaluation is not
defined, parentheses do *not* affect order of evaluation! They affect
precedence only.
- --
Eric
$_ = reverse sort $ /. r , qw p ekca lre uJ reh
ts p , map $ _. $ " , qw e p h tona e and print
-----BEGIN xxx SIGNATURE-----
Version: PGPfreeware 7.0.3 for non-commercial use <http://www.pgp.com>
iQA/AwUBP0F7xGPeouIeTNHoEQKcsACgolRH5jZ54iYhdfh4gDLP6oHeDhwAnRVn
ckrsHx6MAAFEtV3k3fQ6BH55
=nkWs
-----END PGP SIGNATURE-----
------------------------------
Date: Tue, 19 Aug 2003 01:23:03 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: Order of evaluation of expressions
Message-Id: <3F417BDC.7F24A9F3@acm.org>
Mark Jason Dominus wrote:
>
> In article <slrnbk10md.srs.abigail@alexandra.abigail.nl>,
> Abigail <abigail@abigail.nl> wrote:
> >Where is its order of evaluation documented? Where in the documentation
> >does it say that:
>
> Yes, that's what I would like to know.
> Or, if it doesn't say that, I would like to know that it doesn't.
>
> Does anyone have any actual facts?
>
> I wasn't able to find anything about it in the manuals, but the
> manuals are pretty badly organized on basic matters like this, so I'm
> not sure I was looking in the right places.
Just going by perlop.pod, shift() is a named unary operator which has
lower precedence than . and . is left associative which would mean it
would evaluate the left side first. Correct me if I'm wrong. :-)
John
--
use Perl;
program
fulfillment
------------------------------
Date: Tue, 19 Aug 2003 03:36:13 +0000
From: "serge.john.swilting" <serge.john.swilting@wanadoo.fr>
Subject: plouk zombie plouk zombie
Message-Id: <bhrv4p$9a7$1@news-reader2.wanadoo.fr>
plouk
plouk
zombie
zombie
je crois que une personne à decouvert une chose assez super il y a peu de
temps
serge
------------------------------
Date: Mon, 18 Aug 2003 22:54:00 -0400
From: Benjamin Goldberg <ben.goldberg@hotpop.com>
Subject: Re: Quick removal of the begging of a file?
Message-Id: <3F419148.81D4E7FF@hotpop.com>
Ed Kulis wrote:
>
> Hi,
>
> I'd like to use perl to chop the head off a file in Unix that an
> application is writing to without disturbing the file. (Apps we use are
> Oracle, PeopleSoft, Vantive, Unix scripting)
Not easily. You can (if your filesystem supports this feature) use
syscall(SYS_punch(), ...) to free up the disk pages from the front of
the file. This releases them back to the filesystem, so that your file
uses less space. Note that the data still in the file will still appear
to be at the same ofset as it had been, and the file will appear to
still have the same length as it did before. The only difference is
that less disk space is used, and the fact that the leading bytes of the
file will now appear to be filled with "\0" bytes.
> We've got some immense trace files and I'd like to remove say the first
> 50% of the lines of a 200 meg file while an has the file open and the
> app is writing to it. That way we can manage the filesystem space while
> retaining the recent interesting information.
If the app has the file open in append mode, and if you can temporarily
force the app to stop writing, there's another way to do it. By reading
and seeking and writing, you can copy bytes from the latter 50% of the
file to the front, and then call truncate() to make the file shorter.
Something like this:
open( FH, "<+", $filename ) or die horribly;
seek( FH, ((-s FH)/2), 0 ) or die horribly; # 50%
scalar(<FH>); # skip to the end of the line.
my $readfrom = tell FH;
my $writeto = 0;
my $n;
my $lastbytes = 0;
LOOP: while( 1 ) {
lseek( FH, $readfrom, 0 ) or die horribly;
my $buf;
while(1) {
$n = sysread( FH, $buf, 8192 ) and last;
unless( defined $n ) {
redo if $!{EINTR} or $!{EAGAIN};
die horribly;
}
last LOOP if $lastbytes;
$lastbytes = 1;
stop_other_app_from_writing();
} # end while(1)
lseek( FH, $writeto, 0 ) or die horribly;
TRYWRITE: {
my $m = syswrite( FH, $buf );
unless( $m ) {
redo TRYWRITE if $!{EINTR} or $!{EAGAIN};
die horribly;
}
substr( $buf, 0, $m ) = "";
$writeto += $m;
$n -= $m;
redo TRYWRITE if $n;
} # end TRYWRITE:
} # end LOOP: while(1)
truncate( FH, $writeto ) or die horribly;
allow_other_app_to_write();
close FH;
Isn't this ugly? :)
If you leave out the stop_other_app_from_writing and allow_other_app_to_
_write, then there's a chance you'll some lines, due to a race
condition.
You might be better off rotating your log files every so often, then
removing the oldest ones. This is the standard technique for what you
want.
> cat /dev/null > file
> sometimes works to zero the entire file while it's being written to
This should *always* truncate the file to 0 length. Not "sometimes".
You could get the same effect by doing, in perl:
truncate( "file", 0 );
Or:
open( FILE, ">file" );
close(FILE);
However, for none of these do you retain any of your old data.
> because I think that the Unix inode stays the same so it won't make any
> difference to the apps open state. I'm not clear on the details of the
> file open states.
True -- the inode stays the same, so it doesn't make a difference to the
app which is writing.
But if you want to keep recent data, then it *does* make a difference.
> I don't want to do anything to the app configuration or startup. I'd
> like to know if there are any Perl functions/techniques that could say
> move the beginning of file pointer to the mid file some where.
The perl techniques for this aren't signifcantly different from the C
techniques for it.
> Is there a clever way to get the size of a file and remove the beginning
> of it?
The clever way of getting the size of a file is to use the -s operator,
either on a filename or on a filehandle.
See:
perldoc -f -X
--
$a=24;split//,240513;s/\B/ => /for@@=qw(ac ab bc ba cb ca
);{push(@b,$a),($a-=6)^=1 for 2..$a/6x--$|;print "$@[$a%6
]\n";((6<=($a-=6))?$a+=$_[$a%6]-$a%6:($a=pop @b))&&redo;}
------------------------------
Date: Tue, 19 Aug 2003 01:26:26 +0000 (UTC)
From: Vlad Tepes <minceme@start.no>
Subject: Re: Regular Expression Help
Message-Id: <bhruc2$5i9$1@troll.powertech.no>
Saya <vahu@novonordisk.com> wrote:
> Hi,
> here is the scenario:
>
> I have a variable containing the following:
> <table cellpadding="0" cellspacing="0">
> <tr>
> <td class="footer">Ottiliavej 9</td>
> <td class="footer">telefon 092323</td></tr>
> <tr><td class="footer">DK-2500 Valby</td>
> <td class="footer">fax 092323</td>
> </tr>
> </table>
>
> A regular expression that gives me the text(sometext) between the <td
> ...>sometext</td>
> tags ?
> I have tried all of my own knowledge og regular expression (which by
> the way is very little). Any help will be appeciated.
Here is one way (assuming the html is stored in $html):
my @tds = $html =~ m#<td class="footer">(.*)</td>#g;
( Matching (=~) has higher precedence than assignment (=), so
the list of captured items by matching $html against the regex
is put into the array @tds. )
To handle cells with newlines, for example
<td class="footer">telefon
092323</td></tr>
you could make the period match newlines (add the modifier 's'), and
then use minimal matching (a questionmark after the quantifier makes it
eat as few characters as possible, ie. find the first '</td>' instead of
the last) thus:
my @tds = $html =~ m#<td class="footer">(.*?)</td>#sg;
Some references:
perldoc perlrequick (gentle intro to regexes)
perldoc perlre (the full story)
perldoc -q html (search faqs for html,
could be of interest)
--
Vlad
------------------------------
Date: 18 Aug 2003 20:50:17 -0700
From: awright@ymail.yu.edu (Awrigh01)
Subject: Regular Expression Question
Message-Id: <cad8a63c.0308181950.2a9f2fef@posting.google.com>
I have been working with regular expressions and was wondering if
anyone can help me tackle this problem.
I was wondering if anyone could help me with a regular expression to
strip the following two text patterns:
Bob Jones Comm'n College, Inc.,
Tufts University,
I believe that this pattern should strip words that begin with capital
letters:
[A-Z]\w*(\s+[A-Z]\w*)*
Could someone help me with a pattern than would get both words that
begin with capital letters or a non-word character like a "," or "."
Thanks for the help - I can't wrap my mind around this one.
------------------------------
Date: Mon, 18 Aug 2003 20:52:23 -0500
From: "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
Subject: Re: Testing whether a subroutine exists (symbolic ref)
Message-Id: <Xns93DBDE904C1C6sdn.comcast@206.127.4.25>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
Tina Mueller <usenet@expires082003.tinita.de> wrote in news:bhqlv6$25j9g$1
@ID-24002.news.uni-berlin.de:
> Arvin Portlock wrote:
>> I simply want to test whether
>> the named subroutine actually exists in the code.
>
> print "$sub exists" if main->can( $sub );
Oh, that is *bizarre*!
- --
Eric
$_ = reverse sort $ /. r , qw p ekca lre uJ reh
ts p , map $ _. $ " , qw e p h tona e and print
-----BEGIN xxx SIGNATURE-----
Version: PGPfreeware 7.0.3 for non-commercial use <http://www.pgp.com>
iQA/AwUBP0GC6WPeouIeTNHoEQJCPgCgrJbbIFKToClS/yGoAQ+DMHCPJo4AoIp3
8s1glI1o9qE71UL+pkNPoOUN
=mn1c
-----END PGP SIGNATURE-----
------------------------------
Date: 18 Aug 2003 18:39:55 -0700
From: jwillmore@cyberia.com (James Willmore)
Subject: Re: XML to CSV Conversion
Message-Id: <e0160815.0308181739.7ddbe2e4@posting.google.com>
"James E Keenan" <jkeen@concentric.net> wrote in message news:<bhrlrt$3eu@dispatch.concentric.net>...
> "James Willmore" <jwillmore@cyberia.com> wrote in message
> news:20030818155810.44fe12fa.jwillmore@cyberia.com...
> > On 18 Aug 2003 06:53:19 -0700
> > anamalay@hotmail.com (Ravi) wrote:
> > > Does anyone have a perl script handy to show me how to convert an
> > > XML document to CSV format ?
> >
> > Someone has gone to the trouble of creating the XML::CSV module just
> > for this purpose.
> >
>
> The shorthand description of XML::CSV is: "Perl extension converting CSV
> files to XML". I couldn't find anything in the documentation that suggests
> that this module goes the other way around.
You appear to be correct. How about:
AnyData::Format::XML
-or- you could perform the same search I used to find this - go to
http://search.cpan.org/
There are several XML modules listed there - some use SAX, others
Expat, others are pure Perl. I played around with XML, but have had
no real need to use it. I'd like to, because XML files can be used in
some many different ways - just have not found them time.
Or you could write your own - which I think you wanted to avoid doing.
HTH and sorry I can't be of more help - maybe someone else who uses
XML regularlly can chime in.
Jim
------------------------------
Date: Sat, 19 Jul 2003 01:59:56 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re:
Message-Id: <3F18A600.3040306@rochester.rr.com>
Ron wrote:
> Tried this code get a server 500 error.
>
> Anyone know what's wrong with it?
>
> if $DayName eq "Select a Day" or $RouteName eq "Select A Route") {
(---^
> dienice("Please use the back button on your browser to fill out the Day
> & Route fields.");
> }
...
> Ron
...
--
Bob Walton
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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.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.
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 V10 Issue 5388
***************************************
