#!/usr/bin/env perl use strict; use CGI; my $target_file = "/home/yto/a.txt"; my $q = new CGI; print $q->header(), $q->start_html(-title=>'search'); #print $q->dump; # for debug print $q->startform(-method => 'GET', -name => 'myform'), $q->textfield('key'), $q->submit('ok'), $q->endform, "\n"; my $key = quotemeta $q->param('key'); # remove "quotemeta" for regexp if ($key !~ /^\s*$/) { if (open(F, $target_file)) { my $r = ""; while () { if (s|($key)|$1|gi) { # $r .= "$.: "; # line number $r .= $_; } } $r = "NOT FOUND" if ($r eq ""); print "
$r
\n"; } else { print "ERROR: Can't open '$target_file'\n"; } } print $q->end_html(), "\n";