Matt@Ikonboard — Sun, 14 Jan 2001 20:45:06 +0000

Quote: sub Print_Foot {
$prod_link = $_[0];
open(FOOT, ";
close(FOOT);

$n=1;
foreach $line (@foot) {
print "$line\n";
$n++;
}

}
1;

May be better written as:

sub Print_Foot {
my $Swop = $_[0];
open FOOT, '<Library/foot.html' or &ErrorMessage;
while (<FOOT>) {
    $_ =~ s!\$prod_link!$Swop!isg;
    print $_, "\n";
    }
close FOOT or die $!;
}