|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Alexey Fomin 2:5080/230.7 17 Apr 2002 19:52:48
To : All
Subject : Скрипт для вставки одного файла в другой
--------------------------------------------------------------------------------
---------------------------------------------------------------------
Hеподскажет ли мне уважаемый All, как правильно вызвать следующий скрипт:
>=== Здесь начался table.txt ===
$querystring = $ENV{'QUERY_STRING'};
$basedir = "localhost/test/";
$querystring =~ tr/+/ /;
($filename,$query,$title,$width,$border,$padding,$spacing,$colspan,$fields) =
split(/\s*\,\s*/,$querystring,9);
$filename =~ s/\|//g;
$filename =~ s/\<//g;
$filename =~ s/\>//g;
$filename =~ s/\+//g;
$filename =~ s/\\//g;
$filename =~ s/\///g;
&open_file("FILE1","","$basedir$filename");
$counter = 0;
print "Content-type: text/html\n\n";
print "<HTML>\n";
print "<BODY BGCOLOR=#FFFFFF TEXT=#000000 LINK=#0000FF VLINK=#800040
ALINK=#800040>\n";
print "<TITLE>$title</TITLE>\n";
print "<CENTER>\n";
print "<TABLE width=$width border=$border cellpadding=$padding
cellspacing=$spacing>\n";
print "<TH Colspan=$colspan>$title</TH>\n";
$line = &read_file("FILE1");
@tableheading = split(/\s*\,\s*/,$line ,$fields - 1);
print "<TR>\n";
for ($x=0;$x < @tableheading;$x++) {
print "<TD>$tableheading[$x]</TD>\n";
}
print "</TR>\n";
while (($line = &read_file("FILE1")) && ($counter < 100)) {
@tabledata = split(/\s*\|\s*/,$line ,$fields);
if ($tabledata[0] =~ /^$query$/i) {
print "<TR>\n";
for ($x=1;$x < @tabledata;$x++) {
print "<TD>$tabledata[$x]</TD>\n";
}
print "</TR>\n";
$counter++;
}
}
close(FILE1);
if ($counter == 0) {
print "<B> Sorry, No Matches were found.</B>\n";
}
if ($counter == 100) {
print "<BR><B>Only 100 matches have been retrieved, you may want to add
more keywords to narrow your search.</B>\n";
}
print "</TABLE>\n";
print "</CENTER>\n";
print "</BODY></HTML>\n";
sub open_file {
local ($filevar, $filemode, $filename) = @_;
open ($filevar,$filemode . $filename) ||
die ("Can't open $filename");
}
sub read_file {
local ($filevar) = @_;
<$filevar>;
}
sub write_file {
local ($filevar, $line) = @_;
print $filevar ($line);
}
>=== Здесь скончался table.txt ===
А то вот начал учить ПЕРЛ, накачал примеров/доков и не пошло...
Помогите советом, плз...
---------------------------------------------------------------------
С наилучшими пожеланиями, Алексей Фомин aka VAFER
ё-mail: vafer@narod.ru
fidonet: 2:5080/230.7
--- Отчеканено золотом в GoldEditor+ 1.1.5/W32
* Origin: И на нашей улице камаз с анашой перевернётся... (2:5080/230.7)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
