PERL Poetry for Sept 11

[Steve Lane]

here's a modified version that passes `use strict` and warnings:

my %the;sis:; BEGIN{$ _-- }

SHOCK:
{
     fills (my $heart);
     unbelief (sinks =>`in`);
     END { my $sorrow;
     untie my $pain; }
}


ANGER:
{
     fills (my $heart);
     curse ($the {Dancers});
     kill  $the {Guilty};
     DESTROY {$the {Mastermind}}
}

GRIEF:
{
     fills (my $heart);
     bless $the {Dead};
     thank (@{$the {Volunteers}});
     BEGIN {?anew?}
}

# structure:  There are no structures;
#             they have all collapsed.
# use strict: There is no discipline;
#             only chaos of madmen.
# warnings:   There is no warnings;
#             there WERE no warnings.

$ perl -Mstrict -wc wtc-poetry 
wtc-poetry syntax OK

the first part is meant to be read as "my thesis begins --"
but it's a little clumsy.  and i don't have `curse` as
a builtin yet.

-- Steve

"Martin, David" wrote:
> 
> SHOCK:
> {
>      fills (my $heart);
>      unbelief (sinks=>'in');
>      END { my $sorrow;
>      untie my $pain; }
> }
> 
> ANGER:
> {
>      fills (my $heart);
>      curse $the{Dancers};
>      kill  $the{Guilty};
>      DESTROY {$the{Mastermind}}
> }
> 
> GRIEF:
> {
>      fills (my $heart);
>      bless $the{Dead};
>      thank (@{$the{Volunteers}});
>      BEGIN {a new()}
> }
> 
> # structure:  There are no structures;
>               they have all collapsed.
> # use strict: There is no discipline;
>               only chaos of madmen.
> # warnings:   There is no warnings;
>               there WERE no warnings.
> 
> I found this at http://www.perlmonks.org/index.pl?node=Perl%20Poetry

--
Steve Lane <sml at zfx.com>
http://knoxville.pm.org/