Phoenix.pm: Meeting 01/11/2000

Douglas E. Miles doug.miles at ns2.phoenix.bowne.com
Tue Jan 11 14:36:20 CST 2000


Dave Warner wrote:
> 
> #!/usr/bin/perl
> 
> my $sons_wishes = "Pokemon League"
> my $own_wishes  = "Perl Mongers Meeting"
> 
> if ($sons_wishes gt $own_wishes) {
> 
>     print "See you next meeting!"
> 
>   }

#!/usr/bin/perl

package Pokemon;

sub new
{

 return 1;

}

package main;

POKEMONLEAGUE: tell(YOURSON);
$pokemon = new Pokemon 'Camel';
goto PERLMONGERS;

PERLMONGERS: dump POKEMONLEAGUE;

Enjoy the Pokemon League! :)  If you run this you get a nice core file.
:)

-- 
For a list of the ways which technology has failed
to improve our quality of life, press 3.



More information about the Phoenix-pm mailing list