在简单的cgi搜索上添加正则表达式功能

Question

我有这个简单的cgi脚本工作正常，但我想添加正则表达式功能。那可能吗？如果是这样我需要添加。感谢。

    #!/usr/local/bin/perl
    read(STDIN, $buffer,$ENV{'CONTENT_LENGTH'});
    @pairs = split(/&/, $buffer);
    foreach $pair (@pairs) {
        ($key, $value) = split(/=/, $pair);
        foreach $pair (@pairs) {
            ($key, $value) = split(/=/, $pair);
            $value =~ tr/+/ /;
            $value =~ s/%([a-zA-Z0-9][a-zA-Z0-9])/pack("C", hex($1))/eg;
            $formdata{$key}.= "$value";
         }
     }
    $search = $formdata{'search'};
    open(INFO, "/test/myfile");
    @array=<INFO>;
    close (INFO);

...代码截断

Answer 1

查找以“.cgi”结尾的行：

my @array = grep /\.cgi$/, <INFO>;