Дико извиняюсь перед всем сообществом - не по злому умыслу, а тока по неведению...
Взял чужой скрипт, поменял в строке название файла...
#!/usr/bin/perl
$pn_count = 0; #
$file_db = "table.db";
######## Error Messages ####################
$text{\'0001\'} = "Что-то где-то ненашлось =((";
############################################
$pn_flag = "Off"; # On & Off нумиратор строк
$font_size = 1; # размер буковок
$border = 1; # бордюр в таблице
$cellspacing = 0; #
$cellpadding = 2; #
$width = 40;
############################################
print "Content-type: text/html\\n\\n";
open(LOG,"$file_db") || &Error("0001");
@lines =
;
close(LOG);
$kol_lines = @lines;
$kol_stolbs = @stolbs = split(/;/, @lines[0]);
print "\\n";
print "\\n";
foreach $stolbs (@lines) {
$stolbs =~ s/\\n//g;
$count = 0;
@stolbs = split(/;/, $stolbs);
print "\\n";
if($pn_flag eq "On"){
print " ";
if ($pn_count == 0){print "п/н";}else{print "$pn_count";}
print " |
\\n";
$pn_count++;
}
while($count < $kol_stolbs){
if($flag ne "On"){
print " ";
}elsif($count == 0){
print " | ";
}elsif($count == 1){
print " | ";
}elsif($count == 2){
print " | ";
}else{
print " | ";
}
print "";
print "@stolbs[$count]";
if ($flag ne "On"){print "";}
print " | \\n";
$count++;
}
print "\\n";
$flag = "On";
}
print "
\\n";
print "\\n";
print "\\n";
exit;
sub Error {
local ($error_text) = @_;
print "$text{$error_text}\\n";
exit;}
там вначале была шапка человека ,который это все сделал, не знаю, нужна или нет - я ее удалил, сейчас поищу, может где осталась...
