Poems

This is our selection of verse and poetry, written by, for and about the goth/punk/industrial/death-rock community. Got some poems of your own? Heck, even if what you’ve got is articles, or a rant, or something completely else, you can send it to us. See the bottom of this page for details.

% foreach my $this_item (reverse sort keys %poem) { % my $this_file = $poem{$this_item}; % my $this_url; % if ($this_file =~ /^$ENV{DOCUMENT_ROOT}/) { % $this_url = $'; % } % my $this_title = $$this_file{Title}; % my $this_blurb; % $this_blurb = $$this_file{BigBlurb} || $$this_file{Blurb} || $$this_file{Description}; % my ($this_year, $this_month, $this_day, $this_post_time); % $this_year = substr($$this_file{DatePosted}, 0, 4); % $this_month = substr($$this_file{DatePosted}, 4, 2); % $this_day = substr($$this_file{DatePosted}, 6, 2); % if ($this_month eq '00' || $this_day eq '00') { % $this_post_time = 'sometime in '.$this_year; % } else { % $this_post_time = "$this_month/$this_day/$this_year"; % } %# if (length($$this_file{Blurb}) > 1) { %# $this_blurb = $$this_file{Blurb}; %# } else { %# $this_blurb = $$this_file{Description}; %# } % }
+ <% $this_title %> Posted: <% $this_post_time %>
<% $this_blurb %>
 

Want to contribute content to the GothPunk Community? We’d love to see it! We’re especially looking for: artwork, essays, reviews (of clubs, movies, music, whatever), rants, articles and such-like. In fact, we have a whole list of things we’re looking for. Send submissions to webmaster@GothPunk.com.

<%init> # Find the three most recent items in each category. $| = 1; no strict 'vars'; no strict 'subs'; no strict 'refs'; my @dirs_to_check = ('','poems'); undef %poem; # Here's where you put in anything that should always be added, # but its owner might not remember to put in the s. my $file_count = 0; foreach my $this_dir (@dirs_to_check) { # Clean up slashes between path elements. if (length($this_dir) > 1 && $this_dir !~ /\/$/) { $this_dir .= '/'; } $this_dir = $ENV{'DOCUMENT_ROOT'}.'/'.$this_dir; # Get a list of all HTML files in the dir... opendir DIR, $this_dir; my @these_files = grep /\.html$/i, readdir DIR; foreach my $this_file (@these_files) { $this_file = $this_dir . $this_file; undef %$this_file; open FILE, "$this_file"; $file_count++; my $is_poem = 0; my $found_h1 = 0; my $found_h2 = 0; my $found_h3 = 0; while () { if (//i) { if ($1 eq 'poem') { $is_poem = 1; } else { $is_poem = 0; undef $$this_file; last; } } if (//i) { $$this_file{DatePosted} = $1; } if (//i) { $$this_file{Blurb} = $1; } while ($$this_file{Blurb} =~ /\*([^*]{1,20})\*/) { $$this_file{Blurb} = $`.''.$1.''.$'; } if (//i) { $$this_file{BigBlurb} = $1; } while ($$this_file{BigBlurb} =~ /\*([^*]{1,20})\*/) { $$this_file{BigBlurb} = $`.''.$1.''.$'; } if (//i) { $$this_file{Description} = $1; } if (//i) { $$this_file{Title} = $1; $found_h1 = $found_h2 = 1; } if (/

([^<]+)<\/h1>/i && ! $found_h1) { $$this_file{Title} = $1; $found_h1 = 1; } if (/

([^<]+)<\/h2>/i && ! $found_h2 && $$this_file{Title} =~ /:$/) { $$this_file{Title} .= ' '.$1; $found_h2 = 1; } if (/

([^<]+)<\/h3>/i && ! $found_h3) { $$this_file{Author} = $1; $found_h3 = 1; } last if ($$this_file{DatePosted} && $$this_file{Title} && $$this_file{Author} && ($$this_file{Blurb} || $$this_file{Description})); } close FILE; if ($is_poem) { $date_key = $$this_file{'DatePosted'} . '.' . $file_count; # unless (grep /$this_file/, values(%poem)) { $poem{$date_key} = $this_file; # } } } closedir DIR; } <%args>