$content{$ARGV[0]}->{title}

#!/usr/bin/perl use CGI qw(:standard); my $input="/home/atporter/.blog/input/"; opendir(DIR, $input); my @subjectlist = grep (!/^..?$/, readdir(DIR)); closedir DIR; foreach $subject (@subjectlist) { opendir(DIR, $input . $subject); my @itemlist = grep (!/^..?$/, readdir(DIR)); closedir DIR; foreach $item (@itemlist) { my $mtime = (stat($input . $subject . "/" . $item))[9]; $content{$mtime}->{"subject"} = $subject; $content{$mtime}->{"title"} = $item; $content{$mtime}->{"filename"} = $input . $subject . "/" . $item; # print "$content{$mtime}->{'title'}\n"; } } print "Content-Type: text/html\r\n\n$content{$ARGV[0]}->{title}\n\n"; print "\n"; open(CON, "$content{$ARGV[0]}->{filename}"); $con_print=""; while() { $con_print .= $_; } close(CON); $con_print =~ s/\n/
/g; print "\n"; print "

\n"; print "

$content{$ARGV[0]}->{title}	" . localtime($ARGV[0]) . "	$content{$ARGV[0]}->{subject}
$con_print

\n";