Re: Looking through a file...

Try something like this:


# blah blah blah ...

print $Page->header;
print <<HTMLSTUFF;
<body>
HTMLSTUFF

do_work($Info);

print <<HTMLSTUFF;
</body>
HTMLSTUFF

exit;

sub do_work {
    my $Info = shift;
    print "<p>matching: $Info</p>$/";

    if ( $Info =~ / / ) {
        print "<p>one word only please</p>\n";
        return;
    }
    unless (open (FILE, "<names.html")) {
        print "<p>open: $!</p>\n";
        return;
    }

    my @Names = grep(/$Info/,<FILE>);
    foreach my $Name (@Names) {
        print "<p>$Name</p>\n";
    }
    close(FILE);
}
[download]

Can 'ya tell I don't do much CGI.. :(

Comment on Re: Looking through a file... Download Code