🚀 go-pugleaf

Jerzy Orzeszek <Jerzy.Orzeszek@univcomp.waw.pl> wrote:
> A teraz sedno sprawy:
> Jak napisać cgi którym będę mógł przeszukać plik dane.html ?
> Chodzi o przeszukiwanie wg wpisanej nazwy w formularzu tak aby skrypt
> otwierał sobie plik i szukał odpowiedniego wpisu, jak znajdzie 
> nich cofnie się o cztery znaki - linia zaczyna się od:
> <h3>Nazwa</h3>
> i wczytuje powiedzmy pięć linii w dół. A wynik wyświetla na ekranie
> w postaci strony html.

> Czy ktoś mógłby mi pomóc???
#!/usr/bin/perl
# skrypt CGI w perlu szukajaca tekstu <h3>TEXT</h3> na stronie data.html
# wyswietla kawalek strony data.html z TEXT'em od <h3>TEXT</h3>
# do linii z <hr> na poczatku
# Piotr Klaban <makler@man.torun.pl>

$head = <<'END'; # head of the HTML document
<html>
<head>
<title>Wynik</title>
</head>
<body>
<h1 align="center">To jest to co chciales znalezc</h1>
END

$foot = <<'END'; # footer of the HTML document
<hr>
</body>
</html>
END

$file = 'dane.html';

########### BEGIN ##############

&ReadParse;
$TEXT = $in{'text'};

print "Content-Type: text/html\n\n";
print $head;


open(PLIK,"$file") || die "Open $file: $!\n";
while (<PLIK>) {
	if (/^<h3>([^<]+)<\/h3>/) { # find <h3> case insensitive
		$found = 1 if $1 eq $TEXT; # or => $1 =~ /^$TEXT$/i
	}
	last if $found && /^<hr>/i; # the end of the data record
	print if $found;
}
close(PLIK) || die "Close $file: $!\n";

print "$TEXT not found. ;-(<br>\n" if !($found);

print $foot;

sub ReadParse { # my readparse method
        my($req,@req);
        $req = $ENV{'REQUEST_METHOD'} eq 'GET' ?
           $ENV{'QUERY_STRING'} :
           join('',<STDIN>);
	$req =~ s/\n//g;
        @req = split(/&/,$req);
        foreach (@req) {
                my($key,$value) = split(/=/,$_,2);
                $in{"$key"} = &uri_unescape($value);
        }
}

sub uri_unescape # from URI::Escape with my own improvements
{
    # Note from RFC1630:  "Sequences which start with a percent sign
    # but are not followed by two hexadecimal characters are reserved
    # for future extension"
    my @copy = @_;
    for (@copy) { s/\+/ /g; s/%([\dA-Fa-f]{2})/chr(hex($1))/eg; }
    wantarray ? @copy : $copy[0];
}

#P.K.

-- 
Piotr Klaban
--
makler@man.torun.pl