[30561] in Perl-Users-Digest
Perl-Users Digest, Issue: 1804 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Aug 19 14:09:49 2008
Date: Tue, 19 Aug 2008 11:09:11 -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 Tue, 19 Aug 2008 Volume: 11 Number: 1804
Today's topics:
bidding advice for a contract, part 2 <cartercc@gmail.com>
Re: CLPM - a help group? <spamtrap@dot-app.org>
Re: CLPM - a help group? <john@castleamber.com>
Re: CLPM - a help group? <john@castleamber.com>
Re: FAQ 4.48 How do I shuffle an array randomly? jamesfred@mailinator.com
Re: Help: Debug perl codes <mjcarman@mchsi.com>
recursive filehandle <w.nijs@alf4all.demon.nl>
Re: recursive filehandle <w.nijs@alf4all.demon.nl>
Re: recursive filehandle xhoster@gmail.com
Re: recursive filehandle <fawaka@gmail.com>
Re: String <smallpond@juno.com>
Re: String <fawaka@gmail.com>
Re: String <jurgenex@hotmail.com>
Re: String <pgovern@u.washington.edu>
Re: String <smallpond@juno.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 19 Aug 2008 06:58:58 -0700 (PDT)
From: cartercc <cartercc@gmail.com>
Subject: bidding advice for a contract, part 2
Message-Id: <4143e7bc-758d-4744-84cb-d53bfd44bc4f@25g2000hsx.googlegroups.com>
Okay, guys, I'm about four hours into this with the client, and have
had some direct and blunt conversation with three of the principals.
We both have a firmed up expectation of the work to be done.
I have a legal background as I have previously noted but I have not
relied on any forms or boilerplate contracts. What follows below is an
on-the-fly response to the client's solicitation for a fixed price
bid. I know it's not perfect. I would appreciate your comments. I will
be sending this to them at COB today.
Thanks, CC
----------------------------------------------------------------------------------------
RESPONSE TO SOLICITATION FOR BID
Fee for service
In accordance with the bid solicitation dated August 14, 2008 and with
the terms and conditions stated in this response, my flat rate bid for
the construction of the IMD database, phases 1 through 5, is:
$4,600.00
My hourly charge for completion of phase 6 (support) is $40.00 per
hour billed in increments of .25/hr.
Scope of work
The work consists of six phases, purchasing, manufacturing, inventory
control, refinements, documentation, and support, as outlined in the
solicitation. My charge is based on piece work rates for components as
follows:
Database tables -$60 each
Graphical user interfaces -$100 each
CSV reports (Excel format) -$25 each
Log files -$0
Command line interfaces -$0
Phase 1 (purchasing) consists of four tables, four interfaces, and two
reports, for a total cost of $690, which represents 15% of the whole
project. Thus, the cost of 100% of the project is $4,600.
Platform and technologies
The IMD database will be build with a client/server model using a
browser interface. The database will be MySQL. The interface will use
HTTP to communicate with web browsers on client machines which will be
served by the Apache http server. The application language will the
Perl.
You will furnish the hardware and software necessary to construct and
run this application. The hardware should be a commodity x86 (Intel
compatible) machine. This does not have to be a high-end machine, the
technologies listed can run quite well on a modest platform. These
technologies do not require much processor speed or memory, and by
themselves need little storage. The total amount of storage depends on
your needs, and I do not have the information at hand to gauge your
data storage needs. Here are the technologies I need to construct the
IMD database:
MySQL 5.0 or better
Apache 2.0 or better
Perl 5.8 or better
SSH or equivalent connection n/a
operating System OS agnostic (Linux or Windows)
Secrets and confidentiality
I will honor the confidentiality of this project and not disclose your
data or information to third parties without your express consent and
only then in connection with the work to be performed. You need to
identify explicitly those matters that you consider trade secrets as a
precaution so that I can guard these secrets in the application. I
reserve the right to discuss the project with third parties in
general, non-specific, and non-identifiable fashion in order to
resolve technical issues.
Intellectual property issues
I will use free and open source technology to construct the IMD
database. These technologies are released under various open source
licenses, such as the GPL, Apache License, Artistic License, etc. I
do not claim any intellectual property interest in the work. When I
deliver the code base, you will own it and can use it, sell it,
transfer it as you see fit. Likewise, I will retain the same rights in
the code base. All data are your property and will remain your
property.
Documentation and no vendor lock in
At the conclusion of each phase, I will deliver you a fully functional
and documented version of the application. I will only use open source
and freely available technologies, and will build the project in such
a fashion that any capable developer can understand and enhance. All
software shall be self documenting.
Renegotiability
We both acknowledge that the flat rate quoted above might prove to be
improvident in the light of factors that are unknown at present. This
includes factors that may increase the contract price or decrease the
contract price. In this event, we will both undertake to renegotiate
the contract price in good faith, with the primary criteria that the
price should reflect both the amount of the work to be done and the
value of the work to be done.
If at any time you choose to discontinue this project, you may notify
me and pay me for the work to date. I have no claim on full completion
of the contract. If I face circumstances that prevent me from
completing the contract, I will fully perform to the end of the then
current phase and deliver to you a fully functional and documented
version to the end of that phase. I will also work with you to ensure
that your needs will continue to be met in any transition period.
Payment of compensation
You will pay the contract price as set out in the bid solicitation of
August 14, 2008. I am not set up as self employed, and I would request
that this be paid as W-2 wages. I understand that the net payments
would be reduced by the amount of required withholdings (FICA, income
tax, etc.) In all other respects, I am an independent contractor with
other means of livelihood, and am not an employee of XXXXXXXXXXXX,
Inc. I will work on this project on my own time as I judge
appropriate, and you have no control over my schedule or work hours
except as to the due date of each deliverable.
Requirements specifications
We both understand that I cannot build the IMD project unless you
furnish full, complete, and unambiguous requirements specifications.
You commit to timely delivery of requirements specifications. IEEE Std
830-1998 sets out recommended practices for software requirements
specifications, and you will conform to these recommended practices to
the extent practicable given the nature of the project, i.e., that
this standard is very much overkill for a small project like this one.
I commit to adjusting to reasonable changing requirements, knowing
that the completion of each phase may reveal the existence of new,
previously unknown requirements and the obsolescing of previously
identified requirements. I cannot build a system unless I know the
specific inputs, specific outputs, and specific functional
requirements. Any delay in the identification of these items on your
part will extend the due date of each phase as appropriate.
Good faith and best efforts
Each of us has the obligation to work on this project in good faith
using our best efforts. Differences of opinion and issues of
communication will be resolved by discussion and full disclosure of
all relevant factors. I commit to completing the project on time and
within budget.
Thank you
Thank you for the opportunity to bid on this project. I look forward
to assisting you in this.
------------------------------
Date: Tue, 19 Aug 2008 11:18:07 -0400
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: CLPM - a help group?
Message-Id: <m1skt13ufk.fsf@dot-app.org>
Adam Worrall <worrall-unet@cs.bris.ca.uk> writes:
> John Bokma wrote:
>>
>> And you could come and go when ever you wanted, stay away without
>> calling in sick. Do nothing the whole day, being rude at everybody
>> without a single problem?
>
> That's a rather loaded assumption on your part. Why are you assuming
> we would come in to be rude?
Why are you assuming that the word "rude" is the only part of John's
message that's relevant?
You keep pointing out that you were not required or expected to be
there, and that's true - as far as it goes. But, once you *were*
there, you were expected to provide help. You were not free to simply
chat. That's what makes a help desk different than this group - here,
we *are* free to simply chat about random Perl topics, ignoring
questions if we don't feel like being helpful today.
> I mean, I didn't say it was 100% like
> CLPM, but that CLPM in general functions in a similar way.
No, in fact it doesn't. A help desk is where someone can go with the
expectation of having their questions answered directly and without
digression. This is nothing more nor less than a group of people who
happen to be talking about Perl. A lot of people do receive help here,
but no one is entitled to it.
sherm--
--
My blog: http://shermspace.blogspot.com
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: 19 Aug 2008 16:34:10 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: CLPM - a help group?
Message-Id: <Xns9AFF75B0415AEcastleamber@130.133.1.4>
Adam Worrall <worrall-unet@cs.bris.ca.uk> wrote:
> John Bokma wrote:
>> A nail can function like a screw, but that doesn't make a nail a
>> screw, even though you have used one time a nail to replace a missing
>> screw.
>
> Fallacy; I nor anyone tried to say that this nail was a screw, but
> that it was acting just like one.
OK, acting as in "false behavior; pretense". Hence it is not a help desk.
(You have one day left, by the way).
So, no fallacy of mine. I just call this nail not a screw, while you
prefer to go on and on how you can sometimes use a nail like a screw.
--
John http://johnbokma.com/ - Hacking & Hiking in Mexico
Perl help in exchange for a gift:
http://johnbokma.com/perl/help-in-exchange-for-a-gift.html
------------------------------
Date: 19 Aug 2008 16:41:13 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: CLPM - a help group?
Message-Id: <Xns9AFF76E2645F2castleamber@130.133.1.4>
Adam Worrall <worrall-unet@cs.bris.ca.uk> wrote:
> That's a rather loaded assumption on your part. Why are you assuming
> we would come in to be rude?
You understand what an example is?
> And after I already explained to you that
> we had volunteered to help. I mean, I didn't say it was 100% like
> CLPM, but that CLPM in general functions in a similar way.
In a similar way is not identical. So there is nothing wrong with people
explaining that this is NOT a helpdesk. It's easier than to write: this is
not a helpdesk, but it in general functions in a similar way like the
voluntary helpdesk Adam Worrall worked at.
But you probably all knew that when you started this trolling. I wonder if
you Perl skills are even close to your command of the English language.
And if you ever could be arsed to contribute in a useful way.
Since your behavior has been trolling, I doubt it.
--
John http://johnbokma.com/ - Hacking & Hiking in Mexico
Perl help in exchange for a gift:
http://johnbokma.com/perl/help-in-exchange-for-a-gift.html
------------------------------
Date: Tue, 19 Aug 2008 04:03:12 -0700 (PDT)
From: jamesfred@mailinator.com
Subject: Re: FAQ 4.48 How do I shuffle an array randomly?
Message-Id: <19a02780-ea51-41b0-a73a-4d46e6f4c355@i76g2000hsf.googlegroups.com>
On Aug 19, 8:03=A0am, PerlFAQ Server <br...@stonehenge.com> wrote:
>
> 4.48: How do I shuffle an array randomly?
>
> =A0 =A0 If not, you can use a Fisher-Yates shuffle.
>
> =A0 =A0 =A0 =A0 =A0 =A0 sub fisher_yates_shuffle {
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 my $deck =3D shift; =A0# $deck is=
a reference to an array
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 my $i =3D @$deck;
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 while (--$i) {
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 my $j =3D int ran=
d ($i+1);
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 @$deck[$i,$j] =3D=
@$deck[$j,$i];
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 }
> =A0 =A0 =A0 =A0 =A0 =A0 }
>
This gives an "Modification of non-creatable array value attempted,
subscript -1" exception if the @$deck is empty.
------------------------------
Date: Tue, 19 Aug 2008 11:37:22 GMT
From: Michael Carman <mjcarman@mchsi.com>
Subject: Re: Help: Debug perl codes
Message-Id: <Sfyqk.304706$yE1.66653@attbi_s21>
Thrill5 wrote:
> "Tad J McClellan" <tadmc@seesig.invalid> wrote:
>> Please do not continue to use this newsgroup as a service
>> that reads the docs to you.
>>
>> Make at least some small effort to answer your questions yourself
>> before resorting to asking here.
>
> Or else what? You'll stop posting and we all wont be able to read your
> rants anymore?
>
> Waahhhh!!!
Don't mock. Many highly knowledgeable Perl programmers *have* stopped
posting here -- to everyones loss -- because they've grown weary of
answering the same questions ad nauseum and of self-righteous whiners
throwing tantrums when they are told to RTFM.
I'd rather lose them than Tad.
-mjc
------------------------------
Date: Tue, 19 Aug 2008 18:36:29 +0200
From: Wijnand Nijs <w.nijs@alf4all.demon.nl>
Subject: recursive filehandle
Message-Id: <48aaf68e$0$183$e4fe514c@news.xs4all.nl>
Hello,
I have a problem with the next recursive subroutine used in a mailing
script:
#-----------------------
# sub built_tolist
# format lines listfiles:
# referense to a listfile = |0|nijs-bruls|
# subscribed address = |1|firstname|surname|mailaddress|etc.
# unsubscribed address = |2|firstname|surname|mailaddress|etc.
#-----------------------
sub built_tolist($) {
local (*FILE);
my $Listfile = shift;
my $Listline;
my @ems;
open (FILE,"<$Listfile");
while ($Listline=<FILE>) {
chop $Listline;
@ems = split(/$Delimiter/,$Listline);
if ($ems[1] eq "0") {
&built_tolist($ems[2]);
}
elsif ($ems[1] eq "1") {
push(@Tolist,$ems[4]);
}
else {
}
}
close(FILE);
return(1);
}
it comes 2 times (2 references in the called listfile) with the error:
readline() on closed filehandle FILE at G:/cgi-bin/mailing/send_2.pl
line 224.
I have used a local filehandle (*FILE)! Can sombody help me where to look?
Greetings...
Wijnand
------------------------------
Date: Tue, 19 Aug 2008 18:47:00 +0200
From: Wijnand Nijs <w.nijs@alf4all.demon.nl>
Subject: Re: recursive filehandle
Message-Id: <48aaf906$0$183$e4fe514c@news.xs4all.nl>
Wijnand Nijs schreef:
> Hello,
>
> I have a problem with the next recursive subroutine used in a mailing
> script:
>
> #-----------------------
> # sub built_tolist
> # format lines listfiles:
> # referense to a listfile = |0|nijs-bruls|
> # subscribed address = |1|firstname|surname|mailaddress|etc.
> # unsubscribed address = |2|firstname|surname|mailaddress|etc.
> #-----------------------
>
> sub built_tolist($) {
> local (*FILE);
> my $Listfile = shift;
> my $Listline;
> my @ems;
>
> open (FILE,"<$Listfile");
> while ($Listline=<FILE>) {
> chop $Listline;
> @ems = split(/$Delimiter/,$Listline);
> if ($ems[1] eq "0") {
> &built_tolist($ems[2]);
> }
> elsif ($ems[1] eq "1") {
> push(@Tolist,$ems[4]);
> }
> else {
> }
> }
> close(FILE);
> return(1);
> }
>
>
> it comes 2 times (2 references in the called listfile) with the error:
>
> readline() on closed filehandle FILE at G:/cgi-bin/mailing/send_2.pl
> line 224.
>
> I have used a local filehandle (*FILE)! Can sombody help me where to look?
>
> Greetings...
> Wijnand
Or is this the wrong group?
------------------------------
Date: 19 Aug 2008 17:06:15 GMT
From: xhoster@gmail.com
Subject: Re: recursive filehandle
Message-Id: <20080819130617.582$Gi@newsreader.com>
Wijnand Nijs <w.nijs@alf4all.demon.nl> wrote:
> Hello,
>
> I have a problem with the next recursive subroutine used in a mailing
> script:
>
> #-----------------------
> # sub built_tolist
> # format lines listfiles:
> # referense to a listfile = |0|nijs-bruls|
> # subscribed address = |1|firstname|surname|mailaddress|etc.
> # unsubscribed address = |2|firstname|surname|mailaddress|etc.
> #-----------------------
>
> sub built_tolist($) {
> local (*FILE);
why not use lexical file handles?
> my $Listfile = shift;
> my $Listline;
> my @ems;
>
> open (FILE,"<$Listfile");
You are not checking whether the open succeeded or not. If the open
failed, you are still trying to read from the handle.
open (my FILE, "<$Listfile") or die "Can't open $Listfile, $!";
But why not use lexical file handles?
open (my $FILE, "<", $Listfile) or die $!;
>
> it comes 2 times (2 references in the called listfile) with the error:
>
> readline() on closed filehandle FILE at G:/cgi-bin/mailing/send_2.pl
> line 224.
>
> I have used a local filehandle (*FILE)!
Why? Are you coding for a very old Perl? Is this part of a homework
assignment with tortuous rules?
Xho
--
-------------------- http://NewsReader.Com/ --------------------
The costs of publication of this article were defrayed in part by the
payment of page charges. This article must therefore be hereby marked
advertisement in accordance with 18 U.S.C. Section 1734 solely to indicate
this fact.
------------------------------
Date: 19 Aug 2008 17:14:00 GMT
From: Leon Timmermans <fawaka@gmail.com>
Subject: Re: recursive filehandle
Message-Id: <48aaff58$0$198$e4fe514c@news.xs4all.nl>
On Tue, 19 Aug 2008 18:36:29 +0200, Wijnand Nijs wrote:
> Hello,
>
> I have a problem with the next recursive subroutine used in a mailing
> script:
>
> #-----------------------
> # sub built_tolist
> # format lines listfiles:
> # referense to a listfile = |0|nijs-bruls| # subscribed address =
> |1|firstname|surname|mailaddress|etc. # unsubscribed address =
> |2|firstname|surname|mailaddress|etc. #-----------------------
>
> sub built_tolist($) {
> local (*FILE);
> my $Listfile = shift;
> my $Listline;
> my @ems;
>
> open (FILE,"<$Listfile");
> while ($Listline=<FILE>) {
> chop $Listline;
> @ems = split(/$Delimiter/,$Listline);
> if ($ems[1] eq "0") {
> &built_tolist($ems[2]);
> }
> elsif ($ems[1] eq "1") {
> push(@Tolist,$ems[4]);
> }
> else {
> }
> }
> close(FILE);
> return(1);
> }
>
>
> it comes 2 times (2 references in the called listfile) with the error:
>
> readline() on closed filehandle FILE at G:/cgi-bin/mailing/send_2.pl
> line 224.
>
> I have used a local filehandle (*FILE)! Can sombody help me where to
> look?
>
> Greetings...
> Wijnand
Hi Wijnand,
There is a very easy solution to these kinds of problems: using lexical
filehandles. However, there are more issues with your code. First of
all, please always check the return value of open and close (and
best yet also check print). You probably don't want to use prototypes or
'&' sigils. Also, you seem to be storing the return value in a global
variable(@Tolist), which sounds like a bad idea to me. Also, chop may not
always do what you want it to do (imagine the last line of the file not
ending with a newline), you want to use chomp there. Also, quotes around
numbers aren't necessary.
To get back to your question, how about this one:
sub built_tolist {
my $Listfile = shift;
open my $file, '<', $Listfile;
while (my $Listline=<$file>) {
chop $Listline;
my @ems = split /$Delimiter/, $Listline;
if ($ems[1] eq 0) {
built_tolist($ems[2]);
}
elsif ($ems[1] eq 1) {
push @Tolist, $ems[4];
}
}
return 1;
}
Changing the semantics a little gives me this:
sub built_tolist {
my $Listfile = shift;
my @Tolist;
open my $file, '<', $Listfile or die "Could not open file $Listfile:
$!\n";
while (my $Listline=<$file>) {
chomp $Listline;
my @ems = split /$Delimiter/, $Listline;
if ($ems[1] eq 0) {
push @Tolist, built_tolist($ems[2]);
}
elsif ($ems[1] eq 1) {
push @Tolist, $ems[4];
}
}
return @Tolist;
}
It returns a list of values to mail, instead of storing it in a global
variable.
Regards,
Leon Timmermans
------------------------------
Date: Tue, 19 Aug 2008 10:24:21 -0400
From: smallpond <smallpond@juno.com>
Subject: Re: String
Message-Id: <b1b10$48aad79e$26766@news.teranews.com>
Arun wrote:
> What is wrong with this string
>
> $send_data = (print strftime "::DATA::123456789101112,%d.%m.%y,%H:%M:
> %S,13.0076367,77.5489267,0,933.4,AirTel,31,0", gmtime);
It doesn't work.
--S
** Posted from http://www.teranews.com **
------------------------------
Date: 19 Aug 2008 15:11:20 GMT
From: Leon Timmermans <fawaka@gmail.com>
Subject: Re: String
Message-Id: <48aae298$0$198$e4fe514c@news.xs4all.nl>
On Mon, 18 Aug 2008 21:57:42 -0700, Arun wrote:
> What is wrong with this string
>
> $send_data = (print strftime "::DATA::123456789101112,%d.%m.%y,%H:%M:
> %S,13.0076367,77.5489267,0,933.4,AirTel,31,0", gmtime);
Your intentions aren't clear to me at all. Do you want to print the
string or save it in $send_data? And why the parentheses?
Regards,
Leon Timmermans
------------------------------
Date: Tue, 19 Aug 2008 15:12:07 GMT
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: String
Message-Id: <4hola4t5rur15omqgd6utk2fn8i1osjp8n@4ax.com>
smallpond <smallpond@juno.com> wrote:
>Arun wrote:
>> What is wrong with this string
>>
>> $send_data = (print strftime "::DATA::123456789101112,%d.%m.%y,%H:%M:
>> %S,13.0076367,77.5489267,0,933.4,AirTel,31,0", gmtime);
>
>It doesn't work.
Actually it does work. You will get a
Unquoted string "strftime" may clash with future reserved word
when trying to print that filehandle, but that's opnly a warning.
Otherwise $send_data is assigned '1' just as I would have expected.
Now, the OP might have expected something different, but unfortunately
he forgot to tell us what he expected to happen. As well as what
deviating behaviour he was observing.
jue
------------------------------
Date: Tue, 19 Aug 2008 08:12:48 -0700 (PDT)
From: patrick <pgovern@u.washington.edu>
Subject: Re: String
Message-Id: <e10f35dd-8cb0-4205-8f12-66a0a8067837@b2g2000prf.googlegroups.com>
On Aug 18, 9:57=A0pm, Arun <sajapuram.arun.prak...@gmail.com> wrote:
> What is wrong with this string
>
> $send_data =3D (print strftime "::DATA::123456789101112,%d.%m.%y,%H:%M:
> %S,13.0076367,77.5489267,0,933.4,AirTel,31,0", gmtime);
$send_data =3D "::DATA::123456789101112," . strftime ("%d.%m.%y,%H:%M:
%S", gmtime) . "13.0076367,77.5489267,0,933.4,AirTel,31,0";
=3D=3D=3D=3D>Patrick
------------------------------
Date: Tue, 19 Aug 2008 13:08:01 -0400
From: smallpond <smallpond@juno.com>
Subject: Re: String
Message-Id: <b793d$48aafdf2$1255@news.teranews.com>
wrote:
> smallpond <smallpond@juno.com> wrote:
>> Arun wrote:
>>> What is wrong with this string
>>>
>>> $send_data = (print strftime "::DATA::123456789101112,%d.%m.%y,%H:%M:
>>> %S,13.0076367,77.5489267,0,933.4,AirTel,31,0", gmtime);
>> It doesn't work.
>
> Actually it does work. You will get a
> Unquoted string "strftime" may clash with future reserved word
> when trying to print that filehandle, but that's opnly a warning.
> Otherwise $send_data is assigned '1' just as I would have expected.
>
> Now, the OP might have expected something different, but unfortunately
> he forgot to tell us what he expected to happen. As well as what
> deviating behaviour he was observing.
>
> jue
Since the OP asked only about "this string", the value of $send_data
doesn't matter. The only string in the code other than the filehandle
is:
"::DATA::123456789101112,%d.%m.%y,%H:%M:%S,13.0076367,77.5489267,0,933.4,AirTel,31,0"
which appears to be the programming equivalent of a mixed metaphor. It might
want to be a list or it might want to be a date format, or it might want to be
an advertisement for Airtel, but its hopes will be dashed.
--S
** Posted from http://www.teranews.com **
------------------------------
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.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 V11 Issue 1804
***************************************
