Question

perl中怎样把正则表达式匹配的内容存入哈希

Answer 1

$values= <OUTFILE> 这样这个变量只读取了一行啊，$/ 中保存这输入行记录分隔符(它的默认分隔符是\n)。因此，每当菱形运算符用于读取数据时，它将一直读取数据，直到它发现与$/一致的字符。所以，如果我们将$/设为 undef ，菱形运算符将读取整个文件并将它们存储在标量中。 要想让perl“吞吃文件”，可以改成这样: use strict; my $values ; open(OUTFILE,"file.txt") or die("Can't find file.txt:$!") ; $/ = undef; # 此行注掉后，$values 仅读入Logon Failure: while(defined($values= <OUTFILE>)){ # print $values ; if($values =~ /.*User Name:(.*);(.*)/ms){ print $1; print $2; }}