#!/usr/bin/perl my %bologna = ( firstname => 'OSCAR', secondname => 'MAYER', ); chomp foreach @days; read STDIN, $me, 3; print "Because ", values %bologna, " has a way with BOLOGNA\n" if $me eq 'why';
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: My bologna.pl
by zentara (Cardinal) on Jun 07, 2007 at 12:08 UTC | |
by princepawn (Parson) on Jun 07, 2007 at 13:42 UTC | |
by zentara (Cardinal) on Jun 07, 2007 at 16:59 UTC | |
by princepawn (Parson) on Jun 07, 2007 at 18:16 UTC | |
by zentara (Cardinal) on Jun 08, 2007 at 11:49 UTC | |
by dbw (Beadle) on Aug 24, 2007 at 14:11 UTC | |
by zentara (Cardinal) on Jun 08, 2007 at 16:08 UTC | |
Re: My bologna.pl
by Anonymous Monk on Jun 07, 2007 at 06:21 UTC |