[25052] in Perl-Users-Digest
Perl-Users Digest, Issue: 7302 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Oct 25 14:05:47 2004
Date: Mon, 25 Oct 2004 11:05:09 -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, 25 Oct 2004 Volume: 10 Number: 7302
Today's topics:
Re: any tools to enable test automation for scripting l (matt)
Re: arrays of arrays question <nospam@nospam.com>
Re: arrays of arrays question <nospam@nospam.com>
Convert excel formula to perl (Duke of Hazard)
Re: Convert excel formula to perl <andrew@bryson.co.nz>
FAQ 1.10: Can I do [task] in Perl? <comdog@panix.com>
Re: FAQ 4.56: What happens if I add or remove keys from (Peter J. Acklam)
Re: Fast random string generation <jwkenne@attglobal.net>
Re: Fast random string generation <bik.mido@tiscalinet.it>
Re: Fast random string generation <bart.lateur@pandora.be>
Re: foreach vs. for (Hae Jin)
Re: foreach vs. for <noreply@gunnar.cc>
Re: foreach vs. for <vek@station02.ohout.pharmapartners.nl>
Re: foreach vs. for <cwilbur@mithril.chromatico.net>
Re: Hash slice as hash <tadmc@augustmail.com>
Re: Hash slice as hash <gyruss@hushmail.com>
Re: Hash slice as hash <mritty@gmail.com>
Re: Hash slices <tadmc@augustmail.com>
Re: list vs array <nospam@nospam.com>
Re: list vs array <cwilbur@mithril.chromatico.net>
Re: list vs array <nospam@nospam.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 25 Oct 2004 06:49:43 -0700
From: ty_li@yahoo.com (matt)
Subject: Re: any tools to enable test automation for scripting language like perl?
Message-Id: <10ca4b4a.0410250549.63ed1166@posting.google.com>
thanks a lot guys!
my work place used a prepritory language which is similar to Perl. it
is a script language. I write code with this language. I want to
automate the test process, such as develop built-in test cases or
having to tool to make test drivers for me, just as i use Junit for
Java. this is what i am looking for.
thanks a lot!
to another the last question, i am coding with an existing languange,
not creating a new one. i am not that smart yet.
brian d foy <comdog@panix.com> wrote in message news:<081020041111505080%comdog@panix.com>...
> [[ This message was both posted and mailed: see
> the "To," "Cc," and "Newsgroups" headers for details. ]]
>
> In article <10ca4b4a.0410080445.5a72a00c@posting.google.com>, matt
> <ty_li@yahoo.com> wrote:
>
> > hi all:
> > I am working on a script language very similiar to Perl. It is really
> > cool if I can automate the test. is there any automatic test tools
> > around?
>
> You could use Test::Harness to write a testing tool. Your tests,
> even if they are in another language, just have to use the interface
> that Test::Harness expects: printing "ok" or "not ok". I think
> Andy Lester may have written an article about this somewhere.
>
>
> Beyond that, I would need to know more about what you are doing.
> Most things are possible though :)
------------------------------
Date: Mon, 25 Oct 2004 09:24:47 -0400
From: "daniel kaplan" <nospam@nospam.com>
Subject: Re: arrays of arrays question
Message-Id: <1098710947.865542@nntp.acecape.com>
> Then how will you remember to ignore Tad's posts? And a follow-up
> question - do you ever ignore your *own* posts by mistake?
who? me?
------------------------------
Date: Mon, 25 Oct 2004 11:02:51 -0400
From: "daniel kaplan" <nospam@nospam.com>
Subject: Re: arrays of arrays question
Message-Id: <1098716627.269712@nntp.acecape.com>
jay,
sorry for not referencing your post, but it would be too hard to do all that
AND then respond, so will just put the code
here and hopefully it will explain but essentially your post said this:
> The second part of your problem description is missing. What does
> "pop @rows" return, and how is it different from what you expect it to
> return?
my code essentially was to run a MySQL query, then put all the found records
in ONE array.
so originally i did this:
while (@row = $sth ->fetchrow_array)
push @rows, \@row;
my thinking was that this give me an array of references to all found
records, for me to access later. somewhere this went wrong and i couldn't
pull anything out. i was under the impression from my reading that somehow
perl keeps the references even after you leave a subroutine that created the
reference. which is so beyond me i have to keep re-reading that chapter,
because i am so used to having to treat references (pointers in C) under
much stricter rules.
so that didn't work, i don't recall the exact problem i ran into, my
solution was this:
while (@row = $sth ->fetchrow_array)
push @rows, [@row];
which i was then able to get each item i needed with
$rows[x]->[y]
------------------------------
Date: 25 Oct 2004 06:38:37 -0700
From: squash@peoriadesignweb.com (Duke of Hazard)
Subject: Convert excel formula to perl
Message-Id: <2d21b838.0410250538.4d378a8f@posting.google.com>
Is there an easy way to convert a formula like this:
C1+B1 * (E23/D2)
into something perl can evaluate like this:
$C1 + $B1 * ($E23/$D2);
My brute force method would be test each individual character in the
excel formula and then write subroutines for addition, and
multiplication. Is there something easier?
I would like the user to be able to type in equation like excel and
have perl do the math on them.
Thanks!
------------------------------
Date: Tue, 26 Oct 2004 03:19:56 +1300
From: "Andrew Bryson" <andrew@bryson.co.nz>
Subject: Re: Convert excel formula to perl
Message-Id: <clj22b$mh6$1@lust.ihug.co.nz>
"Duke of Hazard" <squash@peoriadesignweb.com> wrote in message
news:2d21b838.0410250538.4d378a8f@posting.google.com...
> Is there an easy way to convert a formula like this:
>
> C1+B1 * (E23/D2)
>
> into something perl can evaluate like this:
>
> $C1 + $B1 * ($E23/$D2);
Yes.
> My brute force method would be test each individual character in the
> excel formula and then write subroutines for addition, and
> multiplication. Is there something easier?
You could just use the built in perl functions for arithmetic operations.
> I would like the user to be able to type in equation like excel and
> have perl do the math on them.
You would need to tell perl how to interpret excel files. There are modules
to do this :-).
Andrew
------------------------------
Date: Mon, 25 Oct 2004 16:03:03 +0000 (UTC)
From: PerlFAQ Server <comdog@panix.com>
Subject: FAQ 1.10: Can I do [task] in Perl?
Message-Id: <clj83n$lnf$1@reader1.panix.com>
This message is one of several periodic postings to comp.lang.perl.misc
intended to make it easier for perl programmers to find answers to
common questions. The core of this message represents an excerpt
from the documentation provided with Perl.
--------------------------------------------------------------------
1.10: Can I do [task] in Perl?
Perl is flexible and extensible enough for you to use on virtually any
task, from one-line file-processing tasks to large, elaborate systems.
For many people, Perl serves as a great replacement for shell scripting.
For others, it serves as a convenient, high-level replacement for most
of what they'd program in low-level languages like C or C++. It's
ultimately up to you (and possibly your management) which tasks you'll
use Perl for and which you won't.
If you have a library that provides an API, you can make any component
of it available as just another Perl function or variable using a Perl
extension written in C or C++ and dynamically linked into your main perl
interpreter. You can also go the other direction, and write your main
program in C or C++, and then link in some Perl code on the fly, to
create a powerful application. See perlembed.
That said, there will always be small, focused, special-purpose
languages dedicated to a specific problem domain that are simply more
convenient for certain kinds of problems. Perl tries to be all things to
all people, but nothing special to anyone. Examples of specialized
languages that come to mind include prolog and matlab.
--------------------------------------------------------------------
Documents such as this have been called "Answers to Frequently
Asked Questions" or FAQ for short. They represent an important
part of the Usenet tradition. They serve to reduce the volume of
redundant traffic on a news group by providing quality answers to
questions that keep coming up.
If you are some how irritated by seeing these postings you are free
to ignore them or add the sender to your killfile. If you find
errors or other problems with these postings please send corrections
or comments to the posting email address or to the maintainers as
directed in the perlfaq manual page.
Note that the FAQ text posted by this server may have been modified
from that distributed in the stable Perl release. It may have been
edited to reflect the additions, changes and corrections provided
by respondents, reviewers, and critics to previous postings of
these FAQ. Complete text of these FAQ are available on request.
The perlfaq manual page contains the following copyright notice.
AUTHOR AND COPYRIGHT
Copyright (c) 1997-2002 Tom Christiansen and Nathan
Torkington, and other contributors as noted. All rights
reserved.
This posting is provided in the hope that it will be useful but
does not represent a commitment or contract of any kind on the part
of the contributers, authors or their agents.
------------------------------
Date: Mon, 25 Oct 2004 19:35:31 +0200
From: pjacklam@online.no (Peter J. Acklam)
Subject: Re: FAQ 4.56: What happens if I add or remove keys from a hash while iterating over it?
Message-Id: <654yk8f0.fsf@online.no>
brian d foy <comdog@panix.com> wrote:
> In article <hdojjpin.fsf@online.no>, Peter J. Acklam
> <pjacklam@online.no> wrote:
>
>> PerlFAQ Server <comdog@panix.com> wrote:
>
>> > 4.56: What happens if I add or remove keys from a hash while
>> > iterating over it?
>
>> > [lwall] In Perl 4, you were not allowed to modify a hash
>> > at all while iterating over it. In Perl 5 you can delete
>> > from it, but you still can't
>
>> According to the docs for delete() it is safe to delete the
>> key/value pair most recently returned from each().
>
> that's what the answer says, too. :)
It says "you can delete from it" as if *any* deletion is OK, which
is not true. Those who are most likely to look up in the FAQ are
the inexperienced which might interpret the statement incorrectly.
Just my opinion.
Peter
--
#!/local/bin/perl5 -wp -*- mode: cperl; coding: iso-8859-1; -*-
# matlab comment stripper (strips comments from Matlab m-files)
s/^((?:(?:[])}\w.]'+|[^'%])+|'[^'\n]*(?:''[^'\n]*)*')*).*/$1/x;
------------------------------
Date: Mon, 25 Oct 2004 14:11:17 GMT
From: "John W. Kennedy" <jwkenne@attglobal.net>
Subject: Re: Fast random string generation
Message-Id: <9Q7fd.10069$bz4.1154923@news4.srv.hcvlny.cv.net>
Bart Lateur wrote:
> Ala Qumsieh wrote:
>
>
>>I didn't benchmark, but I would guess it's faster to call chr() 256
>>times instead of 20000 times:
>>
>> # untested code
>> my @list = map chr, 0 .. 256;
>> my $str = '';
>> $str .= $list[rand @list] for 1 .. 20_000;
>
>
> It's also not very random. I don't think it's the idea to have a repeat
> period of 256 cycles.
Neither suggestion does.
--
John W. Kennedy
"The poor have sometimes objected to being governed badly; the rich have
always objected to being governed at all."
-- G. K. Chesterton. "The Man Who Was Thursday"
------------------------------
Date: Mon, 25 Oct 2004 16:36:17 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Fast random string generation
Message-Id: <ui3qn0dhinrflhutnhvlclt2ovsn6feeaa@4ax.com>
On Sun, 24 Oct 2004 11:38:30 +0800, Derek Fountain
<nospam@example.com> wrote:
>I need to generate a string of random characters, say about 20,000
>characters long. And I need to do it quickly! I tried the obvious:
OK, here are the benchmarks of some of the proposed solutions along
with some other idea.
BTW: I'm to say the least in a rush and I could absoultely NOT verify
that my 'Pack2' solution is correct. But in case it is notm then I
guess that it can be easily corrected.
#!/usr/bin/perl
use strict;
use warnings;
use Benchmark qw/:all/;
cmpthese 500, {
Loop1 => \&Loop1,
Loop2 => \&Loop2,
Map1 => \&Map1,
Map2 => \&Map2,
Subst => \&Subst,
Vec => \&Vec,
Pack1 => \&Pack1,
Pack2 => \&Pack2,
S => \&S
};
sub Loop1 {
my $str = '';
$str .= chr int rand 256 for 1..20_000;
$str;
}
sub Loop2 {
my @chrs = map chr, 0..255;
my $str = '';
$str .= $chrs[rand 256] for 1..20_000;
$str;
}
sub Map1 {
join '', map { chr int rand 256 } 1..20_000;
}
sub Map2 {
my @chrs = map chr, 0..255;
join '', map $chrs[rand 256], 1..20_000;
}
sub Subst {
my $str = "\000" x 20_000;
my @chrs = map chr, 0..255;
substr $str, $_, 1, $chrs[rand 256] for 0..19_999;
$str;
}
sub Vec {
my $str = ' ' x 20000;
vec($str, $_, 8) = rand 256 for 0..19_999;
$str;
}
sub Pack1 {
pack 'C*', map int rand 256, 1..20_000;
}
sub Pack2 {
# Is this OK, BTW?
pack 'L*', map rand ~0, 1..5_000;
}
sub S {
local $_ = ' ' x 20_000;
s/ /chr int rand 256/ge;
$_;
}
__END__
Rate Map2 Map1 S Subst Vec Pack1 Loop1 Loop2 Pack2
Map2 47.8/s -- -1% -5% -32% -36% -39% -44% -48% -84%
Map1 48.3/s 1% -- -4% -32% -35% -38% -43% -47% -84%
S 50.2/s 5% 4% -- -29% -33% -36% -41% -45% -84%
Subst 70.6/s 48% 46% 41% -- -5% -9% -17% -22% -77%
Vec 74.6/s 56% 54% 49% 6% -- -4% -12% -18% -76%
Pack1 78.0/s 63% 61% 55% 10% 5% -- -8% -14% -75%
Loop1 84.7/s 77% 75% 69% 20% 14% 9% -- -7% -72%
Loop2 91.1/s 91% 89% 81% 29% 22% 17% 7% -- -70%
Pack2 307/s 542% 535% 511% 334% 311% 293% 262% 237% --
Any correction/cmt/etc. welcome!
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: Mon, 25 Oct 2004 15:02:17 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: Fast random string generation
Message-Id: <da5qn097dh5h00hh3p4oijtprkdj5pv1m6@4ax.com>
Michele Dondi wrote:
> sub Pack2 {
> # Is this OK, BTW?
> pack 'L*', map rand ~0, 1..5_000;
> }
I don't think you'll ever see "\xFF\xFF\xFF\xFF" there. Better add 1 to
it.
--
Bart.
------------------------------
Date: Mon, 25 Oct 2004 06:56:10 -0700
From: "Austin P. So (Hae Jin)" <who@what.where>
Subject: Re: foreach vs. for
Message-Id: <clj0mu$7cq$1@nntp.itservices.ubc.ca>
Jürgen Exner wrote:
> Austin P. So (Hae Jin) wrote:
>
>>Sisyphus wrote:
>>
>>>I mean 'for' and 'foreach' are simply synonymous, irrespective of
>>>which of the "two distinct meanings" you're referring to.
>>
>>Hmmm...if I'm not mistaken, the real difference is in how they use
>>memory.
> That's right.
> "foreach" needs four bytes more in your source code.
So clever...
Perhaps I am mistaken, but the Perl Programming book (3rd ed) states the
following (p. 101):
"Perl executes a foreach statement more rapidly than it would a for loop
because the elements are accessed directly instead of through subscripting."
To me that implies memory use...but I may be mistaken...
Try doing a for loop going through a 100,000 element array of 10
character words and see how much memory is used during run time...
Austin
------------------------------
Date: Mon, 25 Oct 2004 15:49:29 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: foreach vs. for
Message-Id: <2u4fn2F24m756U1@uni-berlin.de>
Austin P. So (Hae Jin) wrote:
> Perhaps I am mistaken, but the Perl Programming book (3rd ed) states
> the following (p. 101):
>
> "Perl executes a foreach statement more rapidly than it would a for
> loop because the elements are accessed directly instead of through
> subscripting."
A for loop can be written:
for (my $i = 1; $i <= 10; $i++) {
print $i;
}
or
foreach (my $i = 1; $i <= 10; $i++) {
print $i;
}
A foreach statement can be written:
for (1..10) {
print;
}
or
foreach (1..10) {
print;
}
Now it just *has* to be perfectly clear. :)
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: 25 Oct 2004 14:12:56 GMT
From: Villy Kruse <vek@station02.ohout.pharmapartners.nl>
Subject: Re: foreach vs. for
Message-Id: <slrncnq2f8.5a3.vek@station02.ohout.pharmapartners.nl>
On Mon, 25 Oct 2004 06:56:10 -0700,
Austin P. So (Hae Jin) <who@what.where> wrote:
> Jürgen Exner wrote:
>> Austin P. So (Hae Jin) wrote:
>>
>>>Sisyphus wrote:
>>>
>>>>I mean 'for' and 'foreach' are simply synonymous, irrespective of
>>>>which of the "two distinct meanings" you're referring to.
>>>
>>>Hmmm...if I'm not mistaken, the real difference is in how they use
>>>memory.
>
>> That's right.
>> "foreach" needs four bytes more in your source code.
>
> So clever...
>
> Perhaps I am mistaken, but the Perl Programming book (3rd ed) states the
> following (p. 101):
>
> "Perl executes a foreach statement more rapidly than it would a for loop
> because the elements are accessed directly instead of through subscripting."
>
> To me that implies memory use...but I may be mistaken...
>
for ($x = 0; $x < 10; $x++) {
...;
}
versus
for $x (0 .. 10) {
...;
}
The latter is traditionaly called a foreach loop as it loops for each
elemeent in the array.
Villy
------------------------------
Date: Mon, 25 Oct 2004 16:31:31 GMT
From: Charlton Wilbur <cwilbur@mithril.chromatico.net>
Subject: Re: foreach vs. for
Message-Id: <87654yn566.fsf@mithril.chromatico.net>
>>>>> "VK" == Villy Kruse <vek@station02.ohout.pharmapartners.nl> writes:
VK> On Mon, 25 Oct 2004 06:56:10 -0700,
VK> Austin P. So (Hae Jin) <who@what.where> wrote:
>> Perhaps I am mistaken, but the Perl Programming book (3rd ed)
>> states the following (p. 101):
>>
>> "Perl executes a foreach statement more rapidly than it would a
>> for loop because the elements are accessed directly instead of
>> through subscripting."
>>
>> To me that implies memory use...but I may be mistaken...
VK> for ($x = 0; $x < 10; $x++) { ...; }
VK> for $x (0 .. 10) { ...; }
Not at all, and Mr So is also incorrect.
The critical difference is the difference between
for (@array) { do something with $_; }
and
for ($i = 0; i <= $#array; $i++)
{ do something with $array[$i]; }
The latter is slower because it has to access the array element by
looking it up based on the subscript, rather than just having an alias
to it in $_ (or whatever other variable you provide). That's at least
one extra operation per iteration, and an operation that is usually
unnecessary.
In this case, there's no inherent performance difference between for
and foreach; it's the additional overhead of the array lookup -- which
is not an intrinsic part of either C-style for or shell-style foreach
-- that makes it slower.
Charlton
--
cwilbur at chromatico dot net
cwilbur at mac dot com
------------------------------
Date: Mon, 25 Oct 2004 07:55:56 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Hash slice as hash
Message-Id: <slrncnptus.hf3.tadmc@magna.augustmail.com>
David <davidol@hushmail.com> wrote:
> Dear all,
>
> I'd like extract particular values from a hash, as a hash. I've done
> it in the code below using a foreach loop
>
> Is there a cleaner way?
>
> Thanks.
>
> sub get_db_properties
> {
> my $rec = shift;
> my @db_properties = qw ( db_user db_pass db_server );
> my $ret;
>
> foreach my $prop ( @db_properties)
> {
> $ret->{$prop} = $rec->{$prop};
> }
>
> return $ret;
> }
You could do it using actual hash slices (untested):
@{$ret}{ @db_properties } = @{$rec}{ @db_properties };
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 26 Oct 2004 01:30:50 +1000
From: "Gyruss" <gyruss@hushmail.com>
Subject: Re: Hash slice as hash
Message-Id: <417d1c31_1@news.iprimus.com.au>
"Tad McClellan" <tadmc@augustmail.com> wrote in message
news:slrncnptus.hf3.tadmc@magna.augustmail.com...
> David <davidol@hushmail.com> wrote:
> > Dear all,
> >
> > I'd like extract particular values from a hash, as a hash. I've done
> > it in the code below using a foreach loop
> >
> > Is there a cleaner way?
> >
> > Thanks.
> >
> > sub get_db_properties
> > {
> > my $rec = shift;
> > my @db_properties = qw ( db_user db_pass db_server );
> > my $ret;
> >
> > foreach my $prop ( @db_properties)
> > {
> > $ret->{$prop} = $rec->{$prop};
> > }
> >
> > return $ret;
> > }
>
>
> You could do it using actual hash slices (untested):
>
> @{$ret}{ @db_properties } = @{$rec}{ @db_properties };
>
>
> --
> Tad McClellan SGML consulting
> tadmc@augustmail.com Perl programming
> Fort Worth, Texas
The following line in Learning Perl discouraged me from trying that. It
certainly looks like it should work though!
17.6.2 Hash Slice - Learning Perl
It's normal at this point to wonder why there's no percent sign ("%") here,
when we're talking about a hash. That's the marker that means there's a
whole hash; a hash slice (like any other slice) is always a list, not a hash
------------------------------
Date: Mon, 25 Oct 2004 16:14:25 GMT
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: Hash slice as hash
Message-Id: <BD9fd.3965$PZ4.1761@trndny07>
"Gyruss" <gyruss@hushmail.com> wrote in message
news:417d1c31_1@news.iprimus.com.au...
>
> "Tad McClellan" <tadmc@augustmail.com> wrote in message
> news:slrncnptus.hf3.tadmc@magna.augustmail.com...
> > David <davidol@hushmail.com> wrote:
> > >
> > > I'd like extract particular values from a hash, as a hash.
> >
> > You could do it using actual hash slices (untested):
> >
> > @{$ret}{ @db_properties } = @{$rec}{ @db_properties };
> >
>
> The following line in Learning Perl discouraged me from trying that.
It
> certainly looks like it should work though!
>
> 17.6.2 Hash Slice - Learning Perl
>
> It's normal at this point to wonder why there's no percent sign ("%")
here,
> when we're talking about a hash. That's the marker that means there's
a
> whole hash; a hash slice (like any other slice) is always a list, not
a hash
Yes, but a hash slice is an l-value, meaning it can be assigned to. So
while the hash slice is not a hash, the hash for which it is a slice IS
a hash. In plainer terms, yes, it works. After Tad's code above, $ret
will be a hash reference, and the hash it references will contain the
keys and values from the original hash referred to by $rec.
Example:
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my $rec = {one=>1, two=>2, three=>3};
my @nums = qw/one three/;
my $ret;
@{$ret}{@nums} = @{$rec}{@nums};
print Dumper($rec, $ret);
__END__
$VAR1 = {
'three' => 3,
'one' => 1,
'two' => 2
};
$VAR2 = {
'three' => 3,
'one' => 1
};
Paul Lalli
------------------------------
Date: Mon, 25 Oct 2004 08:01:26 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Hash slices
Message-Id: <slrncnpu96.hf3.tadmc@magna.augustmail.com>
Gyruss <gyruss@hushmail.com> wrote:
> http://tlc.perlarchive.com/articles/perl/ug0001.shtml
What about it?
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 25 Oct 2004 10:27:02 -0400
From: "daniel kaplan" <nospam@nospam.com>
Subject: Re: list vs array
Message-Id: <1098714477.915807@nntp.acecape.com>
> It seems that I just can't grasp the sense of this man's words...
> apart that their tone is arrogant and irrespectful...
yes michele, it's all me. i would suggest, you re-read the first 9 posts of
this thread....am only giving as i am receiving
------------------------------
Date: Mon, 25 Oct 2004 16:31:31 GMT
From: Charlton Wilbur <cwilbur@mithril.chromatico.net>
Subject: Re: list vs array
Message-Id: <871xfmn52s.fsf@mithril.chromatico.net>
>>>>> "dk" == daniel kaplan <nospam@nospam.com> writes:
>> It seems that I just can't grasp the sense of this man's
>> words... apart that their tone is arrogant and irrespectful...
dk> yes michele, it's all me. i would suggest, you re-read the
dk> first 9 posts of this thread....am only giving as i am
dk> receiving
Except that you're receiving abuse because you're being an ass, and
you're giving abuse because... well, because you persist in being an
ass. You're rapidly cutting yourself off from all the clueful help in
this newsgroup. If that's what you *intend* to do, by all means,
carry on.
Charlton
--
cwilbur at chromatico dot net
cwilbur at mac dot com
------------------------------
Date: Mon, 25 Oct 2004 12:53:52 -0400
From: "daniel kaplan" <nospam@nospam.com>
Subject: Re: list vs array
Message-Id: <1098723287.511906@nntp.acecape.com>
Except that you're receiving abuse because you're being an ass, and
> you're giving abuse because... well, because you persist in being an
> ass.
well lets make this final than shall we?
see, same as i getting , and if you read the first nine threads, i think
they set the tone...both sides
i've invited people here to let this thread die finally and that if they
have a problem with me personally, i listed my email...but when they
contniue on here, i think it's just people who like to get up on their
soapbox and "must" spout their views....
as *ass*, tell your mom i'm too tired, i'll plug her later....see insults
are terrible, think before you use them
------------------------------
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 V10 Issue 7302
***************************************
