[29013] in Perl-Users-Digest
Perl-Users Digest, Issue: 257 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Mar 23 11:09:51 2007
Date: Fri, 23 Mar 2007 08:09:08 -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 Fri, 23 Mar 2007 Volume: 11 Number: 257
Today's topics:
Accessing all CGI input parameters via loop ? <uctraing@ultranet.com>
Re: Accessing all CGI input parameters via loop ? <mritty@gmail.com>
Re: Accessing all CGI input parameters via loop ? <uctraing@ultranet.com>
Re: array::Compare - Perl extension for comparing array anno4000@radom.zrz.tu-berlin.de
First line in body of Mail::POP3Client eng.john84@gmail.com
Re: How can I make my prime number generator better? <octomancer@blueyonder.co.uk>
Re: How can I make my prime number generator better? <bik.mido@tiscalinet.it>
Re: How can I make my prime number generator better? (Marc Espie)
Re: How can I make my prime number generator better? <bik.mido@tiscalinet.it>
Re: I dotn understand this error <bik.mido@tiscalinet.it>
Re: I dotn understand this error <bik.mido@tiscalinet.it>
Re: On Java's Interface (the meaning of interface in co <lew@nospam.lewscanon.com>
Re: Problem with indirect variables <mdudley@king-cart.com>
Reading from fixed-length text file <junk@yahoo.com>
Re: Reading from fixed-length text file <jurgenex@hotmail.com>
Re: Reading from fixed-length text file <someone@example.com>
Re: RegExp -> Strings generieren <wahab-mail@gmx.de>
Re: Using @ARGV in object oriented script <awkster@yahoo.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 23 Mar 2007 12:03:39 GMT
From: - Bob - <uctraing@ultranet.com>
Subject: Accessing all CGI input parameters via loop ?
Message-Id: <h5g703pfh0eimogpoi1guimh764jlfhtan@4ax.com>
Perl newbie question:
I need a little loop that will let me access all of the input
parameters from an HTML form in a generic way without knowledge of the
specific variable (html form field) names.
I know how to do this: my $name = (param("name"));
But, when I don't know the field names, how do I access the structure
of the param's with an index or other non-field-specific technique?
Code snippet appreciated, like I said "newbie" :-)
Thanks,
------------------------------
Date: 23 Mar 2007 06:34:12 -0700
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: Accessing all CGI input parameters via loop ?
Message-Id: <1174656852.162150.66430@e65g2000hsc.googlegroups.com>
On Mar 23, 8:03 am, - Bob - <uctra...@ultranet.com> wrote:
> Perl newbie question:
>
> I need a little loop that will let me access all of the input
> parameters from an HTML form in a generic way without knowledge of the
> specific variable (html form field) names.
>
> I know how to do this: my $name = (param("name"));
>
> But, when I don't know the field names, how do I access the structure
> of the param's with an index or other non-field-specific technique?
>
> Code snippet appreciated, like I said "newbie" :-)
You don't need a loop for this. But if you really wanted to:
my %value_of;
for my $input (param()) {
$value_of{$input} = param($input);
}
Like I said, you don't need the loop for this, because CGI.pm comes
with a way to generate this hash:
my $value_of_ref = Vars();
Or you could even just import them all into a bunch of package
variables:
import_names('R');
print "$R::name, $R::value, $R::age\n"; #etc
Have another read of
perldoc CGI
There are a lot of options that you may not be aware of yet.
Paul Lalli
------------------------------
Date: Fri, 23 Mar 2007 14:21:03 GMT
From: - Bob - <uctraing@ultranet.com>
Subject: Re: Accessing all CGI input parameters via loop ?
Message-Id: <bfo703dp68mrpqg8k2bp20bc2op1qov289@4ax.com>
On 23 Mar 2007 06:34:12 -0700, "Paul Lalli" <mritty@gmail.com> wrote:
>You don't need a loop for this.
I still have a more traditional programming mindset :-)
>But if you really wanted to:
>my %value_of;
>for my $input (param()) {
> $value_of{$input} = param($input);
>}
Thanks, that got me started.
>Have another read of
>perldoc CGI
>There are a lot of options that you may not be aware of yet.
Will do... thanks for the jumpstart.
------------------------------
Date: 23 Mar 2007 11:03:15 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: array::Compare - Perl extension for comparing arrays
Message-Id: <56hqfjF29bklaU1@mid.dfncis.de>
ppapro <ppaprock@gmail.com> wrote in comp.lang.perl.misc:
> Hi
>
> I've tried to use array::Compare module but got an error that "Can't
> locate object method "Sep" via package "Array::Compare".
>
> Did someone have same error before ? I am just trying to run it in
> same way as excample in documentation.
Show your code. This runs for me without an error:
use Array::Compare;
my $cmp = Array::Compare->new;
$cmp->Sep( '|');
That said, the Array::Compare module looks like a rather weak
attempt at array comparison. The technique is to join() the
array elements using a separator and comparing the resulting
strings. This is not applicable to arrays that contain other
things than plain scalars. Even for plain scalars you'd have
to know in advance a separator that will not appear in any of
the array elements.
There are modules on CPAN that do a better job in array comparison.
One is Test::More with its eq_array() function.
Anno
------------------------------
Date: 23 Mar 2007 06:42:02 -0700
From: eng.john84@gmail.com
Subject: First line in body of Mail::POP3Client
Message-Id: <1174657322.370768.134040@o5g2000hsb.googlegroups.com>
How to write this code if ( FIRST LINE IN BODY TRUE FOR EXAMPLE
HELLO)
{
print $_, "\n"; } please help me to wrile this code
code:
#!/usr/local/bin/perl
use Mail::POP3Client;
$pop = new Mail::POP3Client( USER => "xxxxxxxxx",
PASSWORD => "xxxxxxx",
HOST => "xxxxx" );
{
foreach ( $pop->Body( 1 ) ) {
if ( FIRST LINE IN BODY TRUE FOR EXAMPLE HELLO)
{
print $_, "\n";
}}}
------------------------------
Date: 23 Mar 2007 03:45:29 -0700
From: "Octo" <octomancer@blueyonder.co.uk>
Subject: Re: How can I make my prime number generator better?
Message-Id: <1174646729.638843.286100@l77g2000hsb.googlegroups.com>
On 23 Mar, 08:53, nikolas.brit...@gmail.com wrote:
<snip>
> Yes the modulus operation is much faster, benchmark says about 200%
> faster! Thanks!!! I would like to get rid of the goto's but I'm not
> sure what you wrote will work.
<snip>
I've amended your code to illustrate what was suggested:
> #!/usr/bin/perl
> use diagnostics;
> use warnings;
> use strict;
>
> my $n = 1000; #sets upper bound, max value is 10 ** 15.
> my $k = 6; #sets lower bound, min value is 6.
> $k = int($k / 6 + .5);
> my $y1; my $y2;
>
> for (1 .. int($n * .1665 + .5)) {
>
> #do 6k - 1:
> $y1 = (6 * $k - 1);
P1: {
> if ($y1 !~ /5$/) { #separate wheat from chaff:
> for (1 .. int(sqrt($y1) * .1665 + .5)) {
> $y2 = (6 * $_ - 1);
> last P1 if ($y1 % $y2 == 0);
^^^^^^^
> $y2 += 2;
> last P1 if ($y1 % $y2 == 0);
^^^^^^^
> } #prime plucker 1:
> print "$y1 is prime.\n";
> }
}
>
> #do 6k + 1:
> $y1 += 2;
P2: {
> if ($y1 !~ /5$/) { #separate wheat from chaff:
> for (1 .. int(sqrt($y1) * .1665 + .5)) {
> $y2 = (6 * $_ - 1);
> last P2 if ($y1 % $y2 == 0);
^^^^^^^
> $y2 += 2;
> last P2 if ($y1 % $y2 == 0);
^^^^^^^
> } #prime plucker 2:
> print "$y1 is prime.\n";
> }
}
> ++$k;
>
> }
>
> END
> Thanks for your help.
------------------------------
Date: Fri, 23 Mar 2007 12:19:06 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: How can I make my prime number generator better?
Message-Id: <1fd703h970u7dpkpkuvtgg9789j6dobn1i@4ax.com>
On 22 Mar 2007 17:47:28 -0700, nikolas.britton@gmail.com wrote:
>How can I improve my code?... faster, better style, proper programming
Write in C. (And no, I'm not joking, if you're all that concerned
about speed.)
>techniques, better algorithm? Thanks!
This matters have been discussed a number of times in PM:
http://perlmonks.org/?node_id=3989;HIT=prime%20;HIS=%20%2C;re=N
(This link preloads search parameters, but you have to press the
"search" button at the bottom of the page to actually start it.)
Of particular interest should be:
http://perlmonks.org/?node_id=583585
HTH,
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Fri, 23 Mar 2007 12:39:38 +0000 (UTC)
From: espie@lain.home (Marc Espie)
Subject: Re: How can I make my prime number generator better?
Message-Id: <eu0hqa$2m72$1@biggoron.nerim.net>
In article <1174610848.316977.94170@y80g2000hsf.googlegroups.com>,
<nikolas.britton@gmail.com> wrote:
>How can I improve my code?... faster, better style, proper programming
>techniques, better algorithm? Thanks!
Get rid of floating point arithmetic. Instead of time-consuming operation,
like looping from 1 to sqrt(n), write a while loop that stops when
i*i >= n.
As far as algorithms go, look up `Erathosthene's sieve', probably on wikipedia.
------------------------------
Date: Fri, 23 Mar 2007 16:04:31 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: How can I make my prime number generator better?
Message-Id: <o2r703himplfh1pmee1hfiq6mbto2fqjnj@4ax.com>
On Fri, 23 Mar 2007 12:39:38 +0000 (UTC), espie@lain.home (Marc Espie)
wrote:
>Get rid of floating point arithmetic. Instead of time-consuming operation,
>like looping from 1 to sqrt(n), write a while loop that stops when
>i*i >= n.
sqrt(n) can be precalculated, i*i must be calculated for every loop.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Fri, 23 Mar 2007 12:02:55 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: I dotn understand this error
Message-Id: <jsc7039v937qtrqnepas47ejb1j5tfji5g@4ax.com>
On 23 Mar 2007 01:39:02 -0700, "?????" <hackeras@gmail.com> wrote:
>The whole index.pl uses UTF-8 encoding and some special chars yes.
>Is there a way to convert it to pure ASCII?
recode(1), I guess. Or perl's piconv(1).
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Fri, 23 Mar 2007 12:08:29 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: I dotn understand this error
Message-Id: <9vc7031g12jj239qr62ilbvnk9lcs6pqqj@4ax.com>
On 23 Mar 2007 01:39:28 -0700, "?????" <hackeras@gmail.com> wrote:
>> Feeling sorry for you. I *had* to use GG sporadically and it was a
>> major PITA...
>
>Why, whats is the matter with GG?
Well, far too many to be listed here. Putting it briefly, it made it
much more tiresome and time consuming to scan the groups I'm
interested in and only read the new stuff: I heavily "watch" the
threads I'm interested in and "ignore" those that I'm not. And there
are many small details that make it less efficient than a "real"
client. But all in all what I can stand the less is that sometimes it
appears to want to massage what I write.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Fri, 23 Mar 2007 08:57:57 -0400
From: Lew <lew@nospam.lewscanon.com>
Subject: Re: On Java's Interface (the meaning of interface in computer programing)
Message-Id: <Na-dnQjjNblIU57bnZ2dnUVZ_vKunZ2d@comcast.com>
Sherm Pendley wrote:
> Lew <lew@nospam.lewscanon.com> writes:
>
>> Jim Burton wrote:
>>> Or you could stop feeding the trolls.
>> Does not apply. The OP was not being trollish
>
> You obviously don't know Xah. He's been doing this for years, cross-
> posting to various language groups trying to start an argument between
> them. He even brags about being a troll on his web site.
OK - that last is telling. I believe in the possibility of redemption: if a
troll posts non-trollishly then I am willing to give them the benefit of the
doubt.
But if Xah were being trollish, why didn't they jump on my response and call
me names?
I still think that analysis of the original post is a useful exercise to learn
Java. It's one thing to know what's right - it's another to know what's wrong
and exactly why. The more subtle Xah or other minions of Satan get in their
presentations, the more interesting the forensic exercise to dig out the truth.
Perhaps I am just trying to make a silk purse out of a sow's ear.
-- Lew
------------------------------
Date: Fri, 23 Mar 2007 15:07:25 GMT
From: Marshall Dudley <mdudley@king-cart.com>
Subject: Re: Problem with indirect variables
Message-Id: <N2SMh.16240$G23.15775@newsreading01.news.tds.net>
Uri Guttman wrote:
>>>>>> "MD" == Marshall Dudley <mdudley@king-cart.com> writes:
>>>>>>
>
> MD> I looked at the faq, but did not really see anything applicable. Here
> MD> is the deal. I have been notified that I have clean up all my
> MD> variables that print to not allow any <, >, ', &, ( or ) in them to
> MD> prevent cross platform scripting hacking. So I have a confirmation
> MD> page that prints dozens of variables that are global variables, most
> MD> of which are form variables from the form input. So I wanted to have
> MD> a list of the variable names, and use one small section of code to do
> MD> the substitutions, like this:
>
> you are thinking about this in a totally backwards way on several levels.
>
> MD> foreach my $variable
> MD> (customer_number,"form_data{'Ecom_BillTo_Postal_Name_First'}","form_data{'Ecom_BillTo_Postal_Name_Last'}",
> MD> "form_data{'Ecom_BillTo_Company'}","form_data{'Ecom_BillTo_Postal_S
>
> where did those 'variables' come from? show that code too. and as
> several people have said, "form_data{'Ecom_BillTo_Postal_Name_First'}"
> IS NOT A VARIABLE. it is not even a hash value as it has no normal perl
> $hash{key} syntax (it is missing the leading $).
&require_supporting_libraries (__FILE__,__LINE__,"library/cgi-lib.pl");
&ReadParse(*form_data);
> i don't know what you
> think it is nor where you learned it but it makes no sense in how you
> describe it. it is a simple string expression. so it can't ever refer to
> anything else in perl especially other 'variables' as it is not even a
> proper variable name.
>
$form_data{'string'} is a standard hash variable name. I am not sure
why you think it is not.
> now you actually seem to have the values in a hash. i will assume that
> the hash is named %form_data since it is perl. maybe it comes from some
> bastard cgi parser (my main guess). so the first thing you need to do is
> use a proper module CGI.pm to get your form params.
I am using the cgi-lib.pl library routine to get them.
> but let's stick with
> the hash for now and this is easily changed to use CGI.pm.
>
>
> MD> $$variable =~ s/\</\</g;
> MD> $$variable =~ s/\>/\>/g;
> MD> $$variable =~ s/\(/\(/g;
> MD> $$variable =~ s/\)/\)/g;
> MD> $$variable =~ s/\'/\'/g;
>
> again, perl has modules for that. why are you reinventing wheels?
>
>
> MD> If I inline it, I end up with 5*18 or 90 lines of code in what should
> MD> be able to be done in 6 or 7.
>
> if you used a module it would be 1 line.
>
> use HTML::Entities
>
> encode_entities $_ for values %form_data ;
>
OK, I will check the Entities module.
Thanks,
Marshall
> now isn't that a bit easier to understand? and it works too!
>
> so please learn more perl and stop beating your head against the
> wall. your loop code above had NO VARIABLES so don't use that term and
> then expect us to understand you.
>
> uri
>
>
------------------------------
Date: Fri, 23 Mar 2007 09:59:40 -0400
From: nun <junk@yahoo.com>
Subject: Reading from fixed-length text file
Message-Id: <atydnZvY6aXWQJ7bnZ2dnUVZ_vumnZ2d@megapath.net>
I need to read lines from an ASCII flat file in the following format :
1 to 4 - code (length= 4)
5 to 24 - number (length=20)
25 to 54 - description (length=30)
55 to 62 - p1 (length= 8)
71 to 78 - p2 (length= 8)
104 to 123 - New number (length=20)
124 to 124 - flag (length= 1)
Here's an example line of the file which will no doubt wrap in this post:
PQ AMERICAN SERIES CATFISH 0.000
0.000 L11115 2
Now in another script, I was reading in comma-separated values from a
file like this:
#################################
# reading data in from file
my (@AoA);
while ( <> ) {
chomp;
push @AoA, [ split /,/ ];
}
#################################
and I want to do the same thing with this fixed-length data. My reading
online suggests that I could accomplish this using unpack, or
Text::FixedLength but I'm not sure which is best. Can anyone provide
guidance or an example?
DB
------------------------------
Date: Fri, 23 Mar 2007 14:06:45 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Reading from fixed-length text file
Message-Id: <V9RMh.2$Rp2.0@trndny04>
nun wrote:
> I need to read lines from an ASCII flat file in the following format :
>
> 1 to 4 - code (length= 4)
> 5 to 24 - number (length=20)
> 25 to 54 - description (length=30)
[...]
> My
> reading online suggests that I could accomplish this using unpack, or
> Text::FixedLength
Third option: substr() which actually may be better than unpack(), because
AFAIK unpack() takes a sequence of bytes while substr() will take a sequence
of characters.
Depending upon if e.g. the 'description' is 30 characters long or 30 bytes
long you may get surprising results otherwise.
jue
------------------------------
Date: Fri, 23 Mar 2007 14:28:21 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: Reading from fixed-length text file
Message-Id: <9uRMh.4908$x9.4650@edtnps89>
nun wrote:
> I need to read lines from an ASCII flat file in the following format :
>
> 1 to 4 - code (length= 4)
> 5 to 24 - number (length=20)
> 25 to 54 - description (length=30)
> 55 to 62 - p1 (length= 8)
> 71 to 78 - p2 (length= 8)
> 104 to 123 - New number (length=20)
> 124 to 124 - flag (length= 1)
>
>
> Here's an example line of the file which will no doubt wrap in this post:
>
> PQ AMERICAN SERIES CATFISH 0.000
> 0.000 L11115 2
>
>
> Now in another script, I was reading in comma-separated values from a
> file like this:
>
> #################################
> # reading data in from file
> my (@AoA);
> while ( <> ) {
> chomp;
> push @AoA, [ split /,/ ];
> }
> #################################
>
> and I want to do the same thing with this fixed-length data. My reading
> online suggests that I could accomplish this using unpack, or
> Text::FixedLength but I'm not sure which is best. Can anyone provide
> guidance or an example?
Using unpack it could be as simple as:
push @AoA, [ unpack 'A4 A20 A30 A8 A8 A20 A', $_ ];
John
--
Perl isn't a toolbox, but a small machine shop where you can special-order
certain sorts of tools at low cost and in short order. -- Larry Wall
------------------------------
Date: Fri, 23 Mar 2007 11:55:36 +0100
From: Mirco Wahab <wahab-mail@gmx.de>
Subject: Re: RegExp -> Strings generieren
Message-Id: <eu0c1q$n1b$1@mlucom4.urz.uni-halle.de>
arnd.schroeter@gmail.com wrote:
[wrong language for this newsgroup ==> translation added]
> ich möchte zu einem gegebenen RegExp (alle) Strings generieren.
| I want to generate all matches (strings corresponding to -)
| for a given regex in advance
> Ich hatte da an einen rekursiven Algorithmus gedacht, den ich ab einer
> bestimmten Tiefe abbrechen.
| I envisioned a recursive algorithm which bails out on a
| predefined recursion depth
> Oder es gibt eine Umwandlungsmöglichkeit in einen Automaten.
| can this be written as a simple automaton/finite state machine
> Kann mir jmd. dazu etwas sagen?
| Any ideas?
My answer: not possible for all (except some trivial -)
regular expressions because of the parameter space ;-)
Regards
Mirco
------------------------------
Date: 23 Mar 2007 07:50:39 -0700
From: "Jorge" <awkster@yahoo.com>
Subject: Re: Using @ARGV in object oriented script
Message-Id: <1174661439.160091.303860@o5g2000hsb.googlegroups.com>
On Mar 22, 5:58 am, Michele Dondi <bik.m...@tiscalinet.it> wrote:
> On 21 Mar 2007 09:36:46 -0700, "Jorge" <awks...@yahoo.com> wrote:
>
> >As an exercise in learing Object Oriented Perl I am creating a class
> >and a calling script which simply checks the command line arguments to
> >see if each file is present. So far it appears to be working as
> >expected but I have a question about the use of @ARGV in my calling
> >script.
>
> OO is a programming technique with some charachteristics and possible
> advantages. @ARGV is an array. The two things are completely
> orthogonal, well at least in Perl 5 since we normally do not have
> autoboxing (i.e. not everything is an object by default) unless you
> use a specific module, which is an aftertought anyway.
>
> >The only way I could see to pass @ARGV as an object was to make it a
> >scalar ... thus the line ...
>
> To "pass @ARGV as an object" does not make sense at all. You can pass
> @ARGV to an object or class method as a parameter, in wich case it
> will be flattened to a list. If you want to keep its "arrayedness",
> just take a reference \@ARGV, or build a new one for the purpose
> [@ARGV].
>
> >my $list_of_files = join ' ', @ARGV;
>
> Awful! First of all, are all of @ARGV's elemnts filenames? And what if
> any of them contsains a whitespace?
>
> >Is there a way I can use a reference such as \@ARGV and somehow
> >derference it in the package?
>
> Yes, just like you would dereference it in any Perl program, OO or
> not:
>
> perldoc perlref
>
> Michele
> --
> {$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
> (($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
> .'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
> 256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
Point taken on nearly all the replies. Being in a learing stage of
OOP, I find it very helpful.
Thank You
------------------------------
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 257
**************************************
