|
#!/usr/bin/perl
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
my $infile= "news.dat";
my @news=data();
my @template=gettemplate();
print "Content-type: text/html\n\n";
foreach (@news){
($h1,$date,$txt) = split(/\|/,$_);
&output if (/\w/);
}
exit;
########################################
sub output{
foreach (@template){
$line=$_;
chomp $line;
$line =~ s//$h1/g;
$line =~ s//$date/g;
$line =~ s//$txt/g;
print $line;
}
}
sub data
{
open (DATA, "$infile");
my @data= ;
close (DATA);
return @data;
}
sub gettemplate
{
open(FILE,"box_temp.html");
my @tmp=;
close(FILE);
return @tmp;
}
|
|
|