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