您好,我正在使用 perl,现在我不知道如何获得我想要的输出。我只想打印下面的所有数字 beetween DIGIT 是我的代码我希望这里有人可以帮助我找到正确的正则表达式。
请帮助我...这里是我的代码
#!/usr/bin/perl
my $string = "<TR><TD COLSPAN=2 VALIGN=TOP>Please enter the random key shown below:<TR><TD> <TD VALIGN=TOP><FONT SIZE=+1><FONT COLOR=WHITE>...</FONT>4<FONT COLOR=WHITE>...</FONT>5<FONT COLOR=WHITE>...</FONT>4<FONT COLOR=WHITE>..</FONT>4<FONT COLOR=WHITE>..</FONT>2<FONT COLOR=WHITE>..</FONT>2</FONT></TR>";
if ($string =~ m,</FONT>(\d)<FONT COLOR=WHITE,i) {
print "$1\n"; #output 454422
} else {
print "Wrong Regex! \n";
}