刚用perl，遇见错误。求人解答，感激涕零modgrep

xubigtree

#!/usr/bin/perl

use Getopt::Std;
use vars qw/ %opt /;
my $opt_string = 'hf:s:v:';
getopts( "$opt_string", \%opt ) or usage();
usage() if $opt{h};

if ($opt{f}) {
    open(FH,"<$opt{f}" || die "cant find $opt{f} file $!\n";
}

if ($opt{s}) {
    $sstr = $opt{s};
}

$/ = "-Z--\n";

while(my $line = <FH&gt {
    chomp $line;
    if ($line =~ m/$sstr/g) {
        print "========================================\nMatched Transaction for Search String ($sstr)\n========================================\n";
        print $line,"-Z--\n";
        print "\n";

    }
}
close(FH);

exit;

sub usage()

{
    print STDERR << "EOF";

This program does...

usage: $0 [-hf:s:v:]
    if a file is compressed then it will be uncompressed on the fly

    default   : display usage
    -f file   : file to search through
    -s string : string to match on - enclosed in quotes if it
                contains spaces

    -v level  : verbose output
    -h        : this (help) message

example:

         $0
         $0 -f
         $0 -s
         $0 -v level               Verbose/Debug messages, where level = 0..9
EOF
    exit;
}



这段代码，求解释和错误分析
错误如下：

xubigtree

郁闷，特殊符号居然转换成表情了
我上代码截图吧

cdtits

貌似你这个代码从网页剪贴下来有问题啊

xubigtree

http://www.oschina.net/code/snippet_12_5735我从这个网址下的。你能告诉我怎么改吗？

xubigtree

帮我看看那个代码吧，谢谢了回复 3# cdtits


   

cdtits

试试把 html 网页中的：
&lt; 改成 <
&gt; 改成 >