[31441] in Perl-Users-Digest
Perl-Users Digest, Issue: 2693 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Nov 25 16:09:57 2009
Date: Wed, 25 Nov 2009 13:09:25 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 25 Nov 2009 Volume: 11 Number: 2693
Today's topics:
Good Golly Miss Molly Perl. Been so long. <a@b.c>
Re: Good Golly Miss Molly Perl. Been so long. <tadmc@seesig.invalid>
Re: Good Golly Miss Molly Perl. Been so long. <a@b.c>
Re: Good Golly Miss Molly Perl. Been so long. <a@b.c>
Re: Good Golly Miss Molly Perl. Been so long. <cwilbur@chromatico.net>
Re: Good Golly Miss Molly Perl. Been so long. <a@b.c>
Re: Good Golly Miss Molly Perl. Been so long. <uri@StemSystems.com>
Re: Good Golly Miss Molly Perl. Been so long. <a@b.c>
Re: Good Golly Miss Molly Perl. Been so long. <a@b.c>
Re: Good Golly Miss Molly Perl. Been so long. <glennj@ncf.ca>
Re: Good Golly Miss Molly Perl. Been so long. <steampunk@golgonooza.co.uk>
Re: Good Golly Miss Molly Perl. Been so long. <uri@StemSystems.com>
Re: Good Golly Miss Molly Perl. Been so long. <ac.russell@live.com>
Re: Good Golly Miss Molly Perl. Been so long. <jurgenex@hotmail.com>
Perl Logo <himanshu.garg@gmail.com>
Re: Perl Logo <uri@StemSystems.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 25 Nov 2009 06:45:10 -0600
From: Andy <a@b.c>
Subject: Good Golly Miss Molly Perl. Been so long.
Message-Id: <Xns9CCE4EDCC9D5BCotD@216.196.97.131>
Good Golly Miss Molly Perl. Been so long.
You Perl people are great motivators.
I have an urge to re-perl again.
Any iPhone perl I can carry around in my pocket?
Best,
Andy
Perlotto
------------------------------
Date: Wed, 25 Nov 2009 10:09:57 -0600
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: Good Golly Miss Molly Perl. Been so long.
Message-Id: <slrnhgqlh0.o1s.tadmc@tadbox.sbcglobal.net>
Andy <a@b.c> wrote:
> I have an urge to re-perl again.
Please resist the urge.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Wed, 25 Nov 2009 10:57:37 -0600
From: Andy <a@b.c>
Subject: Re: Good Golly Miss Molly Perl. Been so long.
Message-Id: <Xns9CCE79A9A84CCotD@216.196.97.131>
Tad McClellan <tadmc@seesig.invalid> wrote in
news:slrnhgqlh0.o1s.tadmc@tadbox.sbcglobal.net:
> Andy <a@b.c> wrote:
>
>> I have an urge to re-perl again.
>
>
> Please resist the urge.
Well I probably should, but... but...
You folks were always so supportive.
I always liked the puzzlelike nature of the beast!
I have small goals..
Andy
------------------------------
Date: Wed, 25 Nov 2009 11:06:47 -0600
From: Andy <a@b.c>
Subject: Re: Good Golly Miss Molly Perl. Been so long.
Message-Id: <Xns9CCE7B376428DCotD@216.196.97.131>
Tad McClellan <tadmc@seesig.invalid> wrote in
news:slrnhgqlh0.o1s.tadmc@tadbox.sbcglobal.net:
> Andy <a@b.c> wrote:
>
>> I have an urge to re-perl again.
>
>
> Please resist the urge.
Good golly,
It's been a good six years.
What's this about Strawberry Perl?!?
Should I bother? What's the local flavor these days?
Win7.
64-bit???
Best,
Andy
------------------------------
Date: Wed, 25 Nov 2009 12:05:38 -0500
From: Charlton Wilbur <cwilbur@chromatico.net>
Subject: Re: Good Golly Miss Molly Perl. Been so long.
Message-Id: <86zl6ailgd.fsf@mithril.chromatico.net>
>>>>> "A" == Andy <a@b.c> writes:
A> Any iPhone perl I can carry around in my pocket?
The terms of the iPhone App Store forbid any application that contains
an interpreter, so you're in unsupported territory if you try. And if
you have to ask, you're probably better off staying out of unsupported
territory.
Charlton
--
Charlton Wilbur
cwilbur@chromatico.net
------------------------------
Date: Wed, 25 Nov 2009 11:10:35 -0600
From: Andy <a@b.c>
Subject: Re: Good Golly Miss Molly Perl. Been so long.
Message-Id: <Xns9CCE7BDC97413CotD@216.196.97.131>
#!/usr/bin/perl
# PERLotto 1.3
# Your Customizable Lotto Ticket Checker.
#
# Copyright (c) 2002, 2003 Andy Burns. All rights reserved.
# Email yoy@comcast.net with questions/answers
##### THIS CODE IS NOT PRETTY BUT IT WORKS.
##### USE AT YOUR OWN RISK!
# Fixed in version 1.3:
# Added missing games file error cheking.
# Fixed in version 1.2:
# Don't print "--0" for no-hit games
# Cosmetic print statement adjustments.
# Added missing "official" bonus winning number error checks.
# Fixed in version 1.1:
# Print to screen instead of file.
# Read or setup 'perlotto.cfg" variables
SETOPTIONS:
open( IN, "<perlotto.cfg" ) or goto SETTINGS;
@a = ("");
while (<IN>) {
chomp;
$a[ $. - 1 ] = $_;
}
close(IN) || die "Error closing config file.\n";
$lotto_Max_Number = $a[0];
$picks_Per_Game = $a[1];
$bonus_Ball_On = $a[2];
$bonus_Max_Number = $a[3];
$bonus_Ball = 0;
goto MAINMENU;
SETTINGS:
print "\n\n-- SETTINGS --\n\n";
print "\n Does your lotto use a \"bonus ball\"? (y/n): ";
chomp( $bonus_Ball_On = <STDIN> );
$bonus_Ball_On = lc( substr( $bonus_Ball_On, 0, 1 ) );
if ( $bonus_Ball_On eq 'y' ) {
print "\n What's the highest bonus number allowed? ";
chomp( $bonus_Max_Number = <STDIN> );
}
else {
$bonus_Max_Number = 0;
}
print "\n How many numbers are in your main lotto game? ";
chomp( $picks_Per_Game = <STDIN> );
print "\n What's the highest number allowed? ";
chomp( $lotto_Max_Number = <STDIN> );
if ( $bonus_Ball_On eq 'y' ) {
$picks_Per_Game = $picks_Per_Game + 1;
}
open( OUT, ">perlotto.cfg" );
print OUT "$lotto_Max_Number\n";
print OUT "$picks_Per_Game\n";
print OUT "$bonus_Ball_On\n";
print OUT "$bonus_Max_Number\n";
close OUT || die "Couldn't close 'perlotto.cfg file.\n";
MAINMENU:
goto SETOPTIONS if ( $lotto_Max_Number eq undef );
print "\n\n-- MAIN MENU --\n\n";
print " 1 Check games.\n\n";
print " 2 Setup Lotto rules.\n\n";
print " Selection: ";
chomp( $choice = <STDIN> );
$choice = substr( $choice, 0, 1 );
if ( $choice == 1 ) {
goto BEGINPLAY;
}
elsif ( $choice == 2 ) {
goto SETTINGS;
}
else {
print " ALERT: Answer not understood. Try again.\n";
goto MAINMENU;
}
BEGINPLAY:
print "\n Enter winning numbers separated by spaces: ";
chomp( $input = <STDIN> );
@winners = ( split '\s+', $input );
foreach (@winners) {
if (/\D/) {
print " ALERT: Non-numeric entry, $_. Try again.\n";
goto BEGINPLAY;
}
if ( @winners < $picks_Per_Game ) {
print " ALERT: Missing ", $picks_Per_Game - @winners,
" numbers. Try again.\n";
goto BEGINPLAY;
}
if ( @winners > $picks_Per_Game ) {
print " ALERT: Extra ", @winners - $picks_Per_Game,
" numbers. Try again.\n";
goto BEGINPLAY;
}
}
if ( $bonus_Ball_On eq 'y' ) {
$bonus_Ball = pop (@winners);
}
foreach my $i ( 0 .. $#winners ) {
foreach my $j ( $i + 1 .. $#winners ) {
if ( $winners[$i] == $winners[$j] ) {
print " ALERT: Duplicate number '$winners[$i]'. Try again.
\n";
goto BEGINPLAY;
}
}
}
if ( $bonus_Ball_On eq 'y' ) {
push ( @winners, $bonus_Ball );
}
if ( $bonus_Ball_On eq 'y' ) {
$bonus_Ball = pop (@winners);
foreach (@winners) {
if ( $_ > $lotto_Max_Number ) {
print
"n ALERT: Number '$_' is above Lotto max:
$lotto_Max_Number.\n";
goto BEGINPLAY;
}
}
if ( $bonus_Ball > $bonus_Max_Number ) {
print
"\n ALERT: Number '$bonus_Ball' is above the Bonus max:
$bonus_Max_Number.\n";
goto BEGINPLAY;
}
if ( $bonus_Ball < 1 ) {
print "\n ALERT: Bonus number is less than 1. Try again.\n";
goto BEGINPLAY;
}
if ( $bonus_Ball eq /\D/ ) {
print "\n ALERT: Non-numeric bonus number $_. Try again.\n";
goto BEGINPLAY;
}
}
foreach (@winners) {
if ( $_ > $lotto_Max_Number ) {
print
"\n ALERT: Number '$_' is above Lotto max: $lotto_Max_Number.
\n";
goto BEGINPLAY;
}
}
open( IN, "<games.txt" ) or die "Can't open 'games' file: $!\n";
open(OUT, ">results.txt");
system("cls");
if ( $bonus_Ball_On eq 'y' ) {
$short = $picks_Per_Game - 1;
print OUT "\nLotto: $short/$lotto_Max_Number";
}
else {
print OUT "\nLotto: $picks_Per_Game/$lotto_Max_Number";
}
if ( $bonus_Ball_On eq 'y' ) {
print OUT " + 1/$bonus_Max_Number\n";
}
else {
print OUT "\n";
}
print OUT "\nWinning numbers: @winners";
if ( $bonus_Ball_On eq 'y' ) {
print OUT " + $bonus_Ball\n\n";
}
else {
print OUT "\n";
}
while (<IN>) {
if ( /^\// | /^$/ ) {
print OUT ;
next;
}
chomp;
# Game File Numbers Error-Checking
@game = split;
if ( $bonus_Ball_On eq 'y' ) {
$game_bonus_Ball = pop @game;
print OUT "\nALERT: Bonus number '$game_bonus_Ball' is above the
Bonus max: $bonus_Max_Number.\n"
if $game_bonus_Ball gt $bonus_Max_Number;
print OUT "\nALERT: Bonus number '$game_bonus_Ball' is below
one.\n"
if $game_bonus_Ball < 1;
print OUT
"\nALERT: Non-numeric entry $game_bonus_Ball in bonus ball
below.\n"
if $game_bonus_Ball =~ /\D/;
}
print OUT "\nALERT: Two few numbers in game below.\n" if @game <
@winners;
print OUT "\nALERT: Two many numbers in game below.\n" if @game >
@winners;
$picks = 0;
undef(@picked);
## Games File Error-Checking
L2:
foreach my $i ( 0 .. $#game ) {
foreach my $j ( $i + 1 .. $#game ) {
if ( $game[$i] == $game[$j] ) {
print OUT "\nALERT: Duplicate number '$game[$i]' in game
below.\n";
last L2;
}
}
if ( $game[$i] < 1 ) {
print OUT "ALERT: Number is below one in game below.\n";
}
}
## Check game file for winners
foreach my $y (@winners) {
for my $x (@game) {
if ( $y == $x ) {
$picks++;
push @picked, $x;
}
}
}
## End Check game file for winners
## Start console output
if ( $bonus_Ball_On eq 'y' ) {
$b = 0;
# push @game, $game_bonus_Ball;
if ( $picks != 0 ) {
print OUT "@game $game_bonus_Ball --$picks";
}
else {
print OUT "@game $game_bonus_Ball";
}
if ( $bonus_Ball == $game_bonus_Ball ) {
push @picked, $game_bonus_Ball;
$b = 1;
}
if ( $#picked > -1 ) {
if ( $b == 1 ) {
if ( $picks == 0 ) {
print OUT " --0b Hit: @picked\n";
}
else {
print OUT "b Hit: @picked\n";
}
}
else {
print OUT " Hit: @picked\n";
}
}
else {
print OUT "\n";
}
}
if ( $bonus_Ball_On ne 'y' ) {
if ( $picks != 0 ) {
print OUT "@game --$picks";
if ( $#picked > -1 ) {
print OUT " Hit: @picked\n";
}
else {
print OUT "\n";
}
}
else {
print OUT "@game\n";
}
}
## End console output
}
print "\n<Press Return to exit>";
chomp( $lotto_Max_Number = <STDIN> );
I can't reason with my own code.
It's been ages.
Andy
------------------------------
Date: Wed, 25 Nov 2009 12:27:48 -0500
From: "Uri Guttman" <uri@StemSystems.com>
Subject: Re: Good Golly Miss Molly Perl. Been so long.
Message-Id: <878wdupl9n.fsf@quad.sysarch.com>
this is some of the worst perl code i have ever seen. it is basic
written in perl. 10 or more gotos. NOT ONE SUB. no strict or warnings.
spaghetti logic all the way. i am ashamed to see this code in
public. you should be ashamed too.
>>>>> "A" == Andy <a@b.c> writes:
A> I can't reason with my own code.
A> It's been ages.
because it sucked to begin with. learn how to code without gotos.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Wed, 25 Nov 2009 11:28:17 -0600
From: Andy <a@b.c>
Subject: Re: Good Golly Miss Molly Perl. Been so long.
Message-Id: <Xns9CCE7EDD17EAFCotD@216.196.97.131>
Charlton Wilbur <cwilbur@chromatico.net> wrote in
news:86zl6ailgd.fsf@mithril.chromatico.net:
>>>>>> "A" == Andy <a@b.c> writes:
>
> A> Any iPhone perl I can carry around in my pocket?
>
> The terms of the iPhone App Store forbid any application that contains
> an interpreter, so you're in unsupported territory if you try. And if
> you have to ask, you're probably better off staying out of unsupported
> territory.
>
> Charlton
I kinda/sorta imagined as much.
Shame the iPhone's OS/X under the hood Unix shouls be so available.
What's a mother to do?!? <G>
Andy
------------------------------
Date: Wed, 25 Nov 2009 11:33:01 -0600
From: Andy <a@b.c>
Subject: Re: Good Golly Miss Molly Perl. Been so long.
Message-Id: <Xns9CCE7FAA44DC2CotD@216.196.97.131>
"Uri Guttman" <uri@StemSystems.com> wrote in
news:878wdupl9n.fsf@quad.sysarch.com:
>
> this is some of the worst perl code i have ever seen. it is basic
> written in perl. 10 or more gotos. NOT ONE SUB. no strict or warnings.
> spaghetti logic all the way. i am ashamed to see this code in
> public. you should be ashamed too.
>
>>>>>> "A" == Andy <a@b.c> writes:
>
> A> I can't reason with my own code.
>
> A> It's been ages.
>
> because it sucked to begin with. learn how to code without gotos.
>
> uri
uri,
I was given that advice more than once!
You're a Perl hero of mine!
Best,
Andy
------------------------------
Date: 25 Nov 2009 17:34:30 GMT
From: Glenn Jackman <glennj@ncf.ca>
Subject: Re: Good Golly Miss Molly Perl. Been so long.
Message-Id: <slrnhgqql7.fc5.glennj@smeagol.ncf.ca>
At 2009-11-25 12:27PM, "Uri Guttman" wrote:
> this is some of the worst perl code i have ever seen. it is basic
> written in perl. 10 or more gotos. NOT ONE SUB. no strict or warnings.
> spaghetti logic all the way. i am ashamed to see this code in
> public. you should be ashamed too.
Come on now. Subroutines are _so_ 1968.
--
Glenn Jackman
Write a wise saying and your name will live forever. -- Anonymous
------------------------------
Date: Wed, 25 Nov 2009 17:38:42 +0000
From: Rosalind Mitchell <steampunk@golgonooza.co.uk>
Subject: Re: Good Golly Miss Molly Perl. Been so long.
Message-Id: <1259170722.2463.4.camel@teesdale.golgonooza.co.uk>
On Wed, 2009-11-25 at 17:34 +0000, Glenn Jackman wrote:
> At 2009-11-25 12:27PM, "Uri Guttman" wrote:
> > this is some of the worst perl code i have ever seen. it is basic
> > written in perl. 10 or more gotos. NOT ONE SUB. no strict or warnings.
> > spaghetti logic all the way. i am ashamed to see this code in
> > public. you should be ashamed too.
>=20
> Come on now. Subroutines are _so_ 1968.
>=20
I blame that Michael Jackson, myself. =20
Wonder what happened to him? He was never so good after Thriller,
though his books about beer and whisky were all right.
------------------------------
Date: Wed, 25 Nov 2009 12:54:14 -0500
From: "Uri Guttman" <uri@StemSystems.com>
Subject: Re: Good Golly Miss Molly Perl. Been so long.
Message-Id: <87skc2o5h5.fsf@quad.sysarch.com>
>>>>> "A" == Andy <a@b.c> writes:
A> "Uri Guttman" <uri@StemSystems.com> wrote in
A> news:878wdupl9n.fsf@quad.sysarch.com:
>>
>> this is some of the worst perl code i have ever seen. it is basic
>> written in perl. 10 or more gotos. NOT ONE SUB. no strict or warnings.
>> spaghetti logic all the way. i am ashamed to see this code in
>> public. you should be ashamed too.
>>
>>>>>>> "A" == Andy <a@b.c> writes:
>>
A> I can't reason with my own code.
>>
A> It's been ages.
>>
>> because it sucked to begin with. learn how to code without gotos.
>>
>> uri
A> uri,
A> I was given that advice more than once!
so why haven't you fixed that mess? or learned how to code properly.
A> You're a Perl hero of mine!
you are no acolyte if you don't listen. i don't want to be your hero if
you don't learn to code properly.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Wed, 25 Nov 2009 13:29:14 -0500
From: Adam Russell <ac.russell@live.com>
Subject: Re: Good Golly Miss Molly Perl. Been so long.
Message-Id: <78d5f$4b0d777b$c650990a$31117@news.eurofeeds.com>
Andy wrote:
> Good Golly Miss Molly Perl. Been so long.
>
> You Perl people are great motivators.
>
> I have an urge to re-perl again.
>
> Any iPhone perl I can carry around in my pocket?
No, but there is a perl port to the SymbianOS.
I have made some contributions to it so I can say
that it is currently in a working state provided you
configure a Symbian development environment.
------------------------------
Date: Wed, 25 Nov 2009 10:30:48 -0800
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: Good Golly Miss Molly Perl. Been so long.
Message-Id: <aosqg5944na8rnetrcj3t4b89keapif9va@4ax.com>
Andy <a@b.c> wrote:
>#!/usr/bin/perl
Missing:
use warnings;
use strict;
># PERLotto 1.3
># Your Customizable Lotto Ticket Checker.
>#
># Copyright (c) 2002, 2003 Andy Burns. All rights reserved.
>
># Email yoy@comcast.net with questions/answers
>
>##### THIS CODE IS NOT PRETTY BUT IT WORKS.
>##### USE AT YOUR OWN RISK!
>
># Fixed in version 1.3:
># Added missing games file error cheking.
># Fixed in version 1.2:
># Don't print "--0" for no-hit games
># Cosmetic print statement adjustments.
># Added missing "official" bonus winning number error checks.
># Fixed in version 1.1:
># Print to screen instead of file.
>
># Read or setup 'perlotto.cfg" variables
>
>SETOPTIONS:
>
>open( IN, "<perlotto.cfg" ) or goto SETTINGS;
Yikes! Why goto? This is most definitely not a place where it needed.
>@a = ("");
Why?
>while (<IN>) {
> chomp;
> $a[ $. - 1 ] = $_;
Yikes! Why not a simple push()?
Or actually because you are just reading all lines and adding them to
the array anyway you can much easier just slurp in the whole file:
@a = <IN>;
chomp @a;
>}
>
>close(IN) || die "Error closing config file.\n";
Why hiding the file name? Why hiding the reason for the error?
>
>$lotto_Max_Number = $a[0];
>$picks_Per_Game = $a[1];
>$bonus_Ball_On = $a[2];
>$bonus_Max_Number = $a[3];
>$bonus_Ball = 0;
>
>goto MAINMENU;
Yikes! Yes, a good programmer can program BASIC in any programming
language. But that doesn't mean it is a good thing to do so.
Learn about functions and use them! There are very few cases where a
goto() is justified, none of those in your program fall in that group.
>SETTINGS:
>print "\n\n-- SETTINGS --\n\n";
>print "\n Does your lotto use a \"bonus ball\"? (y/n): ";
>chomp( $bonus_Ball_On = <STDIN> );
>$bonus_Ball_On = lc( substr( $bonus_Ball_On, 0, 1 ) );
>if ( $bonus_Ball_On eq 'y' ) {
There are more elegant ways to standardize/check user input, but I
suppose if it works it's ok.
> print "\n What's the highest bonus number allowed? ";
> chomp( $bonus_Max_Number = <STDIN> );
>}
>else {
> $bonus_Max_Number = 0;
>}
>print "\n How many numbers are in your main lotto game? ";
>chomp( $picks_Per_Game = <STDIN> );
>print "\n What's the highest number allowed? ";
>chomp( $lotto_Max_Number = <STDIN> );
>
>if ( $bonus_Ball_On eq 'y' ) {
> $picks_Per_Game = $picks_Per_Game + 1;
>}
>open( OUT, ">perlotto.cfg" );
>print OUT "$lotto_Max_Number\n";
>print OUT "$picks_Per_Game\n";
>print OUT "$bonus_Ball_On\n";
>print OUT "$bonus_Max_Number\n";
>close OUT || die "Couldn't close 'perlotto.cfg file.\n";
>
>MAINMENU:
>goto SETOPTIONS if ( $lotto_Max_Number eq undef );
What is this supposed to do? The string value of undef is the empty
string, so you are comparing $lotto_Max_Number with the empty string.
Why and why not a straight eq with the empty string?
I stopped looking here, this code is just too convoluted, including way
to many gotos all over place. Impossible to follow the execution flow
without a flow chart.
Learn about structured programming (any introductory class into computer
science will do) and while you are at it, please add some comments, too.
jue
------------------------------
Date: Wed, 25 Nov 2009 11:23:09 -0800 (PST)
From: "++imanshu" <himanshu.garg@gmail.com>
Subject: Perl Logo
Message-Id: <17738876-b5d7-4946-9a42-e66966b36d10@g22g2000prf.googlegroups.com>
Is there a Perl logo image I can link to from my website with the <img
src=""> tag.
I see that there are copyright restrictions with the Camel and the
Onion.
Thank You,
++imanshu
------------------------------
Date: Wed, 25 Nov 2009 14:28:57 -0500
From: "Uri Guttman" <uri@StemSystems.com>
Subject: Re: Perl Logo
Message-Id: <877htemmiu.fsf@quad.sysarch.com>
>>>>> "+" == ++imanshu <himanshu.garg@gmail.com> writes:
+> Is there a Perl logo image I can link to from my website with the <img
+> src=""> tag.
+> I see that there are copyright restrictions with the Camel and the
+> Onion.
you can use certain camel images from o'reilly without problems if you
are not using it in a commercial way. these are the programming republic
of perl images and they need to be linked back to o'reilly. there is a
web page they have about this. the onion is copyrighted by the perl
foundation but it is free to use in any form. it was created just so we
wouldn't have any restrictions on it like the camel. there is also a tpf
page that covers this free use of the onion.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.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:
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
Back issues are available via anonymous ftp from
ftp://cil-www.oce.orst.edu/pub/perl/old-digests.
#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 2693
***************************************
