perl问题,见鬼了!
竟然能够打印出来 “aaaa” ?
open(FILE_H, "${INIFILE} ")||die "can not open the file: $! ";
while (defined($eachline = <FILE_H> )) {
$temp = "aaaa ";
if ($temp == "tables ")
{
print "$temp \n ";
}
}
close FILE_H;
[解决办法]
应该用eq代替==
Binary "== " returns true if the left argument is numerically equal to
the right argument.
Binary "eq " returns true if the left argument is stringwise equal to
the right argument.