Re: it's probably just me
"nonlin" <[email protected]> Wed, 28 Oct 2015 12:57:48 -0500
| Newsgroups | gmane.comp.lang.perl.active-perl |
|---|---|
| Message-ID | <06f701d111aa$28c27480$0a01a8c0@pavilion> |
This is a multi-part message in MIME format.
--===============0362040185==
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_06F4_01D11180.3F3B6C00"
This is a multi-part message in MIME format.
------=_NextPart_000_06F4_01D11180.3F3B6C00
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
I am not expert but I do know the fallowing.
Purl is like driving a car with automatic gear shift. Where other =
languages like C are like driving a car with a stick shift.
It is not necessary to use a My Local or Var statement to define a =
variable, you can make them on the fly with out them. But it is =
advisable to pre define them up front to avoid any surprises like =
running out of memory. It is considered good practice to use the stick =
and warnings at the start of your code like this:
#!/usr/bin/perl --
use strict;
use warnings;
Witch will stop running you code when you get to the print "non-existent =
value: $aList[0][0]\n"; in your code. and thus make you set everything =
up front of your program and your sub routines. Personally I hate =
developing with strict on, it can be frustrating. But I have discovered =
that if I do the development with strick off, then switch it back on =
just as I'm finishing up and run the program (and watch is crash), I can =
use the error log to tell all the variable I need to be define. Most =
programs will probably consider this not a professional way to go about =
it. But it's my sneaky trick to get the computer to do some of the work =
for me.
An arrow with 2 indexes like your $aList[0][[0] in most other languages =
is considered a multi dimensional arrow having a sort of X,Y axis. Grate =
when doing graphics but I don't think that was what you wanted. To =
access different steps in your arrow, you just increment the index such =
as $aList[0], $aList[1], $aList[2]. ect but think you probably already =
know this.=20
The Push command is usually used like this:
Push (@aList, "First") (with the parenthesis arround everything that the =
command is going to be dealing with) to add just one to the array.. You =
can push all of anther array to your array with Push (@aList, @blist). =
So I am shore there is a way to push mufti values to an array with push, =
if I could only remember the details on it.=20
One command you might find really useful in you research is the exists =
command
if (exists $aList[0][0]) {print "Yes I do exist so =
aList[0][0]=3D".$aList[0][0]."\n"};
The exists command let you check that something is there with out =
creating it. Because if you try to print it like you did in your second =
example. Purl will make it just so you can see that it's empty, I know =
that don't seem to make much sense. But the exists command will leave =
your arrays and hashes alone and just give you a true or false if there =
exist or not. Also may I point out that I usually can't got arrows and =
defiantly not hashes to print out inside of quotes so if you just brake =
out of them for a moment, hence my example above =
"=3D".$aList[0][0]."\n". where I brake out of the text with a quote, =
glued it with a period and add the variable that I want to print out and =
then glued it again with anther period just before going back in with a =
quote to continue printing the text and cartridge return.=20
And that I hope will give you some more tools for your creation. or =
should I say your Frankenstein monster. so have a Happy Halloween.
Stefan
----- Original Message -----=20
From: John DePasquale=20
To: [email protected]=20
Sent: Wednesday, October 28, 2015 10:13 AM
Subject: it's probably just me
Hi perl mavens,
I'm sure I just don't understand something here, but this one makes =
zero sense to me:
The following snippet prints a 1
local @aList;
push @aList, ['first','second','third'];
my $nCount =3D @aList;
print "count: $nCount";
=20
BUT, if I add one seemingly irrelevant line ( the second one below ), =
something crazy happens:
local @aList;
print "non-existent value: $aList[0][0]\n";
push @aList, ['first','second','third'];
my $nCount =3D @aList;
print "count: $nCount";
=20
instead of printing a 1, the last line prints a 2
So the reference in the first print statement to $aList[0][0] appears =
to have the affect of creating a row in the array.
Is this supposed to work this way? Why would such a reference to a =
non-existent array row result in the creation of an array row?
Thank you.
- john
=20
John DePasquale
Chief Executive Officer
Paradigm Consulting
"Proudly presenting the Vinopedia System"
www.vinopedia.us
49 Dalby Street
Newton, MA 02458
Mobile: 617-610-2424
Fax: 617-600-7326
-------------------------------------------------------------------------=
-----
-------------------------------------------------------------------------=
-----
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
------=_NextPart_000_06F4_01D11180.3F3B6C00
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML xmlns=3D"http://www.w3.org/TR/REC-html40" xmlns:v =3D=20
"urn:schemas-microsoft-com:vml" xmlns:o =3D=20
"urn:schemas-microsoft-com:office:office" xmlns:w =3D=20
"urn:schemas-microsoft-com:office:word" xmlns:m =3D=20
"http://schemas.microsoft.com/office/2004/12/omml"><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2800.1555" name=3DGENERATOR><!--[if !mso]>
<STYLE>v\:* {
BEHAVIOR: url(#default#VML)
}
o\:* {
BEHAVIOR: url(#default#VML)
}
w\:* {
BEHAVIOR: url(#default#VML)
}
.shape {
BEHAVIOR: url(#default#VML)
}
</STYLE>
<![endif]-->
<STYLE><!--
/* Font Definitions */
@font-face
{font-family:Wingdings;
panose-1:5 0 0 0 0 0 0 0 0 0;}
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
{font-family:Verdana;
panose-1:2 11 6 4 3 5 4 4 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri","sans-serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
p.MsoListParagraph, li.MsoListParagraph, div.MsoListParagraph
{mso-style-priority:34;
margin-top:0in;
margin-right:0in;
margin-bottom:0in;
margin-left:.5in;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri","sans-serif";}
span.EmailStyle18
{mso-style-type:personal;
font-family:"Calibri","sans-serif";
color:windowtext;}
span.EmailStyle19
{mso-style-type:personal;
font-family:"Calibri","sans-serif";
color:#1F497D;}
span.EmailStyle20
{mso-style-type:personal-reply;
font-family:"Calibri","sans-serif";
color:#1F497D;}
.MsoChpDefault
{mso-style-type:export-only;
font-size:10.0pt;}
@page WordSection1
{size:8.5in 11.0in;
margin:1.0in 1.0in 1.0in 1.0in;}
div.WordSection1
{page:WordSection1;}
/* List Definitions */
@list l0
{mso-list-id:1142113423;
mso-list-type:hybrid;
mso-list-template-ids:371503634 -864891428 67698691 67698693 67698689 =
67698691 67698693 67698689 67698691 67698693;}
@list l0:level1
{mso-level-start-at:0;
mso-level-number-format:bullet;
mso-level-text:-;
mso-level-tab-stop:none;
mso-level-number-position:left;
margin-left:20.25pt;
text-indent:-.25in;
font-family:"Calibri","sans-serif";
mso-fareast-font-family:Calibri;
mso-bidi-font-family:"Times New Roman";}
@list l0:level2
{mso-level-number-format:bullet;
mso-level-text:o;
mso-level-tab-stop:none;
mso-level-number-position:left;
margin-left:56.25pt;
text-indent:-.25in;
font-family:"Courier New";}
@list l0:level3
{mso-level-number-format:bullet;
mso-level-text:\F0A7;
mso-level-tab-stop:none;
mso-level-number-position:left;
margin-left:92.25pt;
text-indent:-.25in;
font-family:Wingdings;}
@list l0:level4
{mso-level-number-format:bullet;
mso-level-text:\F0B7;
mso-level-tab-stop:none;
mso-level-number-position:left;
margin-left:128.25pt;
text-indent:-.25in;
font-family:Symbol;}
@list l0:level5
{mso-level-number-format:bullet;
mso-level-text:o;
mso-level-tab-stop:none;
mso-level-number-position:left;
margin-left:164.25pt;
text-indent:-.25in;
font-family:"Courier New";}
@list l0:level6
{mso-level-number-format:bullet;
mso-level-text:\F0A7;
mso-level-tab-stop:none;
mso-level-number-position:left;
margin-left:200.25pt;
text-indent:-.25in;
font-family:Wingdings;}
@list l0:level7
{mso-level-number-format:bullet;
mso-level-text:\F0B7;
mso-level-tab-stop:none;
mso-level-number-position:left;
margin-left:236.25pt;
text-indent:-.25in;
font-family:Symbol;}
@list l0:level8
{mso-level-number-format:bullet;
mso-level-text:o;
mso-level-tab-stop:none;
mso-level-number-position:left;
margin-left:272.25pt;
text-indent:-.25in;
font-family:"Courier New";}
@list l0:level9
{mso-level-number-format:bullet;
mso-level-text:\F0A7;
mso-level-tab-stop:none;
mso-level-number-position:left;
margin-left:308.25pt;
text-indent:-.25in;
font-family:Wingdings;}
@list l1
{mso-list-id:1505630137;
mso-list-type:hybrid;
mso-list-template-ids:288397876 455528034 67698691 67698693 67698689 =
67698691 67698693 67698689 67698691 67698693;}
@list l1:level1
{mso-level-start-at:0;
mso-level-number-format:bullet;
mso-level-text:-;
mso-level-tab-stop:none;
mso-level-number-position:left;
text-indent:-.25in;
font-family:"Calibri","sans-serif";
mso-fareast-font-family:Calibri;
mso-bidi-font-family:"Times New Roman";}
@list l1:level2
{mso-level-number-format:bullet;
mso-level-text:o;
mso-level-tab-stop:none;
mso-level-number-position:left;
text-indent:-.25in;
font-family:"Courier New";}
@list l1:level3
{mso-level-number-format:bullet;
mso-level-text:\F0A7;
mso-level-tab-stop:none;
mso-level-number-position:left;
text-indent:-.25in;
font-family:Wingdings;}
@list l1:level4
{mso-level-number-format:bullet;
mso-level-text:\F0B7;
mso-level-tab-stop:none;
mso-level-number-position:left;
text-indent:-.25in;
font-family:Symbol;}
@list l1:level5
{mso-level-number-format:bullet;
mso-level-text:o;
mso-level-tab-stop:none;
mso-level-number-position:left;
text-indent:-.25in;
font-family:"Courier New";}
@list l1:level6
{mso-level-number-format:bullet;
mso-level-text:\F0A7;
mso-level-tab-stop:none;
mso-level-number-position:left;
text-indent:-.25in;
font-family:Wingdings;}
@list l1:level7
{mso-level-number-format:bullet;
mso-level-text:\F0B7;
mso-level-tab-stop:none;
mso-level-number-position:left;
text-indent:-.25in;
font-family:Symbol;}
@list l1:level8
{mso-level-number-format:bullet;
mso-level-text:o;
mso-level-tab-stop:none;
mso-level-number-position:left;
text-indent:-.25in;
font-family:"Courier New";}
@list l1:level9
{mso-level-number-format:bullet;
mso-level-text:\F0A7;
mso-level-tab-stop:none;
mso-level-number-position:left;
text-indent:-.25in;
font-family:Wingdings;}
ol
{margin-bottom:0in;}
ul
{margin-bottom:0in;}
--></STYLE>
<!--[if gte mso 9]><xml>
<o:shapedefaults v:ext=3D"edit" spidmax=3D"1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext=3D"edit">
<o:idmap v:ext=3D"edit" data=3D"1" />
</o:shapelayout></xml><![endif]--></HEAD>
<BODY lang=3DEN-US vLink=3Dpurple link=3Dblue bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>I am not expert but I do know the=20
fallowing.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Purl is like driving a car with =
automatic gear=20
shift. Where other languages like C are like driving a car with a =
stick=20
shift.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>It is not necessary to use a My Local =
or Var=20
statement to define a variable, you can make them on the fly with out =
them. But=20
it is advisable to pre define them up front to avoid any surprises like =
running=20
out of memory. It is considered good practice to use the =
stick=20
and warnings at the start of your code like this:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV> <FONT face=3DArial size=3D2>#!/usr/bin/perl --</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>use strict;<BR>use =
warnings;</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Witch will stop running you code when =
you get to=20
the print "non-existent value: $aList[0][0]\n"; in your code. and thus =
make you=20
set everything up front of your program and your sub routines. =
Personally I hate=20
developing with strict on, it can be frustrating. But I have =
discovered=20
that if I do the development with strick off, then =
switch it=20
back on just as I'm finishing up and run the program (and watch is =
crash),=20
I can use the error log to tell all the variable I need to be define. =
Most=20
programs will probably consider this not a professional way to go about =
it. But=20
it's my sneaky trick to get the computer to do some of the work for=20
me.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>An arrow with 2 indexes like your =
$aList[0][[0] in=20
most other languages is considered a multi dimensional arrow having a =
sort of=20
X,Y axis. Grate when doing graphics but I don't think that was what =
you=20
wanted. To access different steps in your arrow, you just increment the =
index=20
such as $aList[0], $aList[1], $aList[2]. ect but think you probably =
already know=20
this. </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>The Push command is usually used like=20
this:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Push (@aList, "First") (with the=20
parenthesis arround everything that the command is going to be =
dealing=20
with) to add just one to the array.. You can push all of anther =
array to=20
your array with Push (@aList, @blist). So I am shore there is a way to =
push=20
mufti values to an array with push, if I could only remember the details =
on it.=20
</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>One command you might find really =
useful in you=20
research is the <STRONG>exists </STRONG>command</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>if (exists $aList[0][0]) {print "Yes I =
do exist so=20
aList[0][0]=3D".$aList[0][0]."\n"};</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>The exists command let you check that =
something is=20
there with out creating it. Because if you try to print it like you did =
in your=20
second example. Purl will make it just so you can see that=20
it's empty, I know that don't seem to make much sense. But the =
exists=20
command will leave your arrays and hashes alone and just give you a true =
or=20
false if there exist or not. Also may I point out that I usually can't =
got=20
arrows and defiantly not hashes to print out inside of quotes so if you =
just=20
brake out of them for a moment, hence my example above =
"=3D".$aList[0][0]."\n".=20
where I brake out of the text with a quote, glued it with a period =
and add=20
the variable that I want to print out and then glued it again with =
anther period=20
just before going back in with a quote to continue printing the text and =
cartridge return. </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>And that I hope will give you some more =
tools for=20
your creation. or should I say your Frankenstein</FONT><FONT =
face=3DArial=20
size=3D2> monster. so have a Happy Halloween.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Stefan</FONT></DIV>
<BLOCKQUOTE=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style=3D"FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV=20
style=3D"BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: =
black"><B>From:</B>=20
<A [email protected] =
href=3D"mailto:[email protected]">John=20
DePasquale</A> </DIV>
<DIV style=3D"FONT: 10pt arial"><B>To:</B> <A=20
[email protected]=20
=
href=3D"mailto:[email protected]">[email protected]=
ctiveState.com</A>=20
</DIV>
<DIV style=3D"FONT: 10pt arial"><B>Sent:</B> Wednesday, October 28, =
2015 10:13=20
AM</DIV>
<DIV style=3D"FONT: 10pt arial"><B>Subject:</B> it's probably just =
me</DIV>
<DIV><BR></DIV>
<DIV class=3DWordSection1>
<P class=3DMsoNormal><SPAN style=3D"COLOR: #1f497d">Hi perl=20
mavens,<o:p></o:p></SPAN></P>
<P class=3DMsoNormal><SPAN style=3D"COLOR: #1f497d">I=92m sure I just =
don=92t=20
understand something here, but this one makes zero sense to=20
me:<o:p></o:p></SPAN></P>
<P class=3DMsoNormal><SPAN style=3D"COLOR: #1f497d">The following =
snippet prints a=20
1<o:p></o:p></SPAN></P>
<P class=3DMsoNormal><SPAN=20
style=3D"COLOR: =
#1f497d"> &nbs=
p; =20
local @aList;<o:p></o:p></SPAN></P>
<P class=3DMsoNormal><SPAN=20
style=3D"COLOR: =
#1f497d"> &nbs=
p; =20
push @aList, ['first','second','third'];<o:p></o:p></SPAN></P>
<P class=3DMsoNormal><SPAN=20
style=3D"COLOR: =
#1f497d"> &nbs=
p; =20
my $nCount =3D @aList;<o:p></o:p></SPAN></P>
<P class=3DMsoNormal><SPAN=20
style=3D"COLOR: =
#1f497d"> &nbs=
p; =20
print "count: $nCount";<o:p></o:p></SPAN></P>
<P class=3DMsoNormal><SPAN style=3D"COLOR: =
#1f497d"><o:p> </o:p></SPAN></P>
<P class=3DMsoNormal><SPAN style=3D"COLOR: #1f497d">BUT, if I add one =
seemingly=20
irrelevant line ( the second one below ), something crazy=20
happens:<o:p></o:p></SPAN></P>
<P class=3DMsoNormal><SPAN=20
style=3D"COLOR: =
#1f497d"> &nbs=
p; =20
local @aList;<o:p></o:p></SPAN></P>
<P class=3DMsoNormal><SPAN=20
style=3D"COLOR: =
#1f497d"> &nbs=
p; =20
print "non-existent value: $aList[0][0]\n";<o:p></o:p></SPAN></P>
<P class=3DMsoNormal><SPAN=20
style=3D"COLOR: =
#1f497d"> &nbs=
p; =20
push @aList, ['first','second','third'];<o:p></o:p></SPAN></P>
<P class=3DMsoNormal><SPAN=20
style=3D"COLOR: =
#1f497d"> &nbs=
p; =20
my $nCount =3D @aList;<o:p></o:p></SPAN></P>
<P class=3DMsoNormal><SPAN=20
style=3D"COLOR: =
#1f497d"> &nbs=
p; =20
print "count: $nCount";<o:p></o:p></SPAN></P>
<P class=3DMsoNormal><SPAN style=3D"COLOR: =
#1f497d"><o:p> </o:p></SPAN></P>
<P class=3DMsoNormal><SPAN style=3D"COLOR: #1f497d">instead of =
printing a 1, the=20
last line prints a 2<o:p></o:p></SPAN></P>
<P class=3DMsoNormal><SPAN style=3D"COLOR: #1f497d">So the reference =
in the first=20
print statement to $aList[0][0] appears to have the affect of creating =
a row=20
in the array.<o:p></o:p></SPAN></P>
<P class=3DMsoNormal><SPAN style=3D"COLOR: #1f497d">Is this supposed =
to work this=20
way? Why would such a reference to a non-existent array row result in =
the=20
creation of an array row?<o:p></o:p></SPAN></P>
<P class=3DMsoNormal><SPAN style=3D"COLOR: #1f497d">Thank=20
you.<o:p></o:p></SPAN></P>
<P class=3DMsoListParagraph=20
style=3D"MARGIN-LEFT: 20.25pt; TEXT-INDENT: -0.25in; mso-list: l0 =
level1 lfo3"><![if !supportLists]><SPAN=20
style=3D"COLOR: #1f497d"><SPAN style=3D"mso-list: Ignore">-<SPAN=20
style=3D"FONT: 7pt 'Times New =
Roman'"> =20
</SPAN></SPAN></SPAN><![endif]><SPAN=20
style=3D"COLOR: #1f497d">john<o:p></o:p></SPAN></P>
<P class=3DMsoNormal><SPAN style=3D"COLOR: =
#1f497d"><o:p> </o:p></SPAN></P>
<DIV>
<P class=3DMsoNormal><SPAN style=3D"COLOR: #1f497d">John=20
DePasquale<o:p></o:p></SPAN></P>
<P class=3DMsoNormal><SPAN style=3D"COLOR: #1f497d">Chief Executive=20
Officer<o:p></o:p></SPAN></P>
<P class=3DMsoNormal><SPAN style=3D"COLOR: #1f497d">Paradigm=20
Consulting<o:p></o:p></SPAN></P>
<P class=3DMsoNormal><I><SPAN style=3D"COLOR: #1f497d">=93Proudly =
presenting the=20
Vinopedia System=94<o:p></o:p></SPAN></I></P>
<P class=3DMsoNormal><SPAN style=3D"COLOR: #1f497d"><A=20
=
href=3D"http://www.vinopedia.us/">www.vinopedia.us</A><o:p></o:p></SPAN><=
/P>
<P class=3DMsoNormal><SPAN style=3D"COLOR: #1f497d">49 Dalby=20
Street<o:p></o:p></SPAN></P>
<P class=3DMsoNormal><SPAN style=3D"COLOR: #1f497d">Newton, MA =20
02458<o:p></o:p></SPAN></P>
<P class=3DMsoNormal><SPAN style=3D"COLOR: #1f497d">Mobile:=20
617-610-2424<o:p></o:p></SPAN></P>
<P class=3DMsoNormal><SPAN style=3D"COLOR: #1f497d">Fax: =
617-600-7326</SPAN><SPAN=20
style=3D"COLOR: #1f497d; FONT-FAMILY: =
'Verdana','sans-serif'"><o:p></o:p></SPAN></P>
<DIV class=3DMsoNormal style=3D"TEXT-ALIGN: center" =
align=3Dcenter><SPAN=20
style=3D"COLOR: #1f497d; FONT-FAMILY: 'Verdana','sans-serif'">
<HR align=3Dcenter width=3D"100%" SIZE=3D2>
</SPAN></DIV></DIV></DIV>
<P>
<HR>
<P></P>_______________________________________________<BR>ActivePerl =
mailing=20
list<BR>[email protected]<BR>To unsubscribe:=20
=
http://listserv.ActiveState.com/mailman/mysubs</BLOCKQUOTE></BODY></HTML>=
------=_NextPart_000_06F4_01D11180.3F3B6C00--
--===============0362040185==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============0362040185==--