Question

perl语言问题？

if ($line[0]=~ /^-?\d/ && $line[0] > 0) ，这个判断什么情况下成立，要是负数又要大于0这不是自相矛盾吗

Answer 1

这个判断在数组line的第一个元素为正数(包括正整数和正小数)时成立.

因为前半部分正则表达式匹配的是开头为有负号的负数(包括负整数和负小数)或者开头没有正号(也就是加号)的正数(包括正整数和正小数)或者0,

正则表达式其中的问号表示前面的负号可以有也可以没有,后半部分要求数组line的第一个元素大于0,也就是正数(包括正整数和正小数),

两者相与,就是在数组line的第一个元素为开头没有正号(也就是加号)的正数(包括正整数和正小数)时,判断成立.

我给你一个例子,你看看吧.