$mcat = (split /:::/, $line4)[7]

open DATA, "$userpath/$user/forums/cat.txt"; 
my @data = <DATA>; 
close DATA; 
 
open DATA, "$userpath/$user/forums/boarddata.txt"; 
my @data2 = map { chomp; [split /:::/] } <DATA>; 
close DATA; 
  
foreach my $data (@data) { 
  chomp $data; 
  
  print <<"EOF"; 
<table width=100% border=0 cellpadding=3 cellspacing=1><tr> 
<td width=50% bgcolor="$tablemid"> 
<img src="Board.gif" border=0 vspace=1 align="absmiddle"> 
<a href="http://www.site.com/board3.cgi?action=index&cat=$data">$data</a> 
</td> 
EOF 
  
  my $posts = 0; 
  foreach( @data2 ) { 
    $posts++ if $_->[7] eq $data; 
  } 
  
  print <<"EOF"; 
<td width=18% align="center" bgcolor="$tablemid"><font size=2>$posts</font></td> 
<td width=21% align="center" bgcolor="$tablemid"><font size=2>??</font></td> 
<td width=11% align="center" bgcolor="$tablemid"><font size=2></font></td></tr></table> 
EOF 
}

open DATA, "$userpath/$user/forums/cat.txt"; 
chomp( my @data = <DATA> ); 
close DATA; 
open DATA, "$userpath/$user/forums/boarddata.txt"; 
my @data2 = map { chomp; [split /:::/] } <DATA>; 
close DATA; 
  
my %posts; 
$posts{$_->[7]}++ foreach @data2; 
  
foreach my $data (@data) { 
  $posts{$data} ||= 0;  # default number of posts is zero 
  print <<"EOF"; 
<table width=100% border=0 cellpadding=3 cellspacing=1><tr> 
<td width=50% bgcolor="$tablemid"> 
<img src="Board.gif" border=0 vspace=1 align="absmiddle"> 
<a href="http://www.site.com/board3.cgi?action=index&cat=$data">$data</a> 
</td> 
<td width=18% align="center" bgcolor="$tablemid"><font size=2>$posts{$data}</font></td> 
<td width=21% align="center" bgcolor="$tablemid"><font size=2>??</font></td> 
<td width=11% align="center" bgcolor="$tablemid"><font size=2></font></td></tr></table> 
EOF 
}

my @fields = qw(num sub follow name email date ip cat 
                message linkname linkurl imageurl); 
  
open FILE, $datafile or errorman("cannot open $datafile: $!\n"); 
lock(FILE); 
  
# The following map will create an array of hashes from the 
# $datafile. This means each message will be stored as a hash 
# table (with keys from @fields), and references to these 
# hash tables are provided in the array @data. This makes 
# the for-loop unneccessary, except for thread counting. 
# Instead of keeping an endless amount of arrays, we just 
# have one array. To access the 'imageurl' of the 5th 
# message, just use '$data[4]{imageurl}', for instance. 
  
my @data = map { 
             chomp; my @f = split /:::/; 
             scalar { map { $_ => shift @f } @fields } 
           } <FILE>; 
  
unlock(FILE); 
close FILE; 
  
# Uncomment the following lines if you need $messagecount 
# and $threadcount 
  
# my $messagecount = scalar @data; 
  
# my $threadcount; 
# foreach( @data ) { 
#   $threadcount++ if $_->{follow} == 1; 
# } 
  
# Uncomment any needed global 
  
# my $threaded = 1; 
# my $maximum = 1; 
# my $maxdisplay = 50; 
# my $displaycounter = 0; 
# my $itzapizza = 0; 
# my $remember = $data[0]{num}; 
  
foreach( @data ) { 
  next unless $form{cat} eq $_->{cat}; 
     
  # 
  # I'm not quite sure what the input looks like 
  # and what output is expected. I'm stuck!!! 
  # 
}

#!/bin/perl -w 
use strict; 
use warnings; 
  
my $datafile = 'database.dat'; 
my %form = ( cat => 'Common_Questions' ); 
  
my @fields = qw(num sub follow name email date ip cat 
                message linkname linkurl imageurl); 
  
open FILE, $datafile or errorman("cannot open $datafile: $!\n"); 
# lock(FILE); 
  
# The following map will create an array of hashes from the 
# $datafile. This means each message will be stored as a hash 
# table (with keys from @fields), and references to these 
# hash tables are provided in the array @data. This makes 
# the for-loop unneccessary, except for thread counting. 
# Instead of keeping an endless amount of arrays, we just 
# have one array. To access the 'imageurl' of the 5th 
# message, just use '$data[4]{imageurl}', for instance. 
  
my @data = map { 
             chomp; my @f = split /:::/; 
             scalar { map { $_ => shift @f } @fields } 
           } <FILE>; 
  
# unlock(FILE); 
close FILE; 
  
# Uncomment the following lines if you 
# need $messagecount and $threadcount 
  
# my $messagecount = scalar @data; 
  
# my $threadcount; 
# foreach( @data ) { 
#   $threadcount++ if $_->{follow} == 1; 
# } 
  
my $maximum = 1; 
my $maxdisplay = 50; 
my $displaycounter = 0; 
  
my $reply; 
my $remember = undef; 
  
# 
# Print HTML header here 
# 
  
foreach( @data ) { 
  # Ignore foreign categories 
  next unless $form{cat} eq $_->{cat}; 
  
  # Increment reply counter and proceed 
  # with next iteration if we have follow-ups 
  ++$reply and next if $_->{follow} > 1; 
  
  # Exit the loop if we reach limit 
  last if ++$displaycounter >= $maxdisplay && $maximum; 
  
  # Print the remembered thread beginning 
  PrintTopicLine( $remember, $reply ) if defined $remember; 
  
  # Reset the reply counter and remember the current entry 
  $reply = 0; $remember = $_; 
} 
  
# Print the leftover entry 
PrintTopicLine( $remember, $reply ) if defined $remember; 
  
# 
# Print HTML footer here 
# 
  
  
  
### SUBS ################################################### 
  
sub PrintTopicLine 
{ 
  my($data, $reply) = @_; 
     
  # Print HTML table entry 
  print "$data->{num}: $data->{sub} ($reply replies)\n"; 
}

use CGI qw(:standard); 
# 
# lots of useful code 
# 
$category = param('cat');

  next unless $form{cat} eq $_->{cat};

  next unless $category eq $_->{cat};